E000R
LOMEM=840
HIMEM=4096
10 B=764
20 DIM I$(10)
25 FOR N=1 TO 5:PRINT:NEXT N
30 PRINT "WHICH GAME DO YOU WANT TO PLAY?"
35 PRINT
40 TAB 5:PRINT "1 - WUMPUS"
50 TAB 5:PRINT "2 - SUPER WUMPUS"
60 INPUT A5
65 FOR N=1 TO 5:PRINT:NEXT N
200 DIM P(5)
210 H=6+A5
220 DIM L(7)
230 DIM M(7)
240 FOR J=1 TO H
250 L(J)=RND(20)+1
290 FOR J=1 TO H
300 FOR K=J TO H
310 IF J=K OR L(J)#L(K) THEN 330
320 L(K)=RND(20)+1:K=H:J=0
330 NEXT K
340 NEXT J:FOR J=1 TO H:M(J)=L(J):NEXT J
355 A=5
360 R=L(1)
370 PRINT "HUNT THE WUMPUS"
380 IF A5=2 THEN GOSUB 1800
385 GOSUB 4135
390 IF F=-1 THEN 520:IF F=0 THEN 400:IF F=1 THEN 550
400 GOSUB 2000
410 GOSUB 2500
420 IF O=1 THEN 440:IF O=2 THEN 480
440 GOSUB 3000
450 GOTO 490
480 GOSUB 4000
490 IF F=-1 THEN 520:IF F=0 THEN 380:IF F=1 THEN 550
520 PRINT "HA HA HA - YOU LOSE!"
530 GOTO 560
550 PRINT "HEE HEE HEE - THE WUMPUS'LL GETCHA ":PRINT "NEXT TIME!!"
560 FOR J=1 TO 6
570 L(J)=M(J)
580 NEXT J
585 PRINT:PRINT:PRINT
590 PRINT "SAME SET-UP (Y-N)";
600 INPUT I$
605 PRINT:PRINT:PRINT
610 IF I$#"Y" THEN 240
620 GOTO 355
1800 PRINT
1805 IF RND(212)+1>1 THEN 1820
1810 PRINT "DON'T BLINK NOW I HEAR THE WUMPUS":PRINT "SLEEP-WALKING"
1815 L(2)=RND(20)+1
1820 IF RND(12)+1>1 THEN 1850
1825 PRINT "RUMBLE, RUMBLE - YOUR STANDING ON":PRINT "SHAKY GROUND..."
1830 TAB (5):PRINT "NEW PITS HAVE BEEN FORMED BY THE"
1832 TAB (12):PRINT "EARTHQUAKE!!"
1835 L(3)=RND(20)+1
1840 L(4)=RND(20)+1
1845 IF L(4)=L(3) THEN 1840
1850 IF RND(12)+1>1 THEN 1875
1855 PRINT "WHAT A FLAP YOU'RE IN":PRINT "IT'S BAT MIGRATION TIME!!"
1860 L(5)=RND(20)+1
1865 L(6)=RND(20)+1
1870 IF L(6)=L(5) THEN 1865
1875 IF RND(12)+1>1 THEN 1890
1880 PRINT "BUZZ, BUZZ - THE TUMAEROS ARE SWARMING"
1885 L(7)=RND(20)+1
1890 RETURN 
2000 REM 
2010 PRINT
2020 FOR J=2 TO H
2030 FOR K=1 TO 3
2040 IF PEEK (B+K+3*L(1))#ABS (L(J)) THEN 2110
2045 GOTO 2050+((J-1)/2)*10
2050 PRINT "I SMELL A WUMPUS"
2055 GOTO 2110
2060 PRINT "I FEEL A DRAFT"
2065 GOTO 2110
2070 PRINT "BATS NEARBY!"
2075 GOTO 2110
2080 IF A5=2 THEN PRINT "MY ARROWS ARE QUIVERING"
2110 NEXT K
2120 NEXT J
2125 R=L(1)
2130 PRINT "YOU ARE IN ROOM ";L(1)
2140 PRINT "TUNNELS LEAD TO ";PEEK (765+3*R);" ";PEEK (766+3*R);" ";PEEK (767+3*R)
2150 PRINT
2160 RETURN 
2370 F=-1
2500 REM 
2510 PRINT "SHOOT OR MOVE";
2520 INPUT I$
2530 IF I$#"S" THEN 2560
2540 O=1
2550 RETURN 
2560 IF I$#"M" THEN 2510
2570 O=2
2580 RETURN 
3000 REM 
3010 F=0
3040 PRINT "NO. OF ROOMS(1-5)";
3050 INPUT J9
3060 IF J9<1 OR J9>5 THEN 3040
3070 FOR K=1 TO J9
3080 PRINT "ROOM #";
3090 INPUT P(K)
3095 IF K<=2 THEN 3115
3100 IF P(K)<>P(K-1) THEN 3115
3105 PRINT "ARROWS AREN'T THAT CROOKED"
3110 GOTO 3080
3115 NEXT K
3130 R=L(1)
3140 FOR K=1 TO J9
3150 FOR K1=1 TO 3
3160 IF PEEK (B+K+3*R)#P(K) THEN 3170
3165 K1=3:NEXT K1:GOTO 3295
3170 NEXT K1
3190 R=PEEK (765+RND(3)+3*R)
3200 GOTO 3300
3210 NEXT K
3220 PRINT "MISSED!"
3240 GOSUB 3370
3255 A=A-1
3260 IF A>0 THEN RETURN 
3270 F=-1
3280 RETURN 
3295 R=P(K)
3300 IF R#L(2) THEN 3340
3310 PRINT "AHA! YOU GOT THE WUMPUS!"
3320 F=1
3330 K=J9:NEXT K:RETURN 
3340 IF R#L(1) THEN 3210
3350 PRINT "OUCH!ARROW GOT YOU!"
3360 K=J9:NEXT K:GOTO 3270
3370 K=RND(4)+1
3390 IF K=4 THEN 3410
3400 L(2)=PEEK (B+K+3*L(2))
3410 IF L(2)#R THEN 3440
3420 PRINT "TSK TSK TSK- WUMPUS GOT YOU!"
3430 F=-1
3440 RETURN 
4000 REM 
4010 REM 
4020 PRINT "WHERE TO";
4030 INPUT R
4040 IF R<1 OR R>20 THEN 4020
4050 FOR K=1 TO 3
4070 IF PEEK (B+K+3*L(1))#R THEN 4080
4075 K=3:NEXT K:GOTO 4130
4080 NEXT K
4090 IF R=L(1) THEN 4150
4100 PRINT "NOT POSSIBLE -";
4110 GOTO 4020
4130 L(1)=R
4135 F=0
4150 IF R#L(2) THEN 4220
4160 PRINT "...OOP! BUMPED A WUMPUS!"
4180 GOSUB 3380
4190 IF F=0 THEN 4220
4200 RETURN 
4220 IF R#L(3) AND R#L(4) THEN 4270
4230 PRINT "YYYIIIIEEEE...FELL IN PIT"
4240 F=-1
4250 RETURN 
4270 IF R#L(5) AND R#L(6) THEN 4310
4280 PRINT "ZAP--SUPER BAT SNATCH!":PRINT "ELSEWHEREVILLE FOR YOU!"
4290 R=RND(12)+1
4300 GOTO 4130
4310 IF R#ABS (L(7)) OR A5=1 THEN 4360
4320 IF L(7)<0 THEN 4350
4330 PRINT "CHOMP, CHOMP THAT WAS A TASTY ARROW"
4340 GOSUB 3255
4350 L(7)=-L(7)
4360 RETURN 
5000 END 
RUN