0REM (c) 1984 CHR$ Software 10*FX220,27 20MODE7 30*OPT1,1 40*OPT2,1 50*OPT3,2 60CLS:?&C9A=0:?&C98=0:?&CA1=0:?&CBF=0 70DATA"lost in the Carol Mts., a cold wind is blowing and night will fall soon. Two mountain trails lead away." 80DATA"outside a ramshackle hut, beaten by storms. It seems deserted." 90DATAin the Carol Mts. You can see the mouth of a cave to the west. 100DATAin the Carol Mts. 110DATA"in a dusty cave. A chute, worn by a stream, leads south." 120DATAin the Carol Mts. 130DATAbeside a pile of boulders. 140DATAwalking along an ice-covered slope. 150DATAon a snow-covered hill. 160DATAbeside a disused well. 170DATAon a snow-covered hill. 180DATAon a snow-covered hill. 190DATAin a copse of trees. 200DATAbeside a burrow. 210DATAin a sheltered hollow. 220DATAon the banks of the Zugzwang River. 230DATAbeside a stagnant pool. 240DATAon the banks of the Zugzwang River. 250DATAreminded always to look before you leap. You have landed in a shallow pool covered in green scum! 260DATAin a pleasant valley. You can see a house to the east! 270DATAin a small holiday house. 280DATAin the living-room of the house. 290DATAin the garden of a skiing lodge. 300DATAin the kitchen of the house. 310DATAon a snow-covered hill. 320DATAon a snow-covered hill. 330DATAin the store-room. 340DATAin the hallway. 350DATAin the out-house. 360DATAin the skiing lodge. 370DATAin the sitting room. 380DATAin the washing house. 390DATAin the bedroom. 400DATAin the larder. 410DATAin the kitchen. 420DATAswimming in the river. 430DATAswimming in the river. 440DATAswimming in the river. 450DATAswimming in the river. 460DATAon the river. You can see a lake ahead of you. 470DATAin the middle of Lake Giuoco. Ahead of you is the dam. You can see a quay to the south. 480DATAheading for the dam VERY quickly!! 490DATAon the quay. You can see a power-plant to the east. 500DATA"in the power-plant, you can hear the hum of machinery all around you." 510DATAon the river bank. 520DATAon the river bank. 530DATAon the edge of the Green Forest. It looks like it would provide good cover. 540DATAin the forest. 550DATAin the forest. Was that the sound of a snapping twig behind you? 560DATA"in the forest, up ahead you can see a tree-house." 570DATAin a clearing. You can hear a pack of dogs barking in the distance. 580DATAin the tree-house. The floor looks a little unsafe! 590DATAin the forest. 600DATAat the entrance to a cave, you can see claw-marks on the walls outside. 610DATAfollowing a forest track. 620DATAinside the cave. You can hear the sound of heavy breathing!! 630DATAstill in the forest. I'd hurry up if I were you. 640DATAstanding in front of a large hollow tree. 650DATAin the forest. You notice that it's getting brighter. 660DATAstanding on the pebble-covered edge of a crystal pool. 670DATAstanding on the edge of a marsh. 680DATA"in the marsh. It is wet, hot and it smells. Don't you wish you were in Alekhein?" 690DATAin the marsh. There are swarms of gnats all around you - it is very uncomfortable. 700DATAin the marsh. 710DATAin the marsh again. 720DATAbeside a lightning-struck tree. 730DATAstanding on a dry hillock in the middle of the marsh. 740DATAlucky to be alive! The marsh is all around you but you can see a house-boat to the north. 750DATAin the marsh yet again. 760DATAon the house-boat. 770DATAstill on the house-boat. Out of the window you can see an Opera House!! 780DATAin the Opera House. 790DATAon the stage. 800DATAat the Exit. 810DATAin the parking lot. 820DATAon a jetty. 830DATAstuck in a quagmire! 840DATAin the swamp. 850DATAat the base of a cliff. 860DATAon a rocky plateau. You can see a watchtower to the the east. 870DATAin the watchtower. 880DATAon a rocky plateau. You can see a watchtower to the the west. 890DATAbeside a large pile of boulders. 900DATAon a rocky plateau. You can see a watchtower to the the north. 910DATAunlucky enough to have fallen down a deep crevasse. 920DATA"crossing the border into Alekhein! The western world is saved! W E L L D O N E W E L L D O N E" 930DATAswimming in the river. 940DATAswimming in the river. 950DATAstanding at the base of the well. A dark tunnel leads to the north. It's very dark!! 960DATAin the passage-way. A metal plate is set into the east wall. 970DATA"in a dark, unused tunnel. The floor is covered in dust and cobwebs hang from the ceiling." 980DATAin a small room. A few chairs are scattered around untidily. A metal plate is set in the west wall. 990DATAin a well-lit corridor. You can see a door marked 'STORE-ROOM' is in the east wall. 1000DATAstanding in an office. A desk stands against the west wall. 1010DATAin the guard-room. 1020DATAin the store-room. The walls are covered with shelves. A steel door marked 'DANGER_ARMOURY' stands in the south wall. 1030DATAin the armoury. There are boxes stamped 'SMOKE_BOMBS' here! 1040DATAstanding in the foul-smelling cells. Grafiti covers the walls. Two tattered bunks are lying against the south wall. 1050DATAin an officer's quarters. A closet door is in the west wall. 1060DATAin the closet (isn't it about time you came out?). A jacket hangs on a coat-hanger. 1070DATAin a dormitory. There are many bunks and lockers here. 1080DATA"crawling along a low, roughly worked tunnel." 1090DATAat a turn in the tunnel. 1100DATAstill in the tunnel but the roof is getting higher! 1110DATAin a large natural cavern. A pool is in the eastern half. A tunnel leads to the north. 1120DATAwalking down the tunnel. 1130DATAin the pool. You can see an underwater exit to the south. 1140DATAat the exit into an underwater tunnel which streaches as far as you can see. 1150DATAin an underwater tunnel. 1160DATAin an underwater tunnel. 1170DATAat the exit of the tunnel. It leads to a large body of water. 1180DATAwalking along a disused trail. 1190DATAin a narrow ravine. A large pile of scree is to the north. 1200DATAclimbing up the pile of scree. 1210DATAat the edge of a quarry. A path leads down to the quarry floor. 1220DATAon the quarry floor. You can see the foreman's hut to the west. 1230DATAstanding outside the hut. The door is to the west. 1240DATAin the foreman's office. A large desk is in the southern half of the room. 1250DATAin the quarry store-room. There is a door in the west wall. 1260DATAin the quarry explosives-room. A battered cardboard box lies in the corner. There is a large hole in the southern wall. 1270DATAon a mountain trail. There is a hut to the north. 1280DATAlost in a maze of underground passages. 1290PROCA:PROCB:PROCC 1295REPEATPROCD:UNTILA%:PROCE 1300DEFPROCA:CLS:FORA=1TO2:PRINTTAB(10)CHR$141;" S U R V I V A L":NEXT:VDU23;8202;0;0;0; 1310PRINT''" You are carrying documents vital to the survival of the western world. While attempting to escape from the communist country of Nimzitania to friendly"'" Alekhein your plane was hit by a"'" ground-to-air missile and you"; 1320PRINT" were forced to bail out." 1330PRINT''" You must make your way to the border any way you can, but be warned-the elite Sinclarian Guard will be hot on your trail! Speed is of the essence. The fate of the western world is in" 1340VDU15:PRINT" your hands."''TAB(13)" GOOD LUCK"'''TAB(10)" PRESS (SPACE) " 1350IFGET<>32THEN1350 1360CLS:FORA=1TO2:PRINTTAB(10)CHR$141;" S U R V I V A L":NEXT 1370PRINT'" Obviously you must try to cross the border as quickly as possible. However, you should not just move through each location, ignoring everything. Many of the objects there are important and you will not suceed"; 1380PRINT" without them,others are merely red herrings." 1390PRINT" Unlike most adventure games,this one contains an element of luck (in the form of the Sinclarian Guards) so, even if you get through once, there is no guarantee of getting through again!" 1400PRINT" To move in any particular direction, just type in the initial letter e.g. S for South. You may GET and DROP objects but you must discover the rest of the commands yourself!!" 1410PRINT''TAB(11)" PRESS (SPACE) " 1420IFGET<>32THEN1420 1430CLS:ENDPROC 1440DEFPROCB:DIMB%(42),A$(42),B$(42),C$(3),D$(23) 1450A%=0:B%=0:C%=1:D%=0:E%=6:F%=0:G%=0:H%=0:E$="":I%=0:J%=0:K%=0:L%=0:M%=0:N%=0:O%=0 1460RESTORE1470:FORA=1TO40:READB%(A),A$(A),B$(A):NEXT:FORA=0TO3:READC$(A):NEXT:FORA=1TO23:READD$(A):NEXT 1470DATA117,a vicious guard dog,DOG,2,a piece of steel,STEE,5,a pair of climbing boots,BOOT,7,a crash helmet,HELM,10,a rope,ROPE,14,a dead rabbit,RABB,15,a piece of flint,FLIN,17,some wood,WOOD,18,a stack of planks,PLAN,19,a fish,FISH 1480DATA21,a metal detector,DETE,-1,a fire,FIRE,27,a hammer,HAMM,29,a bunch of nails,NAIL,43,a wrench,WREN,44,a torch,TORC,46,a grappling hook,HOOK,52,a compass,COMP,58,a sling,SLIN,60,some pebbles,PEBB 1490DATA67,a crank shaft,CRAN,70,a petrol can,CAN,72,a pair of opera glasses,GLAS 1500DATA83,a microlight kit,KIT,-1,a raft,RAFT,-1,a microlight,MICR,67,a vicious benoni attacking you,BENO,119,a detonator,DETO,120,some dynamite,DYNA,92,a manual,MANU,94,a picture,PICT,100,a jacket,JACK,-1,a key,KEY 1510DATA97,some smoke bombs,BOMB,-1,a safe,SAFE,-1,the folder,FOLD,98,some grafiti,GRAF,96,a diving suit,SUIT,96,two air-tanks,TANK,98,a bunk,BUNK,NORTH,SOUTH,EAST,WEST 1520DATAGET,TAK,INV,LOO,DRO,BUI,FIL,CLI,KIL,EXA,SWI,FLY,OPE,DET,LIF,UNL,GO,LIG,FEE,COO,EAT,WEA,QUI 1530ENDPROC 1540DEFPROCC:IF((C%=90ORC%=91ORC%>101ANDC%<107)ANDNOTM%)OR(C%>91ANDC%<102ANDO%)PRINT'" It's too dark to see.":ENDPROC 1550PROCF:ENDPROC 1560PRINT''" You are ";:RESTORE(60+C%*10):READF$:PRINTF$'C%,D%,K% 1570IFC%=85A%=-1:PROCE 1580IFC%=77PRINT" You slowly sink deeper and deeper into the quagmire. As it begins to cover"'" your head you realise that no-one will ever know what happened.":A%=-1:PROCE 1590IFC%=42PRINT" The current takes you towards the dam more and more quickly, eventualy you"'" are sucked into a turbine and, well.... you know.":A%=-1:PROCE 1600IFC%=67ANDN%=0PRINT" You are being attacked by a vicious"'" benoni, a fierce animal which inhabits the marshes of Alekhein and Nimzitania." 1610IFC%=86PROCE 1620IFC%=56FORA=1TO4000:NEXT:PRINT" A huge bear grabs you from behind."'" You struggle, but in vain, and he "'" crushes you to death.":A%=-1:PROCE 1630IFC%=8ANDB%(3)<>0PRINT" The ice proves too slippy for you."'" You slip and knock yourself out."'" When you wake up you are surrounded by the Sinclarian Guards...Oh dear!...":A%=-1:PROCE 1640IFC%=55ANDL%PRINT" The detector begins to beep. You have found a trap. You step around it."ELSEIFC%=55PRINT" You have been caught in a man-trap!!"'" You pass out.":A%=-1:PROCE 1650D=0:PRINT'" You can go ";:FORA=0TO3:IFFNA(C%,A)<>0FORE=1TOLEN(C$(A)):VDU(ASCMID$(C$(A),E,1)+32):NEXT:VDU44:D=-1 1660NEXT 1670IFNOTD PRINT"nowhere! - (or can you?) "; 1680VDU127,46 1690D=TRUE:PRINT''" You can see : ":FORA=1TO42 1700IFB%(A)=C%PRINT" "A$(A):D=FALSE 1710NEXT:IFD PRINT" Nothing special." 1720IF(D%>70ANDF%<3ANDRND(10)<6AND(C%<>88ORC%<>87ORC%<42ORC%>35))ORB%(36)<>-1ANDO%<>-1PROCH 1730ENDPROC 1740DEFPROCD:D%=D%+1 1750VDU23;29194;0;0;0;:INPUT'" ",G$:VDU23;8202;0;0;0; 1760IFG$=""VDU7:GOTO1750 1770IFC%=117ANDFNB<>19ANDA$(1)="a vicious guard dog"PRINT" The dog leaps at you, knocking you down and stunning you. It then rips out your throat!":A%=-1:PROCE 1780IFC%=67ANDB%(27)=67ANDLEFT$(G$,3)<>"KIL"PRINT" I thought I told you it was attacking you. Anyway, you're dead now so it"'" doesn't matter.":A%=-1:PROCE 1790D=0:FORA=0TO3:IFG$=LEFT$(C$(A),LENG$)ANDFNA(C%,A)<>0C%=FNA(C%,A):D=-1 1800NEXT 1810IFC%=67N%=-1 1820IFC%=255PRINT" You attempt to move but the floor gives way":TIME=0:REPEATUNTILTIME>300:PRINT'" Thinks..the floor gives way ?":TIME=0:REPEATUNTILTIME>300:PRINT'" THE FLOOR GIVES WAY!!":FORA=1TO100:SOUND0,-RND(15),RND(4),1:NEXT 1830IFC%=255PRINT" Ouch!..that hurt!":C%=54 1840IFC%=19ANDB%(4)=0PRINT" You slide down the chute, the helmet protecting you from all knocks.":ENDPROC 1850IFC%=19PRINT" You slide down the chute, it turns a sharp corner, your head strikes a blunt rock....":A%=-1:PROCE 1860IFD PROCC:ENDPROC 1870P%=FNB:Q%=FNC:IFP%=0PRINT" Sorry ?":ENDPROC 1880ON P% GOTO1890,1890,2010,3600,2060,2430,2490,2680,2790,2530,2840,3000,3060,3280,3250,3220,3310,3350,3380,3450,3490,3560,3610 1890IFQ%=0PRINT" Sorry ?":ENDPROC 1900IFB%(Q%)<>C%PRINT" I don't see that here.":ENDPROC 1910IF(Q%=38ANDB%(39)=0)OR(Q%=39ANDB%(38)=0)?&CBF=107 1920IFQ%=31PRINT" It's attached to the wall, lamebrain!":ENDPROC 1930IFQ%=25ANDH%=0PRINT" It's too heavy for you to carry!":ENDPROC:ELSEIFQ%=25ANDH%=-1PRINT" Trying to be funny are you?":ENDPROC 1940IFQ%=27PRINT" Unless you were expert at wrestling benoni that would be a bit stupid!":ENDPROC 1950IFQ%=24ORQ%=26PRINT" It's too heavy for you to carry!":ENDPROC 1960IFQ%=35 PRINT" It's part of the wall you idiot!!":ENDPROC 1970IFQ%=37PRINT" Unless you fancy carting the whole wall around with you, I wouldn't bother.":ENDPROC 1980IFQ%=40PRINT" Bit big ain't it?":ENDPROC 1990IFK%=10PRINT" You're carrying as much as you can now.":ENDPROC 2000B%(Q%)=0:PROCG:PRINT" You get "N$".":K%=K%+1:ENDPROC 2010PRINT'" You are carrying :":D=TRUE:FORl%=1TO37 2020IFB%(l%)=0PRINT" "A$(l%)".":D=FALSE 2030IFB%(l%)=0AND(l%=39ANDJ%=TRUE)OR(l%=38ANDI%=TRUE)PRINT" (worn)" 2040NEXT:IFD PRINT" nothing.":ENDPROC 2050ENDPROC 2060IFQ%=0PRINT" Sorry ?":ENDPROC 2070IFB%(Q%)<>0PRINT" You don't have anything.":D%=D%+1:ENDPROC 2080IFQ%=39ANDNOT(C%>35ANDC%<43)OR(C%<89ANDC%>86)J%=0:GOTO2110 2090IFQ%=38AND(C%>35ANDC%<43)OR(C%<89ANDC%>86)GOTO2110 2100IFJ%=-1PRINT" You can't take off the suit because"'" you are wearing the tanks!":ENDPROC:ELSEI%=0 2110IF(C%>35ANDC%<43)OR(C%<89ANDC%>86)PRINT" You drop it into the water!":B%(Q%)=-1:D%=D%+1:K%=K%-1:ENDPROC 2120B%(Q%)=C%:PROCG:PRINT" You drop "N$".":K%=K%-1:ENDPROC 2130DEFFNC:IFINSTR(G$," ")=0 =0:ELSEE$=MID$(G$,(INSTR(G$," ")+1),4):F=0:G=0:REPEAT:G=G+1 2140IFE$=B$(G)F=G 2150UNTILF>0ORG=41:=F 2160DEFFNB:F=0:G=0:REPEAT:G=G+1 2170IFLEFT$(G$,LEN(D$(G)))=D$(G)F=G 2180UNTILF>0ORG=23:=F 2190DEFFNA(H,I):=?(&B1C+((H*4-3)+I)) 2200DEFPROCE:FORA=0TO9000:NEXT:CLS:IFA%PRINT'''" You have failed in your mission. "'" The western world is doomed because of "TAB(18)" YOU " 2210PRINT'''''" Do you wish to play again (Y/N)";:VDU15:IFGET=89RUN ELSE END 2220DEFPROCH:J=INT(RND((D%-80)DIV4)) 2230IFJ>1ANDO%=0PROCI:D%=80-F%*RND(F%*10) 2240ENDPROC 2250DEFPROCI 2260PRINT" The Sinclarian Guards have caught up with you!" 2270PRINT" There are ";J;" guards." 2280IFE%26PRINT"Fill what?":ENDPROC 2500IFB%(22)<>0PRINT" With what?":ENDPROC 2510IFB%(26)<>0PRINT" You haven't got a microlite.":ENDPROC 2520PRINT" You fill the microlight full of fuel.":G%=TRUE:ENDPROC 2530IFQ%=0PRINT" Examine what?":ENDPROC 2540IFQ%=31GOTO2660 2550IFQ%=37ANDC%=98PRINT" There's a number on the wall : 3176651 as well as a 'Kilroy was here'.":ENDPROC 2560IFQ%=40ANDP%=98PRINT" You can see that it's possible to lift it up at one end.":ENDPROC 2570IFB%(Q%)<>0PRINT" You don't have that!":ENDPROC 2580IFQ%=10PRINT" It's not a red herring! It's a"'" Sord-fish!!":ENDPROC 2590IFQ%=6PRINT" It has been posioned!":ENDPROC 2600IFQ%=30PRINT" It's written in Nimzitanian. The symbol of the Sinclarian Guard is on the"'" cover.":ENDPROC 2610IFQ%=3PRINT" You can see that they are spiked.":ENDPROC 2620IFQ%=5PRINT" Despite its age it seems to be in good condition.":ENDPROC 2630IFQ%=18PRINT" The needle points north"'" (surprise,surprise).":ENDPROC 2640IFQ%=32ANDB%(33)=TRUE PRINT" A key drops out of a pocket.":B%(33)=C%:ENDPROC 2650IFQ%=22ANDG%=0PRINT" It's full of petrol.":ENDPROC ELSEIFQ%=22PRINT" It's empty.":ENDPROC 2660IFQ%=31PRINT" You notice that it's on hinges. There's a safe behind it!":IFB(37)<>94THENB(35)=94:ENDPROC ELSEGOTO2670 ELSEIFB(37)=94ENDPROC 2670PRINT" You can see that it's"'" "A$(Q%)".":ENDPROC 2680IFE$<>"TREE"ANDE$<>"CLIF"PRINT" Climb what?":ENDPROC 2690IFE$="TREE"ANDC%=50PRINT" You climb the tree":C%=52:PROCC:ENDPROC 2700IFE$="CLIF"ANDC%=79ANDB%(5)=0ANDB%(17)=0PRINT" You climb up the cliff.":C%=80:PROCC:ENDPROC:ELSEIFE$="CLIF"ANDC%=80ANDB%(5)=0ANDB%(17)=0PRINT" You climb down the cliff.":C%=79:PROCC:ENDPROC 2710IFE$="CLIF"ANDC%=80:PRINT" You seem to be reaching the bottom"'" quicker than you planned! Climbing"'" cliffs without the right equipmnt is"'" NOT recommended.":A%=-1:FORA=200TO0STEP-4:SOUND1,-15,A,1:NEXT:SOUND0,-15,4,5 2720IFE$="CLIF"ANDC%=80:PROCE 2730PRINT" You can't do that!":ENDPROC 2740DEFPROCF 2750IFNOT(((C%>35ANDC%<40)OR(C%>86ANDC%<89))ANDH%=-1):GOTO1560 2760PRINT" You are on the raft in the river": 2770B%(25)=C% 2780GOTO1610 2790IFE$<>"BENO"PRINT" You can't kill that!":ENDPROC 2800IFB%(27)<>C%PRINT" What benoni?":ENDPROC 2810IFNOT(B%(19)ANDB%(20))PRINT" You kill the benoni with your sling and pebbles!":N%=TRUE:B%(27)=TRUE:ENDPROC 2820IFE%>0PRINT" You attempt to shoot the benoni but"'" your gun jams!":A%=TRUE:PROCE 2830PRINT" How?":ENDPROC 2840IFE$=""OR(E$<>"ON"ANDE$<>"OFF")PRINT" Switch on/off?":ENDPROC 2850PRINT" Switch what ";:IFE$="ON"PRINT"on"ELSEPRINT"off" 2860INPUT" ",H$ 2870IFLEFT$(H$,4)<>"DETE" GOTO2930 2880IFB%(11)<>0THEN2990 2890IFE$="ON"ANDNOTL% PRINT" The detector is on.":L%=TRUE:A$(11)="a metal detector (ON)":ENDPROC 2900IFE$="ON"ANDL% PRINT" The detector is already on.":ENDPROC 2910IFE$="OFF"ANDNOTL% PRINT" The detector is already off.":ENDPROC 2920IFE$="OFF"ANDL% PRINT" The detector is off.":L%=0:A$(11)="a metal detector":ENDPROC 2930IFLEFT$(H$,4)<>"TORC" GOTO2990 2940IFB%(16)<>0 GOTO2990 2950IFE$="OFF"ANDM% PRINT" The torch is off.":ENDPROC 2960IFE$="ON"ANDM% PRINT" The torch is already on.":ENDPROC 2970IFE$="OFF"ANDNOTM% PRINT" The torch is already off.":ENDPROC 2980IFSR$="ON"ANDM% PRINT" The torch is off.":M%=0:A$(16)="a torch":ENDPROC 2990PRINT" You can't do that!":ENDPROC 3000IFQ%=0ORQ%<>26PRINT" Fly what?":ENDPROC 3010IFG%=-1ANDC%=82ANDB%(21)=0PRINT" You use the crank to start the engine"'" The engine starts first time."'" You take off!":SOUND0,-15,15,255:INPUT" Which direction",H$ELSEPRINT" You can't do that!":ENDPROC 3020IFH$<>LEFT$("SOUTH",LENH$)PRINT" You are flying back into Nimzitanian airspace!":ELSEGOTO3050 3030PRINT" The Nimzitanian Anti-Aircraft defenses have opened fire on you. Your fuel tank is hit! Your engine catches fire!! You lose control of your microlight and it plunges to the ground with you trapped in it." 3040A%=TRUE:PROCE 3050C%=86:PROCC 3060IFE$="SESA"PRINT" Forty thieves leap out of their hiding place and stab you to death!!":A%=TRUE:PROCE 3070IFC%=99ANDE$="CLOS"PRINT" You open the closet.":C%=100:PROCC:ENDPROC:ELSEIFC%=94ANDQ%=35PROCL:ENDPROC 3080PRINT" ""You cannot be serious!"""'" (c) 1984 J P MacEnroe":ENDPROC 3090DEFPROCL 3100IFB%(36)<>TRUE PRINT" It's already open, simpleton!":ENDPROC 3110INPUT" Using what",H$ 3120IFH$<>LEFT$("DYNAMITE",LENH$)ANDH$<>LEFT$("COMBINATION",LENH$)PRINT" That's no use!":ENDPROC 3130IFB%(29)<>0ANDH$=LEFT$("DYNAMITE",LENH$)PRINT" What dynamite?":ENDPROC 3140IFB%(28)<>0ANDH$=LEFT$("DYNAMITE",LENH$)PRINT" You don't have a detonator!":ENDPROC 3150A=0:IFH$=LEFT$("DYNAMITE",LENH$)INPUT" How many sticks",A:IFA>1PRINT" Obviously you have not been trained in explosives. That's ";A-1;" too many!"'" You have blown yourself up rather too well!!":A%=TRUE:PROCE 3160 3170IFA=1PRINT" You blow the safe. You hear the faint ring of alarm bells in the distance!":D%=100:B%(36)=94:PROCC:ENDPROC 3180INPUT" Combination",A 3190IFA<>3176651 PRINT" That number fails and you hear the"'" faint ring of alarm bells in the"'" distance!":D%=100:ELSEPRINT" The safe opens.":B%(36)=94:PROCC:D%=74:ENDPROC 3200DEFPROCG 3210IFQ%=3ORQ%=9ORQ%=14ORQ%=20ORQ%=23ORQ%=34ORQ%=39N$="them":ENDPROC ELSEN$="it":ENDPROC 3220IFE$<>"DOOR"ORB%(33)<>0PRINT" You can't do that!":ENDPROC 3230IFC%=96PRINT" You unlock and open the door.":?&C9A=97:PROCC:ENDPROC 3240IFC%=95PRINT" You unlock and open the cell door.":?&C98=98:PROCC:ENDPROC 3250IFE$="PLAT"AND(C%=90ORC%=92)PRINT" You lift it easily.":IFC%=90C%=92:PROCC:ENDPROC:ELSEC%=90:PROCC:ENDPROC 3260IFQ%=40ANDC%=98PRINT" Part of the north wall slides back to reveal a secret tunnel!":?&CA1=102:ENDPROC 3270PRINT" You can't do that!":ENDPROC 3280IFQ%=34ANDB%(34)=0PRINT" The bombs give off a thick cloud of"'" smoke which provides good cover but"'" obscures your vision.":O%=TRUE:ENDPROC 3290IFQ%=29ANDB%(29)=0ANDB%(11)=0PRINT" O.K."'" You blow yourself to bits!!":A%=TRUE:PROCE 3300PRINT" You can't do that!":ENDPROC 3310IFE$="NORT"ORE$="SOUT"ORE$="EAST"ORE$="WEST"G$=LEFT$(E$,1):GOTO1760 3320IFE$="WELL"ANDC%=10PRINT" You climb down the well on a rusty"'" ladder which falls to bytes..sorry bits as you reach the ground.":C%=89:PROCC:ENDPROC 3330PRINT" You can't do that!":ENDPROC 3340IFB%(12)<>TRUEORQ%<>12PRINT" You can't do that!":ENDPROC 3350IFQ%=16ANDB%(16)=0PRINT" How?"'" (P.S. It's electric.)":ENDPROC 3360IFB%(2)=0ANDB%(7)=0ANDB%(8)=0AND(C%<36ORC%>42ORC%<107ORC%>111ORC%<>19)PRINT" You use the flint and steel to light"'" the wood.":B%(8)=TRUE:B%(12)=C%:K%=K%-1:ENDPROC 3370PRINT" You can't do that!":ENDPROC 3380IFQ%<>1ORC%<>117ORB%(6)=TRUE:PRINT" Surely you jest!":ENDPROC 3390INPUT" With what",F$ 3400G$=" "+F$:A=FNC 3410IFA=0PRINT" Nice try."'" It goes straight for your throat!!":A%=TRUE:PROCE 3420IFB%(A)<>0PRINT" Nice try, you don't have that!"'" It goes straight for your throat!!":A%=TRUE:PROCE 3430IFA<>6PRINT" It ignores that and goes straight for your throat!!":A%=TRUE:PROCE 3440PRINT" The dog hungrily gulps down the rabbit, keels over and dies.":A$(1)="a dead dog":?&CF4=118:PRINT" You can now enter the hut.":ENDPROC 3450IFB%(12)<>C%PRINT" How can you cook without a fire?":ENDPROC 3460IFQ%=6ANDB%(6)=0PRINT" You cook the rabbit.":A$(6)="a cooked rabbit":ENDPROC 3470IFQ%=10ANDB%(10)=0PRINT" You cook the fish.":A$(10)="a cooked fish":ENDPROC 3480PRINT" You have some WEIRD eating habits!!":ENDPROC 3490IFQ%<>6ANDQ%<>10PRINT" WEIRDO!":ENDPROC 3500IFQ%=6ANDA$(6)="a cooked rabbit"ANDB(6)=0PRINT" You eat the rabbit. Soon you begin to feel queasy, you"'" collapse and fall unconcious.":A%=TRUE:PROCE 3510IFQ%=6ANDB%(6)=0PRINT" You can't eat it raw!!":ENDPROC 3520IFQ%=6PRINT" What rabbit?":ENDPROC 3530IFQ%=10ANDA$(10)="a cooked fish"ANDB%(10)=0PRINT" You eat the fish. It's very tasty.":B%(10)=TRUE:K%=K%-1:ENDPROC 3540IFQ%=10ANDB%(10)=0PRINT" You can't eat it raw!!":ENDPROC 3550PRINT" What fish?":ENDPROC 3560IFQ%=32ANDB%(32)=0PRINT" It's too big for you!":ENDPROC 3570IFQ%=38ANDB%(38)=0ANDI%=0ANDJ%=0PRINT" You put on the suit.":I%=TRUE:ENDPROC 3580IFQ%=39ANDB%(39)=0ANDJ%=0PRINT" You put the tanks on your back.":J%=TRUE:ENDPROC 3590PRINT" You can't do that!":ENDPROC 3600IFC%=81ANDB%(23)=0PRINT" Looking through the opera-glasses, you can see the border far to the south.":ENDPROC ELSEPROCC:ENDPROC 3610VDU12,23;29194;0;0;0;28,5,24,34; 3620*FX220,27 3630ONERRORGOTO3610 3640PRINT'"Do you wish to :"''"1) Quit totally"''"2) Save your present position"''"3) Load a previous game"''"4) Return to present position"''"Input (1 to 4) ";:REPEATv=INSTR("1234",GET$):UNTILv<>0:PRINT;v'' 3650ONv GOTO3660,3680,3690,3700 3660*FX220,0 3670RUN 3680f%=OPENOUT"Info":PRINT:PRINT#f%,A%,C%,D%,E%,F%,G%,H%,I%,J%,L%,M%,N%,O%,P%,Q%,?&C9A,?&C98,?&CA1,?&CBF:CLOSE#f%:GOTO3610 3690f%=OPENUP"Info":PRINT:INPUT#f%,A%,C%,D%,E%,F%,G%,H%,I%,J%,L%,M%,N%,O%,P%,Q%,?&C9A,?&C98,?&CA1,?&CBF:CLOSE#f%:GOTO3610 3700VDU26,12:PROCC:*FX220,0