ZXTape! Wumpus = =3? "Wumpus$" 23739\,111o "Wumpus Prg" QWumpus$ @ 80g0 f01p\̀q8(@@(p>?"U p00~?O0 f01x?`xp(D@@(800~?<pÆf8a i`X p8|tx8y8(0 ` >?<` <??0?$p<xn{ρ>|?|?>?yg pDDp`g~ppxp8`<?σ6`>a8xvx(x`}?v?0|`0` p` ```3p8`8'<D``D(p|;| #Á8c0 0`À 38188;D@@D09sy#E w>Ȍ@dx8&cdL`&d0f 1! 8p |̌p߀8qs  Ɍ@@DL00pB0A$DA@#dMDF8``wF? Ϙ@_?< 8<| g `11~ɀ+ | A 92" cd̰Ux88~<` ` DΜ? 﫫0 88C$H9??G80 _dH0s906DAgdL:qp>B|<8 dp`Cb@``̘ s_p 80<=q|0?  C!:"n>#d̠:?>~04d '0 Θ A `#< $0p>P @ ~dM0p<` #0p x@ 8gϏ 0d30q{?z麃DFoG`t@??dC8gdDAd0p D@egu?@x@G~w? |!fp\X 0e 9@7p?(3v?0O''߀3r =F1 p 3x`p|g`8 qx?PWQ a&$? qa?#ÿ1 d`U\1  x `0<'QE 3? 8b )? `  ?<9F<8@8 `0#@QEq"r " ??p9R! )? G̀PUEUQyNx@x 8<p8 3?pQE($S  .$A I"I$:U A0 _P3 p?xx??|r1? E(' `<$! Dx@ 3p8?FDh?839;@E($`I x @!p O;/~(T@EW pʀ u@p8?=#sTE($S  .|A >qxa 3'3㄁ D```80?@8qȈr3 |<IbxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxGxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxGxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxGGGxxxxxxxxxxxxxxxxxxxxxxxxxxxxxGxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxGGxxxxxxGxxxxxxxxxxxxxxxxxxxxxxxxGxxxxxGxxxxxxxxxxxxxxxxxxxxxxxxxGxGxGGGxxGxGGxxxxxxxxxxxxxxxxxGxGxGxxGGxxGxGxGGGxxxxxxxxxxxxxxGGxxGGGGGxGGGGGGGGxxGGxxxxxxxGGGGGGGGxGGGGGGGGGGGGGGGGxGGGxxxGxxGGGGxxxGxGxGGGxGxxGGGGGxxGxxGxxGGGGGGGxGGGGGGGGGxxxGGGGGGGxxxxxGxxxGGGGGGGGGGGGGGGGxxxxxGGxxxxxGxxxGGGGGGGGGGGGGGGGxxGGGGGxxxxxxGGGGGGGGGGGGGGGGGGGGGxGxxxxxxGxxGGGGGxGxxxxGxxxGGxGGGGxxxxxxGGGGxGGGGGGGGGGGGGGGGGGGxxGGGGxxGxGxxGxGGGxxxxGGxxxxGGGxxxxxxxxxxGxxGxxxxGGGGGGGGGGGxxxxxxxGGGxxGxGxxGxxxxxxxxxxxxxxxxxxxxxGGGGxxxGGxGxxxxxxxxxxxxxxxxxxxxGGGGGxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxWumpus Prg q*** HUNT THE WUMPUS *** p(5)  "INSTRUCTIONS (Y-N)"; i$:i$ (i$="N")(i$="n")35#  375w # 80P P.*** SET UP CAVE (DODECAHEDRAL NODE LIST) *** Us(20,3) Zj=120 _k=13 ds(j,k) ik nj s|2,5,8,1,3,10 ,2,4,12 ,3,5,14,1,4,6 x~5,7,15,6,8,17,1,7,9 ,8,10 ,18,2,9 ,11 }10 ,12 ,19,3,11 ,13 ,12 ,14,20,4,13 ,15,6,14,16 15,17,20,7,16,18,9 ,17,19,11 ,18,20,13 ,16,19 *a(X)=(20**1)+1 )b(X)=(3**1)+1 )c(X)=(4**1)+1 *** LOCATE L ARRAY ITEMS *** -*** 1-YOU, 2-WUMPUS, 3&4-PITS, 5&6-BATS *** l(6) m(6) j=16 l(j)=a(0) m(j)=l(j) j 2*** CHECK FOR CROSSOVERS (IE l(1)=l(2), ETC) *** j=16 k=16 j=k215 l(j)=l(k)170 k j *** SET NO. OF ARROWS *** a=5 l=l(1) *** RUN THE GAME *** "HUNT THE WUMPUS" %*** HAZARD WARNING AND LOCATION *** 585I *** MOVE OR SHOOT ***  670 o=1280 o=2300, *** SHOOT ***  715 f=0255 " 3106 '*** MOVE *** , 975 1f=0255 6f>0335O ;*** LOSE *** @"HA HA HA - YOU LOSE!" E 340T J *** WIN *** O3"HEE HEE HEE - THE WUMPUS'LL GET YOU NEXT TIME!!" Tj=16 Y l(j)=m(j) ^j c"SAME SETUP (Y-N)"; hi$:i$ m(i$"Y")(i$"y")170 r 230 w*** INSTRUCTIONS *** y | "WELCOME TO 'HUNT THE WUMPUS'" #" THE WUMPUS LIVES IN A CAVE OF" $"20 ROOMS.EACH ROOM HAS 3 TUNNELS" $"LEADING TO OTHER ROOMS. (LOOK AT" ""A DODECAHEDRON TO SEE HOW THIS" ""WORKS-IF YOU DON'T KNOW WHAT A" !"DODECAHEDRON IS, ASK SOMEONE)"  " HAZARDS:" $"BOTTOMLESS PITS - TWO ROOMS HAVE" $" BOTTOMLESS PITS IN THEM.IF YOU" !" GO THERE, YOU FALL INTO THE" " PIT (& LOSE!)"  "SUPER BATS - TWO OTHER ROOMS"  " HAVE SUPER BATS. IF YOU GO"  " THERE, A BAT GRABS YOU AND" "" TAKES YOU TO SOME OTHER ROOM" " AT RANDOM. (WHICH MAY BE" " TROUBLESOME)" "HIT RETURN TO CONTINUE";a$   " WUMPUS:" !"THE WUMPUS IS NOT BOTHERED BY" #"HAZARDS (HE HAS SUCKER FEET AND" ""IS TOO BIG FOR A BAT TO LIFT)." $"USUALLY HE IS ASLEEP. TWO THINGS"  "WAKE HIM UP: YOU SHOOTING AN" #"ARROW OR YOU ENTERING HIS ROOM." "" IF THE WUMPUS WAKES HE MOVES" #"(P=.75) ONE ROOM OR STAYS STILL" !"(P=.25). AFTER THAT, IF HE IS" !"WHERE YOU ARE, HE EATS YOU UP" "AND YOU LOSE!" "HIT RETURN TO CONTINUE";a$   " YOU:" #"EACH TURN YOU MAY MOVE OR SHOOT" "A CROOKED ARROW!"  !"MOVING: YOU CAN MOVE ONE ROOM" " (THRU ONE TUNNEL)" ""ARROWS: YOU HAVE 5 ARROWS. YOU"  " LOSE WHEN YOU RUN OUT. EACH" $" ARROW CAN GO FROM 1 TO 5 ROOMS." $" YOU AIM BY TELLING THE COMPUTER" "" THE ROOM#S YOU WANT THE ARROW" $" TO GO TO. IF THE ARROW CAN'T GO" " THAT WAY (IF NO TUNNEL) IT"  " MOVES AT RANDOM TO THE NEXT"  " ROOM. IF THE ARROW HITS THE" "" WUMPUS, YOU WIN. IF THE ARROW" " HITS YOU, YOU LOSE." "HIT RETURN TO CONTINUE";a$  !" WARNINGS:" &#"WHEN YOU ARE ONE ROOM AWAY FROM" )$"A WUMPUS OR HAZARD, THE COMPUTER" + "SAYS:" - 0 " WUMPUS: 'I SMELL A WUMPUS'" 5" BAT : 'BATS NEARBY'" :" PIT : 'I FEEL A DRAFT'" ? D I**** PRINT LOCATION & HAZARD WARNINGS *** N Sj=26 Xk=13 ]!s(l(1),k)l(j)640 bVj=1615g:j=2j=3625q:j=5j=6635{ g"I SMELL A WUMPUS!" l 640 q"I FEEL A DRAFT" v 640 {"BATS NEARBY!" k j "YOU ARE IN ROOM ";l(1) C"TUNNELS LEAD TO ";s(l,1);" ";s(l,2);" ";s(l,3)   *** CHOOSE OPTION *** "SHOOT OR MOVE (S-M)"; i$:i$ (i$"S")(i$"s")700  o=1  (i$"M")(i$"m")675  o=2  *** ARROW ROUTINE ***  f=0 *** PATH OF ARROW *** "NO. OF ROOMS (1-5)"; j9 :j9 j9 <1735 j9 >5735 k=1j9  "ROOM #";  p(k):p(k) k2790 p(k)p(k-2)790  4"ARROWS AREN'T THAT CROOKED - TRY":"ANOTHER ROOM"  760 k *** SHOOT ARROW ***  l=l(1) %k=1j9 *j=13 /s(l,j)=p(k)895 4j 9*** NO TUNNEL FOR ARROW *** >l=s(l,b(1)) C 900 Hk M "MISSED" Rl=l(1) W*** MOVE WUMPUS *** \ 935 a*** AMMO CHECK *** f a=a-1 ka>0885u p f=-1 u z(*** SEE IF ARROW IS AT l(1) OR AT l(2) l=p(k) ll(2)920 "AHA! YOU GOT THE WUMPUS!"  f=1  ll(1)840H "OUCH! ARROW GOT YOU!"  880p *** MOVE WUMPUS ROUTINE *** k=c(0) k=4955 l(2)=s(l(2),k) l(2)l970 !"TSK TSK TSK - WUMPUS GOT YOU!"  f=-1  *** MOVE ROUTINE ***  f=0  "WHERE TO"; l l<1985 l>20985 k=13 *** CHECK IF LEGAL MOVE *** s(l(1),k)=l1045 k l=l(1)1045 "NOT POSSIBLE -";  985 *** CHECK FOR HAZARDS *** l(1)=l *** WUMPUS *** ll(2)1090B $"... OOPS! BUMPED A" & "WUMPUS!" )*** MOVE WUMPUS *** . 940 3f=01090B 8 = *** PIT *** Bl=l(3)1100L Gll(4)1120` L""YYYYIIIIEEEE . . . FELL IN PIT" Q f=-1 V [*** BATS *** `l=l(5)1130j ell(6)1145y j5"ZAP--SUPER BAT SNATCH!":"ELSEWHEREVILLE FOR YOU!" ol=a(1) t 1045 y ~ alof1          !  !  T%I