home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1985 March
/
Ahoy_Magazine_85-03_1985_Double_L.d64
/
menu-vic
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
742b
|
24 lines
100 print"[147]":poke 53280,6:poke 53281,1
110 print tab(3)"d i r e c t o r y"
140 l$=""
150 a=a+1:b=b+1:read pr$
160 print left$(l$,b+3)tab(0)"[144]";a;"- [154]"pr$
165 if b=7 then 175
170 goto 150
175 if a>=14 then restore:a=0
180 print left$(l$,17)" disks reproduced with"
185 print left$(l$,18)" msd super drives"
190 print left$(l$,22)tab(1)"[144](c)double l software"
200 print left$(l$,20)tab(3)"your choice";
210 input an$:an=val(an$)
220 if an$="" then b=0:goto 100
230 if an$>="1" or an$<="14" then 240
240 restore:for a=1 to an:read pr$:next a
245 print"[147]"
250 print "load";chr$(34);pr$;chr$(34);",8"
260 print "run":print"[145][145][145][145][145][145][145][145][145][145]"
270 poke 631,13:poke 632,13:poke 198,2:end
500 data 64 checksum,vic checksum,mansion game,mansion setup,rupert #1
510 data numer. vic,numer. c-64,elfred,slamon run,home budget
520 data function,auto line#,old routine,flankspeed