10 SCREEN 9
15 CLS
20 PRINT "BEATEN: An Interactive Adventure by Eddie Tomayko"
30 PRINT "Copyright 1996, All Rights Reserved"
40 PRINT "Serial/Release No. 708/348"
50 PRINT
60 PRINT
70 PRINT
80 PRINT
90 PRINT
100 PRINT "You wake up.  It's been a long day, not to mention night."
110 PRINT "You have an immense hangover."
120 PRINT "Maybe you should have avoided those 10 beers last night."
130 INPUT "You may get UP, go back to SLEEP, or get some ASPRIN."; a$
140 IF a$ = "up" THEN GOTO 170
150 IF a$ = "sleep" THEN GOTO 180
160 IF a$ = "asprin" THEN GOTO 190
170 PRINT
171 PRINT "You stand up.  The room spins wildly around you."
172 PRINT "Suddenly you lose your balance.  You fall forward face first."
173 PRINT "You crack your head on your dresser.  You black out."
174 GOTO 2000
180 PRINT
181 PRINT "You fall back into sleep.  You sleep for several hours."
182 PRINT "You wake up to the sound of breaking glass."
183 PRINT "You are defenseless as a gang of vigilanties beat you."
184 PRINT "Eventually you lose consciousness.  Death finally arrives."
185 GOTO 2000
190 PRINT
191 PRINT "You take some asprin and sit down for a while."
192 PRINT "Your hangover finally goes away.  You look at the clock.  It reads 10 AM."
193 INPUT "What do you want to do now?  You may go OUTSIDE, turn the TV on, or SLEEP."; b$
194 IF b$ = "tv" THEN GOTO 200
195 IF b$ = "outside" THEN GOTO 210
196 IF b$ = "sleep" THEN GOTO 180
200 PRINT
201 PRINT "You turn on your TV.  You switch the channel to the news."
202 PRINT "The newscaster says something about a band of armed vigilanties."
203 PRINT "He says that they are armed and dangerous."
204 PRINT "Ha!  You think to yourself.  Those newscasters will say anything to get ratings!"
205 PRINT "At that moment you hear the sound of breaking glass."
206 PRINT "A band of club-brandishing vigilanties enter the room."
207 PRINT "You are defenseless as the gang beats you senseless."
208 GOTO 184
210 PRINT
211 INPUT "You leave the house and start your car.  Roads lead NORTH, EAST, and WEST."; c$
212 IF c$ = "north" THEN GOTO 220
213 IF c$ = "east" THEN GOTO 230
214 IF c$ = "west" THEN GOTO 240
220 PRINT
221 INPUT "You pull up to the pub you were in last night.  Do you ENTER or go BACK"; d$
222 IF d$ = "enter" THEN GOTO 224
223 IF d$ = "back" THEN GOTO 210
224 PRINT
225 PRINT "You enter and have a couple of beers.  And a couple more.  And even more still.."
226 PRINT "Drunk as hell, you wander into the street and are hit by a passing car."
227 GOTO 2000
230 PRINT
231 PRINT "You drive up to a pawn shop.  A sign on the door says -Open-"
232 PRINT "You open the door and enter the pawn shop."
233 PRINT "You search your pockets.  All you have is $5."
234 INPUT "You can buy a GUN, or a BLACKJACK."; e$
235 IF e$ = "gun" THEN GOTO 250
236 IF e$ = "blackjack" THEN GOTO 280
240 PRINT
241 PRINT "As you are driving along, you see a pile of money on the ground!"
242 PRINT "You get out and start to pick it up.  A gang of vigilanties approaches you."
243 PRINT "They tell you that the money is now theirs.  They say you must pay or be beaten."
244 INPUT "You can PAY $100, or BEAT them if you have a blackjack"; g$
245 IF g$ = "pay" THEN GOTO 246
245.5 IF g$ = "beat" THEN GOTO 310
246 PRINT
247 PRINT "The gang takes the money, and then decides to beat you anyway."
248 GOTO 207
250 PRINT
251 PRINT "You buy a gun from the shopkeeper.  He seems to have a strange glint in his eye."
252 PRINT "You drive back to your house.  You decide to test the weapon."
253 PRINT "You aim it at a nearby tree and pull the trigger."
254 SLEEP 10
255 CLS
256 SCREEN 7
257 PRINT "                     BOOM!!!!"
258 SLEEP 1
259 CLS
260 SLEEP 1
261 PRINT "                     BOOM!!!!"
262 SLEEP 1
263 CLS
264 SLEEP 1
265 PRINT "                     BOOM!!!!"
266 SLEEP 1
267 CLS
268 SLEEP 1
269 SCREEN 9
270 PRINT
271 PRINT "The gun explodes in your hand.  You fall to the ground, bleeding profusely."
272 PRINT "You die slowly and painfully.  I wouldn't have trusted that shopkeeper!"
273 GOTO 2000
280 PRINT
281 PRINT "You buy a blackjack.  The store owner seems to have a strange glint in his eye."
282 PRINT "You don't like the store owner's attitude.  That glint is annoying too."
283 PRINT "You beat him mercilessly with your blackjack into a bloody pulp."
284 INPUT "You can steal the GUN, or the MONEY."; f$
285 IF f$ = "gun" THEN GOTO 290
286 IF f$ = "money" THEN GOTO 300
290 PRINT
291 PRINT "You steal the gun from the shop."
292 GOTO 252
300 PRINT
301 PRINT "You take bust open the cash register.  There is $100 in it.  You take it."
302 PRINT "As you are leaving you remember your $5.  You retrieve the bloodstained cash."
303 PRINT "You get in your car and drive back home."
304 GOTO 210
310 PRINT
311 PRINT "You take out the blackjack and brutally beat each member of the gang."
312 PRINT "As they lie unconscious on the ground, you beat them until they stop breathing."
312.5 SLEEP 5
313 SCREEN 7
314 CLS
315 PRINT "         Congratulations!"
315.5 SLEEP 5
316 PRINT "         You have avoided being BEATEN!"
316.5 SLEEP 5
316.6 CLS
317 SCREEN 9
318 PRINT "I hope you enjoyed it!"
319 END
2000 PRINT
2001 INPUT "You have died.  Would you like to play again?"; z$
2002 IF z$ = "yes" THEN GOTO 15
2003 IF z$ = "no" THEN END