home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh7x
/
sh77b.d64
/
token-finder
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
384b
|
22 lines
400 POKE2,127
410 Z=PEEK(2)+1
420 IFZ=256THEN550
430 H=INT(Z/16)
440 L=Z-16*H
450 IFH>9THENH=H+7
460 IFL>9THENL=L+7
470 H$=CHR$(48+H)
480 L$=CHR$(48+L)
490 PRINTCHR$(147);Z;"...";H$;L$;"...*"
500 PRINT"RUN 410"
510 POKE2,Z
520 POKE631,19:POKE632,13
530 POKE633,13:POKE198,3
540 END
550 A=PEEK(44)*256+PEEK(43)+12
560 FORI=0TO127
570 POKEA+14*I,I+128
580 NEXTI
590 POKE2,29:PRINTCHR$(147)
600 Z=PEEK(2)+1:PRINTCHR$(19)10*Z:PRINT"R[213]600":POKE631,19:POKE632,13:POKE633,13:POKE198,3:POKE2,Z:END