home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh7x / sh77b.d64 / token-finder (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  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.