00060 REM FIRST PART OF HUNT THE WUMPUS
00070 DIM I$[6]V
00080 PRINT "DO YOU NEED INSTRUCTIONS Y OR N ";
00090 INPUT I$
00100 IF SBS$(I$,1,1) <> "Y" THEN 520
00110 PRINT "WELCOME TO 'HUNT THE WUMPUS'"
00120 PRINT "  THE WUMPUS LIVES IN A CAVE OF 20 ROOMS. EACH ROOM" 
00130 PRINT "HAS 3 TUNNELS LEADING TO OTHER ROOMS. (LOOK AT A"
00140 PRINT "DODECAHEDRON TO SEE HOW THIS WORKS-IF YOU DON'T KNOW"
00150 PRINT "WHAT A DODECAHEDRON IS, ASK SOMEONE)"
00160 PRINT 
00170 PRINT "    HAZARDS:"
00180 PRINT "BOTTOMLESS PITS - TWO ROOMS HAVE BOTTOMLESS PITS IN THEM"
00190 PRINT "    IF YOU GO THERE YOU FALL INTO THE PIT,YOU LOSE!!!"
00200 PRINT "SUPER BATS - TWO OTHER ROOMS HAVE SUPER BATS. IF YOU"
00210 PRINT "    GO THERE, A BAT GRABS YOU AND TAKES YOU TO SOME OTHER" 

00220 PRINT "    ROOM AT RANDOM. (WHICH MIGHT BE TROUBLESOME)"
00230 PRINT 
00240 PRINT "    WUMPUS:" 
00250 PRINT "THE WUMPUS IS NOT BOTHERED BY THE HAZARDS. (HE HAS SUCKER" 

00260 PRINT "FEET AND IS TOO BIG FOR A BAT TO LIFT). USUALLY" 
00270 PRINT "HE IS ASLEEP. TWO THINGS WAKE HIM UP: YOUR ENTERING" 
00280 PRINT "HIS ROOM OR YOUR SHOOTING AN ARROW." 
00290 PRINT "    IF THE WUMPUS WAKES, HE MOVES  ONE ROOM" 
00300 PRINT "OR STAYS STILL . AFTER THAT, IF HE IS WHERE YOU" 
00310 PRINT "ARE, HE EATS YOU UP AND YOU LOSE " 
00320 PRINT 
00330 PRINT "    YOU:"
00340 PRINT "  EACH TURN YOU MAY MOVE OR SHOOT A CROOKED ARROW" 
00360 PRINT "  MOVING: YOU MAY GO ONE ROOM (THRU ONE TUNNEL)" 
00370 PRINT "  ARROWS: YOU HAVE 5 ARROWS. YOU LOSE WHEN YOU RUN OUT." 
00380 PRINT "  EACH ARROW CAN GO FROM 1 TO 5 ROOMS. YOU AIM BY TELLING" 
00390 PRINT "  THE COMPUTER THE NUMBER OF ROOMS YOU WANT THE ARROW TO GO";
00391 PRINT "  TO"
00400 PRINT "  IF THE ARROW CAN'T GO THAT WAY (I.E. NO TUNNEL) IT MOVES"
00410 PRINT "  AT RANDOM TO THE NEXT ROOM." 
00420 PRINT "    IF THE ARROW HITS THE WUMPUS, YOU WIN."
00430 PRINT "    IF THE ARROW HITS YOU, YOU LOSE."
00440 PRINT 
00450 PRINT "    WARNINGS:" 
00460 PRINT "    WHEN YOU ARE ONE ROOM AWAY FROM WUMPUS OR HAZARD," 
00470 PRINT "    THE COMPUTER SAYS:"
00480 PRINT "WUMPUS - 'I SMELL A WUMPUS'" 
00490 PRINT "BAT    - 'BATS NEARBY'"
00500 PRINT "PIT    - 'I FEEL A DRAFT'" 
00510 PRINT " "
00520 CHAIN "[11,20]WUMPUS1"