************************? * *^ * SURVIVE! *} * BY STEVE GRACE * * (C) 1986 * * ELECTRICAL * * SOFTWARE * * *  * COMPLETED 03/03/85 *7  * LAST REV. 07/20/86 *V  * VERSION 1.0 *u  * *  ************************ Z9000 c * PARSER * d400 eRVRVRV1:RV3R26R27:8000 i198,0:C$"":">";:1,C$:# kC$"N"C$"NORTH"C$"GO NORTH"H lC$"S"C$"SOUTH"C$"GO SOUTH"k mC$"E"C$"EAST"C$"GO EAST" nC$"W"C$"WEST"C$"GO WEST" oC$"U"C$"UP"C$"GO UP" pC$"D"C$"DOWN"C$"GO DOWN" qC$"I"C$"INVENTORY" rC$"Q"C$"QUIT"12000 sC$"SAVE"130001 tC$"LOAD"14000K uZ$C$:900:Z$""100 vC$"":I1(Z$):Z1$(Z$,I,1):C$C$((Z1$)127): wW1:W1$"":W2$"":VT0:OT0 xI1(C$) W1(C$,I,1)" "W2:160 W1W1$W1$(C$,I,1) W2W2$W2$(C$,I,1) & Z$W1$:900:W1$Z$= Z$W2$:900:W2$Z$a I1V:W1$V$(I)VTV(I):IV1g s VT225 "ORRY, DON'T KNOW HOW TO '"W1$"'":"SOMETHING.":100 W2$""300 VT15VT16VT19300 I1O:W2$O$(I)OTO(I):IO1  OT300? " DON'T KNOW WHAT A '"W2$"' IS.":100v ,VT2VT3VT10VT11VT15VT16VT18VT19308 -OT07105 3DK(VT1VT5VT6VT15VT16)7520 4DK0 6VT1100,1200,1300,1400,1500,1600,1700,1800,1900,20004@VT102100,2200,2300,2400,2500,2600,2700,2800,2900,3000XJ"ROGRAM ERROR AT 330":12030l * LIGHTS OUT!wI56S(I)S(I3)S(I3)1:S(I3)0S(I)0:L(I)0:I47580,7590S(1)S(1)S(1)1:S(1)0S(4)0:"OUR MATCH HAS BURNED OUT.". * STRIP LEADING/TRAILING BLANKSO(Z$,1)" "Z$(Z$,2):900v(Z$,1)" "Z$(Z$,(Z$)1):910| ** ACTION ROUTINES **K * GOL(OT63(R(R)16))(OT64(R(R)4))7900Q(OT67(R5R28))(OT68R12)7900SR13OT727900+T(R23R24)OT737900AVOT50OT597000\`ZA(R,OT50):Z07100hjRZ:A0r7900 * INVENTORYOT7000Z$"NOTHING.""OU ARE CARRYING ";I1T:L(I)017)I$(I);:Z$"" L(I)0(I5I6)S(I)" (LIT)";L(I)0*:Z$""Z$4 8000A * LOOKNDK7520c IFOT=0THEN7540y(OT49OT6070002OT0OTT L(OT)07510<1900: PATCH (LOOK=EXAMINE)d7540w * GET/TAKExOT49OT607000OT61(R(R)1)7110,(OT62OT69OT70)(R(R)64)7120T(OT63OT67)(R5R37R28)7130cOTT7000uL(OT)07200L(OT)R7210OT41490I$(4)(M)" MATCHES":I$(4)(I$(4),2):M1I$(4)"1 MATCH"L(OT)1:7900 * DROPOTT7000OT07105)L(OT)07510@,OT5OT6S(OT)0R6L(OT)R:7900`? * LIGHTt@OT4OT67000OL(OT)07510TS(OT)7300VOT6S(4)07110XOT41690YM07310^MM1:M0L(4)0!cI$(4)(M)" MATCHES":I$(4)(I$(4),2):M1I$(4)"1 MATCH"]f M0"HAT WAS YOUR LAST MATCH!":S(1)2:S(4)1:8000h"OU HAVE "I$(4)" LEFT.":S(1)2:S(4)1:8000S(OT)1:7900 * UNLIGHTOT4OT67000L(OT)07510S(OT)07305S(OT)0:7900  * READ OT2L(2)07550/OT2751097000Ik * EXAMINE|lR37(OT67OT0)L(5)0S(5)1L(4)37:8000vDK75207540 * SWIM(R23R24)OT737320(R(R)4)07000OT64(OT50OT59)7000*75303 * DRINK$4(R23R24)OT737710;>OT0OT617000NH(R(R)2)7120cR(R(R)1)07400m7410{ * CLIMBOT65OT667000(R(R)8)75007000 * THROWOTT 7000 OT07105 L(OT)075102 R36R(R)(R(R)191):A(36,3)35:"HE SNAKE SLITHERS AWAY!"IL OT5OT6S(OT)0[V L(OT)R:7900i_ * CROSS` OT63OT647000t OT64(R(R)4)7530~ OT63(R(R)16)2450 7000 R3R6:7900 R6R3:7900  "ROGRAM ERROR AT 2470":12030 * SAY3 W2$""""(34)W2$(34)= 8000Q' * YELL/SCREAMn( W2$""W2$""2 Z$W2$:W2$"":I1(Z$):W2$W2$(((Z$,I,1))128):7 W2$W2$"!"< 2500 * KILL OT62OT69OT707000 (R(R)64)07210+ (OT69R16)(OT70R36)72105 7600B * JUMP] R13OT72R25:7610l OT07900 ((R23R24)OT73)(OT64(R(R)4))7720J 7000S * CRYT W2$""W2$"WAAAHH!"^ 2500 * GRAB R26OT71R29:7900 OTT L(OT)172002 OTT L(OT)R7210C OTT 7570M 7000dW * PRINT MESSAGESX" DON'T UNDERSTAND.":100"OU CAN'T GO THAT WAY.":100"OULD YOU BE MORE SPECIFIC, PLEASE?":8000"ITH WHAT?":100"HAT WOULDN'T BE WISE.":1008"T'S FAR TOO HEAVY!":100Z "OU ALREADY HAVE IT!":100~*"HERE'S NO "W2$" HERE.":100"T'S ALREADY LIT.":100"T'S NOT LIT.":100"OU'RE OUT OF MATCHES.":100"OU CAN'T DO THAT.":100"T'S ALREADY ON.":100>"HERE'S NO WATER HERE.":100T"HHH!!!!":100|L"OU DON'T NEED TO DO THAT.":100V"OU DON'T HAVE A "W2$".":100`"T'S TOO DARK TO SEE!":100j"HE RIVER IS TOO FAST.":100t"OU SEE NOTHING SPECIAL.":8000[~"OU DON'T NEED A COMPASS TO PLAY THIS ADVENTURE! 'LL TELL YOU ";"WHAT DIRECTIONS YOU CAN GO!":100"ON'T BE GRABBY!":100"HE BATTERIES IN YOUR FLASHLIGHT HAVE DIED. OU THROW THE ";"FLASHLIGHT AWAY IN DISGUST.":e"HE STICK HAS BURNED UP. OU DROP THE REMAINS BEFORE IT BURNS YOUR ";t"HAND.":"OU DON'T SEEM TO HAVE A WAY TO DO THAT.":100"OU'VE LOST ALL YOUR POSSESSIONS!":I1T:L(I)0L(I)0:S(5)0:S(6)0:8000$"HE WHOLE THING?":7120G("T'S TOO FAR TO JUMP!":100S"OK."p? * DISPLAY SURROUNDINGS~@""R$(R)HR34R2712030J(R(R)32)S(4)0S(5)0S(6)0 DK1:7520 TR25R26:"OU'RE BEING SWEPT AWAY BY THE RIVER!":RV1:80005 Z$"":P0:J05:A(R,J)Z$Z$D$(J)", "G :Z$""8200 Z$(Z$,(Z$)2):J(Z$)11:(Z$,J,1)","PJ:J0 :PZ$(Z$,P1)" AND"(Z$,P1) "OU CAN GO "Z$"."  Z$"":P0:J1T:L(J)RZ$Z$I$(J)", "! :Z$""8310;! Z$(Z$,(Z$)2):J(Z$)11:(Z$,J,1)","PJ:J0b!& :PZ$(Z$,P1)" AND"(Z$,P1)!0 Z1$"OU SEE "Z$".":Z2$""!: (Z1$)418300!D P0:J4011:(Z1$,J,1)" "PJ:J0!N :Z2$(Z1$,P1):Z1$(Z1$,P)!l ""Z1$:Z2$""Z2$"v (R(R)64)08990."{ 1-SNAKE 2-BEAR 3-BAT@" A3:R36A1N" R16A2d" A8350,8360,8390" " SNAKE BARS YOUR WAY TO THE WEST!":8990" " BEAR BLOCKS YOUR PATH TO THE NORTH!":A(16,0)0" S(6)"HE BEAR RUNS FROM YOU!":A(16,0)13# 8990%# "HERE ARE BATS HERE.".##100G#'# * INITIALIZATION *w#(#808,225:53265,27:(14)(8):15000:10000#)#V22:O29:T6:R37:M3#*#V$(V),O$(O),V(V),O(O),R$(38),A(37,5),I$(T),S(6),L(T),D$(5),R(37)#-#S(2)40:S(3)40$2#I1V:V$(I):V(I): $<#I1O:O$(I):O(I):T$F#I138:R$(I)::R$(28)R$(28)R$(38):R$(38)""s$P#I137:J05:A(I,J)::$Z#I05:D$(I):$d#I1T:I$(I):L(I):$n#I137:R(I):$$1,0$%8000$% * VERBS/VERB TOKENS *%%GO,1,INVENTORY,2,LOOK,3,GET,4,TAKE,4,DROP,5,LIGHT,6i%!%UNLIGHT,7,READ,8,EXAMINE,9,SWIM,10,DRINK,11,CLIMB,12,THROW,13,CROSS,14%"%SAY,15,YELL,16,SCREAM,16,KILL,17,JUMP,18,CRY,19,GRAB,20%&% * OBJECTS/OBJECT TOKENS *%(%NORTH,50,EAST,51,SOUTH,52,WEST,53,UP,54,DOWN,55'&)%GOLD,1,BARS OF GOLD,1,BARS,1,COMPASS,2d&+%MATCH,4,MATCHES,4,FLASHLIGHT,5,STICK,6,WATER,61,BATS,62&,%BRIDGE,63,RIVER,64,MOUNTAIN,65,TREE,66,AIRPLANE,67,PLANE,67&-%CAVE,68,BEAR,69,SNAKE,70,ROCK,71,ROCKS,71,HOLE,72,POOL,73'% * LOCATION DESCRIPTIONS *@'%"OU ARE IN A FOREST. O THE WEST IS A RAGING RIVER.['%"OU ARE IN A FOREST.'%"OU ARE IN A FOREST. O THE SOUTH IS A BRIDGE OVER THE RIVER.'%"OU ARE IN A FOREST. O THE WEST IS A RAGING RIVER.)(%"OU ARE IN A FOREST. O THE EAST IS A RIVER. OUR AIRPLANE IS HERE.q(%"OU ARE ON A TRAIL. HE RIVER IS TO THEWEST; MOUNTAINS ARE EAST.(%"OU ARE IN A FOREST. O THE WEST IS A RAGING RIVER.(%"OU ARE IN A MEADOW. HE RIVER IS TO THE EAST.-)%"OU ARE ON A TRAIL. HE RIVER IS TO THEWEST; MOUNTAINS ARE EAST.t)%"OU ARE IN A MEADOW. O THE WEST AND SOUTH IS A RAGING RIVER.)%"OU ARE IN A MEADOW. HE RIVER IS TO THE EAST AND SOUTH.*%"ND OF THE TRAIL. CAVE IS HERE. HE RIVER IS WEST; MOUNTAINS EAST.K*%"HE FLOOR IS DAMP HERE...THERE IS A HOLETEN FEET ABOVE THE RIVER.*%"OU ARE IN A CAVE. HE ENTRANCE IS ABOUT TWELVE FEET UP.*%"OU ARE IN A CAVE.*%"OU ARE IN A CAVE.*%"OU ARE IN A CAVE.*%"OU ARE IN A CAVE. +%"OU ARE IN A CAVE.%+%"OU ARE IN A CAVE.>+%"OU ARE IN A CAVE.W+%"OU ARE IN A CAVE.+%"OU ARE IN A CAVE. O THE EAST IS A POOL.+%"OU ARE IN A CAVE. O THE WEST IS A POOL.+%"OU ARE IN A RAGING RIVER BEING SWEPT TOTHE EAST.@,%"OU ARE IN A RIVER BEING SWEPT EASTWARD.HERE ARE SOME ROCKS HERE.o,%" ! ' !!!,%"OU ARE IN MOUNTAINS. T'S STRAIGHT UP TO THE WEST, NORTH, AND EAST.-%"OU ARE ON A RIVERBANK. T'S STRAIGHT UP BOTH EAST AND WEST.E-%"OU'RE ABOVE A TRAIL. T'S STRAIGHT UP NORTH, EAST, AND WEST.-%"OU ARE IN THE MOUNTAINS. T'S STRAIGHTUP TO THE WEST AND SOUTH.-%"OU ARE IN THE MOUNTAINS. T'S STRAIGHTUP TO THE SOUTH. .%"OU ARE IN THE MOUNTAINS. T'S STRAIGHTUP TO THE EAST.W.%"OU'RE ON A MOUNTAIN TOP...YOU'RE SEEN BY AN AIRPLANE...' !.%"OU ARE IN THE MOUNTAINS. T'S STRAIGHTUP TO THE NORTH AND SOUTH..%"OU ARE IN THE MOUNTAINS. T'S STRAIGHTUP TO THE SOUTH AND EAST./%"OU ARE IN YOUR AIRPLANE.:/%" HE WRECKAGE OF AN AIRPLANE IS HERE.Y/% * LOCATION ACCESS DATA *j/%0,0,4,0,0,0{/%0,3,5,0,0,0/%0,0,6,2,0,0/%1,5,7,0,0,0/%2,0,8,4,37,0/%3,0,9,0,0,0/%4,8,10,0,0,0/%5,0,11,7,0,0/%6,0,12,0,0,00%7,11,0,0,0,00%8,0,0,10,0,0,0%9,0,0,0,0,14?0%0,0,16,0,0,25R0%0,15,0,0,12,0e0%0,0,18,14,0,0x0%0,0,19,0,0,170%0,18,0,0,0,00%15,0,21,17,0,00%16,0,22,0,0,00%0,21,23,0,0,170%18,0,24,20,0,00%19,23,0,0,0,00%20,0,0,22,0,01%21,0,0,0,0,0"1%0,0,0,0,0,031%0,0,0,0,0,0D1%0,0,0,0,0,0V1&0,0,31,0,0,0h1&0,0,32,0,0,0{1&0,0,33,0,0,121&28,32,0,0,0,01&29,33,0,31,0,01&30,0,36,32,0,01&0,0,0,0,0,01&0,36,0,34,0,321&33,0,0,0,0,01 &0,0,0,0,0,52 & * DIRECTION DESCRIPTIONS *B2&NORTH,EAST,SOUTH,WEST,UP,DOWN^2H& * ITEM DESCRIPTIONS *s2I&BARS OF GOLD,282J&A COMPASS,372K&?,02L&MATCHES,02M&A FLASHLIGHT,372N&A STICK,32& * LOCATION FLAGS *2&13,8,29,13,13,29,13,5,13,5,5,13&3&0,0,32,96,32,96,32,96,96,96,34,34F3&5,5,0,8,8,8,8,8,8,0,8,72,0g3' * INTRUCTIONS/INTRODUCTIONr3'110003'"N THIS ADVENTURE GAME, YOU ISSUE COMMANDS TO THE COMPUTER ";3'"IN A TWO-WORD,"4$'"VERB-OBJECT FORMAT, SUCH AS 'GO NORTH', 'GET TREASURE', ETC., ";S4)'"TO DIRECT YOUR CHARACTER THROUGH THE ADVENTURE."4.'"HE FOLLOWING ABBREVIATED COMMANDS ARE ACCEPTABLE:"43'10)"N GO NORTH"48'10)"S GO SOUTH"4='10)"E GO EAST"4B'10)"W GO WEST"5G'10)"U GO UP"5L'10)"D GO DOWN"35Q'10)"I INVENTORY"G5V'10)"Q QUIT"s5`'"OU MAY USE THE COMMANDS 'SAVE' AND"5j'"'LOAD' TO SAVE/LOAD A GAME (DISK ONLY)."5t'11100:110005~'"S YOU LOOK OUT THE WINDOW OF YOUR PLANEYOU NOTICE HOW BEAUTIFUL ";6'"THE MOUNTAINS"Z6'"LOOK FROM UP HERE. N LESS THAN TWO HOURS YOU'LL BE HOME, ";s6'"BUT FOR RIGHT NOW"6'"YOU'RE CONTENT JUST TO TAKE IN THE BEAUTY OF THE SCENERY."7'"UDDENLY IT OCCURS TO YOU THAT IF YOU TOOK A SHORTCUT HOME ";7'"FROM HERE YOU MIGHT";e7'"BE ABLE TO SPOT THE PLANE THAT WENT DOWNNOT LONG AGO CARRYING A ";}7'"FORTUNE IN GOLD."7'"HAT ROUTE IS RARELY TAKEN, AS IT INVOLVES FLYING OVER ";7'"SOME EXTREMELY" 8'"REMOTE TERRITORY, AND YOU'VE HEARD THE RUMORS ABOUT AIRCRAFT ";[8'"DISAPPEARING WITHOUT A TRACE THERE, BUT YOU'RE"8'"FEELING ADVENTUROUS (AND THERE'S A VAST TREASURE AT STAKE) SO YOU ";8'"BANK YOUR"8'"PLANE ONTO THE NEW COURSE."8'11100:1100059'"OU ARE LOST IN A DAYDREAM OF RECOVERINGTHE LOST GOLD WHEN YOU'RE";M9'" JOLTED BACK TO";9'"REALITY BY YOUR ENGINE, WHICH SPUTTERS AND THEN DIES."9'"OU'RE GOING TO CRASH!!"9<(11100:11000:F("OU'VE LANDED UNHURT IN A MEADOW, BUT THE PLANE HAS SKIDDED ";:K("INTO A FOREST, SO"D:P("IT'S NOT VISIBLE FROM THE AIR.":Z("OOKS LIKE YOU'RE STUCK HERE...IT'S UP TO YOU NOW TO...!":*11100:"";::*" ! ":;\+" Β TO CONTINUE";:198,0);f+Z$:Z$(13)11110/;p+<;. * QUITq;."RE YOU SURE YOU WANT TO QUIT? (Y/N) ":198,0;.Z$:Z$"N"8000;.Z$"Y"12010;."AME VER.";/" F1 TO RESTART OR F7 TO EXIT TO ":198,0;/Z$:Z$"" </Z$""64738<&/12050#<2 * SAVE0<215,8,15:<2F$""T<2"AVE ILE AME";F$e<2F$""13080<22,8,2,"@0:"F$",S,W"<215,E1,E2$,E3,E4<2E1192:"RROR"E1;E2$;E3;E4:13005<2I16:2,S(I):<3I1T:2,L(I):= 3I1T:2,I$(I):=3I137:2,R(I):7=3I137:J05:2,A(I,J)::E=3CR$(13)b=32,R;CR$;M;CR$;RV;CR$;DKr=32:15:100=6 * LOAD=615,8,15=6F$""=6"OAD ILE AME";F$=6F$""14080=62,8,2,"0:"F$",S,R"=615,E1,E2$,E3,E4>6E1192:"RROR"E1;E2$;E3;E4:140050>6I16:2,S(I):E>6I1T:2,L(I):[>6I1T:2,I$(I):q>6I137:2,R(I):>6I137:J05:2,A(I,J)::>62,R,M,RV,DK>72:15:8000>: * TITLE SCREEN/COLOR SELECTION>:"":198,0?:""16)"!"?:13)"BY TEVE RACE"H?:6)"(C) 1986 LECTRICAL OFTWARE"f?:12)"F1 ORDER OLOR"?:12)"F3 ACKGROUND OLOR"?:12)"F5 EXT OLOR"?:12)"F7 TART AME"?:Z$:Z$""?:Z$""53280,(((53280)15)1)15"@:Z$""53281,(((53281)15)1)15M@:Z$""646,(((646)15)1)15:15010X@:15060