home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1988 July
/
1988-07.d64
/
nt
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
533b
|
17 lines
0 f$="vm"
100 f$="vm"
101 sys 65517:if peek(781)=40 then f$="mn":goto210
110 poke36879,24:poke36865,24
111 print"[147]load";chr$(34);f$;chr$(34);",8"
115 printchr$(142)"[155] loading":print" table of contents"
116 print" one moment please"
129 a$=chr$(13)+"run"+chr$(13)
130 fori=1tolen(a$):poke630+i,asc(mid$(a$,i)):next:poke198,i-1
140 new
210 poke53280,15:poke53281,15:print"[147][155]load";chr$(34);f$;chr$(34);",8"
215 printchr$(142)" loading table of contents"
216 print" one moment please[155]"
230 a$=chr$(13)+"run"+chr$(13)
240 fori=1tolen(a$):poke630+i,asc(mid$(a$,i)):next:poke198,i-1
250 new