100 print "welcome to surviver."
101 print "in this game, you have to get to your base without getting killed."
102 print "press y to start, n to exit."
103 EXIT$=INKEY$:IF EXIT$="" THEN 103
104  if exit$ = "y" then goto 108
105 if exit$ = "n" then goto 193
108 print "you are in your jet, and are going straight ahead."
109 print "press y to keep going, n to make a turn to the left."
110 EXIT$=INKEY$:IF EXIT$="" THEN 110
111 if exit$ = "y" then goto 115
112 if exit$ = "n" then goto 162
115 print "you are flying at a speed of 200 MILES per hour."
116 print "you are continuing down the path."
117 print "your base is to the left."
118 print "an enemy has been detected on your radar. speeding up"
119 print "you lost him."
120 print "the base is to your left, do you want to turn, y or n."
121 EXIT$=INKEY$:IF EXIT$="" THEN 121
122 if exit$ = "y" then goto 126
123 if exit$ = "n" then goto 179
126 print "making turn."
127 sound 200,30
128 print "error, an enemy has been spotted."
129 print "targeting"
130 sound 100,1:sound 130,1:sound 200,30
131 print "fired!"
132 beep:print "direct hit!"
133 print "enemy destroyed."
134 print "base getting closer."
135 print "there is an enemy up ahead."
136 print "missile fired, hit, enemy destroyed"
137 beep:print "a gust of wind is setting your plain off course. you mal function!"
138 beep:print "you get back on course, and an enemy spots you!"
139 beep:beep:beep:print "you get hit!"
140 print "targeting, fired, direct hit!"
141 beep:print "you are now heading straight ahead!"
142 print "there is an enemy up ahead, do you want to turn away? y or n."
143 EXIT$=INKEY$:IF EXIT$=""THEN 143
144 if exit$ = "y" then goto 148
145 if exit$ = "n" then goto 195
146 else goto 142
148 print "he's chasing you! speeding up"
149 beep:beep:beep:beep:beep:print "you lost him!"
150 print "you turn back to the base, and you get attacked!"
151 sound 111,1:sound 111,1
152 print "you don't have any missIls loaded!"
153 print "you turn and speed away, and you make it!"
154 print "you make it to the base! congratulations!"
155 sound 144,4:sound 155,6:sound 200,30
156 print "press y to play again, n to quit"
157 EXIT$=INKEY$:IF EXIT$="" THEN 157
158 if exit$ = "y" then goto 100
159 if exit$ = "n" then goto 193
162 beep:print "you make a turn, and you get hit!"
163 print "targeting"
164 print "fired"
165 beep:print:print
166 print "direct hit!"
167 print "enemy destroyed"
168 print "you keep going, and a gust of wind blows your aircraft!"
169 print "the wind gets harder, and you mal function!"
170 beep:print "loosing altitude!"
171 beep:beep:beep:print "your hit again! wing failure"
172 print "you lose!"
173 goto 193
175 print "you keep going, he shoots you!"
176 beep:print "your dead!"
177 goto 193
179 print "you keep going straight."
180 beep:print "error, mal function."
181 print "you have been hit on your fuel tank, and you are loosing altitude."
182 print:print
183 beep:print "4,000 ft"
184 beep:print "3,000 ft"
185 beep:beep:print "900 ft"
186 sound 300,1:sound 300,1:sound 300,1
187 print "200 ft"
188 print "2 ft"
189 beep:beep:beep:beep:beep:print
190 print "sorry, you loose."
191 goto 193
193 print "thanks for playing"
194 end
195 print "enemy getting closer."
196 print "a mine has been detected ahead."
197 print "do you want to target it? y or n."
198 EXIT$=INKEY$:IF EXIT$=""THEN 198
199 if exit$ = "y" then goto 203
200 if exit$ = "n" then goto 230
203 print "tracking"
204 beep:print "100 ft"
205 beep:print "50 ft"
206 sound 200,1:sound 200,1
207 print" firing range, fired missile"
208 sound 300,50:beep
209 print "direct hit"
210 print "enemy has been destroyed"
211 print "the enemy flew into the explosion"
212 beep:print "you are now heading toward the base."
213 sound 500,1
214 print "almost there!"
215 beep:print "opening gates..."
216 sound 144,90:beep
217 print "gates open"
218 beep:print "entering area"
219 beep:beep:print "landing..."
220 sound 144,90
221 beep:print "altitude: 900 ft"
222 beep:print "500 ft"
223 sound 144,1:sound 114,1
224 print "touch down!"
225 sound 144,4:sound 150,10:sound 160,20
226 print "congradulations!"
227 print "you win!"
228 goto 193
230 print "you keep heading toward the enemy."
231 beep:print "enemy getting closer."
232 print "what do you want to track, enemy or mjne?"
233 print "press e to track enemy, or m to track mine"
234 print "you can also press n to track neither one"
235 EXIT$=INKEY$:IF EXIT$="" THEN 235
236 if exit$ = "e" then goto 241
237 if exit$ = "m" then goto 260
238 if exit$ = "n" then goto 270
241 sound 150,1:print "targeting enemy."
242 print "200 ft"
243 print "100 ft"
244 print "fired missal"
245 print:print
246 print:print
247 beep:print "direct hit!"
248 sound 144,1:sound 144,1:sound 144,1
249 print:print
250 sound 200,30:print:print
251 beep:print "you have been hit by the mine."
252 print "losjng altitude."
253 print "speeding up."
254 print "you have reached the base, but you are falling."
255 sound 145,4:sound 143,4:sound 145,4:sound 143,4
256 print "police have gotten you safely out of the plane."
257 print "congradulations, you win!"
258 goto 193
260 beep:print "locked on mine."
261 print "firdd missal."
262 sound 144,5:sound 150,6
263 print "direct hit."
264 print "explosion spreading."
265 beep:beep:print "the enemy has been hit by the explosion."
266 print "enemy destroyed."
267 print "congradulations, you reached the base."
268 goto 193
270 print "cntinuing forward."
271 beep:beep:print "you have hen hit by the mine."
272 print "enemy has been hit by the mine."
273 print "you are mal functioning."
274 print "dropping altitude."
275 sound 300,30
276 print:print
277 beep:beep:beep:beep
278 print:print
279 print "you have exploded, and have lost."
280 goto 193