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