: T$(/)6 M(*,), NP(*)B O()p *************************************** ** initialize text and move matrices ** ***************************************$:" ";:"SURVIVAL"Q.:" by Grant M. Bright (Courtesy - Stewart F. Rush)":8"Welcome to the game of survival. Would you like instructions(y or n)?"BD$: D$"" B : D$"y" G D$"Y" L:"Performing initializations - please wait"$V I  /1` T$(I):j ILt I  *\~ J  i M(I,J)q J}NP(I) I *************************************** ** initalize other program variables ** ***************************************H * p = current position c = no. of items carried * t1 = current eleapsed time f4 = illuminator on flag * t2 = oxygen remaining f1 = meteor shower flag * f0 = oxygen in use flag f2 = open shed flag. * v = visits to comp room f7 = bomb deactivated flagn * p1 = power in suit # 1 f9 = oxygen required in station  * p2 = power in suit # 2 *******************************************************************P: C: T1: T2: P1:: P2: V: F0: O()U(O(): O()c: O(): O() : O(): O()&: O() 2O(): O( )#: O( )c: O( )!: O( )": O()%: O()<NP()FF1: F2: F4: F7: F9P *****************************************************AZ ** display current status and location information **}d *****************************************************n O( )c P1  P1P1x O()c P2  P2P2 " ";: "*****************************************"b " ";:"* CURRENT STATUS & LOCATION INFORMATION *" " ";:"*****************************************": " ELAPSED TIME: ";T1;" MINUTES":9 O( )c " POWER LEFT IN #1 SUIT: ";P1;" UNITS": O()c " POWER LEFT IN #2 SUIT: ";P2;" UNITS":T1T1 O( )c P1   O()c P2   T1  T1^  T1 \ F0 T2T2+ T2 T2< F0 ,M" T2 T^, F9 @o6 P 2@ P 2J P& Z T P& ^ F0 " OXYGEN REMAINING: ";T2;" MINUTES"h r "LOCATION: You are ";|IM(P,)# T$(I)K M(P,)M(P,)  : IM(P,)d " ";T$(I)mIC| I * NP(I) ICIC I " You have visited ";IC;" of the possible 42 locations." *********************************< ** display any objects present **d *********************************t P T  I   O(I)P 0 & " There is ";B$;" here."0 I:D  N ****************************************BX ** read and process keyboard response **qb ****************************************zl B$vI (B$)  B$"n" B$"N" I B$"s" B$"S" I B$"e" B$"E" I B$"w" B$"W" I$ B$"u" B$"U" I@ B$"d" B$"D" I\ B$"q" B$"Q" l I   M(P,I) \ M(P,I)c ZQM(P,I) P  P @  P  P 0  P b*RP 4PQ>NP(P)(H P# VV2R n[\ "You cannot go in that direction!"ef lp ********************************************z ** process two or more character commands ** ******************************************** C$(B$,).  C$"loo" C$"LOO" nN  C$"des" C$"DES" nn  C$"sta" C$"STA" n  C$"get" C$"GET" N  C$"tak" C$"TAK" N  C$"kee" C$"KEE" N  C$"dro" C$"DRO"  ! C$"lea" C$"LEA"  .! C$"put" C$"PUT"  N! C$"inv" C$"INV" n! C$"qui" C$"QUI" ! C$"end" C$"END" ! C$"tra" C$"TRA"  ! C$"dig" C$"DIG"  !$ C$"fue" C$"FUE" ". C$"rea" C$"REA" Z."8 C$"dea" C$"DEA" N"B C$"bla" C$"BLA" n"L C$"fir" C$"FIR" "V C$"up" C$"UP"  "` C$"dow" C$"DOW"  "j C$"nor" C$"NOR"  "t C$"sou" C$"SOU"  #~ C$"eas" C$"EAS"  ,# C$"wes" C$"WES"  L# C$"hel" C$"HEL"  l# C$"wha" C$"WHA"  # C$"com" C$"COM"  # "Invalid Command"# IC "You may enter `help' for some suggestions."# lU$ "Valid direction commands are: north, south, east, west, up, down (or just enter the first letter)."3% "Other commands are: inventory, status, help, fuel, take, drop, blastoff, read, deactivate, dig, transport, end.....plus several others (try some!). You may abbreviate by using just the first 3 letters."=% ld% "I cannot process your request!"n% l% "enter location"% P% n% D$(B$,)%( B$D$%2 %< *******************************************&F ** process entry to hanger from air lock **Q&P *******************************************c&Z R' 2m&d T&n *******************************&x ** process transport command **& *******************************& P$  ' O()c  ' PO()-' "Beaming in process ";G' IY   : "~";m' CX  : CX: IY: "~"w' n' PO()  ' P$'  ' *************************' ** process dig command **' *************************( O()c .L( P "The ground is too hard here.": lX(" O() b(, (6 *************************************(@ ** drop illuminator if at overlook **(J *************************************(T O()c )^ O()dH)h "You dropped your illuminator!!! You cannot retrieve it."R)r l)| *******************) ** process robot **) *******************) O() O()#) O()* O()) O()) O()** O() O())* O() O()-* O()#  ?* P NN* M(,)#X* Nm* O() N* P N* O()* O( )c N* "Robot fails to recognize you. It fires a phasor weapon at you!!!"*& +0 *********************************D+: ** process get or take command **l+D *********************************v+N +X I  +b I  +l "I don't recognize ";(B$,(B$)J);"."+v l+ "What item?"+ l, O(I)P  , C * , I > 0, I R A, I f R, I z c, I  m, CCy, O(I)c, I F0, "Okay", l, "There is no ";(B$,(B$)J);" here!!!"- I "Remember - robots can move. Robbie probably left!"- l@-* "You can't carry any more!"J-4 lk-> "You can't carry a robot!"u-H l-R "You can't carry a nuclear bomb. It's too heavy!"-\ l-f "You can't get the message. It's on the terminal screen.".p l.z O()c  %. O( )c/.  D. O( )c  Q. O()c[.  . "You can't have more than one suit on at a time!". l. ***********************************. ** process drop or leave command **/ ***********************************%/ 5/ I E/ I  O/ l d/ O(I)c Vn/CCy/$O(I)P/. I F0/8 I j/B I j/L  /V "You don't have "(B$,(B$)J);"!"/` l/j P   0t P&  0~ F9  (0  N0 *******************************t0 ** process inventory command **0 *******************************0 I 0 O(I)c 0 0 "You have ";B$;"."0 I0 l1 ************************************I1 ** program termination processing **t1 ************************************1  "You have no powered suit or your suit has run out of power."2 "CLUE: Powered suit is required in all locations except inside the space station."32 "You have frozen to death."=2( 22 "CLUE: Oxygen is required outside the space craft or the space station."2< 2F "A nuclear detonation has just occurred."2P 2Z "You have fallen to your death."3d ,3n "You have been zapped by the laser."63x y3 "The moon base has just been destroyed by a large asteroid."3 "You have failed to survive."3 "Do you wish to try again?";D$3 (D$,)"y" 3 (D$,)"Y" 34 ***************************>4 ** process meteor shower **`4 ***************************w4 M(P,I) *4 F2 *4 "There is a meteor shower. Your space suit has developed a leak!!"4 4 I '5 "Proceeding to seal suit.......": CX  : CX05F2:5 *Z5" *************************z5, ** process locked shed **56 *************************5@ M(P,I) *5J F1 *5T "The shed is locked"5^ 5h I 06r "Proceeding to try key.......": CX  : CX96|F1C6 *_6 "Your attempt fails."i6 l6 ***********************************6 ** process dark ventilator shaft **6 ***********************************6 M(P,I) *7 F4 *?7 "It is dangerous to proceed in the dark!"I7 Z7 I Z7 "The shaft is now illuminated. You may proceed.......": CX  : CX7F47 *7 ************************************8 ** process shaft with no illuminatorB8& ***************************************W80 O()c Za8: *8D ************************8N ** process laser beam **8X ************************8b M(P,I)% *8l F3 *39v "There is a laser beam here. Passage not possible with beam present."=9 O9 I n9 "Proceeding to deflect beam.......": CX  : CX9F39 *9 *****************************************9 ** process blown seal in space station **/: *****************************************A: R ^R: F9 ^[:F9: "You have just blown air seal in space station.": ^: ****************************:  ** power required testing **; ****************************;  P  ';* F9  1;4 P;> ************************o;H ** expose deactivator **;R ************************;\ F5 ;fO();pM(,)M(,);zM(,)M(,);M(,);F5;  < *******************&< ** detonate bomb **@< *******************Q< F7 F[< w< *********************< ** deactivate bomb **< *********************< O()c .< P& V<F7'=T$()"at crash site of a space craft. Repairs are now complete."H= "Bomb is now deactivated."R=$ lz=. "You have nothing to do it with!"=8 l=B "There is nothing to do it to!"=L l=V "You can't do it from here!"=` l=j *****************>t ** fuel rocket **)>~ *****************;> P VP> O()c .\>O()bx> "Fuel is now loaded."> l> *************************> ** blastoff processing **> *************************> P V ? O()b (? F7  IIHIR I\ I If O(I)c $Jp"You don't have ";(B$,J);"!".Jz >JJ "Your attempt fails!"TJ >sJ ************************J ** print instructions **J ************************gK "You have crash landed on the earth's moon. You have limited supplies and time in which to survive. You will encounter various items and situations during your travels."K "To travel, you may enter directions such as north or n, as well as s, e, w, and u or d (up or down)."[L "To communicate, enter commands (verbs), followed by object names, if applicable.For example: get xxx, leave xxx, use xxx, etc."M "Unless instructed otherwise, be sure to press the ENTER key after each input. The enter key is on the right of the keyboard and has this symbol on it: "( )()()M "Once you have survived, the object then is to achieve the optimum survival time.May the force be with you!!!"MM"Press any key to continue"MA$: A$"" MM ********************************N ** text location descriptions **BN$ ********************************_N. "at Mare Serenitatis."}N8 "on rim of Posidonius."NB "There is total darkness to the east."NL "twixt Dawes & Plinius."NV "at pass in Haemus Mountains." O` "at crater Manilus.""Oj "at Mare Vaporum.":Ot "at Mt. Eudoxus."VO~ "inside Aristoteles."O "in changing area, putting on hangar suit."O "in Lacus Somniorum."O "at Lacus Mortis."O "The surface is very soft here."P "at the east side of Mare Imbrium."3P "at the base of Plato crator."_P "A shiny object is seen to the west."|P "before a metal shed."P "A sign reads VENTILATION SHAFT #2."P "east of Mare Serenitatis."P "There is total darkness here.".Q "at crash site of a space craft. Repairs are underway."WQ "The ship entrance is before you."~Q  "at the center of Mare Imbrium."Q "in the air lock chamber of the ship."Q "in the aft cargo and fuel storage room." R( "in the engine room of the space craft.".R2 "in the ship's control room."NR< "in an air lock chamber."RF "inside a ventilation shed of a space station."RP "A ladder leads down into a large metal shaft."RZ "in a ventilator passage."Rd "at a ventilator opening."6Sn "Through the opening a lit passageway can be seen."cSx "in a lighted space station corridor."S "in the space station infirmary."S "in the recreation room and library."S "in the mess hall."T "Abandoned food trays are still on the table."3T "in the storage room and supply area."UT "in the sleeping quarters."T "in an elevator at sub-surface level."T "in an elevator at surface level."T "in the station control center."T "in the transporter room."U "in the space station laboratory."8U "in the hangar area."{U "Unfortunately, there are no space crafts ready for launch."U **************************************U ** movement and text pointer matrix **V ************************************** V" 07,04,02,15,00,00,01,01>V, 09,03,14,01,00,00,02,03\V6 02,05,14,04,00,00,04,04zV@ 01,05,03,00,00,00,05,05VJ 04,00,03,06,00,00,06,06VT 00,00,05,00,00,00,07,07V^ 08,01,09,11,00,00,08,08Vh 00,07,10,00,00,00,09,09Wr 10,02,14,07,00,00,11,11.W| 00,09,14,08,00,00,12,13LW 12,15,07,16,00,00,14,14jW 00,11,00,13,00,00,15,16W 00,16,12,22,00,00,17,18W 99,99,99,99,00,00,19,20W 11,18,01,00,00,00,21,22W 17,16,07,16,00,00,23,23X 16,17,11,17,00,00,23,23X 15,19,00,00,00,00,24,24