home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 77 / 64er_Magazin_Sonderheft_77_19xx_Markt__Technik_de_Side_B.d64 / token-finder (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  384 b   |  22 lines
  1. 400 poke2,127
  2. 410 z=peek(2)+1
  3. 420 ifz=256then550
  4. 430 h=int(z/16)
  5. 440 l=z-16*h
  6. 450 ifh>9thenh=h+7
  7. 460 ifl>9thenl=l+7
  8. 470 h$=chr$(48+h)
  9. 480 l$=chr$(48+l)
  10. 490 printchr$(147);z;"...";h$;l$;"...*"
  11. 500 print"run 410"
  12. 510 poke2,z
  13. 520 poke631,19:poke632,13
  14. 530 poke633,13:poke198,3
  15. 540 end
  16. 550 a=peek(44)*256+peek(43)+12
  17. 560 fori=0to127
  18. 570 pokea+14*i,i+128
  19. 580 nexti
  20. 590 poke2,29:printchr$(147)
  21. 600 z=peek(2)+1:printchr$(19)10*z:print"r[213]600":poke631,19:poke632,13:poke633,13:poke198,3:poke2,z:end
  22.