home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Big Mouth 18
/
Big_Mouth_The_18_1998_-_Side_C.d64
/
menu
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
923b
|
34 lines
1 rem" "bm eyes only!(NULL)
2 poke 808,234:poke 53280,0:poke 53281,0
4 fort=1 to 500:next
6 print"[147][155]"tab(7)"the big mouth - main menu"
8 fort=1 to 2000:next
10 print"[147]"
15 fort=1 to 500:next
20 printtab(9)"confusing quest 2 menu"
30 print"a - instructions"
31 print"b - introduction"
32 print"c - level 1 - xanada"
33 print"d - level 2 - razil"
34 print"e - level 3 - united knelldom"
35 print"f - level 4 - e-gibbet"
36 print"(non cq2) g - solitaire 64"
50 print"pick a program to load (a-g) ?"
55 get a$:if a$="" then 55
60 a=asc(a$):if a-64<1 or a-64>7 then 55
65 print""tab(15)" loading "
70 forx=49152 to 49170:ready:poke x,y:nextx
75 sys 49152
76 data 120,169,013,141,040,003,169,192
77 data 141,041,003,088,096,238,032,208
78 data 076,237,246
80 on a-64 goto 101,102,103,104,105,106,107
99 :
101 load"cq2 instructions",8,1
102 load"cq2 introduction",8,1
103 load"01 - xanada ",8,1
104 load"02 - razil ",8,1
105 load"03 - u.knelldom ",8,1
106 load"04 - e-gibbet ",8,1
107 load" solitaire 64 ",8,1