home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1994 January
/
1994-01b.d64
/
prime.pp
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
735b
|
20 lines
15 x=896:forj=1to9:readx$
20 fori=1tolen(x$)step2:z=asc(mid$(x$,i,1))*16+asc(mid$(x$,i+1,1))-1105:pokex,z
25 y=y+z:x=x+1:next:next:ify<>11208then stop
30 poke55,0:poke56,11:clr:sys899
40 x=0:z=0:i=0:m=999
45 poke785,128:poke786,3
50 ti$="000000":print2;
55 fori=3tomstep2:ifusr(i)=0thenprinti;
60 forx=itomstepi*2:z=usr(x):next:next
65 print:print"from 1 to"m"in"int(ti*5/3)/100"seconds
70 [131] bijacobijaakabacaeaibacaeaia
75 [131] aaaahikjdaifabkjalifafifadkj
80 [131] aaifaeifackijbaeminaplogafna
85 [131] phkjdhifabfigacajllmhikjdaif
90 [131] abkfgfcjapekkkeggdgggegggfeg
95 [131] gdgggegggfeggdgggegggfeggdgg
100 [131] gegggfkfacbigfgfifaekfgegfad
105 [131] ifafkaaalbaednigadeilbaebnig
110 [131] adjbaegikikjdhifabfiemkcldaa