home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8609.d64
/
primzahlen
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
146b
|
5 lines
10 INPUT"[147]PRIMZAHLEN BIS";H:Z=3:T=INT(SQR(H)+1):W=(T-1)/2:G=T*T:DIMP%(G)
20 FORX=1TOW:FORY=Z*ZTOGSTEPZ*2:P%(Y)=1:NEXT:Z=Z+2:NEXT
30 PRINT2;:FORX=3TOHSTEP2:IFP%(X)=.THENPRINTX;
40 NEXT