home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 4 #3
/
Commodore_Disk_User_Vol.4_3_1991_-.d64
/
menu
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
993b
|
26 lines
0 rem ********************************
1 rem *intro credits copyright 1989 *
2 rem ********************************
3 rem ********************************
4 rem *intro credits copyright 1989 *
5 rem ********************************
6 rem ********************************
7 rem *intro credits copyright 1989 *
8 rem ********************************
9 rem ********************************
10 rem *intro credits copyright 1989 *
11 rem ********************************
12 print"[147]"
100 l=l+1:poke53281,l:ifl=3thenload"m.mc",8,1
105 ifl=1thenload"inter stop",8,1
106 ifl=2thensys16384+256+256+256:goto100
110 ifl=4thenload"m.music",8,1
120 poke54296,15:fort=0to300:next:sys16384+256+256+256
130 ifa=56thens$="intro":load"rtu",8,1
135 print" press 1 for introduction"
136 print" 2 for save code"
137 print" 3 for small demo"
138 if a=59thens$="save code":load"rtu",8,1
140 ifa=8thens$="demo ba":load"rtu",8,1
150 a=peek(197):goto130