Q>F*pxZ(*[R0>Cy>xG  >~+N #= Égo|@gxޜG>D5Jʙ9v" GSљ e͘w> 6  îC4249! 6 REBASIC RUN vx{0}~ 4 F*L*L*0 202000PUS 90,31,0,39:7,0:(:14249,188eWUMPUS-GEKLAUT UND AUFBEREITET BOETTNER20.4.851,30,0,39:7,1::5330:5000 :3000P$(13),L$(20),D$(20),N$(26),U(50):N50d2000 LAGE UND GEFAHR-WARNUNG -------J26K13*S(L(1),K)L(J)222GJ1212,216,216,220,220q7,1;(1,3);"ES RIECHT NACH WUMPUS!"z2227,1;(2,3);"ES IST HIER SEHR KUEHL!"2227,1;(3,3);"FLEDERMAEUSE IN DER NAEHE!"KJ4400: PRINT"DU BIST IN RAUM";L(1) 4000RPRINT"TUNNEL FUEHREN NACH";S(L,1);S(L,2);S(L,3)X^, WAEHLE MOEGLICHKEIT ------------23,30,0,39:0,7::27,27,0,39:7,2:.1:"SCHIESST DU ODER GEHST DU (S/G)";0I$61,3,0,39:7,1:FI$"S"330HO1:"JI$"G"302,LO2:2N:PF0ETLL(1)\U23,30,0,39:0,7:V"WIEVIEL SCHUESSE (1-5)";:J9XJ91J95342ZK1J9\"IN WELCHEN RAUM SCHIESSEN (NR.)";:P(K)^K2356`P(K)P(K2)3564b"PFEILE SIND NICHT GANZ SO KRUMM - VERSUCHE ANDEREN RAUM":348;dKOhK1J9:K113ejS(L,K1)P(K)388mlK1pLS(L,(3(1))1):390rK:"VERFEHLT":5300:LL(1)v400x TEST --------------------------zAA1|A0384~F1$  PFEIL IN L(1) ODER L(2)? ------/ LP(K)@ LL(2)394Z 3:23,30,0,39:0,6: "AHA! DU HAST DEN WUMPUS GETROFFEN!":5700:F1: LL(1)370 2:23,30,0,39:7,3: (30,0);"AUTSCH! DU WURDEST VOM PFEIL GETROFFEN!":9000 382'  WUMPUS ZUG ROUTINE ------------9 K(4(1))1F K4408Y L(2)S(L(2),K)j L(2)L414~ 57,0,0,0,31,60 7000:PRINT"TSCH TSCH TSCH - WUMPUS HAT DICH ERGRIFFEN!" F1   ZUG ROUTINE ------------------- F0 27,27,0,39:7,1: "WOHIN";% L7 L1L20504B K13h  IST ZUG GUELTIG ? -------------} S(L(1),K)L526 K LL(1)526 "NICHT MOEGLICH -"; 504  GEFAHREN VORHANDEN ? ---------- L(1)L  WUMPUS LL(2)544 23,30,0,39:7,2::3Y (30,0);"......HOPS! STIESS GEGEN DEN WUMPUS!":9500  WUMPUS ZIEHT ------------------ 402 F0548   GRUBE ------------------------- LL(3)LL(4)554 !23,30,0,39:7,3:' "6000:PRINT"AAAIIIIEEE . . . FIEL IN EINE GRUBE"0 $F16 &\ ( FLEDERMAEUSE ------------------u *LL(5)LL(6)562 +23,30,0,39:7,1: ,(29,1);"GRABSCH--RIESENFLEDERMAUS HAT DICH" -(30,1);"ERGRIFFEN!-LAESST DICH IRGENDWO FALLEN":8000 .L(20(1))105262B HAUPTPROGRAMM =================UPRINT"WUMPUS"| AUFSTELLEN DER HOEHLE" ---------S(20,3)J120K13S(J,K) KJ2,5,8,1,3,10,2,4,12,3,5,14,1,4,6 5,7,15,6,8,17,1,7,9,8,10,18,2,9,117*10,12,19,3,11,13,12,14,20,4,13,15,6,14,16g415,17,20,7,16,18,9,17,19,11,18,20,13,16,19> LEGE L FELDELEMENTE FEST ------H 1 = DU, 4;4 = GRUBEN ------R 2 = WUMPUS, 5;6 = FLEDERMAEUSE \J16fL(J)(20(1))1pM(J)L(J)zJ< UEBEREINSTIMMUNG L(1)=L(2) USW. GJ16RKJ6`JK2230L(J)L(K)L(J)(20(1))1:2220KJA5LL(1) STARTE DAS SPIEL --------------:"JAGE DEN WUMPUS" WARNUNGEN UND POS. DER GEFAHREN 200B ZIEHE ODER SCHIESSE -----------K 300\$ O2360,2400. SCHUSS ------------------------8 334B F02310L 2420V ZIEHE -------------------------` 500j F02310t F02470~ VERLIERE ----------------------) 171,0,0,0,31,50> 144,0,0,0,31,60S 216,0,0,0,31,40o "HA HA HA - VERLOREN!"y 2490 GEWINNE ----------------------- 192,0,0,0,31,40 162,0,0,0,31,50 144,0,0,0,31,60 114,0,0,0,31,70" "HEE HEE HEE - DER WUMPUS FAENGT DICH JA"A "DOCH DAS NAECHSTE MAL!!"L J16Z L(J)M(J)a J "DIE GLEICHE AUFSTELLUNG (J/N)"; I$ I$"J"2140 2260 :7,1: 5,21,3,34:0,4: 0,4:(6,5);"gjjjjjjjjjjjjjjjjjjjjjjjjjjjh"+ (7,5);"m gjjjjjjjjjjjjjjjjjjjh n"W (8,5);"m ie ii ii ii fi n" (9,5);"m n" (10,5);"m [[jjjj[[jjjj[[jjjj[[j[[jh n" (11,5);"m hj hj hj hj jj n n"  (12,4);"ie fi ii fi ii fi ii fi ii fin" (13,33);"f"J (14,4);"[[j[[j[[j[[j[[j[[j[[j[[j[[j[["w& (15,4);"jg jj hj jj hj jj hj jj hj jj"0 (16,5);"m ii fi fi fi fi": (17,5);"ei i iiii iiii iiii"D (18,5);" [[ [[ [[ [[ [["N (19,7);"jg jj jj jj hj"<X (20,8);"eiiiiiiiiiiiiiiiiiiif"Rb 7,0;(9,7);"17"il 7,0;(9,13);"18"v 7,0;(9,19);"19" 7,0;(9,25);"20" 7,0;(9,28);"16" 7,0;(13,4);" 6" 7,0;(13,7);" 7" 7,0;(13,10);" 8"  7,0;(13,13);" 9"$ 7,0;(13,16);"10"< 7,0;(13,19);"11"T 7,0;(13,22);"12"l 7,0;(13,25);"13" 7,0;(13,28);"14" 7,0;(13,31);"15" 7,0;(17,7);" 5" 7,0;(17,10);" 1" 7,0;(17,16);" 2" 7,0;(17,22);" 3" 7,0;(17,28);" 4"% 21* 23,30,0,39:0,7:74 I L(1)54100ZL(1)1R10kL(1)2R16|L(1)3R22L(1)4R28L(1)5R719,0;(18,R);"c"228L(1)154300 L(1)6R4L(1)7R7L(1)8R10"L(1)9R13#,L(1)10R1656L(1)11R19G@L(1)12R22YJL(1)13R25kTL(1)14R28}^L(1)15R31h19,0;(14,R);"c"r228L(1)16R28L(1)17R7L(1)18R13L(1)19R19L(1)20R25 19,0;(10,R);"c"22800,40:(10,7);"["BD(10,13);"["TN(10,19);"["fX(10,25);"["xb(10,28);"["l(14,4);"["v(14,7);"["(14,10);"["(14,13);"["(14,16);"["(14,19);"["(14,22);"["(14,25);"["(14,28);"["*(14,31);"[";(18,7);"["M(18,10);"["_(18,16);"["q(18,22);"["(18,28);"["0,7::0,4:7,4;(5,16);"WUMPUS!"(9,11);" ujjjjjt"(10,11); " u x ii t"(11,11); " dmw x xn"7(12,11); " n m"X(13,11); " mssssss n"y(14,11); " o lllll o"(15,11); " xi iu"(16,11); " u t ut"(17,11); " w wx[i"(18,11); " ux[ w j"#(19,11); " wt [xiw["C (20,11); " pim oo ot"d(21,11); " u iwt"(22,11); " ujx m w"((23,11); " p n p"2(24,11); " p"PI160Z102I,1,0,0,31,8\2,6;(11,17);"d"_2,6;(11,21);"b"%a2,6;(11,17);" "<b2,6;(11,21);" "BdHnTI130l2162I,0,0,0,31,5rx5,25,0,39:0,4:"" ll WUMPUS ll""""IN EINEM LABYRINT, DAS AUS 20 RAEUMEN""BESTEHT, WELCHE UNTEREINANDER MIT"I"GAENGEN VERBUNDEN SIND, HAT SICH WUMPUS"s""VERSTECKT. FANGE DEN WUMPUS, DAMIT","ER DICH NICHT FAENGT!"6"IN MANCHEN RAEUMEN GIBT ES FALLGRUBEN"@"ODER FLEDERMAEUSE LAUERN, DICH ZU VER-" J"SCHLEPPEN.-SEI AUF DER HUT UND SCHIESSE"F T"NUR AUF WUMPUS, WENN DU SICHER BIST!"p ^"ES KOENNTE DICH SONST DEIN EIGENER" h"PFEIL TREFFEN!" r" |" yACTION!z " " >ENTER< R$:R$""5530!R$(13) !I19$!152I,1,0,0,31,59!24I,1,0,0,31,5?!E!P!DI19e!N54I,1,0,0,31,6z!X43I,1,0,0,31,6!b36I,1,0,0,31,6!l!v!p23,30,0,39:7,1:!z23,30,13,23:7,4:!0,4;(23,13);"[[ [[" "0,4;(24,13);"[ [["."0,4;(25,13);"[ ["O"0,4;(26,13);"[[ ["p"0,4;(27,13);"[[ [[""0,4;(28,13);"[[[ [[""0,4;(29,13);"[[[[lll[[[[""0,4;(30,13);"[[[m n[ [""(24,17); " zy"#(25,17); " ri"#(26,17); " nn".#(27,17); " gm"E#(28,17); "dmo"O#5600c#(24,17);" "w#(25,17);" "#$(26,17);" "#.(27,17);" "#8(28,17);" "#BI13#L1164I,1,0,0,31,2#V#`(27,17);"nzym"$j(28,17);" hj"$t(29,17);" um"-$~(30,17);"n m"@$72,1,0,0,31,4U$(27,17);" "i$(28,17);" "}$(29,17);" "$(30,17);" zy"$2:(30,17);" "$20$23,30,0,39:$$X23,30,0,39:7,1:$b23,30,13,23:0,2:%l(23,13);"[[ [["/%v(24,13);"[ x"K%(25,13);" ["g%(26,13);"t x"%(27,13);"[ "%(28,13);"[ ["%(29,13);"[ i u[["%(30,13);"[[[[[[[[[[["%7,2;(24,14);" zy" &7,2;(25,14);" ir""&7,2;(26,14);"nnt";&7,2;(27,14);" nn"U&7,2;(28,14);" mm"o&7,2;(29,14);" aa"y&5600&(24,18);" u[t"& (25,18);"u[[["&(26,18);" jx[x"& (27,18);" xw[/"&*(28,18);" m"&4(29,18);" df"'>19,0;(25,19);"c"'HI15"'M57'R81I,1,0,0,31,2='\E'f20\'p23,30,0,39:7,4:b'z{'@ 23,28,10,28:0,4:'J(24,11);" u[[t x w u[[t"'T(25,11);"u[[[[tu[tu[[[[t"'^(26,11);"[wxwx[[[[[wxwx["'h(27,11);" x[w"(r(28,11);" " ""&(|6,0;(26,17);"cc"0(5300K(20:23,30,0,39:0,7:Q(i((#23,29,10,28:7,4:|(2#(24,14);"zy"(<#(25,14);"rh"(F#(26,14);"nt"(P#(27,14);"ooi"(Z#(28,14);"m c"(d#I18(n#V26(x#W25I(#(V,W);"zll")#2)#(V,W);" ")#/)#(26,15);"zll"9)#5300P)#23,30,0,39:0,7:V)#n)%23,29,10,27:0,2:)&%(24,13);" u[[t")0%(25,13);" [[[["):%(26,13);" w[[xxxh")D%(27,13);"gm xuuu s")N%(28,13);" x[w"*X%(29,13);" u ["*b%2,0;(25,17);"bd"#*l%5600>*v%20:23,30,0,39:0,7:D*%REh*v%20:23,30,0,39:0,7:n*%NHJ`K