home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 55
/
Commodore_Disc_55_19xx_-_de.d64
/
dvinfo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
320b
|
10 lines
10 printchr$(147):if peek(772)=124then30
20 printchr$(19)"run "chr$(34)"cp-load.128":poke842,19:poke843,13
21 f$="ed dv.*"+chr$(13):fori=1to8
22 poke843+i,asc(mid$(f$,i,1)):next:poke208,10:end
30 printchr$(19)"load "chr$(34)"cp-load.64"chr$(34)",8"
40 rn$="run":print""
50 printchr$(145)rn$chr$(19);
60 f$=chr$(13)+chr$(13)+"ed dv.*"+chr$(13)
70 for i=1to10:poke630+i,asc(mid$(f$,i,1)):next:poke198,10:end