The Big Mouth 18/Big_Mouth_The_18_1998_-_Side_B.d64/menu

Commodore BASIC | 2023-02-26 | 1KB | 50 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(7)"the big mouth - main menu"
30 print"a - davids midnight magic"
31 print"b - night mission"
32 print"c - 3-d pinball"
33 print"d - pinball wizard"
34 print"e - slamball"
35 print"f - macadam bumper"
36 print"g - funstuff pinball"
37 print"h - skidmarks prevew"
50 print"pick a program to load (a-h) ?"
55 get a$:if a$="" then 55
60 a=asc(a$):if a-64<1 or a-64>8 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,110,120,106
99 :
101 load"davids mid.magic",8,1
102 load" night mission  ",8,1
103 load"  3-d pinball   ",8,1
104 load" pinball wizard ",8,1
105 load"    slamball    ",8,1
106 load"skidmarks prevew",8,1
109 :
110 print"macadam bumper instructions"
111 print"when loaded, press f1[146] to exit to the"
112 print"game menu, then r[146] to define the keys"
113 print"(or see the defualt setup) and finally  p[146] to play the game!"
115 load" macadam bumper ",8,1
119 :
120 print"funstall pinball - joystick in port 2"
121 print"up & down - alter plunger tension"
122 print"left      - left flipper"
123 print"right     - right flipper"
124 print"fire      - release ball"
125 print"f3        - change table colors"
126 print"f5        - change number of players"
127 print"f7        - start game"
129 load"funstuff pinball",8,1