NSSE1  REMARKS <  DUMMY 7 MEMORY16J MEMORY24L MEMORY32N DEFUNCT P CHOMP R CHOMP2 T  CMP.RULS` LUNAR e  * MATCH q  M.WORDS }  SLOTS  STARTREK2# STR.RULS* WUMPUS  WUMP2  WMP.RULS GAMES1R3; 5 "THIS IS GAMES PACKAGE NUMBER 1, AUGUST 1977." . "UPDATED MARCH, 1978 AND RENAMED NSSE1" % "NORTH STAR SOFTWARE EXCHANGE" 7( "LIST THE REMARKS PROGRAM FOR DETAILS OF GAMES." 2  J !d9 WE WOULD LIKE ACKNOWLEDGE THE KIND PERMISSI OF = THE PEOPLE'S COMPUTER COMPANY OF MENLO PARK, CALNIA = USE MATERIAL FROM THEIR PUBLICATIS IN THESE GAMES. 8( THEY ARE IN NO WAY RESPSIBLE ANY ERRS WE MAY 92 HAVE MADE IN CVERTING THEM USE THE NTH STAR < BASIC SYSTEM. F 8P THIS I OF GAMES PACKAGE NUMBER 1 IS USE WITH 8Z RELEASE 3 OF NTH STAR BASIC VERSI 6. NMAL USE 8d REQUIRES THAT THE NSSE1 DISKETTE A COPY BE LEFT 7n MOUNTED DRIVE NUMBER E WHILE NING THE GAMES. x 8 THESE GAMES HAVE BEEN SET UP A SYSTEM UG A 4 SIXTEEN VIDEO DISPLAY OF SIXTYFOUR COLUMNS 4 IN THESE PROGRAMS THE STARD ROL CODE WITH A < UE OF TWELVE IS USED CLEAR THE EEN. THIS MAY NEED 9 BE CHANGED OTHER SYSTEMS. IT IS KEPT IN C8$ IN  STARTREK, PLE.  ; ALL OF THESE PROGRAMS WILL IN A 16K MACHINE EXCEPT 7 STARTREK WHICH WILL IN 24K. YOUR CVENIENCE, 8 THE PROGRAMS MEMY16, MEMY24, MEMY32 WILL SET : UP BASIC A 16K, 24K, 32K MACHINE, RESPECTIVELY. : WUMPUS REQUIRES THE ETI OF THE MATH FUNCTIS SEE 7 PROGRAM UNCT) FIT IN 16K. MEMY SIZE REFERS  MEMY STARTING AT 2000H.  9 THE FILE GAMES1R3 IS JUST IDENTY THIS DISKETTE. :" THE FILE DUMMY JUST RESERVES SPACE DOS BASIC IN ', CASE THEY ARE BE KEPT NSSE1. 6 :@ MATCH IS A WD GUESG GAME IN WHICH YOU TRY MATCH :J THE COMPUTER'S WD IN THE SMALLEST NUMBER OF TRIES. 0T THE VOCABULARY MATCH IS IN FILE M.WDS. ^ -h SLOTS IS A SIMULATI OF A SLOT MACHINE r '| LUNAR IS A LUNAR LING SIMULATI  < CHOMP IS A GAME OF THE NIM FAMILY, THE OBJECT BEING 4 CE YOUR OPPENT TAKE THE LAST E OF A SET. ; THE FILE CMP.RULS HOLDS THE RULES OF CHOMP, THE FILE % CHOMP2 IS ED BY FROM CHOMP.  8 WUMPUS IS A CHASE GAME IN WHICH YOU TRY SHOOT A ; WUMPUS BEE HE EATS YOU. THE FILE WMP.RULS HOLDS THE  RULES OF WUMPUS.  = STARTREK IS A SPACE WAR GAME WITH NOMENCLATURE BASED ; STAR TREK. THE FILE STR.RULS HOLDS THE RULES STAR ; TREK. E THAT "PREPARING FOR DEPARTURE" AT THE START 4 OF A MISSI COMPUTES AB FOUR SECDS UG  A 4MHZ Z80).  0& THE PROGRAM UNCT ETES THE MATH FUNCTIS 70 DEIBED UNDER SIZE CHANGES IN THE RELEASE 3 ES. : :D "THIS PROGRAM IS A COLLECTION OF REMARKS. LIST IT." N X NOI.TI T.FLESTI YB EGAROTS MARGORP SESAERCNI .SCBH@= THIS PROGRAM ETES MATHEMATICAL FUNCTIS IN BASIC 3.0 ) "LINK 1 HAS ",0), " BYTES FREE."  10758,156 \ 10759,82 ( C 5 MEMY16 PATCHES THE BASIC ERPRETER USE WITH 2 16K OF MEMY ERASES ITSELF LEAVES BASIC ! Y ACCEPT A NEW PROGRAM. ( 10762,95 !2 C10761)25610762)8191 6< "BASIC IS SET FOR A ",C," BYTE MEMORY AT 2000H." +F C C 8191 10758) 25610759) 7P "THIS GIVES A WORKING STORAGE OF ", C, " BYTES." Z C10752) d TͅFcETͅFcE*R?TͅFcETͅFcETͅF͓GcEnF*R"5 MEMY24 PATCHES THE BASIC ERPRETER USE WITH 2 24K OF MEMY ERASES ITSELF LEAVES BASIC ! Y ACCEPT A NEW PROGRAM. ( 10762,127 !2 C10761)25610762)8191 6< "BASIC IS SET FOR A ",C," BYTE MEMORY AT 2000H." *F C C 8191 10758) 25610759) 7P "THIS GIVES A WORKING STORAGE OF ", C, " BYTES." Z C10752) d TͅFcETͅFcE*R?TͅFcETͅFcETͅF͓GcEnF*R"5 MEMY32 PATCHES THE BASIC ERPRETER USE WITH 2 32K OF MEMY ERASES ITSELF LEAVES BASIC ! Y ACCEPT A NEW PROGRAM. ( 10762,159 !2 C10761)25610762)8191 6< "BASIC IS SET FOR A ",C," BYTE MEMORY AT 2000H." +A C C 8191 10758) 25610759) 7C "THIS GIVES A WORKING STORAGE OF ", C, " BYTES." F C10752) P ͅFcETͅFcE*R?TͅFcETͅFcETͅF͓GcEnF*R"3 THIS PROGRAM ETES MATHEMATICAL FUNCTIS IN + NTH STAR BASIC VERSI 6, RELEASE 3 # C 10761)25610762)8191 ( D C 12957 92 "BASIC IS SET FOR A ", C, " BYTE MEMORY AT 2000H." $< C 10758)25610759)21148 :F "DEFUNCT INCREASES WORKING STORAGE BY ",C," BYTES." 7P "THIS GIVES A WORKING STORAGE OF ", D, " BYTES." Z 10758,156 \ 10759,82 d C 10752) n cEnF*R"3 I1 6\ \ I\ 15),"THE GAME OF CHOMP" 7 I1 8\ \ I\ "DO YOU WISH THE RULES? ",A1$  A1$1,1)"Y" Z ( #0,"CMP.RULS"\ A$60) 2 I1 13\ 0) 1 P < #0,A$ \ A$ \ I \ 5F \"TYPE CARRIAGE RETURN TO CONTINUE",A1$\ 2 5P I1 "TYPE CARRIAGE RETURN TO CONTINUE",A1$ Z 12) \ "CHOMP2" d  n  R1C1  C113 C112 C1C11 ; "SQUARES ARE TRIVIAL; LET'S MAKE IT ",C1 A13), B13) & "HOW MANY ROWS (UP TO 13)? ",R1  R1 1 R1 13  )( "HOW MANY COLUMNS (UP TO 13)? ",C1 2 C1 1 C1 13 ( < R1C1 d F C113 C112 C1C11 ;P "SQUARES ARE TRIVIAL; LET'S MAKE IT ",C1," COLUMNS," /Z "JUST TO BE INTERESTING."\ I0800\ I /d I1 R1\AI)C1\ I\ I1 C1\BI)R1 n I \ .x IR2 R1 \ AI)C2 AI)C21 \ I . IC2 C1 \ BI)R2 BI)R21 \ I % 5),\ I1 A1)\ %3I,I,\\ , 1,5)," P",\ I2 A1)\" *",\\ * I2 R1\ AI)0 \ I,5), # J1 AI)\ " *",\ J\  I \ F11 2 "COORDINATES OF CHOMP (ROW,COLUMN)? ",R2,C2 . R21 C21 R2R1 C2C1 0 "THERE WAS NEVER ANY COOKIE THERE!"\ & AR2)C2 BC2)R2 3 "NO FAIR. THAT'S ALREADY BEEN CHOMPED!"\ % R21 C21 X\ F11\ x  I1 800\ I  A2)1 T  A1) B1) 6 1 KK1 \ K2 v \R00.)\ R0.5 , " R21\ C2B1)\ : , C21\ R2A1)\ : 6 A1) B1) J @ C21\ R2A1)1\ : J R21\ C2B1)1\ : T A1)B1) h ^ C22 \ R22 \ : h A3)0 | r X10\ A1)1A2)  | B3)0   X11 \ B1)1B2)   R00.)\ R0.5   X11 C22 R22 & X11 R2B2) C2A2)\ :  X11 C21 R21 & X11 R2B1) C2A1)\ :  A1)1A2)   X11 C22 R22 & X11 R2B1) C2A1)\ :  B1)1B2)   X11 C21 R21 * X11 R2B2)2 C2A2)2\ :  B1)3 J12 J10  R2 B1)J1)0))J11  AR2)3 I12 I10 ! C2 AR2)I1)0))I11 & R21 C2B1)1  0 C21 R2A1)1  *: \ "THE COMPUTER CHOMPS ",R2,",",C2 D F10\ R21 C21 x #N \ "YOU WIN!!!"\ F11\ b 5X \ "YOU CHOMPED THE POISON SQUARE!! YOU LOSE." 'b \ "CARE FOR ANOTHER GAME? ",A1$ l A1$1,1) "Y" ( 'v "THE COMPUTER RESIGNS.", \ N   F10\ R21 C21 # \ "YOU WIN!!!"\ F11\  5 \ "YOU CHOMPED THE POISON SQUARE!! YOU LOSE." ' \ "CARE FOR ANOTHER GAME? ",A1$  A1$1,1) "Y" n ' "THE COMPUTER RESIGNS.", \    AJ_ N BB/FBBBBBBBBBBRGALACTICTREATY. YOUR ORDERS ARE TO ADVANCE TO KLINGON TERRITORY AND DESTROY ALL KLINGON VESSELSWARP=W,IMP=I,PHR=P,PTP=T,PWRDST=D,SELFD=S,EXPRAY=E,POD=A,XPOD=X SCOTTY:CAPTAIN, THE ENGINES HAVEN'T THE POWER TO OPERATESCOTT:THE UNKNOWN WE SHOT DISABLED THE WARP DRIVE CAPTAINSPOCK:CAPTAIN, I AM AFRAID YOUR LAST COMMAND MADE NO SENSESPOCK:CAPTAIN, WE HAVE BEEN BLOCKED BY AN UNKNOWN OBJECTUHURA:THE STARBASE HAS ACKNOWLEDGED OUR DOCKING, CAPTAIN DOCKGREEN RED CRTCLSPOCK:SIR, WE HAVE HIT A TRITON MI% THE GAME OF CHOMP 7 THE PLAYING BOARD IS A BIG COOKIE - R ROWS HIGH AND C4COLUMNS WIDE. YOU INPUT R AND C AT THE START. IN THE7UPPER LEFT CORNER OF THE COOKIE IS A POISON SQUARE (P).5THE ONE WHO CHOMPS THE POISON SQUARE LOSES. TO TAKE A7CHOMP, TYPE THE ROW AND COLUMN OF ONE OF THE SQUARES OF5THE COOKIE. ALL OF THE SQUARES BELOW AND TO THE RIGHT5OF THAT SQUARE (INCLUDING THAT SQUARE, TOO) DISAPPEAR -- CHOMP!!9 NO FAIR CHOMPING SQUARES THAT HAVE ALREADY BEEN CHOMPED5OR ARE OUTSIDE THE ORIGINAL DIMENSIONS OF THE COOKIE.8 THIS IS AN ARTIFICIAL INTELLIGENCE PROGRAM. IT DOESN'T7HAVE A 'SET' WAY OF WINNING, BUT RATHER KNOWS THE RULES7AND THE STRATEGY OF THE GAME. IN THIS MANNER, IT SHOULD8PUT UP A CHALLENGING GAME WITHOUT ALWAYS CLOBBERING YOU.7IT WAS MADE ENTIRELY WITH THE PLAYER IN MIND; SO ENJOY. ENTIRELY WITH THE PLAYER IN MIND; SO ENJOY.GARBAGEGARBAGEGARBAGEGARBAGEGARBAGEGARBAGEGARBAGEGARBAGEGARBAGEGARBAGEGARBAGEGARBAGEGARBAGEGARBAGEGARBAGEGARBAGEGARBAGEGARBAGEGARBAGEGARBAGEGAR I 1 6 \ \ I ' 15), "LUNAR LANDER SIMULATION" ' 15), "----- ------ ----------" ( I 1 6 \ \ I %2 "DO YOU WANT INSTRUCTIONS?",A$ < A$1,1) "Y" F ?P "YOU ARE LANDING ON THE MOON AND HAVE TAKEN OVER MANUAL" ?Z "CONTROL 500 FEET OVER A GOOD LANDING SPOT. YOU HAVE A" 5d "DOWNWARD VELOCITY OF 50 FT/SEC AND 150 UNITS" n "OF FUEL REMAIN." ;x "HERE ARE THE RULES THAT GOVERN YOUR SPACE VEHICLE:" ? "(1) AT EACH SECOND, THE HEIGHT, VELOCITY AND REMAINING" # " FUEL WILL BE REPORTED." > "(2) WHEN A '?' IS TYPED, ENTER THE NUMBER OF UNITS OF" : " FUEL YOU WISH TO BURN DURING THE NEXT SECOND." A " EACH UNIT OF FUEL WILL SLOW THE DESCENT BY 1 FT/SEC." B "(3) MAXIMUM THRUST OF THE ENGINE IS 30 UNITS OF FUEL/SEC." < "(4) UPON CONTACT OF THE LUNAR SURFACE, YOUR LANDING" & " STATUS WILL BE DISPLAYED." @ "(5) IF YOU RUN OUT OF FUEL, THE COMPUTER WILL TAKE OVER" 0 " AND CONTINUE YOUR LANDING APPROACH." , "TYPE CARRIAGE RETURN TO CONTINUE",A$ H1500  \ - \ "BEGINNING LANDING PROCEDURE....."\  \\\\  "G O O D L U C K ! ! !" " \ 7, " SEC FEET SPEED FUEL PLOT OF DISTANCE" 6 T0\V50\F150\HH1 @ 4),T, 6J 7),H,13),V,16),F,21),"I",H1521),"*" T F0 r ^ 1 B h BB) r B0 B0 | B30 B30  BF BF  V1VB5  FFB  HH.5VV1)  H0   TT1  VV1  F0 @ , F0 B0 "*****OUT OF FUEL*****"  B0  F0  @  "***** CONTACT *****"  HH.5VV1)  B5 0 # DVVVH102B)))5B) & : 0 DHV : V1V5B)D &D "TOUCHDOWN AT ",TD," SECONDS." .N "LANDING VELOCITY =",V1," FEET/SECOND." %X F," UNITS OF FUEL REMAINING." b V10  2l "CONGRATULATIONS!!! A PERFECT LANDING!!!" v H1H1100    V1)2   "AN EXCELLENT LANDING"  H1 H1 50    V1) 5  ( "THAT LANDING WAS A LITTLE ROUGH" 7 "YOUR LICENSE WILL BE RENEWED............LATER."   / "***** SORRY, BUT YOU BLEW IT!!!!!!!!!!" B "APPROPRIATE CONDOLENCES WILL BE SENT TO YOUR NEXT OF KIN."   1 "YOUR NEXT MISSION WILL BE MORE DIFFICULT"  \\ *  "SHALL WE TRY ANOTHER MISSION? ",A$  A$1,1)"Y" &  \ "THIS IS MISSION CONTROL OUT" * pA YES PC B4]AP@A" B$"HEALTH"  B$"MONEY"  B$"JOB" 1 "I AM SORRY, BUT YOUR ANSWER OF ",B$," IS" , "GREEK TO ME.......HA......HA???????" : "I CAN SYMPATHIZE WITH YOU ",A$,". I HAVE TO WORK" 7 "VERY LONG HOURS FOR N  I1 6\ \ I - 10),"FIVE LETTER WORD GUESSING GAME"  I1 7\ \ I ?( "PLEASE ENTER A RANDOM NUMBER BETWEEN 1000 AND 10000-",R !2 R1R))\ RRR)\RR) -< "I AM THINKING OF A FIVE LETTER WORD." %F "NO TWO LETTERS ARE THE SAME." 1P "I WILL GIVE YOU CLUES TO HELP YOU GET IT" /Z "----------G O O D L U C K-----------" d #0, "M.WORDS" n #0, N x C0)N1)  I1 C #0, G  I \ #0 + S$ "" \ I 1 5 \ G1 G 26) / S$ G 65 26G1) S$ \ G G1 \ I  G0  J1 5 PJ)0  J ' "GUESS A FIVE LETTER WORD: ", L$  L$) 0  L$S$ D  L$1,1)"?"   L$)5 & $ I1 4 \ J I1 \ KJ 5  L$I,I)L$K,K) 6 5" "WORDS WITH REPEATED LETTERS ARE NOT ALLOWED." , : 6 K \ I @ GG1 J A$"-----" T M0\ P$"" ^ J1 5 h I1 5 r S$I,I)L$J,J)  | P$P$L$J,J)  IJ   A$J,J)L$J,J)  MM1  I  J " "THERE WERE ",M," MATCHES."  M0  8 "THE COMMON LETTERS WERE.....................",P$ 8 "AND THE EXACT POSITION MATCHES WERE.........",A$  A$S$ N ! M1  \ G 4  7 \ "IF YOU GIVE UP, TYPE '?' FOR YOUR NEXT GUESS"   & \ "THE SECRET WORD WAS ",S$\  b 6& \ "YOU MUST GUESS A 5-LETTER WORD. TRY AGAIN" 0 : D GG1 &N \ "YOU HAVE GUESSED THE WORD." "X "IT TOOK ",G," GUESSES!"\ 'b "DO YOU WANT TO PLAY AGAIN? ",Q$ l Q$1,1)"Y" d v  ]][3]]{]];][]AtdY? GUa@GSR(FH )dH#Ud@GH2iY`GUaTG) GhccGP9`G%G$bG0@ypGHtG#ChF"`G(BFQ Gvf2pG"t@Gr G1Q@G#(4F$3G$tPG#fhpG%HILE" . "SWINE","RIFLE","GABLE","BURNT","FORGE" . "BLEND","LEDGE","SEDGE","AGILE","SIGHT" . "GRIND","COULD","BIBLE","EVICT","DEVIL" . "HOUSE","HORSE","PRONG","VAGUE","WORSE" . "STUMP","BILGE","PLUCK","HATCH","BEAST" . "UNTIL","DROWN","FILTH","BOAST","PRINT" . "PAINT","BUNCH","TRUNK","PARTY","PRICE" . "HANDY","SCOUR","FOWLS","FOULS","BANDY" . "SANDY","BULGE","EXTRA","RHYME","VOGUE" . "GLUES","PELTS","MELTS","BELTS","WELDS" . "WINDS","FEARS","YEARS","HEARS","MELDS" .  "RUNES","PANIC","LEANS","FRAME","SLIME" . "GRAFT","SHAFT","ANISE","FABLE","BUGLE" .  "TANGY","QUEST","FANCY","PURGE","DUNKS" .* "ANGLE","FILED","FLIER","FERAL","FRUIT" .4 "ANGEL","GLEAN","WASTE","WAIST","FROWN" .> "GRUNT","BRUNT","BLIND","WHEAT","WHITE" .H "ELFIN","BLAST","CABLE","FABLE","SABLE" .R "FEAST","YIELD","WIELD","AXLES","BOXES" .\ "LAGER","MISTY","MUSTY","DUSTY","RUSTY" .f "FRONT","BURST","BRUTE","NASTY","PASTY" .p "THRIP","THROW","SLOTH","SKATE","STRAW" .z "STYLE","SPEND","ASKEW","ABOUT","MURKY"   7e@CB PAINT 0A`A/F_7 PAINT P-INCBhGF Gd7HRw`GUpGV(WpG$7FpG(BFv$F13EH!PGd G4XupG8fGFp4F ip G)@h GCerGGyG`@GgXGqVPGvhfpG(g@G$)tPGUPGppGpG5YH00GH'YEDfI G03rF1HS @GvR5F%DPGI0Gy8GyEpGFD G$(HG(QpGF&8XGAr0GV9GV6`Gx8PG$7FpG2iYpGvXF"HGyG'B GEF%BY`Ge3WFP"GGTFpC0G0F9pGsPGYPF"GGUdpG4XG4VGqc$G`G1Hs5G`QFpaUG2sPGRwgFGyvG$3BPGp5'FqYpGh`@PGsCF @GhfeGqX`G2r GprG%FG%DvGFXfF4EG`F"ECGy@GGG)H@Gi2 GUa@GSR(FH )dH#Ud@GH2iY`GUaTG) GhccGP9`G%G$bG0@ypGHtG#ChF"`G(BFQ Gvf2pG"t@Gr G1Q@G#(4F$3G$tPG#fhpG%AG#&YF)7Ga8HgH%rG0TRPGvEFe`aF'H$H $GeFIF"`G&S@G#UgG%HpsHAFqFP00GV7`GXGG5@G2yG%I0GuFvFYS7@Ghg2`G)GE@G(G`Gq`Gv`G%0G22TF'WEXGG D3)  I1 6\\ I 6 8),"SLOTS -- THE O N E A R M B A N D I T" ( I1 7\\ I 52 "PLEASE TYPE YOUR LUCKY NUMBER FOR TODAY: ", S < SS)1 F SS)S)) P SS) Z \ 0d "EACH TIME I ASK FOR IT TYPE IN YOUR BET" &n "YOU MAY BET BETWEEN $1 AND $9" 'x "A ZERO BET WILL END IT ALL...."  \   B0  1 "BET: ", A  A0 A9 6 " INVALID BET, BET FROM 1 TO 9 OR QUIT WITH 0." AA)  A0   B11 3  DB1)0)6)1  I13 \ K50) \ I B1 3 D1)D2) D2)D3) K50)4)1 "  K53 "  DK5)0)5)1 " G11 3 , G17), 6 I1100 \ I &@ DG1) J,T,^,h,r,| J " BELL",\  T " BAR",\  ^ "CHERRY",\  h "APPLE",\  r "LEMON",\  | " $",  I1150 \ I \ G1  29),  D1)D2)   D2)D3)   D1)D2)   D1)D3)     D1)3D1)3)  $ WA4\ "KENO...WIN $",W,\  % WA\ "BET LOST...$",W,\  $ WA\ ".......WIN $",W,\  # WA15\ "JACKPOT...$",W,\  BBW  45),"TOTAL=$",B   " " \ B0 : @& "WE ARE ALWAYS GLAD TO HAVE A WINNER. PLEASE COME AGAIN." 0 D ;: \ "ITS BEEN GOOD OPERATING FOR YOU...COME BACK SOON" D X[P[#[p[@[h[H[x[/`A0APACRWr @`[0AA@A%B@@AF0 B0  C8$ 12) . I1 6 \ \ I \ 20),"STAR TREK" 7 \ 9), "THE ENTERPRISE IS ALERTED FOR ACTION" ( I 1 6 \ \ I 2 AX) X0)1) -< DD) KI,1)S1)2KI,2)S2)2) #F "DO YOU WANT A BRIEFING? ",A$ P A$1,1) "Y" Z #0,"STR.RULS"\ A9$64) "d I114 \ 0) 1 n #0,A9$\ A9$\ I\" " 3x "TYPE CARRIAGE RETURN TO CONTINUE.",A$\ d C8$ 5 "SELECT A MISSION CODE FROM 1000 TO 10000 ", T % T T10000)1)2 \ T0 T) "PREPARING FOR DEPARTURE" 6 G8,8),Z$15),C$6),X$24),K3,3),Q8,8),Y$20) " T0 A20)20)100 \ T T0 E 3000 P 7 S 0 $ X$ "------------------------"  Y$ ":.................:" - S2 A8) \ S1 S2 \ Q2 S1 \ Q1 Q2 0 C9,2) \ I1 9\ J1 2\CI,J)1\\ @ C2,1)1\C3,1)1\C4,1)1\C4,2)1\C5,2)1\C6,2)1 1 C1,1)0\C3,2)0\C5,1)0\C7,2)0\C9,1)0 ( D6) \ I 1 6 \ DI) 0 \ " K9 0 \ B9 0 , I 1 8 6 J 1 8 @ K3 0 \ B3 0 J 0) 0.8 h T K3 A3) ^ K9 K9 K3 h 0) 0.84  r B3 1 | B9 B9 1  S3 A5) $ GI,J) K3 100 B3 10 S3  J  I  K9 0 B9 0 " / T1 T0 301.2K9)301.2K9)))2  C8$  Q1 1   Q1 1 \ S1 1  Q1 8   Q1 8 \ S1 8  Q2 1   Q2 1 \ S2 1  Q2 8   Q2 8 \ S2 8  X GQ1,Q2) 100 & K3 X) 0 B3 XK3)10) ': S3 GQ1,Q2) B310)K3100)) D K3 0 l $N "COMBAT AREA CONDITION RED" X SK3100) l "b " SHIELDS DANGEROUSLY LOW" %l I1 3\ J1 3\KI,J)0\\ %v I1 8\ J1 8\QI,J)0\\  QS1,S2) 1  I 1 K3  p  QR1,R2) 2  KI,1) R1  KI,2) R2  KI,3) 200  I  B3 0   p  QR1,R2) 4  I 1 S3  p  QR1,R2) 3   I    "COMMAND: ",A * R1 A 1 '4 A 0 A 6 A A) z > A0 A6 p H DR1) 0 p R * \ Z$, " NOT OPERATIONAL" f  -p R1 , ^, , l, , , z " " \  \  2 C8$, "THE FOLLOWING COMMANDS ARE ACCEPTED:" ) "0 = SET COURSE", 20), "4 3 2" , "1 = LONG RANGE SCAN", 21), "\ | /" & "2 = PHASER CTRL", 22), "\|/" / "3 = TORPEDO CTRL", 18), "5 ------- 1" " "4 = SHIELDS", 22), "/|\" - "5 = LIBRARY COMPUTER", 21), "/ | \" * "6 = RESIGNATION", 20), "6 7 8"  " " \  ! "SPEED FACTOR (0-8): ", W1  W1 0 W1 8  " D1) 0 W1 0.5 $ 6 "WARP ENGINES DAMAGED; MUST USE IMPULSE POWER." # "MAXIMUM SPEED FACTOR = 0.5"   3$ W1 1 "PROCEEDING UNDER IMPULSE POWER." . E W1 8) 0 ` 8 S 1 ~ :B "YOU ONLY HAVE ", E, "UNITS --- SUGGEST YOU REDUCE" 3L "POWER TO SHIELDS WHICH HAVE ", S, " UNITS." V  ` I 1 6 j DI) 0 ~ t DI) DI) 1 ~ I  0)W1) 2   R1 A6)  DR1) DR1) A5)  * 6 " " \ "DAMAGE CTRL REPORTS ", Z$, " DAMAGED."  " "  N W1 8)  QS1,S2) 0  X S1  Y S2  I 1 N  S1 S1 X1  S2 S2 X2 0  S1 1 S1 8 S2 1 S2 8  ( QS1),S2)) 0 N 8 <  S1 S1 X1 ( S2 S2 X2 2 F < I F S1 S1) P S2 S2) Z QS1,S2) 1 d E E N n W11 D1)0  x T T 1  T T1  \  \   X Q1 8 X X1 N  Y Q2 8 Y X2 N  Q1 X8)  Q2 Y8)  S1 X Q1 8 0.5)  S2 Y Q2 8 0.5)  S1 0   Q1 Q1 1  S1 8  S2 0   Q2 Q2 1  S2 8  T T 1  E E N 5 " T T1 (, Q10 Q20 Q19 Q29  06 Q11 Q21 Z$"ROMULAN" Z$"KLINGON" @@ "YOUR ATTEMPT TO ENTER ", Z$, " SPACE HAS BEEN REPELLED." 7J "DAMAGE AND DISORIENTATION SUSPECTED." \ I16 0T 0).7 DI) DI)A5) \ I \  :^ C8$, "LONG RANGE SCAN FROM QUADRANT ", Q1, ", ", Q2 h Y$ \ I Q11 Q11 #r N1) 0 \ N2) 0 \ N3) 0 | J Q21 Q21 , I 1 I 8 J 1 J 8   NJQ22) GI,J)  J . %4I,":",N1)," :",N2)," :",N3), " :"  Y$  I = "UNITS = STARS, TENS = STARBASES, HUNDREDS = KLINGONS"    K3 0 v  "ENERGY AVAILABLE = ", E & "NUMBER OF UNITS TO FIRE : ", X  X 1   E X 0   E E X  I 1 3  KI,3) 0 X & H X K3) DI)) 0 KI,3) KI,3) H : H, " UNIT HIT ON KLINGON" D KI,3) 0 X N * X I b  l P 0  .v "ALL PHOTON TORPEDOES EXPENDED" \   "TORPEDO ", \  X S1  Y S2  P P 1  " "  X X X1  Y Y X2 , X 1 X 8 Y 1 Y 8  4 QX),Y))0 QX.5),Y.5))0   I 1 3 , X) KI,1) Y) KI,2)  1 X.5) KI,1) Y.5) KI,2)   I  p  *     '* KI,3) 0 \ QKI,1),KI,2)) 0 4 "KLINGON DESTROYED!" > K3 K3 1 H K9 K9 1 R K9 0 \ GQ1,Q2) GQ1,Q2) 100 f 2p QX),Y))3 QX.5),Y.5))3  (z "YOU CAN'T DESTROY STARS, IDIOT."   % "**** STARBASE DESTROYED ****" * "YOU ARE HEREBY RELIEVED OF DUTY!!"   "TORPEDO MISSED."    "ENERGY AVAILABLE: ", ES $ "NUMBER OF UNITS TO SHIELDS",  X  X 0   E S X 0   E E S X  S X    \   C$ "DOCKED" t $ K3 0 t . I 1 3 8 KI,3) 0 j B H KI,3)D0) 1) L S S H $V H, " UNIT HIT ON ENTERPRISE!" ` S 0 j I t ~ " **** FATAL ERROR ****" ? "THE ENTERPRISE IS DEAD IN SPACE AND MUST BE EVACUATED." 9 " " \ "IT IS STARDATE ", T,". THE KLINGONS HAVE"  "SEIZED THE CAPITAL!" 8 " " \ "** THE ENTERPRISE HAS BEEN DESTROYED **" 3 " " \ "THE FEDERATION WILL BE CONQUERED!!" " " < "THE LAST KLINGON BATTLE CRUISER HAS BEEN DESTROYED!" " "THE FEDERATION IS SAVED!!" " " 4 "SHORT RANGE SCAN OF QUADRANT ", Q1, ", ", Q2  I S11 S11  J S21 S21 ,( I 1 I 8 J 1 J 8 < 2 QI,J) 4 x < J F I P C$ "GREEN" Z E 300 C$ "YELLOW" d K3 0 C$ "RED" n x C$ "DOCKED" E 2700 P 7 ! I 1 6 \ DI) 0 \ I S 300 X$ Z 0  "STARDATE ",T  "DEADLINE ",T1  "CONDITION ",C$  "ENERGY ",E   "TORPEDOES ",P " , "SHIELDS ",S 6 @ "KLINGONS ",K9 J T "STARBASES ",B9 ^ X$ h 5),"<*> = ENTERPRISE", r 30), " * = STAR" | 5), "+++ = KLINGON",  30), ">!< = STARBASE"  1 C8$, "COMPUTER ACTIVE AND AWAITING OPTION" " " * "FUNCTIONS AVAILABLE FROM COMPUTER"  " 0 = DAMAGE REPORT" # " 1 = TARGET TRAJECTORIES" " 2 = SHORT RANGE SCAN" $ " 3 = LIST COMMAND SUMMARY" " "  "OPTION: ", A - A0 A3 A1  ,  , ,  " "  K40 \ I 1 3 " KI,3) 0 l K4 1 & X KI,2) S2 0 Y S1 KI,1) $: X 0 Y0 A 7 A 3 2D X0 A 57.3YX))45 1)100)100 N X 0 Y 0 A A 8 X X 0 A A 4 b "DIRECTION = ",A l I \ K40  5v "SENSORS DETECT NO KLINGONS IN THIS QUADRANT."   C8$ \    \  0 "COURSE: ", C1 \ C19 C11 \ C2C1)  C11 C19  5 X1 CC2,1) CC21,1) CC2,1)) C1 C2) 5 X2 CC2,2) CC21,2) CC2,2)) C1 C2)  "|",  Z Z 1  Z$ " . <*>+++ * >!<"  I 1 8 ! Z$QZ,I)31,QZ,I)33),  I  "| ",  * 4 .4 "WARP ENGINES","SENSORS","PHASER BANKS" /> "TORPEDO TUBES","SHIELD CTRL","COMPUTER" H X 1 R1 R Z$ \ X f p R1 A8) z R2 A8)  QR1,R2) 0 p  4 " " \ "YOUR RESIGNATION HAS BEEN ACCEPTED." > C8$, "DAMAGE REPORT: EQUIPMENT REPAIR TIME ESTIMATE" & R10 \ I16 \ DI)0  R1I \ R2DI)) \ *  16), Z$, 35), R2 / I \ R10 "NO DAMAGE REPORTED." \   A6y YES UL COMPLETION OF WARP ENGINE MANEUVERS. OPTION 3 = COMMAND SUMMARY    RT: EQUIPMENT REPAIR TIME ESTIMATE" &V R10 \ I16 \ DI)0 t ` R1I \ R2DI)) \ j 16), Z$, 35), R2 /t I \ R10 "NO DAMAGE REPORTED." \ ~ -w|Pw2wq{qw7wJ|Syy{y|{(w4yN{yOawSO?w_UOR|WHOWN.", F 50),"4 3 2" /P "REAL VALUES MAY BE USED, FOR EXAMPLE,", Z 51),"\ ^ /" /d "1.5 WOULD BE HALFWAY BETWEEN 1 AND 2.", n 52),"\^/" x 48),"5 ------- 1" 6 "A 'WARP FACTOR' IS THE SIZE OF ONE QUADRANT.",  52), "/^\"  51),"/ ^ \"  50),"6 7 8"   % "COMMAND 1 = LONG RANGE SCAN " 3 "DISPLAY THE CURRENT AND ADJACENT QUADRANTS" > "CODED IN THE FORM XXX, WHERE THE UNITS ARE THE NUMBER" = "OF STARS, TENS THE NUMBER OF STARBASES, AND HUNDREDS"  "THE NUMBER OF KLINGONS." $ " " \ "COMMAND 2 = PHASERS" 9 "YOU MAY DESTROY A KLINGON BY USING ENOUGH PHASER" 8 "POWER TO DEPLETE HIS SHIELDS. KEEP IN MIND THAT" 8 "WHILE YOU FIRE AT HIM, HE WILL FIRE AT YOU TOO."   - " " \ "COMMAND 3 = PHOTON TORPEDOES" 9" "COURSE IS SAME AS WITH WARP ENGINES. THE LIBRARY" ;, "COMPUTER CAN COMPUTE TRAJECTORY FOR YOU (OPTION 1)" $6 " " \ "COMMAND 4 = SHIELDS" >@ "DEFINES THE AMOUNT OF ENERGY TO BE APPLIED TO SHIELDS" J  -T " " \ "COMMAND 5 = LIBRARY COMPUTER" $^ " OPTION 0 = DAMAGE REPORT" :h " A STATE OF REPAIR LESS THAN ZERO INDICATES THAT" /r " THAT DEVICE IS TEMPORARILY DISABLED." *| " OPTION 1 = PHOTON TORPEDO DATA" < " GIVES DIRECTION TO ALL KLINGONS IN YOUR QUADRANT." ' " OPTION 2 = SHORT RANGE SCAN" 5 " ALSO AUTOMATIC AFTER SUCCESSFUL COMPLETION" $ " OF WARP ENGINE MANEUVERS." & " OPTION 3 = COMMAND SUMMARY" ( " " \ "COMMAND 6 = RESIGNATION"   \  1 " " \ "CARRIAGE RETURN TO CONTINUE", Q8$  C8$ \  ~sUOWO+EX  AB~5D5D/ 6 =#!W> ͆ + =*W3|5+@}0!>w!2 ñ!:_0w#{0w!}:7ƙ'2âSTARFLEET COMMAND:(CODE 7)THE KLINGONS HAVE BROKEN INTERGALACTICTREATY. YOUR ORDERS ARE TO ADVANCE TO KLINGON TERRITORY AND DESTROY ALL KLINGON VESSELSWARP=W,IMP=I,PHR=P,PTP=T,PWRDST=D,SELFD=S,EXPRAY=E,POD=A,XPOD=X SCOTTY:CAPTAIN, THE ENGINES HAVEN'T THE POWER TO OPERATESCOTT:THE UNKNOWN WE SHOT DISABLED THE WARP DRIVE CAPTAINSPOCK:CAPTAIN, I AM AFRAID YOUR LAST COMMAND MADE NO SENSESPOCK:CAPTAIN, WE HAVE BEEN BLOCKED BY AN UNKNOWN OBJECTUHURA:THE STARBASE HAS ACKNOWLEDGED OUR DOCKING, CAPTAIN DOCKGREEN RED CRTCLSPOCK:SIR, WE HAVE HIT A TRITON MINEUHURA:SIR, WE MADE CONTACT WITH A KLINGON VESSELKLINGON: WATCH WHERE YOUSULU:WE HIT A STAR!?!SCOTT:CAPTAIN, WE HAVEN'T THE POWER TO FIRE PHASERSSPOCK:SIR, MY SENSORS SHOW PHASER HAD NO EFFECTSCOTT:CAPTAIN, THE TORPEDO TUBES ARE POWER DEFICIENTCOMPUTER:OBJECT DESTROYEDSULU:THE ENGINES ARE EXPLODINGSCOTT:CAPTAIN, THE ENGINES ARE OVERLOADED, THEY CAN'T LAST AT THAT RATECOMPUTER:SELF DESTRUCT SEQUENCE INITIATED. 15 SECONDS REMAINCOMPUTER:SELF DESTRUCT SEQUENCE ABORTEDMCCOY:I CANT ALLOW YOU TO FIRE THE EXPERIMENTAL RAYCHEKOV:SIR, WE HAVE NO MORE PHOTON TORPEDOESSCOTT:THERE GOES A DILITHIUM CRYSTAL, CAPTAINSCOTT:CAPTAIN, THE SHIELDS ARE FALLING APART!STARFLEET COMMAND: CONGRATULATIONS, YOU HAVE DESTROYED ALL THE KLINGONS. YOU HAVE BEEN PROMOTED TO ADMIRALSPOCK:EXPERIMENTAL RAY IS FIRING PHOTON TORPEDOESSPOCK:EXPERIMENTAL RAY CAUSES A CHANGE IN SPACIAL STRUCTURESPOCK:EXPERIMENTAL RAY FREEZES TIME FOR THE KLINGONSSPOCK:EXPERIMENTAL RAY HAS CAUSED ALL THE KLINGONS TO BECOME INVISIBLECOMPUTSITUATION REPORT:; A KLINGON BATTLE FLEET HAS ENTERED FEDERATION SPACE WITH;HOSTILE (AS USUAL) INTENT. THE SURPRISE ATTACK HAS DISABLED:THE REMAINDER OF THE FEDERATION FLEET; ONLY THE ENTERPRISE;IS OPERATIONAL. FORTUNATELY, THEIR HEAVIER DEFENSES ALLOWED:THE STARBASES TO SURVIVE. IT IS, THEREFORE, NECESSARY FOR 7THE ENTERPRISE TO OPERATE ALONE EXCEPT FOR RESUPPLY BY DOCKING AT STARBASES.; NO MERCHANT SHIPS CAN MOVE WHILE THERE ARE KLINGON SHIPSYOU MUST DESTROY ALL THE INVADERS BEFORE YOUR MISSION DEADLINE4OR THE CAPITAL WILL FALL AND WITH IT THE FEDERATION.; THE ENTERPRISE SYSTEMS RESPOND TO THE FOLLOWING COMMANDS$(WHICH ARE ALWAYS ISSUED BY NUMBER): COMMAND 0 = WARP ENGINES:COURSE IS A DIRECTION AS SHOWN. 4 3 2:REAL VALUES MAY BE USED, FOR EXAMPLE 5 * 1:1.5 WOULD BE HALFWAY BETWEEN 1 AND 2 6 7 82A 'WARP FACTOR' IS THE SIZE OF ONE QUADRANT. )REMEMBER YOU CAN'T FLY THROUGH STARS ETC.  COMMAND 1 = LONG RANGE SCAN *DISPLAY THE CURRENT AND ADJACENT QUADRANTS5CODED IN THE FORM XXX, WHERE THE UNITS ARE THE NUMBER4OF STARS, TENS THE NUMBER OF STARBASES, AND HUNDREDSTHE NUMBER OF KLINGONS.  COMMAND 2 = PHASERS0YOU MAY DESTROY A KLINGON BY USING ENOUGH PHASER/POWER TO DEPLETE HIS SHIELDS. KEEP IN MIND THAT/WHILE YOU FIRE AT HIM, HE WILL FIRE AT YOU TOO..YOUR PHASER FIRE WILL BE EQUALLY DIVIDED AMONG"ALL THE KLINGONS IN YOUR QUADRANT.  COMMAND 3 = PHOTON TORPEDOES0COURSE IS SAME AS WITH WARP ENGINES. THE LIBRARY2COMPUTER CAN COMPUTE TRAJECTORY FOR YOU (OPTION 1) COMMAND 4 = SHIELDS5DEFINES THE AMOUNT OF ENERGY TO BE APPLIED TO SHIELDS  COMMAND 5 = LIBRARY COMPUTER OPTION 0 = DAMAGE REPORT1 A STATE OF REPAIR LESS THAN ZERO INDICATES THAT& THAT DEVICE IS TEMPORARILY DISABLED.$ OPTION 1 = TARGET TRAJECTORY DATA3 GIVES DIRECTION TO ALL KLINGONS IN YOUR QUADRANT. OPTION 2 = SHORT RANGE SCAN, ALSO AUTOMATIC AFTER SUCCESSFUL COMPLETION OF WARP ENGINE MANEUVERS. OPTION 3 = COMMAND SUMMARY      COMMAND 6 = RESIGNATION         4@ͺ2*SM"S+#54@ͺ2BA#^#V"Q#~"S#^#V"SWA*S2ͺB 2\ͲDA ȸA2>2z@"3@*ͼAC*A ?A3y O@*ͼA!̓AC!̓A?AZ3CWD<3A2?3ͺB4@ڋ3>2Q*Q*S!9"QlF!6U+ͺB2Qt*>#ANͺBrAAү3͔@rA.,4+D?rA3mBڲ3WA3>">rAAҠ3ͲD*SC+"QYB\@qF\@4%S4'B.45TA*SJ:QG:QqFAA3qF*SA>"Sz%4:QG:QqFF>F+:4fBA͏DҖ4Dʐ4!!SZʊ4@Cʊ4 ʊ4$ʊ4#4~wV4YBV4| +} +2#SAI4Eʶ4F +͏D +| +}!#S +2$S2"S!!SF~wxLB%4AͼACAz*:Q%4 >F4ͺB*Q>1A>"Ax5?>F1EqFkRD?N5Kg5A_5x,'5 g5?>F5͆C> >"Q 55x !5AqF"Q5#A#"Q,A5 INPUT ERROR-RETYPE "ͲBͪ@2ͲB,4+C>5ACR!Rwz*#s#6CACs!8!93,4+2Q:Q86j@6J?+BA86N6mB86B86Aʲ9ʔ9ʿ9<:!8ʨ6AN6қ6:Q1+*Q-n6l6n61+A5> Ͷ6A5~8A’6"S DM!5#BA*Q-1+Ͷ6ͼA5AÂ6O!8 READY" ERROR" IN LINE "STOP"f//--d.-I/-~.1+.( g.0.030 135212<23e33325531551yOONLETFORPRINTNEXTIFREADINPUTDATAGOTOGOSUBRETURNDIMSTOPENDRESTOREREMFNDEF!ONOUTFILLEXITOPENCLOSEWRITERUNLISTNULLSCRCREATELOADCONTLINERENDUMPSAVEBYEEDITSTEPTOTHENTABELSECHR$ASCVALSTR$NOENDMARK([*+-/ANDOR>=<=<>=>=<<=>NOT^INTLENCALLRNDSGNSINSQRTFREEINPEXAMABSCOSLOGEXPTYP9 d= FG<G9 H |99:[9g9=9 999 9888 r9$::4:9:^<;g:9w9w>Aw9w9w9w9w>)9 )9PYDMg N9N9! N9# C9$*A> PY*A b9b9BKb9*A!6-A͹ACA¤9C!9CA86͹AD?+é9͹AD?+z*n&é9A9Gx :O&9$ ::$ 9%BK6ëGC>5Ro&CTA*Q*SBCCn:͹A!"S!R7>!QRKE,4+!QBAì9CP+4P!C#CC#CBK;ͫG*SBA;͹HC{2;SC;͉F͔G:;S:;͔G !;-A*SBAPY͉F͉F;ͫG͉F;ͫG͉F;ͫG͉F*SBA;ͫG͉F;ͫG͉F;ͫG͹H͉F͔G*S"S; :;S pycAP@0BCBH@30Fp5$ xCrD$Q8QG4@pBE&BCBK;͉F!<-ABA8A98A͔GCzG{@GR!]<> >!R~w-A!<-ARùH@#XVA&PA 4AiATxT`@f!#@V"?PsX8D@?i<;ùH**>@BKR!<>>R!<>>RR͹H@BWc@BPA'tAA*@=>>R-ARR͹HRR͔G;R͉FRRͫG==!R-AwTB@TBA t=PY!<-ABD¬=;=9ڬ=BACR-AR͉FÝ=BAi͉FC+"S=TA*S}-=?|g}o="S# 12) 1 I1 6\ \ I\ 19),"THE WUMPUS GAME"  I1 8\ \ I 7( "CARE FOR THE RULES? ",A1$\ A1$1,1)"Y" !2 A$64)\ I1 15\ \ I < #0,"WMP.RULS" F J1 13 P 0) 1 x Z #0,A$\ A$\ J d 5n "TYPE CARRIAGE RETURN TO CONTINUE",A1$ \ F x J1 2 \ "TYPE CARRIAGE RETURN TO CONTINUE",A1$  "WUMP2"  NE DIRECTIONS RANDOM AND SOME OF THE I,0)I\ I ( P1L11\ I0 L1\ N10.)P1) 0 PI)LN1,0)\ P1P11\ LN1,0)LP1,0)\ I + I0 L1\ PI)0 PI)PL1)\ I  S10\ I0 L11 * LS1,0)PI)\ S1PI)\ I\ LS1,0)0  P1L11\ I0 L11  N10.)P1) # LI,0)PN1) PN1)I , LI,1)PN1)\ P1P11\ PN1)PP1)\ I  LL1,1)0.)L1) " I0 L1\ J0 1 3, L2LI,J)\ LL2,0)I LL2,1)I LL2,2)I 6 J\ I 0@ W10.)L11)\ D520\ B10.)L11)) J B20.)L 12) " L019),L219),L319)\ L119  AX)0)X1)) *( "PLEASE ENTER A RANDOM NUMBER: ",R1 ,2 R1R1)1)10\ R11 2\ R1R1) < I0 L1\ L3I)\ I 7F 148, 185, 160, 120, 105, 205, 228, 248, 268, 285 7P 283, 260, 240, 220, 203, 303, 328, 368, 383, 340 Z I0 L1\ L2I)\ I 0d 10407,209,10311,20413,305,40614,50716,608 1n 70917,10810,91118,21012,111319,31214,51315 'x 141619,61517,81618,101719,121518 . 12), "THE WUMPUS IS RUNNING TO HIDE."  I0 L1\L0I)I\ I  IL1 1 1 , JAI)\KL0I)\L0I)L0J)\L0J)K\ I  W1AL1)\ B1AL1)  B2AL1)  B1B2  H1AL1)  H1B1 H1B2  P1AL1) , P1W1 P1B1 P1B2 P1H1 b  v \ D5 D4  \ P1W1 , + "LOOK OUT, IT'S THE WUMPUS ROOM!!!!" % "TOO LATE. YOU'VE BEEN EATEN." "  , P1B1 P1B2 @ -6 "SUPER BATS!!!"\ "WHOOOOOSH" \ @ P1H1 r #J "LOOK OUT! BOTTOMLESS PIT!!" $T "A I"\ 5),"E"\ 7),"E" (^ 8),"E"\ I16\" E"\ I h  r v 0| D4D5 "YOU ARE CLOSER TO THE WUMPUS." 3 D4D5 "YOU ARE FARTHER FROM THE WUMPUS."  D5D4 - P0W1\ X\ K0 "I SMELL A WUMPUS." " P0B1\ X\K1K0\P0B2\ X  K0K1 "I HEAR BATS." 3 P0H1\ X\ K0 "I FEEL A DRAFT OF PITS." 1 \ "THIS IS ROOM ",L0P1)," ADJACENT TO ", % L0P5),", ",L0P6),", ",L0P7) / "SHOOT OR MOVE: ",A1$ \ A1$)0   A1$1,1)"M" : 3 A1$1,1)"S" \ "INTO WHICH ROOM? ",P2  N\ K0   P2W1 & $ \ "HURRAH! ONE LESS WUMPUS." $ "CARE FOR ANOTHER GAME? ",A1$  A1$1,1)"Y" & W1AL1)\\ "MISSED!" !0 "WUMPUS IS MOVING."\ @ : "MOVE TO: ",P2 ,D N\ K0 P1P2  \ b \  4N P0L11\ I0 L1\ L0I)P2 P0I\ I\P2P0 .X P0P5 P0P6 P0P7 K01 K00 \ 0b P4L2P1) \ P5P410000) \ P4P410000P5 $l P6P4100) \ P7P4100P6 \ -v D6L3P1) \ D7L3W1) \ D00 \ I1 3 4 D8D610) \ D9D710) \ D6D6D710D8D9) + D0D0D6D6\D6D8\D7D9\ I\D4D0)\ P7 K01 K00 \ 0b P4L2P1) \ P5P410000) \ P4P410000P5 $1) \ D00 \ I1 3 4 D8D610) \ D9D710) \ D6D6D710D8D9) + D0D0D6D6\D6D8\D7D9\ I\D4D0)\ OU _dpABBPABBBBA`AA0 < PLAY HUNT THE WUMPUS < < THE WUMPUS IS A SHY, TIMID, PERSON-EATING ANIMAL. IT