I#1: 104 : 12); "***PI***"::130 I--SUBROUTINEN--gR0:JA 11:QRZA(J)(A(J)(QN):R(QNA(J))::2R0:JA 1 1:QZRB(J)<B(J)(QN):R(QNB(J))::FN25:30:N2I1:30:50:N57121:50PF2I1:U0:J1 A:QA(J)F@ZW(QZ):A(J)((QZW)Z0.5)U:UW:_dJ1 A:QB(J)F:W(QZ)nB(J)((QZW)Z0.5)U:UW::xHAUPTPROGRAMM"STELLENZAHL";S:"**BITTE WARTEN!**":V2:Z10V:ASV3.9:A(A),B(A),C(A)A(A)16:B(A)4:I1:N5:30:N239:50HU0:J1 A:QC(J)A(J)B(J)U:U(QZ) rC(J)((QZU)Z0.5)::70:II1 U0:J1 A:QC(J)A(J)B(J)U:U(QZ)C(J)((QZU)Z0.5):70:II1: A(1)0 N3 170  JA 3 1:C(J);:1