home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 July / 64er_Magazin_86-07_1986_Markt__Technik_de.d64 / token-finder (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  384b  |  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.