home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8612.d64 / primzahlen (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  194b  |  7 lines
  1. 20 Q=3500:C=0:A=0:E=0:F=0:D=0:PRINT1,2,3,:DIMB(Q):B(0)=3:FORA=3TO999999999STEP2
  2. 30 IFC<QTHENIFINT(A)=INT(B(E)^2)THENE=E+1
  3. 40 FORD=3TOB(E)STEP2:IFA/D=INT(A/D)THENF=1:D=B(E)
  4. 50 NEXT:IFF=1THENF=0:NEXT
  5. 60 PRINTA,:IFC<QTHENC=C+1:B(C)=A:NEXT
  6. 70 NEXT
  7.