home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 55
/
Commodore_Disc_55_19xx_-_de.d64
/
cp-comp
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
215b
|
7 lines
1 printchr$(147):if peek(772)=124then3
2 printchr$(19)"run "chr$(34)"cp-comp.128":poke842,19:poke843,13:poke208,2:end
3 printchr$(19)"load "chr$(34)"cp-comp.64"chr$(34)",8"
4 rn$="run":print""
5 printchr$(145)rn$
6 poke631,19:fori=1to3:poke631+i,13:next:poke198,4:end