home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_2004-03_2004_CSW_Side_B.d64
/
wcopy
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
21KB
|
10 lines
10 f=abs(peek(65533)=255)
12 mo=191
14 ba=8192
20 iff=0thenpl=peek(43):ph=peek(44)
30 iff=1thenpl=peek(45):ph=peek(46):(NULL)0
42 pa=ph*256+pl+mo+2
44 ph=int(pa/256):pl=pa-ph*256
46 poke 250,pl:poke251,ph
50 sys (pa+6)