home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1993 June
/
1993-06.d64
/
vts.note
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
454b
|
14 lines
0 clr
1 poke53280,6:poke53281,6:print"[147]"
10 a$="[212]he size of the":gosub1000
20 a$="[214]ideo [212]ape [211]upervisor program":gosub1000
30 a$="is such that it must be loaded":gosub1000
40 a$="independently of the [199]azette [205]enu.":gosub1000
50 a$="[204]oad with:":gosub1000:print
60 a$="[204][207][193][196] "+chr$(34)+"[214][212][211]"+chr$(34)+",8":gosub1000:print
70 a$="then [210][213][206].":gosub 1000
80 print chr$(13):a$="[208]ress [193]ny [203]ey to [210]eturn to [205]enu":gosub1000
90 get a$:if a$="" then 90
100 load"menu",8,1
1000 y=len(a$):for x=1to (20-y/2):printchr$(32);:next:printa$:return