20 PRINT"You awake on a bed in strange room. Your head starts to clear. But whatever reason you are here escapes you. You mentally take a quick inventory of your surroundings."
50 NQ=66
100 DIM WORD$(20),WORD%(20,1),OBJ$(NQ),OBJ%(NQ)
110 EXTRA=0:LAY=1:HOLD=0:LC=1:ZAP=99
115 DIM RM$(2),RM%(2,10)
117 RM$(1)="Inside the room":RM$(2)="Outside the room"
118 RM%(2,4)=1
120 DIM VERBS$(150),VERBS%(150),TYPE$(250),TYPE%(250,1)
150 OPEN "VERBS.TXT" FOR INPUT AS #1
160 NV=1
170 INPUT #1,VERBS$(NV),VERBS%(NV):IF VERBS$(NV)="<<END>>" THEN 200
180 NV=NV+1:GOTO 170
200 CLOSE #1
210 OPEN "WORDS.TXT" FOR INPUT AS #1
220 N=1
230 INPUT #1,TYPE$(N),TYPE%(N,0),TYPE%(N,1):IF TYPE$(N)="<<END>>" THEN 250
240 N=N+1:GOTO 230
250 CLOSE#1:TYPE=N-1
260 FOR N=1 TO NQ:READ OBJ$(N),OBJ%(N):NEXT
280 DATA north,-1,south,-1,east,-1,west,-1,up,-1,down,-1,northwest,-1,northeast,-1
290 DATA southwest,-1,southeast,-1
300 DATA door on east side,1,large freezer,1,cabinet,1,grill high on wall,1
305 DATA vent on ceiling,1,grate on floor,1,shelf on wall,1,red decorative stripe on wall,1
310 DATA brown carpet,1,bed,1,table,1,desk,1,toolbox,1,cassette player,-1
315 DATA telephone,1,dime,-1,quarter,-1
320 DATA thick book,-1,heavy thermos,-1,label,-1,sneaker,-1,string,-1,cord,-1
325 DATA silver key,-1,panel,-1,batteries,-1,liquid nitrogen,-1,wrench,-1,small screws,-1,small key,-1,pair of scissors,-1,hammer,-1,pair of pliers,-1,screwdriver,-1,papers,-1
330 DATA thin book,-1,large book,-1,small book,-1,gold key,-1,electromagnet,-1,set of earphones,-1
340 DATA hinge,-1,mirror,1,bolts,-1,small screws,-1,padlock,-1,latch,-1,hole,-1
345 DATA Adventurer's Handbook,-1,Don't Panic button,-1,crumbs,-1,mouse,-1,diary,-1,cashbox,-1,rusty key,-1,mittens,-1
1000 'main loop
1002 IF K=13 AND NOUN=99 THEN MOVE=MOVE-1
1005 IF MOVE>ZAP THEN MOVE=ZAP
1010 IF MOVE=10 AND BP=0 THEN PRINT"There is a strange noise.":GOTO 5470
1012 IF ZAP-MOVE<4 THEN PRINT"The hiss of rushing gas can be heard.":IF MOVE=ZAP THEN PRINT"You keel over.":GOTO 8000
1014 IF LC=2 THEN PRINT:PRINT"Congratulations. You have made it out.":SCORE=SCORE+25000:PRINT:PRINT"Score is"SCORE"out of 1,000,000":END
1016 IF LK=2 THEN PRINT"If you look one more time I might think you're vain.":LK=3
1024 GOSUB 9500
1026 MOVE=MOVE+1
1028 IF EXTRA THEN A$=A1$:PRINT A$:GOSUB 9007 ELSE GOSUB 9000
1030 GOSUB 9200
1032 IF K=0 THEN PRINT"I don't know how to "WORD$(1):GOTO 1090
1035 PRINT
1040 FOR N=1 TO NUM:WORD%(N,0)=0:WORD%(N,1)=0:GOSUB 9100:NEXT N
1050 FOR X=1 TO NUM:IF WORD%(X,1)=1 THEN 1060
1055 NEXT X
1060 IF WORD%(X,0)=999 THEN 1080
1061 IF NUM=1 THEN 1080
1062 NOUN$="":NOUN=0:IF WORD%(X+1,1)=4 THEN CONJ1=1:CONJ2=WORD%(X+1,0)
1065 IF X>NUM THEN PRINT"That sentence is beyond my vocabulary and comprehension.":GOTO 1000
1067 NOUN$=WORD$(X):NOUN=WORD%(X,0)
1070 ADJ$="":ADJ=0:FOR Y=2 TO NUM-1:IF WORD%(Y,1)=2 THEN ADJ$=WORD$(Y):ADJ=WORD%(Y,0):GOTO 1075
1072 NEXT:IF ADJ=0 THEN Y=0
1075 PREP$="":PREP=0:FOR Z=2 TO NUM-1:IF WORD%(Z,1)=3 THEN PREP$=WORD$(Z):PREP=WORD%(Z,0):GOTO 1080
1077 NEXT:IF PREP=0 THEN Z=0
1080 IF (NOUN=34 OR NOUN=28) AND ADJ=0 THEN PRINT"You will have to be more descriptive.":GOTO 1000
1082 IF PREP=204 AND WORD%(Z+1,0)=999 THEN WORD%(Z+1,0)=LASTNOUN:WORD$(Z+1)=LASTNOUN$:GOTO 1200
1085 IF NOUN=34 THEN GOSUB 1460
1087 IF NOUN=28 THEN GOSUB 1480
1090 IF PREP=204 AND (WORD%(NUM,0)=34 OR WORD%(NUM,0)=28) THEN GOSUB 8900
1095 LASTNOUN=NOUN:LASTNOUN$=NOUN$
1200 '
1210 IF K<11 THEN NOUN$=VERB$:VERB$="GO":NOUN=WORD%(1,0):GOTO 1300
1220 ON K-10 GOTO 1300,1400,1500,1600,2000,2100,2200,2300,2400,2500
1230 ON K-20 GOTO 2600,2700,2800,2900,3000,3100,3200,3300,3400,3500
1240 ON K-30 GOTO 3600,3700,3800,3800,3800,1290,4200,4300,4400,4500
1250 ON K-40 GOTO 4600,4700,4800,4900,5000,5100,5200,5300,5400,3600
1260 ON K-50 GOTO 3600,5600,5700,5800,5900,6000,6100
1290 PRINT"Huh??!!":GOTO 1000
1300 '
1305 IF LAY THEN PRINT"You need to get up first.":GOTO 1000
1310 IF NOUN>10 THEN PRINT"Huh??":GOTO 1000
1315 IF RM%(LC,NOUN)>0 THEN LC=RM%(LC,NOUN):GOTO 1000
1320 PRINT"You can't go that way.":GOTO 1000
1400 IF NOUN=99 THEN PRINT"Sorry, but please name off the items so I can tell if you can really get them.":GOTO 1000 'get
1401 IF NOUN=5 AND LAY=1 THEN PRINT"You are on your feet":LAY=0:SCORE=SCORE+250000!:GOTO 1000
1402 IF LAY THEN PRINT"You can't do much on your back!":GOTO 1000
1403 GOSUB 1405:N2=NOUN:GOSUB 7000:IF N2<>NOUN THEN MOVE=MOVE+1:GOTO 1403
1404 GOTO 1000
1405 IF NOUN=0 THEN PRINT"Huh??":GOTO 1000
1406 IF MOVE=10 AND BP=0 THEN PRINT"There is a strange noise.":BP=1:ZAP=MOVE+30:BEEP
1408 IF NOUN=6 THEN PRINT"Well, all right!!! Anything you say, Bro!!":GOTO 1000
1410 IF NOUN<23 THEN PRINT"You can't get the "OBJ$(NOUN):GOTO 1000
1412 IF NOUN=52 OR NOUN=54 THEN PRINT"The "OBJ$(NOUN)" are too tightly bound to the wall and door.":RETURN
1413 IF NOUN=58 THEN PRINT"You cant get the hole.":RETURN
1414 IF NOUN=29 AND MIT=0 THEN PRINT"The thermos is too cold. Your hand freezes. You go into shock. You aren't active for the rest of the alotted time.":GOTO 2315
1415 IF NOUN=37 THEN PRINT"Your hand freezes. You go into shock. You aren't active for the rest of the alotted time.":GOTO 9900
1418 IF OBJ%(NOUN)=-2 AND HIK THEN SCORE=SCORE+25000:GOTO 1446
1419 IF OBJ%(NOUN)=-2 THEN PRINT"It's out of reach.":RETURN
1420 IF NOUN=65 AND PREP=204 AND WORD%(NUM,0)=44 AND OBJ%(44)=0 THEN 1446
1422 IF NOUN=39 AND PREP=204 AND WORD%(NUM,0)=26 AND OBJ%(26)=0 THEN CAB=1:PRINT"Latch with padlock drops off":GOTO 1446
1423 IF NOUN=39 AND PREP=204 AND WORD%(NUM,0)=44 THEN PRINT"The screwdriver is too big to get the screws.":RETURN
1424 IF (NOUN=39 OR NOUN=56 OR NOUN=57) AND CAB=0 THEN PRINT"Unable to get "OBJ$(NOUN):RETURN
1426 IF NOUN=65 AND PREP=204 AND WORD%(NUM,0)=44 THEN 1446
1428 IF NOUN=65 THEN PRINT"The mouse stops your effort.":RETURN
1444 IF OBJ%(NOUN)<>LC THEN PRINT"I don't see any "OBJ$(NOUN):RETURN
1446 PRINT OBJ$(NOUN);:IF HOLD=12 THEN PRINT". You are carrying too much already":RETURN
1448 OBJ%(NOUN)=0:HOLD=HOLD+1
1450 PRINT"-Taken-":RETURN
1460 IF ADJ=171 THEN NOUN=40:RETURN
1462 IF ADJ=161 THEN NOUN=49:RETURN
1464 IF ADJ=162 THEN NOUN=34:RETURN
1465 IF ADJ=175 THEN NOUN=65:RETURN
1468 PRINT"Huh?":RETURN
1480 IF ADJ=173 THEN NOUN=28:RETURN
1482 IF ADJ=172 THEN NOUN=46:RETURN
1484 IF ADJ=170 THEN NOUN=47:RETURN
1486 IF ADJ=171 THEN NOUN=48:RETURN
1488 PRINT"Huh?":RETURN
1490 FOR N=23 TO 51:IF HOLD=9 THEN 1498
1492 IF REJECT=N THEN 1497
1493 IF REJECT2=N THEN 1497
1494 IF REJECT3=N THEN 1497
1496 IF OBJ%(N)=LC THEN OBJ%(N)=0:HOLD=HOLD+1:PRINT OBJ$(N)" - taken."
1497 NEXT N
1498 IF HOLD=12 THEN PRINT"That's all you can hold."
1499 GOTO 1000
1500 'drop
1502 IF LAY THEN PRINT"You can't do much on your back!":GOTO 1000
1505 IF NOUN=0 THEN PRINT"Huh??!!":GOTO 1000
1507 IF NOUN=99 AND CONJ1 THEN GOSUB 8700
1508 IF NOUN=99 THEN 1550
1510 IF OBJ%(NOUN)<>0 THEN PRINT"You don't have the "OBJ$(NOUN):GOTO 1000
1512 IF (NOUN=51 AND WEAR) OR (NOUN=60 AND PANIC) THEN PRINT"You will first have to remove the "OBJ$(NOUN):GOTO 1000
1520 OBJ%(NOUN)=LC:HOLD=HOLD-1
1530 PRINT"-Dropped-":GOTO 1000
1550 FOR N=23 TO NQ:IF HOLD=0 THEN 1580
1552 IF MOVE=10 AND BP=0 THEN PRINT"There is a strange noise.":BP=1:ZAP=MOVE+30:BEEP
1555 IF REJECT=N THEN 1575
1560 IF REJECT2=N THEN 1575
1565 IF REJECT3=N THEN 1575
1570 IF OBJ%(N)=0 THEN OBJ%(N)=LC:HOLD=HOLD-1:PRINT OBJ$(N)" - dropped.":MOVE=MOVE+1
1575 NEXT N
1580 GOTO 1000
1600 'look
1610 IF NUM=1 OR WORD$(2)="AROUND" THEN GOSUB 9530:GOTO 1000
1612 IF OBJ%(NOUN)<>1 AND OBJ%(NOUN)<>0 THEN PRINT"I do not see any "OBJ$(NOUN):GOTO 1000
1615 IF NOUN=0 THEN PRINT"I don't understand what you want to look at.":GOTO 1000
1620 IF PREP=202 THEN PRINT"You'll have to be more specific with where you're looking.":GOTO 1000
1630 IF PREP=205 THEN 1700
1632 IF NOUN=14 THEN 7500
1634 IF NOUN=15 THEN 7600
1640 IF NOUN=58 AND OBJ%(65)=-1 THEN PRINT"It is a very narrow hole. Within it just out of reach is a rusty key.":GOTO 1000
1645 IF NOUN=63 THEN PRINT"There is a single entry: `Got up. Looked at everything. Panic set in. Went back to sleep.'":GOTO 1000
1650 IF NOUN=11 AND OBJ%(52)=-1 THEN PRINT"The door is of heavy metal mounted with a large hinge that has small bolts. It has been locked.":OBJ%(52)=1:OBJ%(54)=1:GOTO 1000
1652 IF NOUN=24 THEN PRINT"It is a tightly sealed unit with a service panel in the back.":IF OBJ%(35)=-1 THEN OBJ%(35)=OBJ%(24):GOTO 1000 ELSE GOTO 1000
1653 IF NOUN=53 AND BROKE THEN PRINT"You see an array of nondescript, above average adventure game players.":LK=LK+1:GOTO 1000
1654 IF NOUN=53 THEN PRINT"You see a nondescript, above average adventure game player.":LK=LK+1:GOTO 1000
1655 IF NOUN=16 AND OBJ%(34)=<-1 THEN OBJ%(34)=-2:PRINT"A silver key can be seen through the grate.":SCORE=SCORE+25000:GOTO 1000
1657 IF NOUN=57 AND OBJ%(55)=-1 THEN PRINT"The latch is held on by small screws.":OBJ%(39)=1:GOTO 1000
1660 IF NOUN=17 AND OBJ%(28)=-1 THEN PRINT"On the shelf is a large book, a thick book, a small book, a thin book and a cassette player with earphones.":OBJ%(28)=1:OBJ%(46)=1:OBJ%(47)=1:OBJ%(48)=1:OBJ%(24)=1:OBJ%(51)=1:SCORE=SCORE+25000:GOTO 1000
1662 IF NOUN=13 AND OBJ%(66)=-1 THEN PRINT"The cabinet is latched and padlocked. On top is a pair of heavy mittens.":OBJ%(66)=1:OBJ%(56)=1:OBJ%(57)=1:GOTO 1000
1665 IF NOUN=21 AND OBJ%(59)=-1 THEN OBJ%(59)=1:PRINT"There is an Adventurer's handbook on the table.":GOTO 1000
1667 IF NOUN=59 THEN 1900
1670 IF NOUN=46 THEN PRINT"It is entitled `Venting Anger' by C.A.Grille. It doesn't offer you much help within its pages.":GOTO 1000
1672 IF NOUN=28 THEN PRINT"It is entitled `The Cold War' by the President's Cabinet. It doesn't offer you much help within its pages.":GOTO 1000
1674 IF NOUN=48 THEN PRINT"It is entitled `Magnetic Personalities' by Bell. It doesn't offer you much helpwithin its pages.":GOTO 1000
1676 IF NOUN=47 THEN PRINT"It is entitled `Grateful for Beautiful Parks' by Kin-Lee. It doesn't offer you much help within its pages.":GOTO 1000
1678 IF NOUN=25 THEN PRINT"You notice that its cord is not connected":IF OBJ%(33)=-1 THEN OBJ%(33)=1:GOTO 1000 ELSE GOTO 1000
1680 IF NOUN=29 THEN PRINT"You notice a label that reads `Liquid Nitrogen Extreme cold - Extreme caution is advised':goto 1000
1682 IF NOUN=30 THEN PRINT" `Liquid Nitrogen Extreme cold - Extreme caution is advised'":GOTO 1000
1684 IF NOUN=31 AND OBJ%(32)=-1 THEN OBJ%(32)=OBJ%(31):PRINT"The shoe has a string.":GOTO 1000
1685 IF NOUN=33 THEN PRINT"There are leads at both ends of cord.":GOTO 1000
1690 PRINT"There nothing special about the "OBJ$(NOUN):GOTO 1000
1700 '
1705 IF NOUN=20 THEN PRINT"You see dust.":IF OBJ%(31)=-1 THEN PRINT"There is a sneaker.":OBJ%(31)=1:GOTO 1000 ELSE GOTO 1000
1790 PRINT"You can't see under the "OBJ$(NOUN):GOTO 1000
1800 ''
1810 IF NOUN=16 THEN 1650
1890 PRINT"You can't see in the "OBJ$(NOUN):GOTO 1000
1910 PRINT"Handy hint number one: Always wear your Don't Panic button.":GOTO 1000
1920 PRINT"Handy hint number two: Never take off your Don't Panic button.":GOTO 1000
1930 PRINT"Handy hint number three: Think about all your options.":GOTO 1000
1940 PRINT"Handy hint number four: If there is any possibilities of gas, work fast.":GOTO 1000
1950 PRINT"Handy hint number five: Don't Panic!":HANDBOOK=0:GOTO 1000
2000 'again
2090 GOTO 1000
2100 'wait
2110 PRINT"Time passes . . ."
2120 GOTO 1000
2200 'hit
2202 IF LAY THEN PRINT"You can't do much on your back!":GOTO 1000
2210 IF NOUN=0 THEN PRINT"I don't understand.":GOTO 1000
2212 IF PREP=204 THEN 2215
2214 PRINT"You inflict slight damage exclusively to your hand.":GOTO 1000
2215 GOSUB 2260:IF X1>NUM THEN PRINT"I don't understand.":GOTO 1000
2220 '
2230 IF NOUN=52 AND ICE=2 THEN PRINT"The hinge shatters. The door totters a bit.":ICE=3:SCORE=SCORE+25000:GOTO 1000
2235 IF NOUN=53 THEN BROKE=1:PRINT"The mirror fractures. It stays together with many cracks through it.":SCORE=SCORE-250000!:GOTO 1000
2240 PRINT"Trying to destroy the "OBJ$(NOUN)" doesn't accomplish much."
2250 GOTO 1000
2260 FOR X1=X+2 TO NUM:IF WORD%(X1,1)=1 THEN X$=WORD$(X1):GOTO 2270
2265 NEXT X1
2270 RETURN
2300 'quit
2310 INPUT"Are you sure? ",J$:IF LEFT$(J$,1)="Y" OR LEFT$(J$,1)="y" THEN 2315 ELSE 2320
2315 PRINT"End of session.":PRINT:PRINT"Your score is"SCORE"out of 1,000,000":END
2320 GOTO 1000
2400 'save
2410 PRINT"Sorry, but you can't save this game. That's what makes this game so challenging.":PRINT". . .and now, back to the game. . .":GOTO 1000
2415 GOTO 1000
2500 'restore
2510 PRINT"There's nothing to restore.":GOTO 1000
2600 'restart
2610 RUN
2700 'open
2702 IF LAY THEN PRINT"You can't do much on your back!":GOTO 1000
2705 IF NOUN=0 THEN PRINT"Huh??!!":GOTO 1000
2710 IF OBJ%(NOUN)<0 THEN PRINT"I don't see any "OBJ$(NOUN):GOTO 1000
2720 IF NOUN=23 AND TOOL=1 THEN PRINT"The toolbox is open":TOOL=2:GOSUB 2796 :GOTO 1000
2725 IF NOUN=11 AND ICE=3 THEN RM%(1,3)=2:PRINT"There is a way out to the east.":GOTO 1000
2730 IF NOUN =22 THEN DESK=1:IF OBJ%(40)=-1 THEN OBJ%(40)=1:OBJ%(41)=1:OBJ%(60)=1:OBJ%(26)=1:OBJ%(27)=1:PRINT"Within the desk is a Panic Button, a small key, a pair of scissors, a dime and a quarter.":GOTO 1000 ELSE GOTO 1000
2740 IF NOUN=25 THEN PRINT"Ok":IF OBJ%(50)=-1 THEN PRINT"You see an electromagnet in the handset.":OBJ%(50)=1:GOTO 1000 ELSE GOTO 1000
2750 IF NOUN=28 OR NOUN=46 OR NOUN=47 OR NOUN=48 OR NOUN=59 OR NOUN=63 THEN PRINT"Within its pages there are many words.":GOTO 1000
2755 IF NOUN=35 THEN PRINT"Ok":IF OBJ%(36)=-1 THEN PRINT"Inside you see some batteries.":OBJ%(36)=1:GOTO 1000 ELSE GOTO 1000
2760 IF NOUN=29 THEN PRINT"Ok":THERM=1:GOTO 1000
2770 IF NOUN=12 AND REFRIG THEN PRINT"There is a heavy thermos with a label on it inside.":OBJ%(29)=1:OBJ%(30)=1:GOTO 1000
2780 IF NOUN=13 AND CAB=1 THEN PRINT"Inside you see a diary, crumbs, cashbox & a mouse scurrying through a cabinet crack across the floor into a small hole.":OBJ%(61)=1:OBJ%(63)=1:OBJ%(58)=1:OBJ%(64)=1:CAB=2:GOTO 1000
2785 IF NOUN=64 AND CASHBOX THEN PRINT"Ok. There is nothing inside but a IOU for $5.00 scrawled accross the inside of the lid.":GOTO 1000
2790 PRINT"Can't"
2791 IF NOUN=11 OR NOUN=12 OR NOUN=64 OR NOUN=13 THEN PRINT"It is locked."
2792 IF NOUN=14 OR NOUN=15 OR NOUN=16 THEN PRINT"It is tightly sealed."
2793 IF NOUN=24 THEN PRINT"You might want to look closer."
2798 PRINT"Within the toolbox is a gold key, a wrench, a hammer, a pair of pliers and a srewdriver.":GOTO 1000
2800 'tie
2802 IF LAY THEN PRINT"You can't do much on your back!":GOTO 1000
2810 IF NOUN=33 OR NOUN=32 THEN PRINT"Ok":GOTO 1000
2820 PRINT"You can't tie the "OBJ$(NOUN)
2895 GOTO 1000
2900 'untie
2902 IF LAY THEN PRINT"You can't do much on your back!":GOTO 1000
2910 IF NOUN=33 OR NOUN=32 THEN PRINT"Ok":GOTO 1000
2920 PRINT"You can't untie the "OBJ$(NOUN)
2950 GOTO 1000
3000 'connect
3002 IF LAY THEN PRINT"You can't do much on your back!":GOTO 1000
3010 IF (NOUN=33 OR NOUN=50) AND PREP AND (WORD%(NUM,0)=33 OR WORD%(NUM,0)=50) THEN ELE=ELE+4:PRINT"Ok - cord is attached to electromagnet":IF ELE>7 THEN ELE=4
3020 IF (NOUN=33 OR NOUN=36) AND PREP AND (WORD%(NUM,0)=33 OR WORD%(NUM,0)=36) THEN ELE=ELE+3:PRINT"Ok - cord is attached to the batteries":IF ELE>7 THEN ELE=3
3030 IF ELE<3 THEN 3070
3040 IF ELE=7 THEN PRINT"The electromagnet begins to function.":IF LOW THEN PRINT"Key literally jumps up and clings to electromagnet.":LOW=2:SCORE=SCORE+25000
3050 GOTO 1000
3070 PRINT"That does not accomplish much.":GOTO 1000
3095 GOTO 1000
3100 'unhook
3102 IF LAY THEN PRINT"You can't do much on your back!":GOTO 1000
3110 IF (NOUN=33 OR NOUN=50) AND PREP AND (WORD%(NUM,0)=33 OR WORD%(NUM,0)=50) THEN ELE=ELE-4:PRINT"Ok - cord is detached from electromagnet":IF ELE<0 THEN ELE=0
3120 IF (NOUN=33 OR NOUN=36) AND PREP AND (WORD%(NUM,0)=33 OR WORD%(NUM,0)=36) THEN ELE=ELE-3:PRINT"Ok - cord is detached from batteries":IF ELE<7 THEN ELE=0
3140 IF ELE=7 AND LOW>1 THEN PRINT"Key is no longer held by magnetic pull. It drops.":LOW=1:SCORE=SCORE-25000
3150 PRINT"Ok":GOTO 1000
3195 GOTO 1000
3200 'wear
3201 IF LAY THEN PRINT"You can't do much on your back!":GOTO 1000
3202 IF NOUN=66 AND OBJ%(66)=0 THEN PRINT"Ok":MIT=1:GOTO 1000
3203 IF NOUN=66 THEN PRINT"You don't have them.":GOTO 1000
3205 IF NOUN=60 AND OBJ%(60)=0 THEN PRINT"Ok. A gentle calm settles over you.":SCORE=SCORE+500000!:PANIC=1:GOTO 1000
3207 IF NOUN=60 THEN PRINT"You don't have it.":GOTO 1000
3210 IF NOUN<>51 THEN PRINT"You can't wear that!!":GOTO 1000
3215 IF OBJ%(51) THEN PRINT"You don't have them.":GOTO 1000
3220 WEAR=1:PRINT"The earphones are placed comfortably over your ears."
3250 GOTO 1000
3300 'remove
3302 IF LAY THEN PRINT"You can't do much on your back!":GOTO 1000
3305 IF NOUN=66 AND MIT THEN PRINT"Ok":MIT=0:GOTO 1000
3306 IF NOUN=66 THEN PRINT"You are not wearing them.":GOTO 1000
3320 IF NOUN=36 AND OBJ%(36)>0 THEN PRINT"Ok":IF HOLD<12 THEN OBJ%(36)=0:HOLD=HOLD+1:GOTO 1000 ELSE GOTO 1000
3325 IF NOUN=50 AND OBJ%(50)>0 THEN PRINT"Ok":IF HOLD<12 THEN OBJ%(50)=0:HOLD=HOLD+1:GOTO 1000 ELSE GOTO 1000
3330 IF NOUN=51 AND WEAR THEN PRINT"Ok":WEAR=0:GOTO 1000
3340 IF NOUN=54 AND OBJ%(54)=1 THEN PRINT"They are frozen tight."
3345 IF NOUN=60 AND PANIC THEN PRINT"A deep depression settles upon you. You panic. You are not able to do anything for ten moves.":SCORE=SCORE-500000!:PANIC=0:MOVE=MOVE+10:IF ZAP=99 THEN ZAP=41:BEEP:GOTO 1000 ELSE GOTO 1000
3390 PRINT"Sorry, unable to remove "OBJ$(NOUN)
3395 GOTO 1000
3400 'close
3401 IF LAY THEN PRINT"You can't do much on your back!":GOTO 1000
3410 PRINT"If you insist."
3495 GOTO 1000
3500 'replace
3510 PRINT"Huh??"
3595 GOTO 1000
3600 'smile
3610 PRINT"If you insist."
3695 GOTO 1000
3700 PRINT"Aw, come on. It can't be that bad."
3795 GOTO 1000
3800 'talk
3810 PRINT"You're wasting your breath."
3895 GOTO 1000
4200 'enter
4202 IF LAY THEN PRINT"You can't do much on your back!":GOTO 1000
4210 PRINT"Hey, your job is to get out of this room."
4250 GOTO 1000
4300 'exit
4310 PRINT"Please specify a direction."
4395 GOTO 1000
4400 'cut
4410 IF NOUN=33 THEN PRINT"Ok. The "OBJ$(NOUN)" is cut.":CORDCUT=1:GOTO 1000
4415 IF NOUN=32 THEN PRINT"Ok. The "OBJ$(NOUN)" is cut.":GOTO 1000
4490 PRINT"Huh?"
4495 GOTO 1000
4500 'unlock
4510 IF NOUN=0 THEN PRINT"Huh??!!":GOTO 1000
4520 IF NOUN=23 AND PREP=204 AND WORD%(NUM,0)=40 AND OBJ%(40)=0 THEN TOOL=1:PRINT"Ok":SCORE=SCORE+25000:GOTO 1000
4521 IF NOUN=12 AND PREP=204 AND WORD%(NUM,0)=34 AND OBJ%(34)=0 THEN REFRIG=1:PRINT"Ok":SCORE=SCORE+25000:GOTO 1000
4522 IF NOUN=64 AND PREP=204 AND WORD%(NUM,0)=65 AND OBJ%(65)=0 THEN CASHBOX=1:PRINT"Ok":GOTO 1000
4523 IF NOUN=64 AND PREP=204 AND WORD$(NUM)="KEY" AND (OBJ%(40)=0 OR OBJ%(49)=0 OR OBJ%(34)=0) THEN PRINT"The key doesn't fit.":GOTO 1000
4525 IF NOUN=12 AND PREP=204 AND WORD$(NUM)="KEY" AND (OBJ%(40)=0 OR OBJ%(49)=0 OR OBJ%(65)=0) THEN PRINT"The key doesn't fit.":GOTO 1000
4527 IF NOUN=23 AND PREP=204 AND WORD$(NUM)="KEY" AND (OBJ%(34)=0 OR OBJ%(49)=0 OR OBJ%(65)=0) THEN PRINT"The key doesn't fit.":GOTO 1000
4530 IF NOUN=11 AND PREP=204 AND WORD$(NUM)="KEY" AND (OBJ%(65)=0 OR OBJ%(34)=0 OR OBJ%(40)=0 OR OBJ%(49)=0) THEN PRINT"The key doesn't fit.":GOTO 1000
4535 IF NOUN=56 AND PREP=204 AND WORD$(NUM)="KEY" AND (OBJ%(65)=0 OR OBJ%(34)=0 OR OBJ%(40)=0 OR OBJ%(49)=0) THEN PRINT"The key doesn't fit.":GOTO 1000
4540 PRINT"You are unable to unlock the "OBJ$(NOUN):GOTO 1000
4595 GOTO 1000
4600 'lock
4602 IF LAY THEN PRINT"You can't do much on your back!":GOTO 1000
4695 GOTO 1000
4700 'jump
4702 IF LAY THEN PRINT"You can't do much on your back!":GOTO 1000
4710 PRINT"Nothing happens."
4795 GOTO 1000
4800 'invent
4810 PRINT"You have in your possession the following items:"
4820 N1=0:FOR N=23 TO NQ:IF OBJ%(N)=0 THEN PRINT TAB(15) OBJ$(N):N1=N1+1
4840 NEXT N:IF N1=0 THEN PRINT TAB(15)"Nothing."
4850 GOTO 1000
4900 'push
4902 IF LAY THEN PRINT"You can't do much on your back!":GOTO 1000
4910 IF NOUN=11 AND ICE=3 THEN RM%(1,3)=2:PRINT"The door falls away. There is a way out to the east.":GOTO 1000
4940 PRINT"Nothing happens."
4950 GOTO 1000
5000 'pull
5002 IF LAY THEN PRINT"You can't do much on your back!":GOTO 1000
5010 IF NOUN=11 AND ICE=3 THEN RM%(1,3)=2:PRINT"The door falls away. There is a way out to the east.":GOTO 1000
5090 PRINT"Nothing happens."
5095 GOTO 1000
5100 'put
5110 PRINT"We forgot to put PUT into the vocabulary."
5195 GOTO 1000
5200 'light
5210 PRINT"Nothing happens."
5250 GOTO 1000
5300 'touch
5302 IF LAY THEN PRINT"You can't do much on your back!":GOTO 1000
5310 PRINT"Nothing happens."
5395 GOTO 1000
5400 'listen
5410 IF NOUN=51 OR NOUN=24 THEN 5420
5415 IF ZAP-MOVE<4 THEN PRINT"There is only the sound of gas rushing in.":GOTO 1000
5417 PRINT"There is only the sound of your own breathing.":GOTO 1000
5420 IF WEAR THEN 5430 ELSE PRINT"You need to wear the earphones to listen to the cassette player.":GOTO 1000
5430 PRINT"Hello there, applicant. This is the first phase of your testing. The problem is to get out of this room. Everything necessary is within these walls."
5435 PRINT:PRINT"Oh, to make it more interesting, there is a time limit. You have 27 moves from the time you hear the beep before the knockout gas is released."
5440 PRINT"You then will have 3 more moves to get out before you succumb."
5450 PRINT:PRINT"Quick thinking and imagination will get you out. Hope you succeed."
5460 PRINT:PRINT:PRINT" -end of tape- ":PRINT:PRINT" (smoke spews out of player as cassette self-destructs.)"
5470 IF BP=0 THEN BEEP:ZAP=MOVE+30:BP=1
5495 GOTO 1000
5600 'turn
5602 IF LAY THEN PRINT"You can't do much on your back!":GOTO 1000
5605 IF NOUN=24 AND WEAR THEN 5420
5607 IF NOUN=24 THEN PRINT"The cassette player seems to working but you don't hear anything.":GOTO 1000
5610 PRINT"Nothing happens."
5695 GOTO 1000
5700 'lower
5702 IF LAY THEN PRINT"You can't do much on your back!":GOTO 1000
5710 IF NOUN<>33 AND NOUN<>50 THEN PRINT"That does not accomplish much.":GOTO 1000
5715 IF ELE<7 AND ELE>3 AND PREP AND WORD%(NUM,0)=16 AND CORDCUT=1 THEN PRINT"The cord with electromagnet is lowered into grate dangling high above the silver key.":GOTO 1000
5720 IF ELE<7 AND ELE>3 AND PREP AND WORD%(NUM,0)=16 THEN PRINT"The cord with electromagnet is lowered into grate.":LOW=1:GOTO 1000
5730 IF ELE=7 AND PREP AND WORD%(NUM,0)=16 THEN PRINT"The cord with electromagnet attaches itself to grate.":LOW=0:GOTO 1000
5795 PRINT"Huh??":GOTO 1000
5800 'raise
5802 IF LAY THEN PRINT"You can't do much on your back!":GOTO 1000
5830 IF ELE=7 AND LOW=2 THEN PRINT"The cord with electromagnet and silver key attaches itself to grate.":HIK=1:OBJ%(34)=-2:SCORE=SCORE+25000:GOTO 1000
5840 IF ELE<7 THEN PRINT"Ok":LOW=0:GOTO 1000
5895 PRINT"Huh??":GOTO 1000
5900 'use
5902 IF LAY THEN PRINT"You can't do much on your back!":GOTO 1000
5910 IF NOUN=25 THEN PRINT"It is dead.":GOTO 1000
5920 PRINT"The use of USE can be useful. Unfortunately, we decided to use USE very selectively. Like Use the telephone."
5990 GOTO 1000
6000 'play
6002 IF LAY THEN PRINT"You can't do much on your back!":GOTO 1000
6005 IF NOUN<>24 THEN PRINT"Not much is accomplished by playing "OBJ$(NOUN):GOTO 1000
6010 IF OBJ%(NOUN)=0 THEN 5420
6100 'pour
6102 IF LAY THEN PRINT"You can't do much on your back!":GOTO 1000
6105 IF NOUN<>37 THEN PRINT"Huh??":GOTO 1000
6110 IF THERM=0 THEN PRINT"You are unable to pour the liquid under the current circumstances.":GOTO 1000
6120 IF PREP AND WORD%(NUM,0)=52 THEN PRINT"The hinge is frozen.":ICE=2:SCORE=SCORE+25000:GOTO 1000
6130 PRINT"The liquid nitrogen pours out slowly and freezes instantly what it touches.":GOTO 1000
7000 '
7002 IF X=>NUM THEN RETURN
7003 IF WORD%(X+1,0)<>241 THEN RETURN
7005 X2=X:FOR X=X2+1 TO NUM:IF WORD%(X,1)=2 THEN ADJ=WORD%(X,0)
7010 IF WORD%(X,1)=1 THEN NOUN=WORD%(X,0):GOTO 7020