home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8609.d64 / primzahlen (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  146b  |  5 lines

  1. 10 INPUT"[147]PRIMZAHLEN BIS";H:Z=3:T=INT(SQR(H)+1):W=(T-1)/2:G=T*T:DIMP%(G)
  2. 20 FORX=1TOW:FORY=Z*ZTOGSTEPZ*2:P%(Y)=1:NEXT:Z=Z+2:NEXT
  3. 30 PRINT2;:FORX=3TOHSTEP2:IFP%(X)=.THENPRINTX;
  4. 40 NEXT
  5.