07-02-88/WAMPUS

Home » CEEFAX disks » telesoftware5.adl » 07-02-88/WAMPUS

07-02-88/WAMPUS

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » CEEFAX disks » telesoftware5.adl
Filename:	07-02-88/WAMPUS
Read OK:	✔
File size:	2FD9 bytes
Load address:	FFFF1900
Exec address:	FFFF801F

Duplicates

There are 2 duplicate copies of this file in the archive:

AEW website » mu » mu_5_25_discs_Micro_User_02_08_D-MU02_08.ssd » WAMPUS
AEW website » mu » mu_Micro_User_02_08_MU2-8_B.uef » WAMPUS
CEEFAX disks » telesoftware5.adl » 07-02-88/WAMPUS

File contents

   10 REM **********************
   20 REM *                    *
   30 REM *  HUNT THE WAMPUS   *
   40 REM *  (C) Micro User    * 
   50 REM *       By           *
   60 REM *   A.DENHAM  1984   *
   70 REM *                    *
   80 REM **********************
  100 MODE7
  110 PROCIN
  120 MODE4
  130 ENVELOPE1,3,-1,-2,-3,255,255,150,100,-3,0,-3,126,80
  140 DIM M(60)
  150 PROCMAP
  170 REM MAIN PROGRAM
  190 AR=3:REM number of arrows
  210 CL$="1A":REM start position
  220 End=0
  230 REM Locate various hazards
  240 L$=CHR$(65+RND(100)MOD3)
  250 WA$=STR$(RND(20))+L$
  260 P1$=STR$(RND(20))+"C"
  270 P2$=STR$(RND(20))+"C"
  280 B1$=STR$(RND(20))+CHR$(65+RND(100)MOD3)
  290 B2$=STR$(RND(20))+CHR$(65+RND(100)MOD3)
  300 S1$=STR$(RND(20))+CHR$(65+RND(100)MOD3)
  310 S2$=STR$(RND(20))+CHR$(65+RND(100)MOD3)
  320 REM Hazards located:check for forbidden locations
  330 IF WA$=B1$ OR WA$=B2$ OR WA$=S1$ OR WA$=S2$ OR WA$=P1$ OR WA$=P2$ OR WA$="1A" OR WA$="2A" OR WA$="5A" OR WA$="11A" OR WA$="1B" THEN GOTO240
  332 IF B1$=B2$ OR B1$=S1$ OR B1$=S2$ OR B1$=P1$ OR B1$=P2$ OR B1$="1A" OR B1$="2A" OR B1$="5A" OR B1$="11A" OR B1$="1B" THEN GOTO240
  334 IF B2$=S1$ OR B2$=S2$ OR B2$=P1$ OR B2$=P2$ OR B2$="1A" OR B2$="2A" OR B2$="5A" OR B2$="11A" OR B2$="1B" THEN GOTO240
  336 IF S1$=S2$ OR S1$=P1$ OR S1$=P2$ OR S1$="1A" OR S1$="2A" OR S1$="5A" OR S1$="11A" OR S1$="1B" THEN GOTO240
  338 IF S2$=P1$ OR S2$=P2$ OR S2$="1A" OR S2$="2A" OR S2$="5A" OR S2$="11A" OR S2$="1B" THEN GOTO240
  350 REM Hazards placed and checked
  370 REM Start of main loop
  385 LV$=RIGHT$(CL$,1):REM level
  390 PROCLOC
  400 RESTORE
  410 LE=LEN(CL$):J$=LEFT$(CL$,LE-1):REM For catching mistakes
  430 REPEAT 
  440 READ N$,O$,P$,Q$,R$,S$
  450 UNTIL N$=CL$:REM locates present position
  470 IF CL$=P1$ OR CL$=P2$ THEN SOUND1,1,200,100:PRINT"AAAAAAAAARRRGH!":PRINT"YOU'VE FALLEN DOWN A BOTTOMLESS PIT.":PROCDEAD:GOTO 170
  480 IF CL$=B1$ OR CL$=B2$ THEN PROCBATS:GOTO370
  490 IF CL$=WA$ THEN PRINT"THE WAMPUS IS IN THIS CAVE!":PRINT:PRINT"IT HAS EATEN YOU.":PRINT:PRINT"THAT WAS RATHER POOR HUNTING!":PROCDEAD:GOTO170
  500 IF CL$=S1$ OR CL$=S2$ THEN PROCSPID
  510 PROCWARNINGS
  511 *FX15,1
  512 IF H=0 THEN PRINT:PRINT"NO OBVIOUS DANGER!"
  520 PROCWAIT
  530 PROCHUNT
  550 IF G$="Y" THEN PROCSHOOT:IF End=1 GOTO170
  560 PRINTTAB(2)"Cave ";CL$;" connects to caves ":PRINT:PRINT SPC(11)O$;", ";P$;", ";Q$
  570 IF LV$="A"THEN 600
  580 IF LV$="B"THEN 610
  590 IF LV$="C"THEN 620
  600 PRINTTAB(2,4)"It also has a shaft going down to ";R$:GOTO630
  610 PRINTTAB(2,4)"It also has shafts up & down to ":PRINT:PRINTSPC(13)R$;" & ";S$:GOTO630
  620 PRINTTAB(2,4)"It also has a shaft going up to ";R$:GOTO630
  630 PRINTTAB(1,8)"Where do you want to go?"
  639 *FX15,1
  640 PRINT:INPUT SPC(10) K$
  645 U$=RIGHT$(K$,1):IF U$<>"A" AND U$<>"B" AND U$<>"C" THEN PRINT"NOT COMPLETE. PLEASE RE-TYPE WITH LETTER":GOTO 640
  660 IF K$=CL$ THEN PRINT"You're already there,silly.":GOTO 640
  670 IF K$<>O$ AND K$<>P$ AND K$<>Q$ AND K$<>R$ AND K$<>S$ THEN PRINT"YOU CAN'T GO STRAIGHT THERE!":PRINT"LOOK AT THE MAP":FOR Co=0 TO 8000:NEXT:CLS:GOTO560
  680 CL$=K$
  690 CLS:GOTO 370
  710 REM End of main loop
  750 DEFPROCWARNINGS 
  760 H=0
  780 IF O$=P1$ OR P$=P1$ OR Q$=P1$ OR R$=P1$ OR S$=P1$ OR O$=P2$ OR P$=P2$ OR Q$=P2$ OR R$=P2$ OR S$=P2$ THEN H=H+1:PRINTTAB(2,7)"YOU CAN FEEL A BIT OF A BREEZE!":PRINT"THIS MUST MEAN THERE IS A PIT NEARBY!"
  790 IF O$=B1$ OR P$=B1$ OR Q$=B1$ OR R$=B1$ OR S$=B1$ OR O$=B2$ OR P$=B2$ OR Q$=B2$ OR R$=B2$ OR S$=B2$ THEN H=H+1:PRINTTAB(2,5)"TWITTER,TWITTER!YOU CAN HEAR BATS!" 
  820 RESTORE 
  830 J=0:W=0
  840 REPEAT
  850 READ A$,B$,C$,D$,E$,F$
  860 UNTIL A$=N$ OR A$=O$ OR A$=P$ OR A$=Q$ OR A$=R$ OR A$=S$
  880 PROCWAMPUS:J=J+1:IF LV$="A" AND J=5 OR LV$="C" AND J=5 OR LV$="B"AND J=6 THEN ENDPROC
  881 IF W=1 THEN ENDPROC
  900 GOTO840
  920 DEFPROCWAMPUS
  930 IF A$=WA$ OR B$=WA$ OR C$=WA$ OR D$=WA$ OR E$=WA$ OR F$=WA$ THEN W=1:GOTO1010
 1010 IF W=1 THEN PRINTTAB(1,10)"GOSH!WHAT A PONG! YOU CAN SMELL WAMPUS!":H=H+1
 1020 ENDPROC
 1040 DEFPROCHUNT
 1050 VDU28,0,13,10,0:REM window
 1060 PRINT:PRINT"Do you want":PRINT"   to try":PRINT:PRINT"  to shoot":PRINT:PRINT"the WAMPUS?":PRINT"    Y/N":PRINT:PRINT"???????????"
 1070 G$=GET$:CLS:VDU28,0,31,39,19
 1080 ENDPROC
 1090 DEFPROCSPID
 1100 PRINT:PRINT"THE SPIDERS HAVE GOT YOU!":FOR T=0 TO 3000:NEXT:PRINT:PRINT"YOU ARE TANGLED UP IN THEIR WEBS!":FOR T=0 TO 6000:NEXT:PRINT:PRINT"YOU CAN HEAR THE WAMPUS MOVING ABOUT!!!":FOR T=0 TO 6000:NEXT
 1110 FOR M=1 TO 2:L$=CHR$(65+INT(RND(1)+0.5)):WA$=STR$(RND(20))+L$:IF WA$=CL$ THEN PRINT"THE WAMPUS HAS COME INTO THIS CAVE!":PRINT"IT IS EATING YOU!":PRINT"YOU ARE DEAD.":PROCDEAD:W=2 ELSE NEXT
 1120 IF End=1 THEN ENDPROC ELSE PRINT:PRINT"THAT WAS LUCKY! IT HAS NOT FOUND YOU.":PRINT:PRINT"YOU CAN GET FREE NOW.":FOR T=0 TO 8000:NEXT:CLS:ENDPROC
 1130 DEFPROCLOC
 1140 VDU28,0,17,9,13
 1150 CLS:PRINTTAB(0,1)"YOU ARE IN":PRINT"  CAVE ";CL$
 1160 VDU28,0,31,39,18:COLOUR128:ENDPROC
 1170 DEFPROCBATS 
 1180 PRINT:PRINT"THE BATS HAVE GOT YOU!":PRINT:FOR T=0 TO 3000:NEXT:PRINT"THEY ARE CARRYING YOU AWAY!"
 1190 CL$=STR$(RND(20))+CHR$(65+RND(100)MOD3) 
 1200 FOR T=0 TO 4000:NEXT
 1210 PRINT:PRINT"THEY'VE DROPPED YOU IN CAVE  "CL$:FOR T=0 TO 8000:NEXT
 1220 CLS:ENDPROC
 1310 DEFPROCDEAD
 1320 FOR Z= 1 TO 2:SOUND 1,-15,60,15:SOUND 1,0,0,1:NEXT
 1330 SOUND 1,-15,60,5:SOUND 1,0,0,1
 1340 SOUND 1,-15,60,15:SOUND 1,0,0,1
 1350 SOUND 1,-15,72,15
 1360 SOUND 1,0,60,1
 1370 SOUND 1,-15,68,5
 1380 SOUND 1,0,0,1
 1390 SOUND 1,-15,68,15
 1400 SOUND 1,0,60,1
 1410 SOUND 1,-15,60,5
 1420 SOUND 1,0,0,1
 1430 SOUND 1,-15,60,15
 1440 SOUND 1,0,60,1
 1450 SOUND 1,-15,52,10
 1460 SOUND 1,0,60,1
 1470 SOUND 1,-15,60,40
 1480 CLS:PRINTTAB(5,7)"YOU ARE DEAD!":End=1
 1490 PROCRERUN:CLS:ENDPROC
 1520 DEFPROCSHOOT
 1530 CLS
 1540 PRINT"YOU HAVE "STR$(AR)" MAGIC ARROWS.":PRINT"THEY WILL GO TO WHICHEVER CAVES YOU WANTUP TO 3 IN A ROW.":PRINT:PRINT"IF YOUR ARROW GOES INTO THE SAME CAVE ASTHE WAMPUS IT KILLS THE POOR BEAST.":PRINT:PRINT"THEN YOU HAVE WON."
 1550 PROCWAIT
 1560 PRINT"THE PROBLEM IS THAT YOU MUST GIVE CLEAR,CORRECT INSTRUCTIONS.":PRINT:PRINT"IF YOU SEND IT OFF WITH ORDERS TO GO TO CAVES THAT ARE NOT CONNECTED,IN ORDER,ITWILL GO OFF AT RANDOM."
 1570 PRINT:PRINT"IT MIGHT EVEN COME BACK AND KILL YOU!"
 1580 PRINT:PRINT"DO YOU STILL WANT TO SHOOT? Y/N"
 1590 G$=GET$:CLS
 1600 IF G$="Y" THEN GOTO 1620
 1610 IF G$="N" THEN ENDPROC:ELSE GOTO 1580
 1620 PRINT:PRINT"WHAT CAVES DO YOU WANT IT TO GO TO?"
 1630 PRINT:INPUT"PLEASE LIST 3  "T$,U$,V$
 1632 IF RIGHT$(T$,1)<>"A" AND RIGHT$(T$,1)<>"B" AND RIGHT$(T$,1)<>"C" THEN GOTO1639
 1633 IF RIGHT$(U$,1)<>"A" AND RIGHT$(U$,1)<>"B" AND RIGHT$(U$,1)<>"C" THEN GOTO1639
 1634 IF RIGHT$(V$,1)<>"A" AND RIGHT$(V$,1)<>"B" AND RIGHT$(V$,1)<>"C" THEN GOTO1639
 1635 GOTO1640
 1639 PRINT"Sorry, numbers & letters please":GOTO1630
 1640 IF T$<>CL$ AND T$<>O$ AND T$<>P$ AND T$<>Q$ AND T$<>R$ AND T$<>S$ THEN PROCKILL:IF End=1 THEN ENDPROC:REM Tests for possible steps
 1650 IF T$=WA$ OR U$=WA$ OR V$=WA$ THEN PROCWIN:PROCRERUN
 1660 IF End=1 THEN ENDPROC
 1670 RESTORE:REPEAT:READ A$,B$,C$,G$,E$,F$: UNTIL A$=T$
 1680 IF U$<>B$ AND U$<>C$ AND U$<>D$ AND U$<>E$ THEN IF LV$="B" AND U$<>F$ THEN J=RND(2):IF J=1 THEN PROCKILL:IF End=1 THEN ENDPROC:REM Check aim
 1690 CLS:FOR Z=0 TO 2000:NEXT:PRINTTAB(2,5)"MISSED...":FOR Z=0 TO 2000:NEXT:PRINTSPC(11)"MISSED...":FOR Z=0 TO 2000:NEXT:PRINTSPC(20)"MISSED!":FOR Z=0 TO 2000:NEXT
 1695 J=RND(10):IF J<4THEN CLS:FOR Z=0 TO 100:NEXT:PRINTTAB(2,5)"DANGER!":FOR Z=0 TO 1000:NEXT:PRINTSPC(11)"DANGER!":FOR Z=0 TO 1000:NEXT:PRINTSPC(20)"DANGER!!!":FOR Z=0 TO 2000:NEXT
 1696 IFJ<4 THEN PRINT"YOU CAN HEAR THE WAMPUS MOVING ABOUT!":PRINT"SHOOTING ARROWS SOMETIMES WAKES HIM UP.":L$=CHR$(65+INT(RND(1)+0.5)):WA$=STR$(RND(20))+L$:IF WA$=CL$ THEN PROCEATEN:IF End=1 THEN ENDPROC
 1697 IF J<4 THEN PRINT"YOU ARE LUCKY - HE HASN'T FOUND YOU.":PRINT"TAKE CARE NOT TO WAKE HIM UP AGAIN!"
 1700 AR=AR-1:IF AR=0 PRINT"YOU HAVE USED UP ALL YOUR ARROWS":PRINT"THE WAMPUS WILL CATCH YOU":PRINT"YOU MIGHT AS WELL BE DEAD":End=1:PROCRERUN
 1710 CLS
 1720 ENDPROC
 1750 DEFPROCKILL
 1760 PRINT:PRINT"BAD INSTRUCTIONS! YOU HAVE SHOT YOURSELF":PROCDEAD
 1770 ENDPROC
 1840 DEFPROCIN
 1850 PRINTTAB(4,7)"Welcome to"
 1860 PRINTTAB(11,11)CHR$(141)"HUNT THE WAMPUS"
 1870 PRINTTAB(11,12)CHR$(141)"HUNT THE WAMPUS"
 1880 PROCHOLD
 1890 PRINTTAB(4,4)"You are going to explore some caves.":PRINT"There are three levels of caves, with":PRINT:PRINT"twenty caves on each level.":PRINT:PRINT"You will see a map in a moment.":PROCHOLD
 1900 PRINTTAB(2,5)"Your job is to hunt and kill a WAMPUS.":PRINT:PRINT"The WAMPUS is a fierce creature that ":PRINT:PRINT"lives underground and eats people!":PRINT:PRINT"It spends most of its time asleep, but"
 1910 PRINT:PRINT"if anyone comes into its group of caves":PRINT:PRINT"it might wake up and move around.":PRINT:PRINT"If it finds you it will eat you.":PROCHOLD
 1920 PRINTTAB(1,5)"There are some other dangers down here.":PRINT:PRINT:PRINT:PRINT"There are two colonies of GIANT BATS.":PRINT:PRINT:PRINT"There are two BOTTOMLESS PITS.":PRINT:PRINT:PRINT"There are some GIANT SPIDERS.":PROCHOLD
 1930 PRINT:PRINT:PRINT"  If you go into the cave with the BATS":PRINT:PRINT"they will pick you up and carry you":PRINT:PRINT"around until they get tired. Then they":PRINT:PRINT"drop you.":PRINT:PRINT"They might drop you in the same cave as"
 1940 PRINT:PRINT"the WAMPUS.":PRINT:PRINT"Then it will eat you.":PRINT:PRINT"You will be able to hear the BATS from":PRINT:PRINT"the next cave":PROCHOLD
 1950 PRINT:PRINT"If you go into a cave with a BOTTOMLESS":PRINT:PRINT"PIT you will fall down it. Then you are ":PRINT"dead.":PRINT:PRINT:PRINT"You will know when you are near a pit   ":PRINT"because you will feel a draught when you"
 1960 PRINT"are in the cave next to it.":PROCHOLD
 1970 PRINT:PRINT:PRINT"You will not see the spiders until after":PRINT"they catch you.":PRINT:PRINT"Just hope that you can get away before":PRINT:PRINT"the WAMPUS visits your cave!":PROCHOLD
 1980 PRINTTAB(2,3)"To help you find the WAMPUS":PRINT:PRINTSPC(4)"(before it finds you)":PRINT:PRINT"you can smell it from two caves away."
 1990 PRINT:PRINT:PRINT:PRINT"When you think you know where the WAMPUS":PRINT"is you can shoot it with magic arrows.":PRINT:PRINT:PRINT"You will find out about those later."
 2000 PRINT:PRINT:PRINT SPC(7)"GOOD LUCK":PRINTTAB(18)"(you might need it!)"
 2010 PROCHOLD
 2020 ENDPROC
 2050 DEFPROCWIN
 2060 FOR Z=1 TO 2
 2070 SOUND 1,-15,48,8
 2080 SOUND 1,0,0,1
 2090 SOUND 1,-15,48,8
 2100 SOUND 1,0,0,1
 2110 SOUND 1,-15,48,16
 2120 SOUND 1,0,0,1
 2130 NEXT
 2140 FOR Z=1 TO 2
 2150 SOUND 1,-15,64,8
 2160 SOUND 1,0,0,1
 2170 NEXT
 2180 SOUND 1,-15,64,16
 2190 SOUND 1,0,0,1
 2200 SOUND 1,-15,56,4
 2210 SOUND 1,0,0,1
 2220 SOUND 1,-15,48,16
 2221 FOR J=1 TO 5
 2222 FOR K=0 TO 7
 2223 VDU19,1,K;0;
 2224 FOR L=1 TO 250:NEXT
 2225 NEXT:NEXT
 2226 VDU19,1,7;0;
 2230 PRINT"YOU'VE KILLED IT":PRINT:PRINT"WELL DONE.":End=1
 2240 ENDPROC
 2260 DEFPROCHOLD:PRINTTAB(8,23)"Press SPACE BAR to go on":K=GET:CLS:ENDPROC
 2280 DEFPROCWAIT:PRINTTAB(8,11)"Press SPACE BAR to go on":G$=GET$:CLS:ENDPROC
 2300 DEFPROCMAP
 2310 VDU23,240,255,255,255,255,255,255,255,255
 2320 VDU 29,810;772;
 2330 FOR Z=1 TO 360:READ A$:NEXT
 2340 VDU5
 2350 FOR C=1 TO 4
 2360 J=0:V=0
 2370 FOR U=1 TO 4
 2380 J=J+1
 2390 IF U=1 THEN S=290
 2400 IF U=2 THEN S=150
 2410 IF U=3 THEN S=210
 2420 IF U=4 THEN S=80
 2430 FOR AN=0 TO 359 STEP 72
 2440 X=1.5*S*SIN(RAD(AN-36*(J MOD 2)))
 2450 Y=S*COS(RAD(AN-36*(J MOD 2)))
 2460 V=V+1
 2470 ON C GOSUB 2540,2550,2610,2630
 2480 NEXT:NEXT:NEXT
 2490 VDU4
 2500 GOTO 2640
 2520 REM Subroutines for graphics
 2540 M(3*V-2)=INT(V):M(3*V-1)=INT(X):M(3*V)=INT(Y):RETURN
 2550 READ P,Q,R,S
 2560 A=M(3*P-1)+16:B=M(3*P)-16
 2570 MOVE A,B:DRAW(M(3*Q-1)+16),(M(3*Q)-16)
 2580 MOVE A,B:DRAW (M(3*R-1)+16),(M(3*R)-16)
 2590 MOVE A,B:DRAW M(3*S-1)+16,M(3*S)-16
 2600 RETURN
 2610 MOVE X,Y
 2620 PRINTCHR$ 240;CHR$ 240:RETURN
 2630 GCOL0,0:MOVE X,Y:PRINT;V:RETURN
 2640 ENDPROC
 2660 DEFPROCRERUN
 2670 PRINT:PRINT"Do you want to have another game? Y/N"
 2672 *FX15,1
 2674 G$=GET$:IF G$="Y" THEN PRINT"Okay, everything is being moved.....":GOTO2690
 2680 IF G$="N" THEN PRINT"O.K.":PRINTSPC(10)"GOODBYE":END:ELSE GOTO2670
 2690 FOR Z=0 TO 6000:NEXT
 2700 FOR Z= 1 TO 5
 2710 VDU19,1,0;0;:FOR M=0 TO 250:NEXT
 2720 VDU19,1,1;0;:FOR M=0 TO 250:NEXT
 2730 NEXT
 2740 CLS:PRINT"OKAY, HERE WE GO":FOR Z=0 TO 4000:NEXT:VDU19,1,7;0;:CLS
 2750 ENDPROC
 2760 DATA "1A","2A","5A","11A","1B","0" 
 2770 DATA "2A","1A","12A","3A","2B","0"
 2780 DATA "3A","2A","13A","4A","3B","0"
 2790 DATA "4A","3A","14A","5A","4B","0"
 2800 DATA "5A","4A","15A","1A","5B","0"
 2810 DATA "6A","12A","11A","16A","6B","0"
 2820 DATA "7A","12A","13A","17A","7B","0"
 2830 DATA "8A","13A","14A","18A","8B","0"
 2840 DATA "9A","14A","19A","15A","9B","0"
 2850 DATA "10A","20A","11A","15A","10B","0"
 2860 DATA "11A","10A","1A","6A","11B","0"
 2870 DATA "12A","2A","6A","7A","12B","0"
 2880 DATA "13A","3A","7A","8A","13B","0"
 2890 DATA "14A","8A","9A","4A","14B","0"
 2900 DATA "15A","9A","5A","10A","15B","0"
 2910 DATA "16A","6A","17A","20A","16B","0"
 2920 DATA "17A","7A","16A","18A","17B","0"
 2930 DATA "18A","17A","8A","19A","18B","0"
 2950 DATA "19A","18A","9A","20A","19B","0"
 2970 DATA "20A","19A","10A","16A","20B","0"
 2980 DATA "1B","2B","5B","11B","1A","1C"
 2990 DATA "2B","1B","12B","3B","2A","2C" 
 3000 DATA "3B","2B","13B","4B","3A","3C"
 3010 DATA "4B","3B","14B","5B","4A","4C"
 3030 DATA "5B","4B","15B","1B","5A","5C"
 3040 DATA "6B","12B","11B","16B","6A","6C"
 3050 DATA "7B","12B","13B","17B","7A","7C"
 3060 DATA "8B","13B","14B","18B","8A","8C"
 3070 DATA "9B","14B","19B","15B","9A","9C"
 3080 DATA "10B","20B","11B","15B","10A","10C"
 3082 DATA "11B","10B","1B","6B","11A","11C"
 3084 DATA "12B","2B","6B","7B","12A","12C"
 3086 DATA "13B","3B","7B","8B","13A","13C"
 3088 DATA "14B","8B","9B","4B","14A","14C"
 3090 DATA "15B","9B","5B","10B","15A","15C"
 3092 DATA "16B","6B","17B","20B","16A","16C"
 3094 DATA "17B","7B","16B","18B","17A","17C"
 3096 DATA "18B","17B","8B","19B","18A","18C"
 3098 DATA "19B","18B","9B","20B","19A","19C"
 3100 DATA "20B","19B","10B","16B","20A","20C"
 3110 DATA "1C","2C","5C","11C","1B","0"
 3112 DATA "2C","1C","12C","3C","2B","0"
 3114 DATA "3C","2C","13C","4C","3B","0"
 3116 DATA "4C","3C","14C","5C","4B","0"
 3118 DATA "5C","4C","15C","1C","5B","0"
 3120 DATA "6C","12C","11C","16C","6B","0"
 3122 DATA "7C","12C","13C","17C","7B","0"
 3124 DATA "8C","13C","14C","18C","8B","0"
 3126 DATA "9C","14C","19C","15C","9B","0"
 3128 DATA "10C","20C","11C","15C","10B","0"
 3130 DATA "11C","10C","1C","6C","11B","0"
 3132 DATA "12C","2C","6C","7C","12B","0"
 3134 DATA "13C","3C","7C","8C","13B","0"
 3136 DATA "14C","8C","9C","4C","14B","0"
 3138 DATA "15C","9C","5C","10C","15B","0"
 3140 DATA "16C","6C","17C","20C","16B","0"
 3142 DATA "17C","7C","16C","18C","17B","0"
 3144 DATA "18C","17C","8C","19C","18B","0"
 3146 DATA "19C","18C","9C","20C","19B","0"
 3148 DATA "20C","19C","10C","16C","20B","0"
 3150 DATA 1,2,11,5,2,1,12,3,3,2,13,4,4,3,14,5,5,4,15,1,6,11,16,12,7,12,17,13,8,13,18,14,9,14,19,15,10,15,20,11,11,10,1,6,12,6,7,2,13,8,7,3,14,9,8,4,15,9,5,10,16,6,20,17,17,16,7,18,18,17,8,19,19,18,9,20,20,19,16,10


 � **********************
 � *                    *
 � *  HUNT THE WAMPUS   *
( � *  (C) Micro User    * 
2 � *       By           *
< � *   A.DENHAM  1984   *
F � *                    *
P � **********************
d �7
n �IN
x �4
�1 �1,3,-1,-2,-3,255,255,150,100,-3,0,-3,126,80
� � M(60)
�	 �MAP
� � MAIN PROGRAM
� AR=3:� number of arrows
� CL$="1A":� start position
�
 End=0
� � Locate various hazards
� L$=�(65+�(100)�3)
� WA$=�(�(20))+L$
 P1$=�(�(20))+"C"
 P2$=�(�(20))+"C"
  B1$=�(�(20))+�(65+�(100)�3)
"  B2$=�(�(20))+�(65+�(100)�3)
,  S1$=�(�(20))+�(65+�(100)�3)
6  S2$=�(�(20))+�(65+�(100)�3)
@4 � Hazards located:check for forbidden locations
J� � WA$=B1$ � WA$=B2$ � WA$=S1$ � WA$=S2$ � WA$=P1$ � WA$=P2$ � WA$="1A" � WA$="2A" � WA$="5A" � WA$="11A" � WA$="1B" � �dp@
Lv � B1$=B2$ � B1$=S1$ � B1$=S2$ � B1$=P1$ � B1$=P2$ � B1$="1A" � B1$="2A" � B1$="5A" � B1$="11A" � B1$="1B" � �dp@
Nl � B2$=S1$ � B2$=S2$ � B2$=P1$ � B2$=P2$ � B2$="1A" � B2$="2A" � B2$="5A" � B2$="11A" � B2$="1B" � �dp@
Pb � S1$=S2$ � S1$=P1$ � S1$=P2$ � S1$="1A" � S1$="2A" � S1$="5A" � S1$="11A" � S1$="1B" � �dp@
RX � S2$=P1$ � S2$=P2$ � S2$="1A" � S2$="2A" � S2$="5A" � S2$="11A" � S2$="1B" � �dp@
^! � Hazards placed and checked
r � Start of main loop
� LV$=�CL$,1):� level
�	 �LOC
� �
�4 LE=�(CL$):J$=�CL$,LE-1):� For catching mistakes
� � 
� � N$,O$,P$,Q$,R$,S$
�( � N$=CL$:� locates present position
�o � CL$=P1$ � CL$=P2$ � �1,1,200,100:�"AAAAAAAAARRRGH!":�"YOU'VE FALLEN DOWN A BOTTOMLESS PIT.":�DEAD:� �tj@
�& � CL$=B1$ � CL$=B2$ � �BATS:�DrA
�u � CL$=WA$ � �"THE WAMPUS IS IN THIS CAVE!":�:�"IT HAS EATEN YOU.":�:�"THAT WAS RATHER POOR HUNTING!":�DEAD:�tj@
�  � CL$=S1$ � CL$=S2$ � �SPID
� �WARNINGS
� *FX15,1
$ � H=0 � �:�"NO OBVIOUS DANGER!"

 �WAIT

 �HUNT
&$ � G$="Y" � �SHOOT:� End=1 �tj@
0F �2)"Cave ";CL$;" connects to caves ":�:� �(11)O$;", ";P$;", ";Q$
: � LV$="A"� �DXB
D � LV$="B"� �DbB
N � LV$="C"� �DlB
X8 �2,4)"It also has a shaft going down to ";R$:�DvB
bG �2,4)"It also has shafts up & down to ":�:�(13)R$;" & ";S$:�DvB
l6 �2,4)"It also has a shaft going up to ";R$:�DvB
v% �1,8)"Where do you want to go?"
 *FX15,1
� �:� �(10) K$
�a U$=�K$,1):� U$<>"A" � U$<>"B" � U$<>"C" � �"NOT COMPLETE. PLEASE RE-TYPE WITH LETTER":� �t@B
�5 � K$=CL$ � �"You're already there,silly.":� �t@B
�~ � K$<>O$ � K$<>P$ � K$<>Q$ � K$<>R$ � K$<>S$ � �"YOU CAN'T GO STRAIGHT THERE!":�"LOOK AT THE MAP":� Co=0 � 8000:�:�:�TpB
� CL$=K$
�
 �:� �DrA
� � End of main loop
� ��WARNINGS 
� H=0
� � O$=P1$ � P$=P1$ � Q$=P1$ � R$=P1$ � S$=P1$ � O$=P2$ � P$=P2$ � Q$=P2$ � R$=P2$ � S$=P2$ � H=H+1:�2,7)"YOU CAN FEEL A BIT OF A BREEZE!":�"THIS MUST MEAN THERE IS A PIT NEARBY!"
� � O$=B1$ � P$=B1$ � Q$=B1$ � R$=B1$ � S$=B1$ � O$=B2$ � P$=B2$ � Q$=B2$ � R$=B2$ � S$=B2$ � H=H+1:�2,5)"TWITTER,TWITTER!YOU CAN HEAR BATS!" 
4 � 
> J=0:W=0
H �
R � A$,B$,C$,D$,E$,F$
\4 � A$=N$ � A$=O$ � A$=P$ � A$=Q$ � A$=R$ � A$=S$
pE �WAMPUS:J=J+1:� LV$="A" � J=5 � LV$="C" � J=5 � LV$="B"� J=6 � �
q � W=1 � �
�
 �DHC
�
 ��WAMPUS
�F � A$=WA$ � B$=WA$ � C$=WA$ � D$=WA$ � E$=WA$ � F$=WA$ � W=1:�drC
�C � W=1 � �1,10)"GOSH!WHAT A PONG! YOU CAN SMELL WAMPUS!":H=H+1
� �
 ��HUNT
 �28,0,13,10,0:� window
$_ �:�"Do you want":�"   to try":�:�"  to shoot":�:�"the WAMPUS?":�"    Y/N":�:�"???????????"
. G$=�:�:�28,0,31,39,19
8 �
B ��SPID
L� �:�"THE SPIDERS HAVE GOT YOU!":� T=0 � 3000:�:�:�"YOU ARE TANGLED UP IN THEIR WEBS!":� T=0 � 6000:�:�:�"YOU CAN HEAR THE WAMPUS MOVING ABOUT!!!":� T=0 � 6000:�
V� � M=1 � 2:L$=�(65+�(�(1)+0.5)):WA$=�(�(20))+L$:� WA$=CL$ � �"THE WAMPUS HAS COME INTO THIS CAVE!":�"IT IS EATING YOU!":�"YOU ARE DEAD.":�DEAD:W=2 � �
`k � End=1 � � � �:�"THAT WAS LUCKY! IT HAS NOT FOUND YOU.":�:�"YOU CAN GET FREE NOW.":� T=0 � 8000:�:�:�
j
 ��LOC
t �28,0,17,9,13
~( �:�0,1)"YOU ARE IN":�"  CAVE ";CL$
� �28,0,31,39,18:�128:�
� ��BATS 
�P �:�"THE BATS HAVE GOT YOU!":�:� T=0 � 3000:�:�"THEY ARE CARRYING YOU AWAY!"
�! CL$=�(�(20))+�(65+�(100)�3) 
� � T=0 � 4000:�
�9 �:�"THEY'VE DROPPED YOU IN CAVE  "CL$:� T=0 � 8000:�
� �:�
 ��DEAD
() � Z= 1 � 2:� 1,-15,60,15:� 1,0,0,1:�
2 � 1,-15,60,5:� 1,0,0,1
< � 1,-15,60,15:� 1,0,0,1
F � 1,-15,72,15
P � 1,0,60,1
Z � 1,-15,68,5
d � 1,0,0,1
n � 1,-15,68,15
x � 1,0,60,1
� � 1,-15,60,5
� � 1,0,0,1
� � 1,-15,60,15
� � 1,0,60,1
� � 1,-15,52,10
� � 1,0,60,1
� � 1,-15,60,40
�" �:�5,7)"YOU ARE DEAD!":End=1
� �RERUN:�:�
� ��SHOOT
� �
� �"YOU HAVE "�(AR)" MAGIC ARROWS.":�"THEY WILL GO TO WHICHEVER CAVES YOU WANTUP TO 3 IN A ROW.":�:�"IF YOUR ARROW GOES INTO THE SAME CAVE ASTHE WAMPUS IT KILLS THE POOR BEAST.":�:�"THEN YOU HAVE WON."

 �WAIT
� �"THE PROBLEM IS THAT YOU MUST GIVE CLEAR,CORRECT INSTRUCTIONS.":�:�"IF YOU SEND IT OFF WITH ORDERS TO GO TO CAVES THAT ARE NOT CONNECTED,IN ORDER,ITWILL GO OFF AT RANDOM."
"/ �:�"IT MIGHT EVEN COME BACK AND KILL YOU!"
,) �:�"DO YOU STILL WANT TO SHOOT? Y/N"
6 G$=�:�
@ � G$="Y" � � �DTF
J � G$="N" � �:� � �TlF
T- �:�"WHAT CAVES DO YOU WANT IT TO GO TO?"
^! �:�"PLEASE LIST 3  "T$,U$,V$
`6 � �T$,1)<>"A" � �T$,1)<>"B" � �T$,1)<>"C" � �DgF
a6 � �U$,1)<>"A" � �U$,1)<>"B" � �U$,1)<>"C" � �DgF
b6 � �V$,1)<>"A" � �V$,1)<>"B" � �V$,1)<>"C" � �DgF
c
 �DhF
g- �"Sorry, numbers & letters please":�D^F
hj � T$<>CL$ � T$<>O$ � T$<>P$ � T$<>Q$ � T$<>R$ � T$<>S$ � �KILL:� End=1 � �:� Tests for possible steps
r- � T$=WA$ � U$=WA$ � V$=WA$ � �WIN:�RERUN
| � End=1 � �
�% �:�:� A$,B$,C$,G$,E$,F$: � A$=T$
�l � U$<>B$ � U$<>C$ � U$<>D$ � U$<>E$ � � LV$="B" � U$<>F$ � J=�(2):� J=1 � �KILL:� End=1 � �:� Check aim
�v �:� Z=0 � 2000:�:�2,5)"MISSED...":� Z=0 � 2000:�:�(11)"MISSED...":� Z=0 � 2000:�:�(20)"MISSED!":� Z=0 � 2000:�
�� J=�(10):� J<4� �:� Z=0 � 100:�:�2,5)"DANGER!":� Z=0 � 1000:�:�(11)"DANGER!":� Z=0 � 1000:�:�(20)"DANGER!!!":� Z=0 � 2000:�
�� �J<4 � �"YOU CAN HEAR THE WAMPUS MOVING ABOUT!":�"SHOOTING ARROWS SOMETIMES WAKES HIM UP.":L$=�(65+�(�(1)+0.5)):WA$=�(�(20))+L$:� WA$=CL$ � �EATEN:� End=1 � �
�[ � J<4 � �"YOU ARE LUCKY - HE HASN'T FOUND YOU.":�"TAKE CARE NOT TO WAKE HIM UP AGAIN!"
�~ AR=AR-1:� AR=0 �"YOU HAVE USED UP ALL YOUR ARROWS":�"THE WAMPUS WILL CATCH YOU":�"YOU MIGHT AS WELL BE DEAD":End=1:�RERUN
� �
� �
� ��KILL
�8 �:�"BAD INSTRUCTIONS! YOU HAVE SHOT YOURSELF":�DEAD
� �
0	 ��IN
: �4,7)"Welcome to"
D$ �11,11)�(141)"HUNT THE WAMPUS"
N$ �11,12)�(141)"HUNT THE WAMPUS"
X
 �HOLD
b� �4,4)"You are going to explore some caves.":�"There are three levels of caves, with":�:�"twenty caves on each level.":�:�"You will see a map in a moment.":�HOLD
l� �2,5)"Your job is to hunt and kill a WAMPUS.":�:�"The WAMPUS is a fierce creature that ":�:�"lives underground and eats people!":�:�"It spends most of its time asleep, but"
v� �:�"if anyone comes into its group of caves":�:�"it might wake up and move around.":�:�"If it finds you it will eat you.":�HOLD
�� �1,5)"There are some other dangers down here.":�:�:�:�"There are two colonies of GIANT BATS.":�:�:�"There are two BOTTOMLESS PITS.":�:�:�"There are some GIANT SPIDERS.":�HOLD
�� �:�:�"  If you go into the cave with the BATS":�:�"they will pick you up and carry you":�:�"around until they get tired. Then they":�:�"drop you.":�:�"They might drop you in the same cave as"
�u �:�"the WAMPUS.":�:�"Then it will eat you.":�:�"You will be able to hear the BATS from":�:�"the next cave":�HOLD
�� �:�"If you go into a cave with a BOTTOMLESS":�:�"PIT you will fall down it. Then you are ":�"dead.":�:�:�"You will know when you are near a pit   ":�"because you will feel a draught when you"
�) �"are in the cave next to it.":�HOLD
�� �:�:�"You will not see the spiders until after":�"they catch you.":�:�"Just hope that you can get away before":�:�"the WAMPUS visits your cave!":�HOLD
�r �2,3)"To help you find the WAMPUS":�:�(4)"(before it finds you)":�:�"you can smell it from two caves away."
ƌ �:�:�:�"When you think you know where the WAMPUS":�"is you can shoot it with magic arrows.":�:�:�"You will find out about those later."
�6 �:�:� �(7)"GOOD LUCK":�18)"(you might need it!)"
�
 �HOLD
� �

 ��WIN
 � Z=1 � 2
 � 1,-15,48,8
  � 1,0,0,1
* � 1,-15,48,8
4 � 1,0,0,1
> � 1,-15,48,16
H � 1,0,0,1
R �
\ � Z=1 � 2
f � 1,-15,64,8
p � 1,0,0,1
z �
� � 1,-15,64,16
� � 1,0,0,1
� � 1,-15,56,4
� � 1,0,0,1
� � 1,-15,48,16
� � J=1 � 5
� � K=0 � 7
� �19,1,K;0;
� � L=1 � 250:�
� �:�
� �19,1,7;0;
�. �"YOU'VE KILLED IT":�:�"WELL DONE.":End=1
� �
�5 ��HOLD:�8,23)"Press SPACE BAR to go on":K=�:�:�
�6 ��WAIT:�8,11)"Press SPACE BAR to go on":G$=�:�:�
�
 ��MAP
	, �23,240,255,255,255,255,255,255,255,255
	 � 29,810;772;
	 � Z=1 � 360:� A$:�
	$ �5
	. � C=1 � 4
	8 J=0:V=0
	B � U=1 � 4
	L
 J=J+1
	V � U=1 � S=290
	` � U=2 � S=150
	j � U=3 � S=210
	t � U=4 � S=80
	~ � AN=0 � 359 � 72
	�  X=1.5*S*�(�(AN-36*(J � 2)))
	� Y=S*�(�(AN-36*(J � 2)))
	�
 V=V+1
	� � C � �dlI,�dvI,�TrJ,�DFJ
	�
 �:�:�
	� �4
	� � �DPJ
	� � Subroutines for graphics
	�. M(3*V-2)=�(V):M(3*V-1)=�(X):M(3*V)=�(Y):�
	� � P,Q,R,S
 A=M(3*P-1)+16:B=M(3*P)-16

% � A,B:�(M(3*Q-1)+16),(M(3*Q)-16)
& � A,B:� (M(3*R-1)+16),(M(3*R)-16)
" � A,B:� M(3*S-1)+16,M(3*S)-16
( �
2
 � X,Y
< � 240;� 240:�
F �0,0:� X,Y:�;V:�
P �
d ��RERUN
n/ �:�"Do you want to have another game? Y/N"
p *FX15,1
rB G$=�:� G$="Y" � �"Okay, everything is being moved.....":�tBJ
x1 � G$="N" � �"O.K.":�(10)"GOODBYE":�:� �DnJ
� � Z=0 � 6000:�
� � Z= 1 � 5
� �19,1,0;0;:� M=0 � 250:�
� �19,1,1;0;:� M=0 � 250:�
� �
�6 �:�"OKAY, HERE WE GO":� Z=0 � 4000:�:�19,1,7;0;:�
� �
�% � "1A","2A","5A","11A","1B","0" 
�$ � "2A","1A","12A","3A","2B","0"
�$ � "3A","2A","13A","4A","3B","0"
�$ � "4A","3A","14A","5A","4B","0"
�$ � "5A","4A","15A","1A","5B","0"
�& � "6A","12A","11A","16A","6B","0"
& � "7A","12A","13A","17A","7B","0"
& � "8A","13A","14A","18A","8B","0"
& � "9A","14A","19A","15A","9B","0"
"( � "10A","20A","11A","15A","10B","0"
,& � "11A","10A","1A","6A","11B","0"
6% � "12A","2A","6A","7A","12B","0"
@% � "13A","3A","7A","8A","13B","0"
J% � "14A","8A","9A","4A","14B","0"
T& � "15A","9A","5A","10A","15B","0"
^' � "16A","6A","17A","20A","16B","0"
h' � "17A","7A","16A","18A","17B","0"
r' � "18A","17A","8A","19A","18B","0"
�' � "19A","18A","9A","20A","19B","0"
�( � "20A","19A","10A","16A","20B","0"
�% � "1B","2B","5B","11B","1A","1C"
�& � "2B","1B","12B","3B","2A","2C" 
�% � "3B","2B","13B","4B","3A","3C"
�% � "4B","3B","14B","5B","4A","4C"
�% � "5B","4B","15B","1B","5A","5C"
�' � "6B","12B","11B","16B","6A","6C"
�' � "7B","12B","13B","17B","7A","7C"
�' � "8B","13B","14B","18B","8A","8C"
�' � "9B","14B","19B","15B","9A","9C"
* � "10B","20B","11B","15B","10A","10C"

( � "11B","10B","1B","6B","11A","11C"
' � "12B","2B","6B","7B","12A","12C"
' � "13B","3B","7B","8B","13A","13C"
' � "14B","8B","9B","4B","14A","14C"
( � "15B","9B","5B","10B","15A","15C"
) � "16B","6B","17B","20B","16A","16C"
) � "17B","7B","16B","18B","17A","17C"
) � "18B","17B","8B","19B","18A","18C"
) � "19B","18B","9B","20B","19A","19C"
* � "20B","19B","10B","16B","20A","20C"
&$ � "1C","2C","5C","11C","1B","0"
($ � "2C","1C","12C","3C","2B","0"
*$ � "3C","2C","13C","4C","3B","0"
,$ � "4C","3C","14C","5C","4B","0"
.$ � "5C","4C","15C","1C","5B","0"
0& � "6C","12C","11C","16C","6B","0"
2& � "7C","12C","13C","17C","7B","0"
4& � "8C","13C","14C","18C","8B","0"
6& � "9C","14C","19C","15C","9B","0"
8( � "10C","20C","11C","15C","10B","0"
:& � "11C","10C","1C","6C","11B","0"
<% � "12C","2C","6C","7C","12B","0"
>% � "13C","3C","7C","8C","13B","0"
@% � "14C","8C","9C","4C","14B","0"
B& � "15C","9C","5C","10C","15B","0"
D' � "16C","6C","17C","20C","16B","0"
F' � "17C","7C","16C","18C","17B","0"
H' � "18C","17C","8C","19C","18B","0"
J' � "19C","18C","9C","20C","19B","0"
L( � "20C","19C","10C","16C","20B","0"
N� � 1,2,11,5,2,1,12,3,3,2,13,4,4,3,14,5,5,4,15,1,6,11,16,12,7,12,17,13,8,13,18,14,9,14,19,15,10,15,20,11,11,10,1,6,12,6,7,2,13,8,7,3,14,9,8,4,15,9,5,10,16,6,20,17,17,16,7,18,18,17,8,19,19,18,9,20,20,19,16,10
�

00000000  0d 00 0a 1d 20 f4 20 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.... . *********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 00 14  |*************...|
00000020  1d 20 f4 20 2a 20 20 20  20 20 20 20 20 20 20 20  |. . *           |
00000030  20 20 20 20 20 20 20 20  20 2a 0d 00 1e 1d 20 f4  |         *.... .|
00000040  20 2a 20 20 48 55 4e 54  20 54 48 45 20 57 41 4d  | *  HUNT THE WAM|
00000050  50 55 53 20 20 20 2a 0d  00 28 1e 20 f4 20 2a 20  |PUS   *..(. . * |
00000060  20 28 43 29 20 4d 69 63  72 6f 20 55 73 65 72 20  | (C) Micro User |
00000070  20 20 20 2a 20 0d 00 32  1d 20 f4 20 2a 20 20 20  |   * ..2. . *   |
00000080  20 20 20 20 42 79 20 20  20 20 20 20 20 20 20 20  |    By          |
00000090  20 2a 0d 00 3c 1d 20 f4  20 2a 20 20 20 41 2e 44  | *..<. . *   A.D|
000000a0  45 4e 48 41 4d 20 20 31  39 38 34 20 20 20 2a 0d  |ENHAM  1984   *.|
000000b0  00 46 1d 20 f4 20 2a 20  20 20 20 20 20 20 20 20  |.F. . *         |
000000c0  20 20 20 20 20 20 20 20  20 20 20 2a 0d 00 50 1d  |           *..P.|
000000d0  20 f4 20 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  | . *************|
000000e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 00 64 07 20 eb 37  |*********..d. .7|
000000f0  0d 00 6e 08 20 f2 49 4e  0d 00 78 07 20 eb 34 0d  |..n. .IN..x. .4.|
00000100  00 82 31 20 e2 31 2c 33  2c 2d 31 2c 2d 32 2c 2d  |..1 .1,3,-1,-2,-|
00000110  33 2c 32 35 35 2c 32 35  35 2c 31 35 30 2c 31 30  |3,255,255,150,10|
00000120  30 2c 2d 33 2c 30 2c 2d  33 2c 31 32 36 2c 38 30  |0,-3,0,-3,126,80|
00000130  0d 00 8c 0c 20 de 20 4d  28 36 30 29 0d 00 96 09  |.... . M(60)....|
00000140  20 f2 4d 41 50 0d 00 aa  13 20 f4 20 4d 41 49 4e  | .MAP.... . MAIN|
00000150  20 50 52 4f 47 52 41 4d  0d 00 be 1c 20 41 52 3d  | PROGRAM.... AR=|
00000160  33 3a f4 20 6e 75 6d 62  65 72 20 6f 66 20 61 72  |3:. number of ar|
00000170  72 6f 77 73 0d 00 d2 1e  20 43 4c 24 3d 22 31 41  |rows.... CL$="1A|
00000180  22 3a f4 20 73 74 61 72  74 20 70 6f 73 69 74 69  |":. start positi|
00000190  6f 6e 0d 00 dc 0a 20 45  6e 64 3d 30 0d 00 e6 1d  |on.... End=0....|
000001a0  20 f4 20 4c 6f 63 61 74  65 20 76 61 72 69 6f 75  | . Locate variou|
000001b0  73 20 68 61 7a 61 72 64  73 0d 00 f0 16 20 4c 24  |s hazards.... L$|
000001c0  3d bd 28 36 35 2b b3 28  31 30 30 29 83 33 29 0d  |=.(65+.(100).3).|
000001d0  00 fa 14 20 57 41 24 3d  c3 28 b3 28 32 30 29 29  |... WA$=.(.(20))|
000001e0  2b 4c 24 0d 01 04 15 20  50 31 24 3d c3 28 b3 28  |+L$.... P1$=.(.(|
000001f0  32 30 29 29 2b 22 43 22  0d 01 0e 15 20 50 32 24  |20))+"C".... P2$|
00000200  3d c3 28 b3 28 32 30 29  29 2b 22 43 22 0d 01 18  |=.(.(20))+"C"...|
00000210  20 20 42 31 24 3d c3 28  b3 28 32 30 29 29 2b bd  |  B1$=.(.(20))+.|
00000220  28 36 35 2b b3 28 31 30  30 29 83 33 29 0d 01 22  |(65+.(100).3).."|
00000230  20 20 42 32 24 3d c3 28  b3 28 32 30 29 29 2b bd  |  B2$=.(.(20))+.|
00000240  28 36 35 2b b3 28 31 30  30 29 83 33 29 0d 01 2c  |(65+.(100).3)..,|
00000250  20 20 53 31 24 3d c3 28  b3 28 32 30 29 29 2b bd  |  S1$=.(.(20))+.|
00000260  28 36 35 2b b3 28 31 30  30 29 83 33 29 0d 01 36  |(65+.(100).3)..6|
00000270  20 20 53 32 24 3d c3 28  b3 28 32 30 29 29 2b bd  |  S2$=.(.(20))+.|
00000280  28 36 35 2b b3 28 31 30  30 29 83 33 29 0d 01 40  |(65+.(100).3)..@|
00000290  34 20 f4 20 48 61 7a 61  72 64 73 20 6c 6f 63 61  |4 . Hazards loca|
000002a0  74 65 64 3a 63 68 65 63  6b 20 66 6f 72 20 66 6f  |ted:check for fo|
000002b0  72 62 69 64 64 65 6e 20  6c 6f 63 61 74 69 6f 6e  |rbidden location|
000002c0  73 0d 01 4a 80 20 e7 20  57 41 24 3d 42 31 24 20  |s..J. . WA$=B1$ |
000002d0  84 20 57 41 24 3d 42 32  24 20 84 20 57 41 24 3d  |. WA$=B2$ . WA$=|
000002e0  53 31 24 20 84 20 57 41  24 3d 53 32 24 20 84 20  |S1$ . WA$=S2$ . |
000002f0  57 41 24 3d 50 31 24 20  84 20 57 41 24 3d 50 32  |WA$=P1$ . WA$=P2|
00000300  24 20 84 20 57 41 24 3d  22 31 41 22 20 84 20 57  |$ . WA$="1A" . W|
00000310  41 24 3d 22 32 41 22 20  84 20 57 41 24 3d 22 35  |A$="2A" . WA$="5|
00000320  41 22 20 84 20 57 41 24  3d 22 31 31 41 22 20 84  |A" . WA$="11A" .|
00000330  20 57 41 24 3d 22 31 42  22 20 8c 20 e5 8d 64 70  | WA$="1B" . ..dp|
00000340  40 0d 01 4c 76 20 e7 20  42 31 24 3d 42 32 24 20  |@..Lv . B1$=B2$ |
00000350  84 20 42 31 24 3d 53 31  24 20 84 20 42 31 24 3d  |. B1$=S1$ . B1$=|
00000360  53 32 24 20 84 20 42 31  24 3d 50 31 24 20 84 20  |S2$ . B1$=P1$ . |
00000370  42 31 24 3d 50 32 24 20  84 20 42 31 24 3d 22 31  |B1$=P2$ . B1$="1|
00000380  41 22 20 84 20 42 31 24  3d 22 32 41 22 20 84 20  |A" . B1$="2A" . |
00000390  42 31 24 3d 22 35 41 22  20 84 20 42 31 24 3d 22  |B1$="5A" . B1$="|
000003a0  31 31 41 22 20 84 20 42  31 24 3d 22 31 42 22 20  |11A" . B1$="1B" |
000003b0  8c 20 e5 8d 64 70 40 0d  01 4e 6c 20 e7 20 42 32  |. ..dp@..Nl . B2|
000003c0  24 3d 53 31 24 20 84 20  42 32 24 3d 53 32 24 20  |$=S1$ . B2$=S2$ |
000003d0  84 20 42 32 24 3d 50 31  24 20 84 20 42 32 24 3d  |. B2$=P1$ . B2$=|
000003e0  50 32 24 20 84 20 42 32  24 3d 22 31 41 22 20 84  |P2$ . B2$="1A" .|
000003f0  20 42 32 24 3d 22 32 41  22 20 84 20 42 32 24 3d  | B2$="2A" . B2$=|
00000400  22 35 41 22 20 84 20 42  32 24 3d 22 31 31 41 22  |"5A" . B2$="11A"|
00000410  20 84 20 42 32 24 3d 22  31 42 22 20 8c 20 e5 8d  | . B2$="1B" . ..|
00000420  64 70 40 0d 01 50 62 20  e7 20 53 31 24 3d 53 32  |dp@..Pb . S1$=S2|
00000430  24 20 84 20 53 31 24 3d  50 31 24 20 84 20 53 31  |$ . S1$=P1$ . S1|
00000440  24 3d 50 32 24 20 84 20  53 31 24 3d 22 31 41 22  |$=P2$ . S1$="1A"|
00000450  20 84 20 53 31 24 3d 22  32 41 22 20 84 20 53 31  | . S1$="2A" . S1|
00000460  24 3d 22 35 41 22 20 84  20 53 31 24 3d 22 31 31  |$="5A" . S1$="11|
00000470  41 22 20 84 20 53 31 24  3d 22 31 42 22 20 8c 20  |A" . S1$="1B" . |
00000480  e5 8d 64 70 40 0d 01 52  58 20 e7 20 53 32 24 3d  |..dp@..RX . S2$=|
00000490  50 31 24 20 84 20 53 32  24 3d 50 32 24 20 84 20  |P1$ . S2$=P2$ . |
000004a0  53 32 24 3d 22 31 41 22  20 84 20 53 32 24 3d 22  |S2$="1A" . S2$="|
000004b0  32 41 22 20 84 20 53 32  24 3d 22 35 41 22 20 84  |2A" . S2$="5A" .|
000004c0  20 53 32 24 3d 22 31 31  41 22 20 84 20 53 32 24  | S2$="11A" . S2$|
000004d0  3d 22 31 42 22 20 8c 20  e5 8d 64 70 40 0d 01 5e  |="1B" . ..dp@..^|
000004e0  21 20 f4 20 48 61 7a 61  72 64 73 20 70 6c 61 63  |! . Hazards plac|
000004f0  65 64 20 61 6e 64 20 63  68 65 63 6b 65 64 0d 01  |ed and checked..|
00000500  72 19 20 f4 20 53 74 61  72 74 20 6f 66 20 6d 61  |r. . Start of ma|
00000510  69 6e 20 6c 6f 6f 70 0d  01 81 18 20 4c 56 24 3d  |in loop.... LV$=|
00000520  c2 43 4c 24 2c 31 29 3a  f4 20 6c 65 76 65 6c 0d  |.CL$,1):. level.|
00000530  01 86 09 20 f2 4c 4f 43  0d 01 90 06 20 f7 0d 01  |... .LOC.... ...|
00000540  9a 34 20 4c 45 3d a9 28  43 4c 24 29 3a 4a 24 3d  |.4 LE=.(CL$):J$=|
00000550  c0 43 4c 24 2c 4c 45 2d  31 29 3a f4 20 46 6f 72  |.CL$,LE-1):. For|
00000560  20 63 61 74 63 68 69 6e  67 20 6d 69 73 74 61 6b  | catching mistak|
00000570  65 73 0d 01 ae 07 20 f5  20 0d 01 b8 18 20 f3 20  |es.... . .... . |
00000580  4e 24 2c 4f 24 2c 50 24  2c 51 24 2c 52 24 2c 53  |N$,O$,P$,Q$,R$,S|
00000590  24 0d 01 c2 28 20 fd 20  4e 24 3d 43 4c 24 3a f4  |$...( . N$=CL$:.|
000005a0  20 6c 6f 63 61 74 65 73  20 70 72 65 73 65 6e 74  | locates present|
000005b0  20 70 6f 73 69 74 69 6f  6e 0d 01 d6 6f 20 e7 20  | position...o . |
000005c0  43 4c 24 3d 50 31 24 20  84 20 43 4c 24 3d 50 32  |CL$=P1$ . CL$=P2|
000005d0  24 20 8c 20 d4 31 2c 31  2c 32 30 30 2c 31 30 30  |$ . .1,1,200,100|
000005e0  3a f1 22 41 41 41 41 41  41 41 41 41 52 52 52 47  |:."AAAAAAAAARRRG|
000005f0  48 21 22 3a f1 22 59 4f  55 27 56 45 20 46 41 4c  |H!":."YOU'VE FAL|
00000600  4c 45 4e 20 44 4f 57 4e  20 41 20 42 4f 54 54 4f  |LEN DOWN A BOTTO|
00000610  4d 4c 45 53 53 20 50 49  54 2e 22 3a f2 44 45 41  |MLESS PIT.":.DEA|
00000620  44 3a e5 20 8d 74 6a 40  0d 01 e0 26 20 e7 20 43  |D:. .tj@...& . C|
00000630  4c 24 3d 42 31 24 20 84  20 43 4c 24 3d 42 32 24  |L$=B1$ . CL$=B2$|
00000640  20 8c 20 f2 42 41 54 53  3a e5 8d 44 72 41 0d 01  | . .BATS:..DrA..|
00000650  ea 75 20 e7 20 43 4c 24  3d 57 41 24 20 8c 20 f1  |.u . CL$=WA$ . .|
00000660  22 54 48 45 20 57 41 4d  50 55 53 20 49 53 20 49  |"THE WAMPUS IS I|
00000670  4e 20 54 48 49 53 20 43  41 56 45 21 22 3a f1 3a  |N THIS CAVE!":.:|
00000680  f1 22 49 54 20 48 41 53  20 45 41 54 45 4e 20 59  |."IT HAS EATEN Y|
00000690  4f 55 2e 22 3a f1 3a f1  22 54 48 41 54 20 57 41  |OU.":.:."THAT WA|
000006a0  53 20 52 41 54 48 45 52  20 50 4f 4f 52 20 48 55  |S RATHER POOR HU|
000006b0  4e 54 49 4e 47 21 22 3a  f2 44 45 41 44 3a e5 8d  |NTING!":.DEAD:..|
000006c0  74 6a 40 0d 01 f4 20 20  e7 20 43 4c 24 3d 53 31  |tj@...  . CL$=S1|
000006d0  24 20 84 20 43 4c 24 3d  53 32 24 20 8c 20 f2 53  |$ . CL$=S2$ . .S|
000006e0  50 49 44 0d 01 fe 0e 20  f2 57 41 52 4e 49 4e 47  |PID.... .WARNING|
000006f0  53 0d 01 ff 0c 20 2a 46  58 31 35 2c 31 0d 02 00  |S.... *FX15,1...|
00000700  24 20 e7 20 48 3d 30 20  8c 20 f1 3a f1 22 4e 4f  |$ . H=0 . .:."NO|
00000710  20 4f 42 56 49 4f 55 53  20 44 41 4e 47 45 52 21  | OBVIOUS DANGER!|
00000720  22 0d 02 08 0a 20 f2 57  41 49 54 0d 02 12 0a 20  |".... .WAIT.... |
00000730  f2 48 55 4e 54 0d 02 26  24 20 e7 20 47 24 3d 22  |.HUNT..&$ . G$="|
00000740  59 22 20 8c 20 f2 53 48  4f 4f 54 3a e7 20 45 6e  |Y" . .SHOOT:. En|
00000750  64 3d 31 20 e5 8d 74 6a  40 0d 02 30 46 20 f1 8a  |d=1 ..tj@..0F ..|
00000760  32 29 22 43 61 76 65 20  22 3b 43 4c 24 3b 22 20  |2)"Cave ";CL$;" |
00000770  63 6f 6e 6e 65 63 74 73  20 74 6f 20 63 61 76 65  |connects to cave|
00000780  73 20 22 3a f1 3a f1 20  89 28 31 31 29 4f 24 3b  |s ":.:. .(11)O$;|
00000790  22 2c 20 22 3b 50 24 3b  22 2c 20 22 3b 51 24 0d  |", ";P$;", ";Q$.|
000007a0  02 3a 14 20 e7 20 4c 56  24 3d 22 41 22 8c 20 8d  |.:. . LV$="A". .|
000007b0  44 58 42 0d 02 44 14 20  e7 20 4c 56 24 3d 22 42  |DXB..D. . LV$="B|
000007c0  22 8c 20 8d 44 62 42 0d  02 4e 14 20 e7 20 4c 56  |". .DbB..N. . LV|
000007d0  24 3d 22 43 22 8c 20 8d  44 6c 42 0d 02 58 38 20  |$="C". .DlB..X8 |
000007e0  f1 8a 32 2c 34 29 22 49  74 20 61 6c 73 6f 20 68  |..2,4)"It also h|
000007f0  61 73 20 61 20 73 68 61  66 74 20 67 6f 69 6e 67  |as a shaft going|
00000800  20 64 6f 77 6e 20 74 6f  20 22 3b 52 24 3a e5 8d  | down to ";R$:..|
00000810  44 76 42 0d 02 62 47 20  f1 8a 32 2c 34 29 22 49  |DvB..bG ..2,4)"I|
00000820  74 20 61 6c 73 6f 20 68  61 73 20 73 68 61 66 74  |t also has shaft|
00000830  73 20 75 70 20 26 20 64  6f 77 6e 20 74 6f 20 22  |s up & down to "|
00000840  3a f1 3a f1 89 28 31 33  29 52 24 3b 22 20 26 20  |:.:..(13)R$;" & |
00000850  22 3b 53 24 3a e5 8d 44  76 42 0d 02 6c 36 20 f1  |";S$:..DvB..l6 .|
00000860  8a 32 2c 34 29 22 49 74  20 61 6c 73 6f 20 68 61  |.2,4)"It also ha|
00000870  73 20 61 20 73 68 61 66  74 20 67 6f 69 6e 67 20  |s a shaft going |
00000880  75 70 20 74 6f 20 22 3b  52 24 3a e5 8d 44 76 42  |up to ";R$:..DvB|
00000890  0d 02 76 25 20 f1 8a 31  2c 38 29 22 57 68 65 72  |..v% ..1,8)"Wher|
000008a0  65 20 64 6f 20 79 6f 75  20 77 61 6e 74 20 74 6f  |e do you want to|
000008b0  20 67 6f 3f 22 0d 02 7f  0c 20 2a 46 58 31 35 2c  | go?".... *FX15,|
000008c0  31 0d 02 80 11 20 f1 3a  e8 20 89 28 31 30 29 20  |1.... .:. .(10) |
000008d0  4b 24 0d 02 85 61 20 55  24 3d c2 4b 24 2c 31 29  |K$...a U$=.K$,1)|
000008e0  3a e7 20 55 24 3c 3e 22  41 22 20 80 20 55 24 3c  |:. U$<>"A" . U$<|
000008f0  3e 22 42 22 20 80 20 55  24 3c 3e 22 43 22 20 8c  |>"B" . U$<>"C" .|
00000900  20 f1 22 4e 4f 54 20 43  4f 4d 50 4c 45 54 45 2e  | ."NOT COMPLETE.|
00000910  20 50 4c 45 41 53 45 20  52 45 2d 54 59 50 45 20  | PLEASE RE-TYPE |
00000920  57 49 54 48 20 4c 45 54  54 45 52 22 3a e5 20 8d  |WITH LETTER":. .|
00000930  74 40 42 0d 02 94 35 20  e7 20 4b 24 3d 43 4c 24  |t@B...5 . K$=CL$|
00000940  20 8c 20 f1 22 59 6f 75  27 72 65 20 61 6c 72 65  | . ."You're alre|
00000950  61 64 79 20 74 68 65 72  65 2c 73 69 6c 6c 79 2e  |ady there,silly.|
00000960  22 3a e5 20 8d 74 40 42  0d 02 9e 7e 20 e7 20 4b  |":. .t@B...~ . K|
00000970  24 3c 3e 4f 24 20 80 20  4b 24 3c 3e 50 24 20 80  |$<>O$ . K$<>P$ .|
00000980  20 4b 24 3c 3e 51 24 20  80 20 4b 24 3c 3e 52 24  | K$<>Q$ . K$<>R$|
00000990  20 80 20 4b 24 3c 3e 53  24 20 8c 20 f1 22 59 4f  | . K$<>S$ . ."YO|
000009a0  55 20 43 41 4e 27 54 20  47 4f 20 53 54 52 41 49  |U CAN'T GO STRAI|
000009b0  47 48 54 20 54 48 45 52  45 21 22 3a f1 22 4c 4f  |GHT THERE!":."LO|
000009c0  4f 4b 20 41 54 20 54 48  45 20 4d 41 50 22 3a e3  |OK AT THE MAP":.|
000009d0  20 43 6f 3d 30 20 b8 20  38 30 30 30 3a ed 3a db  | Co=0 . 8000:.:.|
000009e0  3a e5 8d 54 70 42 0d 02  a8 0b 20 43 4c 24 3d 4b  |:..TpB.... CL$=K|
000009f0  24 0d 02 b2 0d 20 db 3a  e5 20 8d 44 72 41 0d 02  |$.... .:. .DrA..|
00000a00  c6 17 20 f4 20 45 6e 64  20 6f 66 20 6d 61 69 6e  |.. . End of main|
00000a10  20 6c 6f 6f 70 0d 02 ee  10 20 dd f2 57 41 52 4e  | loop.... ..WARN|
00000a20  49 4e 47 53 20 0d 02 f8  08 20 48 3d 30 0d 03 0c  |INGS .... H=0...|
00000a30  b7 20 e7 20 4f 24 3d 50  31 24 20 84 20 50 24 3d  |. . O$=P1$ . P$=|
00000a40  50 31 24 20 84 20 51 24  3d 50 31 24 20 84 20 52  |P1$ . Q$=P1$ . R|
00000a50  24 3d 50 31 24 20 84 20  53 24 3d 50 31 24 20 84  |$=P1$ . S$=P1$ .|
00000a60  20 4f 24 3d 50 32 24 20  84 20 50 24 3d 50 32 24  | O$=P2$ . P$=P2$|
00000a70  20 84 20 51 24 3d 50 32  24 20 84 20 52 24 3d 50  | . Q$=P2$ . R$=P|
00000a80  32 24 20 84 20 53 24 3d  50 32 24 20 8c 20 48 3d  |2$ . S$=P2$ . H=|
00000a90  48 2b 31 3a f1 8a 32 2c  37 29 22 59 4f 55 20 43  |H+1:..2,7)"YOU C|
00000aa0  41 4e 20 46 45 45 4c 20  41 20 42 49 54 20 4f 46  |AN FEEL A BIT OF|
00000ab0  20 41 20 42 52 45 45 5a  45 21 22 3a f1 22 54 48  | A BREEZE!":."TH|
00000ac0  49 53 20 4d 55 53 54 20  4d 45 41 4e 20 54 48 45  |IS MUST MEAN THE|
00000ad0  52 45 20 49 53 20 41 20  50 49 54 20 4e 45 41 52  |RE IS A PIT NEAR|
00000ae0  42 59 21 22 0d 03 16 92  20 e7 20 4f 24 3d 42 31  |BY!".... . O$=B1|
00000af0  24 20 84 20 50 24 3d 42  31 24 20 84 20 51 24 3d  |$ . P$=B1$ . Q$=|
00000b00  42 31 24 20 84 20 52 24  3d 42 31 24 20 84 20 53  |B1$ . R$=B1$ . S|
00000b10  24 3d 42 31 24 20 84 20  4f 24 3d 42 32 24 20 84  |$=B1$ . O$=B2$ .|
00000b20  20 50 24 3d 42 32 24 20  84 20 51 24 3d 42 32 24  | P$=B2$ . Q$=B2$|
00000b30  20 84 20 52 24 3d 42 32  24 20 84 20 53 24 3d 42  | . R$=B2$ . S$=B|
00000b40  32 24 20 8c 20 48 3d 48  2b 31 3a f1 8a 32 2c 35  |2$ . H=H+1:..2,5|
00000b50  29 22 54 57 49 54 54 45  52 2c 54 57 49 54 54 45  |)"TWITTER,TWITTE|
00000b60  52 21 59 4f 55 20 43 41  4e 20 48 45 41 52 20 42  |R!YOU CAN HEAR B|
00000b70  41 54 53 21 22 20 0d 03  34 07 20 f7 20 0d 03 3e  |ATS!" ..4. . ..>|
00000b80  0c 20 4a 3d 30 3a 57 3d  30 0d 03 48 06 20 f5 0d  |. J=0:W=0..H. ..|
00000b90  03 52 18 20 f3 20 41 24  2c 42 24 2c 43 24 2c 44  |.R. . A$,B$,C$,D|
00000ba0  24 2c 45 24 2c 46 24 0d  03 5c 34 20 fd 20 41 24  |$,E$,F$..\4 . A$|
00000bb0  3d 4e 24 20 84 20 41 24  3d 4f 24 20 84 20 41 24  |=N$ . A$=O$ . A$|
00000bc0  3d 50 24 20 84 20 41 24  3d 51 24 20 84 20 41 24  |=P$ . A$=Q$ . A$|
00000bd0  3d 52 24 20 84 20 41 24  3d 53 24 0d 03 70 45 20  |=R$ . A$=S$..pE |
00000be0  f2 57 41 4d 50 55 53 3a  4a 3d 4a 2b 31 3a e7 20  |.WAMPUS:J=J+1:. |
00000bf0  4c 56 24 3d 22 41 22 20  80 20 4a 3d 35 20 84 20  |LV$="A" . J=5 . |
00000c00  4c 56 24 3d 22 43 22 20  80 20 4a 3d 35 20 84 20  |LV$="C" . J=5 . |
00000c10  4c 56 24 3d 22 42 22 80  20 4a 3d 36 20 8c 20 e1  |LV$="B". J=6 . .|
00000c20  0d 03 71 0e 20 e7 20 57  3d 31 20 8c 20 e1 0d 03  |..q. . W=1 . ...|
00000c30  84 0a 20 e5 8d 44 48 43  0d 03 98 0d 20 dd f2 57  |.. ..DHC.... ..W|
00000c40  41 4d 50 55 53 0d 03 a2  46 20 e7 20 41 24 3d 57  |AMPUS...F . A$=W|
00000c50  41 24 20 84 20 42 24 3d  57 41 24 20 84 20 43 24  |A$ . B$=WA$ . C$|
00000c60  3d 57 41 24 20 84 20 44  24 3d 57 41 24 20 84 20  |=WA$ . D$=WA$ . |
00000c70  45 24 3d 57 41 24 20 84  20 46 24 3d 57 41 24 20  |E$=WA$ . F$=WA$ |
00000c80  8c 20 57 3d 31 3a e5 8d  64 72 43 0d 03 f2 43 20  |. W=1:..drC...C |
00000c90  e7 20 57 3d 31 20 8c 20  f1 8a 31 2c 31 30 29 22  |. W=1 . ..1,10)"|
00000ca0  47 4f 53 48 21 57 48 41  54 20 41 20 50 4f 4e 47  |GOSH!WHAT A PONG|
00000cb0  21 20 59 4f 55 20 43 41  4e 20 53 4d 45 4c 4c 20  |! YOU CAN SMELL |
00000cc0  57 41 4d 50 55 53 21 22  3a 48 3d 48 2b 31 0d 03  |WAMPUS!":H=H+1..|
00000cd0  fc 06 20 e1 0d 04 10 0b  20 dd f2 48 55 4e 54 0d  |.. ..... ..HUNT.|
00000ce0  04 1a 1b 20 ef 32 38 2c  30 2c 31 33 2c 31 30 2c  |... .28,0,13,10,|
00000cf0  30 3a f4 20 77 69 6e 64  6f 77 0d 04 24 5f 20 f1  |0:. window..$_ .|
00000d00  3a f1 22 44 6f 20 79 6f  75 20 77 61 6e 74 22 3a  |:."Do you want":|
00000d10  f1 22 20 20 20 74 6f 20  74 72 79 22 3a f1 3a f1  |."   to try":.:.|
00000d20  22 20 20 74 6f 20 73 68  6f 6f 74 22 3a f1 3a f1  |"  to shoot":.:.|
00000d30  22 74 68 65 20 57 41 4d  50 55 53 3f 22 3a f1 22  |"the WAMPUS?":."|
00000d40  20 20 20 20 59 2f 4e 22  3a f1 3a f1 22 3f 3f 3f  |    Y/N":.:."???|
00000d50  3f 3f 3f 3f 3f 3f 3f 3f  22 0d 04 2e 1a 20 47 24  |????????".... G$|
00000d60  3d be 3a db 3a ef 32 38  2c 30 2c 33 31 2c 33 39  |=.:.:.28,0,31,39|
00000d70  2c 31 39 0d 04 38 06 20  e1 0d 04 42 0b 20 dd f2  |,19..8. ...B. ..|
00000d80  53 50 49 44 0d 04 4c a4  20 f1 3a f1 22 54 48 45  |SPID..L. .:."THE|
00000d90  20 53 50 49 44 45 52 53  20 48 41 56 45 20 47 4f  | SPIDERS HAVE GO|
00000da0  54 20 59 4f 55 21 22 3a  e3 20 54 3d 30 20 b8 20  |T YOU!":. T=0 . |
00000db0  33 30 30 30 3a ed 3a f1  3a f1 22 59 4f 55 20 41  |3000:.:.:."YOU A|
00000dc0  52 45 20 54 41 4e 47 4c  45 44 20 55 50 20 49 4e  |RE TANGLED UP IN|
00000dd0  20 54 48 45 49 52 20 57  45 42 53 21 22 3a e3 20  | THEIR WEBS!":. |
00000de0  54 3d 30 20 b8 20 36 30  30 30 3a ed 3a f1 3a f1  |T=0 . 6000:.:.:.|
00000df0  22 59 4f 55 20 43 41 4e  20 48 45 41 52 20 54 48  |"YOU CAN HEAR TH|
00000e00  45 20 57 41 4d 50 55 53  20 4d 4f 56 49 4e 47 20  |E WAMPUS MOVING |
00000e10  41 42 4f 55 54 21 21 21  22 3a e3 20 54 3d 30 20  |ABOUT!!!":. T=0 |
00000e20  b8 20 36 30 30 30 3a ed  0d 04 56 9a 20 e3 20 4d  |. 6000:...V. . M|
00000e30  3d 31 20 b8 20 32 3a 4c  24 3d bd 28 36 35 2b a8  |=1 . 2:L$=.(65+.|
00000e40  28 b3 28 31 29 2b 30 2e  35 29 29 3a 57 41 24 3d  |(.(1)+0.5)):WA$=|
00000e50  c3 28 b3 28 32 30 29 29  2b 4c 24 3a e7 20 57 41  |.(.(20))+L$:. WA|
00000e60  24 3d 43 4c 24 20 8c 20  f1 22 54 48 45 20 57 41  |$=CL$ . ."THE WA|
00000e70  4d 50 55 53 20 48 41 53  20 43 4f 4d 45 20 49 4e  |MPUS HAS COME IN|
00000e80  54 4f 20 54 48 49 53 20  43 41 56 45 21 22 3a f1  |TO THIS CAVE!":.|
00000e90  22 49 54 20 49 53 20 45  41 54 49 4e 47 20 59 4f  |"IT IS EATING YO|
00000ea0  55 21 22 3a f1 22 59 4f  55 20 41 52 45 20 44 45  |U!":."YOU ARE DE|
00000eb0  41 44 2e 22 3a f2 44 45  41 44 3a 57 3d 32 20 8b  |AD.":.DEAD:W=2 .|
00000ec0  20 ed 0d 04 60 6b 20 e7  20 45 6e 64 3d 31 20 8c  | ...`k . End=1 .|
00000ed0  20 e1 20 8b 20 f1 3a f1  22 54 48 41 54 20 57 41  | . . .:."THAT WA|
00000ee0  53 20 4c 55 43 4b 59 21  20 49 54 20 48 41 53 20  |S LUCKY! IT HAS |
00000ef0  4e 4f 54 20 46 4f 55 4e  44 20 59 4f 55 2e 22 3a  |NOT FOUND YOU.":|
00000f00  f1 3a f1 22 59 4f 55 20  43 41 4e 20 47 45 54 20  |.:."YOU CAN GET |
00000f10  46 52 45 45 20 4e 4f 57  2e 22 3a e3 20 54 3d 30  |FREE NOW.":. T=0|
00000f20  20 b8 20 38 30 30 30 3a  ed 3a db 3a e1 0d 04 6a  | . 8000:.:.:...j|
00000f30  0a 20 dd f2 4c 4f 43 0d  04 74 12 20 ef 32 38 2c  |. ..LOC..t. .28,|
00000f40  30 2c 31 37 2c 39 2c 31  33 0d 04 7e 28 20 db 3a  |0,17,9,13..~( .:|
00000f50  f1 8a 30 2c 31 29 22 59  4f 55 20 41 52 45 20 49  |..0,1)"YOU ARE I|
00000f60  4e 22 3a f1 22 20 20 43  41 56 45 20 22 3b 43 4c  |N":."  CAVE ";CL|
00000f70  24 0d 04 88 1a 20 ef 32  38 2c 30 2c 33 31 2c 33  |$.... .28,0,31,3|
00000f80  39 2c 31 38 3a fb 31 32  38 3a e1 0d 04 92 0c 20  |9,18:.128:..... |
00000f90  dd f2 42 41 54 53 20 0d  04 9c 50 20 f1 3a f1 22  |..BATS ...P .:."|
00000fa0  54 48 45 20 42 41 54 53  20 48 41 56 45 20 47 4f  |THE BATS HAVE GO|
00000fb0  54 20 59 4f 55 21 22 3a  f1 3a e3 20 54 3d 30 20  |T YOU!":.:. T=0 |
00000fc0  b8 20 33 30 30 30 3a ed  3a f1 22 54 48 45 59 20  |. 3000:.:."THEY |
00000fd0  41 52 45 20 43 41 52 52  59 49 4e 47 20 59 4f 55  |ARE CARRYING YOU|
00000fe0  20 41 57 41 59 21 22 0d  04 a6 21 20 43 4c 24 3d  | AWAY!"...! CL$=|
00000ff0  c3 28 b3 28 32 30 29 29  2b bd 28 36 35 2b b3 28  |.(.(20))+.(65+.(|
00001000  31 30 30 29 83 33 29 20  0d 04 b0 13 20 e3 20 54  |100).3) .... . T|
00001010  3d 30 20 b8 20 34 30 30  30 3a ed 0d 04 ba 39 20  |=0 . 4000:....9 |
00001020  f1 3a f1 22 54 48 45 59  27 56 45 20 44 52 4f 50  |.:."THEY'VE DROP|
00001030  50 45 44 20 59 4f 55 20  49 4e 20 43 41 56 45 20  |PED YOU IN CAVE |
00001040  20 22 43 4c 24 3a e3 20  54 3d 30 20 b8 20 38 30  | "CL$:. T=0 . 80|
00001050  30 30 3a ed 0d 04 c4 08  20 db 3a e1 0d 05 1e 0b  |00:..... .:.....|
00001060  20 dd f2 44 45 41 44 0d  05 28 29 20 e3 20 5a 3d  | ..DEAD..() . Z=|
00001070  20 31 20 b8 20 32 3a d4  20 31 2c 2d 31 35 2c 36  | 1 . 2:. 1,-15,6|
00001080  30 2c 31 35 3a d4 20 31  2c 30 2c 30 2c 31 3a ed  |0,15:. 1,0,0,1:.|
00001090  0d 05 32 1b 20 d4 20 31  2c 2d 31 35 2c 36 30 2c  |..2. . 1,-15,60,|
000010a0  35 3a d4 20 31 2c 30 2c  30 2c 31 0d 05 3c 1c 20  |5:. 1,0,0,1..<. |
000010b0  d4 20 31 2c 2d 31 35 2c  36 30 2c 31 35 3a d4 20  |. 1,-15,60,15:. |
000010c0  31 2c 30 2c 30 2c 31 0d  05 46 12 20 d4 20 31 2c  |1,0,0,1..F. . 1,|
000010d0  2d 31 35 2c 37 32 2c 31  35 0d 05 50 0f 20 d4 20  |-15,72,15..P. . |
000010e0  31 2c 30 2c 36 30 2c 31  0d 05 5a 11 20 d4 20 31  |1,0,60,1..Z. . 1|
000010f0  2c 2d 31 35 2c 36 38 2c  35 0d 05 64 0e 20 d4 20  |,-15,68,5..d. . |
00001100  31 2c 30 2c 30 2c 31 0d  05 6e 12 20 d4 20 31 2c  |1,0,0,1..n. . 1,|
00001110  2d 31 35 2c 36 38 2c 31  35 0d 05 78 0f 20 d4 20  |-15,68,15..x. . |
00001120  31 2c 30 2c 36 30 2c 31  0d 05 82 11 20 d4 20 31  |1,0,60,1.... . 1|
00001130  2c 2d 31 35 2c 36 30 2c  35 0d 05 8c 0e 20 d4 20  |,-15,60,5.... . |
00001140  31 2c 30 2c 30 2c 31 0d  05 96 12 20 d4 20 31 2c  |1,0,0,1.... . 1,|
00001150  2d 31 35 2c 36 30 2c 31  35 0d 05 a0 0f 20 d4 20  |-15,60,15.... . |
00001160  31 2c 30 2c 36 30 2c 31  0d 05 aa 12 20 d4 20 31  |1,0,60,1.... . 1|
00001170  2c 2d 31 35 2c 35 32 2c  31 30 0d 05 b4 0f 20 d4  |,-15,52,10.... .|
00001180  20 31 2c 30 2c 36 30 2c  31 0d 05 be 12 20 d4 20  | 1,0,60,1.... . |
00001190  31 2c 2d 31 35 2c 36 30  2c 34 30 0d 05 c8 22 20  |1,-15,60,40..." |
000011a0  db 3a f1 8a 35 2c 37 29  22 59 4f 55 20 41 52 45  |.:..5,7)"YOU ARE|
000011b0  20 44 45 41 44 21 22 3a  45 6e 64 3d 31 0d 05 d2  | DEAD!":End=1...|
000011c0  0f 20 f2 52 45 52 55 4e  3a db 3a e1 0d 05 f0 0c  |. .RERUN:.:.....|
000011d0  20 dd f2 53 48 4f 4f 54  0d 05 fa 06 20 db 0d 06  | ..SHOOT.... ...|
000011e0  04 cc 20 f1 22 59 4f 55  20 48 41 56 45 20 22 c3  |.. ."YOU HAVE ".|
000011f0  28 41 52 29 22 20 4d 41  47 49 43 20 41 52 52 4f  |(AR)" MAGIC ARRO|
00001200  57 53 2e 22 3a f1 22 54  48 45 59 20 57 49 4c 4c  |WS.":."THEY WILL|
00001210  20 47 4f 20 54 4f 20 57  48 49 43 48 45 56 45 52  | GO TO WHICHEVER|
00001220  20 43 41 56 45 53 20 59  4f 55 20 57 41 4e 54 55  | CAVES YOU WANTU|
00001230  50 20 54 4f 20 33 20 49  4e 20 41 20 52 4f 57 2e  |P TO 3 IN A ROW.|
00001240  22 3a f1 3a f1 22 49 46  20 59 4f 55 52 20 41 52  |":.:."IF YOUR AR|
00001250  52 4f 57 20 47 4f 45 53  20 49 4e 54 4f 20 54 48  |ROW GOES INTO TH|
00001260  45 20 53 41 4d 45 20 43  41 56 45 20 41 53 54 48  |E SAME CAVE ASTH|
00001270  45 20 57 41 4d 50 55 53  20 49 54 20 4b 49 4c 4c  |E WAMPUS IT KILL|
00001280  53 20 54 48 45 20 50 4f  4f 52 20 42 45 41 53 54  |S THE POOR BEAST|
00001290  2e 22 3a f1 3a f1 22 54  48 45 4e 20 59 4f 55 20  |.":.:."THEN YOU |
000012a0  48 41 56 45 20 57 4f 4e  2e 22 0d 06 0e 0a 20 f2  |HAVE WON.".... .|
000012b0  57 41 49 54 0d 06 18 b1  20 f1 22 54 48 45 20 50  |WAIT.... ."THE P|
000012c0  52 4f 42 4c 45 4d 20 49  53 20 54 48 41 54 20 59  |ROBLEM IS THAT Y|
000012d0  4f 55 20 4d 55 53 54 20  47 49 56 45 20 43 4c 45  |OU MUST GIVE CLE|
000012e0  41 52 2c 43 4f 52 52 45  43 54 20 49 4e 53 54 52  |AR,CORRECT INSTR|
000012f0  55 43 54 49 4f 4e 53 2e  22 3a f1 3a f1 22 49 46  |UCTIONS.":.:."IF|
00001300  20 59 4f 55 20 53 45 4e  44 20 49 54 20 4f 46 46  | YOU SEND IT OFF|
00001310  20 57 49 54 48 20 4f 52  44 45 52 53 20 54 4f 20  | WITH ORDERS TO |
00001320  47 4f 20 54 4f 20 43 41  56 45 53 20 54 48 41 54  |GO TO CAVES THAT|
00001330  20 41 52 45 20 4e 4f 54  20 43 4f 4e 4e 45 43 54  | ARE NOT CONNECT|
00001340  45 44 2c 49 4e 20 4f 52  44 45 52 2c 49 54 57 49  |ED,IN ORDER,ITWI|
00001350  4c 4c 20 47 4f 20 4f 46  46 20 41 54 20 52 41 4e  |LL GO OFF AT RAN|
00001360  44 4f 4d 2e 22 0d 06 22  2f 20 f1 3a f1 22 49 54  |DOM.".."/ .:."IT|
00001370  20 4d 49 47 48 54 20 45  56 45 4e 20 43 4f 4d 45  | MIGHT EVEN COME|
00001380  20 42 41 43 4b 20 41 4e  44 20 4b 49 4c 4c 20 59  | BACK AND KILL Y|
00001390  4f 55 21 22 0d 06 2c 29  20 f1 3a f1 22 44 4f 20  |OU!"..,) .:."DO |
000013a0  59 4f 55 20 53 54 49 4c  4c 20 57 41 4e 54 20 54  |YOU STILL WANT T|
000013b0  4f 20 53 48 4f 4f 54 3f  20 59 2f 4e 22 0d 06 36  |O SHOOT? Y/N"..6|
000013c0  0b 20 47 24 3d be 3a db  0d 06 40 16 20 e7 20 47  |. G$=.:...@. . G|
000013d0  24 3d 22 59 22 20 8c 20  e5 20 8d 44 54 46 0d 06  |$="Y" . . .DTF..|
000013e0  4a 1a 20 e7 20 47 24 3d  22 4e 22 20 8c 20 e1 3a  |J. . G$="N" . .:|
000013f0  8b 20 e5 20 8d 54 6c 46  0d 06 54 2d 20 f1 3a f1  |. . .TlF..T- .:.|
00001400  22 57 48 41 54 20 43 41  56 45 53 20 44 4f 20 59  |"WHAT CAVES DO Y|
00001410  4f 55 20 57 41 4e 54 20  49 54 20 54 4f 20 47 4f  |OU WANT IT TO GO|
00001420  20 54 4f 3f 22 0d 06 5e  21 20 f1 3a e8 22 50 4c  | TO?"..^! .:."PL|
00001430  45 41 53 45 20 4c 49 53  54 20 33 20 20 22 54 24  |EASE LIST 3  "T$|
00001440  2c 55 24 2c 56 24 0d 06  60 36 20 e7 20 c2 54 24  |,U$,V$..`6 . .T$|
00001450  2c 31 29 3c 3e 22 41 22  20 80 20 c2 54 24 2c 31  |,1)<>"A" . .T$,1|
00001460  29 3c 3e 22 42 22 20 80  20 c2 54 24 2c 31 29 3c  |)<>"B" . .T$,1)<|
00001470  3e 22 43 22 20 8c 20 e5  8d 44 67 46 0d 06 61 36  |>"C" . ..DgF..a6|
00001480  20 e7 20 c2 55 24 2c 31  29 3c 3e 22 41 22 20 80  | . .U$,1)<>"A" .|
00001490  20 c2 55 24 2c 31 29 3c  3e 22 42 22 20 80 20 c2  | .U$,1)<>"B" . .|
000014a0  55 24 2c 31 29 3c 3e 22  43 22 20 8c 20 e5 8d 44  |U$,1)<>"C" . ..D|
000014b0  67 46 0d 06 62 36 20 e7  20 c2 56 24 2c 31 29 3c  |gF..b6 . .V$,1)<|
000014c0  3e 22 41 22 20 80 20 c2  56 24 2c 31 29 3c 3e 22  |>"A" . .V$,1)<>"|
000014d0  42 22 20 80 20 c2 56 24  2c 31 29 3c 3e 22 43 22  |B" . .V$,1)<>"C"|
000014e0  20 8c 20 e5 8d 44 67 46  0d 06 63 0a 20 e5 8d 44  | . ..DgF..c. ..D|
000014f0  68 46 0d 06 67 2d 20 f1  22 53 6f 72 72 79 2c 20  |hF..g- ."Sorry, |
00001500  6e 75 6d 62 65 72 73 20  26 20 6c 65 74 74 65 72  |numbers & letter|
00001510  73 20 70 6c 65 61 73 65  22 3a e5 8d 44 5e 46 0d  |s please":..D^F.|
00001520  06 68 6a 20 e7 20 54 24  3c 3e 43 4c 24 20 80 20  |.hj . T$<>CL$ . |
00001530  54 24 3c 3e 4f 24 20 80  20 54 24 3c 3e 50 24 20  |T$<>O$ . T$<>P$ |
00001540  80 20 54 24 3c 3e 51 24  20 80 20 54 24 3c 3e 52  |. T$<>Q$ . T$<>R|
00001550  24 20 80 20 54 24 3c 3e  53 24 20 8c 20 f2 4b 49  |$ . T$<>S$ . .KI|
00001560  4c 4c 3a e7 20 45 6e 64  3d 31 20 8c 20 e1 3a f4  |LL:. End=1 . .:.|
00001570  20 54 65 73 74 73 20 66  6f 72 20 70 6f 73 73 69  | Tests for possi|
00001580  62 6c 65 20 73 74 65 70  73 0d 06 72 2d 20 e7 20  |ble steps..r- . |
00001590  54 24 3d 57 41 24 20 84  20 55 24 3d 57 41 24 20  |T$=WA$ . U$=WA$ |
000015a0  84 20 56 24 3d 57 41 24  20 8c 20 f2 57 49 4e 3a  |. V$=WA$ . .WIN:|
000015b0  f2 52 45 52 55 4e 0d 06  7c 10 20 e7 20 45 6e 64  |.RERUN..|. . End|
000015c0  3d 31 20 8c 20 e1 0d 06  86 25 20 f7 3a f5 3a f3  |=1 . ....% .:.:.|
000015d0  20 41 24 2c 42 24 2c 43  24 2c 47 24 2c 45 24 2c  | A$,B$,C$,G$,E$,|
000015e0  46 24 3a 20 fd 20 41 24  3d 54 24 0d 06 90 6c 20  |F$: . A$=T$...l |
000015f0  e7 20 55 24 3c 3e 42 24  20 80 20 55 24 3c 3e 43  |. U$<>B$ . U$<>C|
00001600  24 20 80 20 55 24 3c 3e  44 24 20 80 20 55 24 3c  |$ . U$<>D$ . U$<|
00001610  3e 45 24 20 8c 20 e7 20  4c 56 24 3d 22 42 22 20  |>E$ . . LV$="B" |
00001620  80 20 55 24 3c 3e 46 24  20 8c 20 4a 3d b3 28 32  |. U$<>F$ . J=.(2|
00001630  29 3a e7 20 4a 3d 31 20  8c 20 f2 4b 49 4c 4c 3a  |):. J=1 . .KILL:|
00001640  e7 20 45 6e 64 3d 31 20  8c 20 e1 3a f4 20 43 68  |. End=1 . .:. Ch|
00001650  65 63 6b 20 61 69 6d 0d  06 9a 76 20 db 3a e3 20  |eck aim...v .:. |
00001660  5a 3d 30 20 b8 20 32 30  30 30 3a ed 3a f1 8a 32  |Z=0 . 2000:.:..2|
00001670  2c 35 29 22 4d 49 53 53  45 44 2e 2e 2e 22 3a e3  |,5)"MISSED...":.|
00001680  20 5a 3d 30 20 b8 20 32  30 30 30 3a ed 3a f1 89  | Z=0 . 2000:.:..|
00001690  28 31 31 29 22 4d 49 53  53 45 44 2e 2e 2e 22 3a  |(11)"MISSED...":|
000016a0  e3 20 5a 3d 30 20 b8 20  32 30 30 30 3a ed 3a f1  |. Z=0 . 2000:.:.|
000016b0  89 28 32 30 29 22 4d 49  53 53 45 44 21 22 3a e3  |.(20)"MISSED!":.|
000016c0  20 5a 3d 30 20 b8 20 32  30 30 30 3a ed 0d 06 9f  | Z=0 . 2000:....|
000016d0  82 20 4a 3d b3 28 31 30  29 3a e7 20 4a 3c 34 8c  |. J=.(10):. J<4.|
000016e0  20 db 3a e3 20 5a 3d 30  20 b8 20 31 30 30 3a ed  | .:. Z=0 . 100:.|
000016f0  3a f1 8a 32 2c 35 29 22  44 41 4e 47 45 52 21 22  |:..2,5)"DANGER!"|
00001700  3a e3 20 5a 3d 30 20 b8  20 31 30 30 30 3a ed 3a  |:. Z=0 . 1000:.:|
00001710  f1 89 28 31 31 29 22 44  41 4e 47 45 52 21 22 3a  |..(11)"DANGER!":|
00001720  e3 20 5a 3d 30 20 b8 20  31 30 30 30 3a ed 3a f1  |. Z=0 . 1000:.:.|
00001730  89 28 32 30 29 22 44 41  4e 47 45 52 21 21 21 22  |.(20)"DANGER!!!"|
00001740  3a e3 20 5a 3d 30 20 b8  20 32 30 30 30 3a ed 0d  |:. Z=0 . 2000:..|
00001750  06 a0 a3 20 e7 4a 3c 34  20 8c 20 f1 22 59 4f 55  |... .J<4 . ."YOU|
00001760  20 43 41 4e 20 48 45 41  52 20 54 48 45 20 57 41  | CAN HEAR THE WA|
00001770  4d 50 55 53 20 4d 4f 56  49 4e 47 20 41 42 4f 55  |MPUS MOVING ABOU|
00001780  54 21 22 3a f1 22 53 48  4f 4f 54 49 4e 47 20 41  |T!":."SHOOTING A|
00001790  52 52 4f 57 53 20 53 4f  4d 45 54 49 4d 45 53 20  |RROWS SOMETIMES |
000017a0  57 41 4b 45 53 20 48 49  4d 20 55 50 2e 22 3a 4c  |WAKES HIM UP.":L|
000017b0  24 3d bd 28 36 35 2b a8  28 b3 28 31 29 2b 30 2e  |$=.(65+.(.(1)+0.|
000017c0  35 29 29 3a 57 41 24 3d  c3 28 b3 28 32 30 29 29  |5)):WA$=.(.(20))|
000017d0  2b 4c 24 3a e7 20 57 41  24 3d 43 4c 24 20 8c 20  |+L$:. WA$=CL$ . |
000017e0  f2 45 41 54 45 4e 3a e7  20 45 6e 64 3d 31 20 8c  |.EATEN:. End=1 .|
000017f0  20 e1 0d 06 a1 5b 20 e7  20 4a 3c 34 20 8c 20 f1  | ....[ . J<4 . .|
00001800  22 59 4f 55 20 41 52 45  20 4c 55 43 4b 59 20 2d  |"YOU ARE LUCKY -|
00001810  20 48 45 20 48 41 53 4e  27 54 20 46 4f 55 4e 44  | HE HASN'T FOUND|
00001820  20 59 4f 55 2e 22 3a f1  22 54 41 4b 45 20 43 41  | YOU.":."TAKE CA|
00001830  52 45 20 4e 4f 54 20 54  4f 20 57 41 4b 45 20 48  |RE NOT TO WAKE H|
00001840  49 4d 20 55 50 20 41 47  41 49 4e 21 22 0d 06 a4  |IM UP AGAIN!"...|
00001850  7e 20 41 52 3d 41 52 2d  31 3a e7 20 41 52 3d 30  |~ AR=AR-1:. AR=0|
00001860  20 f1 22 59 4f 55 20 48  41 56 45 20 55 53 45 44  | ."YOU HAVE USED|
00001870  20 55 50 20 41 4c 4c 20  59 4f 55 52 20 41 52 52  | UP ALL YOUR ARR|
00001880  4f 57 53 22 3a f1 22 54  48 45 20 57 41 4d 50 55  |OWS":."THE WAMPU|
00001890  53 20 57 49 4c 4c 20 43  41 54 43 48 20 59 4f 55  |S WILL CATCH YOU|
000018a0  22 3a f1 22 59 4f 55 20  4d 49 47 48 54 20 41 53  |":."YOU MIGHT AS|
000018b0  20 57 45 4c 4c 20 42 45  20 44 45 41 44 22 3a 45  | WELL BE DEAD":E|
000018c0  6e 64 3d 31 3a f2 52 45  52 55 4e 0d 06 ae 06 20  |nd=1:.RERUN.... |
000018d0  db 0d 06 b8 06 20 e1 0d  06 d6 0b 20 dd f2 4b 49  |..... ..... ..KI|
000018e0  4c 4c 0d 06 e0 38 20 f1  3a f1 22 42 41 44 20 49  |LL...8 .:."BAD I|
000018f0  4e 53 54 52 55 43 54 49  4f 4e 53 21 20 59 4f 55  |NSTRUCTIONS! YOU|
00001900  20 48 41 56 45 20 53 48  4f 54 20 59 4f 55 52 53  | HAVE SHOT YOURS|
00001910  45 4c 46 22 3a f2 44 45  41 44 0d 06 ea 06 20 e1  |ELF":.DEAD.... .|
00001920  0d 07 30 09 20 dd f2 49  4e 0d 07 3a 17 20 f1 8a  |..0. ..IN..:. ..|
00001930  34 2c 37 29 22 57 65 6c  63 6f 6d 65 20 74 6f 22  |4,7)"Welcome to"|
00001940  0d 07 44 24 20 f1 8a 31  31 2c 31 31 29 bd 28 31  |..D$ ..11,11).(1|
00001950  34 31 29 22 48 55 4e 54  20 54 48 45 20 57 41 4d  |41)"HUNT THE WAM|
00001960  50 55 53 22 0d 07 4e 24  20 f1 8a 31 31 2c 31 32  |PUS"..N$ ..11,12|
00001970  29 bd 28 31 34 31 29 22  48 55 4e 54 20 54 48 45  |).(141)"HUNT THE|
00001980  20 57 41 4d 50 55 53 22  0d 07 58 0a 20 f2 48 4f  | WAMPUS"..X. .HO|
00001990  4c 44 0d 07 62 a6 20 f1  8a 34 2c 34 29 22 59 6f  |LD..b. ..4,4)"Yo|
000019a0  75 20 61 72 65 20 67 6f  69 6e 67 20 74 6f 20 65  |u are going to e|
000019b0  78 70 6c 6f 72 65 20 73  6f 6d 65 20 63 61 76 65  |xplore some cave|
000019c0  73 2e 22 3a f1 22 54 68  65 72 65 20 61 72 65 20  |s.":."There are |
000019d0  74 68 72 65 65 20 6c 65  76 65 6c 73 20 6f 66 20  |three levels of |
000019e0  63 61 76 65 73 2c 20 77  69 74 68 22 3a f1 3a f1  |caves, with":.:.|
000019f0  22 74 77 65 6e 74 79 20  63 61 76 65 73 20 6f 6e  |"twenty caves on|
00001a00  20 65 61 63 68 20 6c 65  76 65 6c 2e 22 3a f1 3a  | each level.":.:|
00001a10  f1 22 59 6f 75 20 77 69  6c 6c 20 73 65 65 20 61  |."You will see a|
00001a20  20 6d 61 70 20 69 6e 20  61 20 6d 6f 6d 65 6e 74  | map in a moment|
00001a30  2e 22 3a f2 48 4f 4c 44  0d 07 6c b2 20 f1 8a 32  |.":.HOLD..l. ..2|
00001a40  2c 35 29 22 59 6f 75 72  20 6a 6f 62 20 69 73 20  |,5)"Your job is |
00001a50  74 6f 20 68 75 6e 74 20  61 6e 64 20 6b 69 6c 6c  |to hunt and kill|
00001a60  20 61 20 57 41 4d 50 55  53 2e 22 3a f1 3a f1 22  | a WAMPUS.":.:."|
00001a70  54 68 65 20 57 41 4d 50  55 53 20 69 73 20 61 20  |The WAMPUS is a |
00001a80  66 69 65 72 63 65 20 63  72 65 61 74 75 72 65 20  |fierce creature |
00001a90  74 68 61 74 20 22 3a f1  3a f1 22 6c 69 76 65 73  |that ":.:."lives|
00001aa0  20 75 6e 64 65 72 67 72  6f 75 6e 64 20 61 6e 64  | underground and|
00001ab0  20 65 61 74 73 20 70 65  6f 70 6c 65 21 22 3a f1  | eats people!":.|
00001ac0  3a f1 22 49 74 20 73 70  65 6e 64 73 20 6d 6f 73  |:."It spends mos|
00001ad0  74 20 6f 66 20 69 74 73  20 74 69 6d 65 20 61 73  |t of its time as|
00001ae0  6c 65 65 70 2c 20 62 75  74 22 0d 07 76 84 20 f1  |leep, but"..v. .|
00001af0  3a f1 22 69 66 20 61 6e  79 6f 6e 65 20 63 6f 6d  |:."if anyone com|
00001b00  65 73 20 69 6e 74 6f 20  69 74 73 20 67 72 6f 75  |es into its grou|
00001b10  70 20 6f 66 20 63 61 76  65 73 22 3a f1 3a f1 22  |p of caves":.:."|
00001b20  69 74 20 6d 69 67 68 74  20 77 61 6b 65 20 75 70  |it might wake up|
00001b30  20 61 6e 64 20 6d 6f 76  65 20 61 72 6f 75 6e 64  | and move around|
00001b40  2e 22 3a f1 3a f1 22 49  66 20 69 74 20 66 69 6e  |.":.:."If it fin|
00001b50  64 73 20 79 6f 75 20 69  74 20 77 69 6c 6c 20 65  |ds you it will e|
00001b60  61 74 20 79 6f 75 2e 22  3a f2 48 4f 4c 44 0d 07  |at you.":.HOLD..|
00001b70  80 b4 20 f1 8a 31 2c 35  29 22 54 68 65 72 65 20  |.. ..1,5)"There |
00001b80  61 72 65 20 73 6f 6d 65  20 6f 74 68 65 72 20 64  |are some other d|
00001b90  61 6e 67 65 72 73 20 64  6f 77 6e 20 68 65 72 65  |angers down here|
00001ba0  2e 22 3a f1 3a f1 3a f1  3a f1 22 54 68 65 72 65  |.":.:.:.:."There|
00001bb0  20 61 72 65 20 74 77 6f  20 63 6f 6c 6f 6e 69 65  | are two colonie|
00001bc0  73 20 6f 66 20 47 49 41  4e 54 20 42 41 54 53 2e  |s of GIANT BATS.|
00001bd0  22 3a f1 3a f1 3a f1 22  54 68 65 72 65 20 61 72  |":.:.:."There ar|
00001be0  65 20 74 77 6f 20 42 4f  54 54 4f 4d 4c 45 53 53  |e two BOTTOMLESS|
00001bf0  20 50 49 54 53 2e 22 3a  f1 3a f1 3a f1 22 54 68  | PITS.":.:.:."Th|
00001c00  65 72 65 20 61 72 65 20  73 6f 6d 65 20 47 49 41  |ere are some GIA|
00001c10  4e 54 20 53 50 49 44 45  52 53 2e 22 3a f2 48 4f  |NT SPIDERS.":.HO|
00001c20  4c 44 0d 07 8a c4 20 f1  3a f1 3a f1 22 20 20 49  |LD.... .:.:."  I|
00001c30  66 20 79 6f 75 20 67 6f  20 69 6e 74 6f 20 74 68  |f you go into th|
00001c40  65 20 63 61 76 65 20 77  69 74 68 20 74 68 65 20  |e cave with the |
00001c50  42 41 54 53 22 3a f1 3a  f1 22 74 68 65 79 20 77  |BATS":.:."they w|
00001c60  69 6c 6c 20 70 69 63 6b  20 79 6f 75 20 75 70 20  |ill pick you up |
00001c70  61 6e 64 20 63 61 72 72  79 20 79 6f 75 22 3a f1  |and carry you":.|
00001c80  3a f1 22 61 72 6f 75 6e  64 20 75 6e 74 69 6c 20  |:."around until |
00001c90  74 68 65 79 20 67 65 74  20 74 69 72 65 64 2e 20  |they get tired. |
00001ca0  54 68 65 6e 20 74 68 65  79 22 3a f1 3a f1 22 64  |Then they":.:."d|
00001cb0  72 6f 70 20 79 6f 75 2e  22 3a f1 3a f1 22 54 68  |rop you.":.:."Th|
00001cc0  65 79 20 6d 69 67 68 74  20 64 72 6f 70 20 79 6f  |ey might drop yo|
00001cd0  75 20 69 6e 20 74 68 65  20 73 61 6d 65 20 63 61  |u in the same ca|
00001ce0  76 65 20 61 73 22 0d 07  94 75 20 f1 3a f1 22 74  |ve as"...u .:."t|
00001cf0  68 65 20 57 41 4d 50 55  53 2e 22 3a f1 3a f1 22  |he WAMPUS.":.:."|
00001d00  54 68 65 6e 20 69 74 20  77 69 6c 6c 20 65 61 74  |Then it will eat|
00001d10  20 79 6f 75 2e 22 3a f1  3a f1 22 59 6f 75 20 77  | you.":.:."You w|
00001d20  69 6c 6c 20 62 65 20 61  62 6c 65 20 74 6f 20 68  |ill be able to h|
00001d30  65 61 72 20 74 68 65 20  42 41 54 53 20 66 72 6f  |ear the BATS fro|
00001d40  6d 22 3a f1 3a f1 22 74  68 65 20 6e 65 78 74 20  |m":.:."the next |
00001d50  63 61 76 65 22 3a f2 48  4f 4c 44 0d 07 9e c4 20  |cave":.HOLD.... |
00001d60  f1 3a f1 22 49 66 20 79  6f 75 20 67 6f 20 69 6e  |.:."If you go in|
00001d70  74 6f 20 61 20 63 61 76  65 20 77 69 74 68 20 61  |to a cave with a|
00001d80  20 42 4f 54 54 4f 4d 4c  45 53 53 22 3a f1 3a f1  | BOTTOMLESS":.:.|
00001d90  22 50 49 54 20 79 6f 75  20 77 69 6c 6c 20 66 61  |"PIT you will fa|
00001da0  6c 6c 20 64 6f 77 6e 20  69 74 2e 20 54 68 65 6e  |ll down it. Then|
00001db0  20 79 6f 75 20 61 72 65  20 22 3a f1 22 64 65 61  | you are ":."dea|
00001dc0  64 2e 22 3a f1 3a f1 3a  f1 22 59 6f 75 20 77 69  |d.":.:.:."You wi|
00001dd0  6c 6c 20 6b 6e 6f 77 20  77 68 65 6e 20 79 6f 75  |ll know when you|
00001de0  20 61 72 65 20 6e 65 61  72 20 61 20 70 69 74 20  | are near a pit |
00001df0  20 20 22 3a f1 22 62 65  63 61 75 73 65 20 79 6f  |  ":."because yo|
00001e00  75 20 77 69 6c 6c 20 66  65 65 6c 20 61 20 64 72  |u will feel a dr|
00001e10  61 75 67 68 74 20 77 68  65 6e 20 79 6f 75 22 0d  |aught when you".|
00001e20  07 a8 29 20 f1 22 61 72  65 20 69 6e 20 74 68 65  |..) ."are in the|
00001e30  20 63 61 76 65 20 6e 65  78 74 20 74 6f 20 69 74  | cave next to it|
00001e40  2e 22 3a f2 48 4f 4c 44  0d 07 b2 9b 20 f1 3a f1  |.":.HOLD.... .:.|
00001e50  3a f1 22 59 6f 75 20 77  69 6c 6c 20 6e 6f 74 20  |:."You will not |
00001e60  73 65 65 20 74 68 65 20  73 70 69 64 65 72 73 20  |see the spiders |
00001e70  75 6e 74 69 6c 20 61 66  74 65 72 22 3a f1 22 74  |until after":."t|
00001e80  68 65 79 20 63 61 74 63  68 20 79 6f 75 2e 22 3a  |hey catch you.":|
00001e90  f1 3a f1 22 4a 75 73 74  20 68 6f 70 65 20 74 68  |.:."Just hope th|
00001ea0  61 74 20 79 6f 75 20 63  61 6e 20 67 65 74 20 61  |at you can get a|
00001eb0  77 61 79 20 62 65 66 6f  72 65 22 3a f1 3a f1 22  |way before":.:."|
00001ec0  74 68 65 20 57 41 4d 50  55 53 20 76 69 73 69 74  |the WAMPUS visit|
00001ed0  73 20 79 6f 75 72 20 63  61 76 65 21 22 3a f2 48  |s your cave!":.H|
00001ee0  4f 4c 44 0d 07 bc 72 20  f1 8a 32 2c 33 29 22 54  |OLD...r ..2,3)"T|
00001ef0  6f 20 68 65 6c 70 20 79  6f 75 20 66 69 6e 64 20  |o help you find |
00001f00  74 68 65 20 57 41 4d 50  55 53 22 3a f1 3a f1 89  |the WAMPUS":.:..|
00001f10  28 34 29 22 28 62 65 66  6f 72 65 20 69 74 20 66  |(4)"(before it f|
00001f20  69 6e 64 73 20 79 6f 75  29 22 3a f1 3a f1 22 79  |inds you)":.:."y|
00001f30  6f 75 20 63 61 6e 20 73  6d 65 6c 6c 20 69 74 20  |ou can smell it |
00001f40  66 72 6f 6d 20 74 77 6f  20 63 61 76 65 73 20 61  |from two caves a|
00001f50  77 61 79 2e 22 0d 07 c6  8c 20 f1 3a f1 3a f1 3a  |way.".... .:.:.:|
00001f60  f1 22 57 68 65 6e 20 79  6f 75 20 74 68 69 6e 6b  |."When you think|
00001f70  20 79 6f 75 20 6b 6e 6f  77 20 77 68 65 72 65 20  | you know where |
00001f80  74 68 65 20 57 41 4d 50  55 53 22 3a f1 22 69 73  |the WAMPUS":."is|
00001f90  20 79 6f 75 20 63 61 6e  20 73 68 6f 6f 74 20 69  | you can shoot i|
00001fa0  74 20 77 69 74 68 20 6d  61 67 69 63 20 61 72 72  |t with magic arr|
00001fb0  6f 77 73 2e 22 3a f1 3a  f1 3a f1 22 59 6f 75 20  |ows.":.:.:."You |
00001fc0  77 69 6c 6c 20 66 69 6e  64 20 6f 75 74 20 61 62  |will find out ab|
00001fd0  6f 75 74 20 74 68 6f 73  65 20 6c 61 74 65 72 2e  |out those later.|
00001fe0  22 0d 07 d0 36 20 f1 3a  f1 3a f1 20 89 28 37 29  |"...6 .:.:. .(7)|
00001ff0  22 47 4f 4f 44 20 4c 55  43 4b 22 3a f1 8a 31 38  |"GOOD LUCK":..18|
00002000  29 22 28 79 6f 75 20 6d  69 67 68 74 20 6e 65 65  |)"(you might nee|
00002010  64 20 69 74 21 29 22 0d  07 da 0a 20 f2 48 4f 4c  |d it!)".... .HOL|
00002020  44 0d 07 e4 06 20 e1 0d  08 02 0a 20 dd f2 57 49  |D.... ..... ..WI|
00002030  4e 0d 08 0c 0e 20 e3 20  5a 3d 31 20 b8 20 32 0d  |N.... . Z=1 . 2.|
00002040  08 16 11 20 d4 20 31 2c  2d 31 35 2c 34 38 2c 38  |... . 1,-15,48,8|
00002050  0d 08 20 0e 20 d4 20 31  2c 30 2c 30 2c 31 0d 08  |.. . . 1,0,0,1..|
00002060  2a 11 20 d4 20 31 2c 2d  31 35 2c 34 38 2c 38 0d  |*. . 1,-15,48,8.|
00002070  08 34 0e 20 d4 20 31 2c  30 2c 30 2c 31 0d 08 3e  |.4. . 1,0,0,1..>|
00002080  12 20 d4 20 31 2c 2d 31  35 2c 34 38 2c 31 36 0d  |. . 1,-15,48,16.|
00002090  08 48 0e 20 d4 20 31 2c  30 2c 30 2c 31 0d 08 52  |.H. . 1,0,0,1..R|
000020a0  06 20 ed 0d 08 5c 0e 20  e3 20 5a 3d 31 20 b8 20  |. ...\. . Z=1 . |
000020b0  32 0d 08 66 11 20 d4 20  31 2c 2d 31 35 2c 36 34  |2..f. . 1,-15,64|
000020c0  2c 38 0d 08 70 0e 20 d4  20 31 2c 30 2c 30 2c 31  |,8..p. . 1,0,0,1|
000020d0  0d 08 7a 06 20 ed 0d 08  84 12 20 d4 20 31 2c 2d  |..z. ..... . 1,-|
000020e0  31 35 2c 36 34 2c 31 36  0d 08 8e 0e 20 d4 20 31  |15,64,16.... . 1|
000020f0  2c 30 2c 30 2c 31 0d 08  98 11 20 d4 20 31 2c 2d  |,0,0,1.... . 1,-|
00002100  31 35 2c 35 36 2c 34 0d  08 a2 0e 20 d4 20 31 2c  |15,56,4.... . 1,|
00002110  30 2c 30 2c 31 0d 08 ac  12 20 d4 20 31 2c 2d 31  |0,0,1.... . 1,-1|
00002120  35 2c 34 38 2c 31 36 0d  08 ad 0e 20 e3 20 4a 3d  |5,48,16.... . J=|
00002130  31 20 b8 20 35 0d 08 ae  0e 20 e3 20 4b 3d 30 20  |1 . 5.... . K=0 |
00002140  b8 20 37 0d 08 af 0f 20  ef 31 39 2c 31 2c 4b 3b  |. 7.... .19,1,K;|
00002150  30 3b 0d 08 b0 12 20 e3  20 4c 3d 31 20 b8 20 32  |0;.... . L=1 . 2|
00002160  35 30 3a ed 0d 08 b1 08  20 ed 3a ed 0d 08 b2 0f  |50:..... .:.....|
00002170  20 ef 31 39 2c 31 2c 37  3b 30 3b 0d 08 b6 2e 20  | .19,1,7;0;.... |
00002180  f1 22 59 4f 55 27 56 45  20 4b 49 4c 4c 45 44 20  |."YOU'VE KILLED |
00002190  49 54 22 3a f1 3a f1 22  57 45 4c 4c 20 44 4f 4e  |IT":.:."WELL DON|
000021a0  45 2e 22 3a 45 6e 64 3d  31 0d 08 c0 06 20 e1 0d  |E.":End=1.... ..|
000021b0  08 d4 35 20 dd f2 48 4f  4c 44 3a f1 8a 38 2c 32  |..5 ..HOLD:..8,2|
000021c0  33 29 22 50 72 65 73 73  20 53 50 41 43 45 20 42  |3)"Press SPACE B|
000021d0  41 52 20 74 6f 20 67 6f  20 6f 6e 22 3a 4b 3d a5  |AR to go on":K=.|
000021e0  3a db 3a e1 0d 08 e8 36  20 dd f2 57 41 49 54 3a  |:.:....6 ..WAIT:|
000021f0  f1 8a 38 2c 31 31 29 22  50 72 65 73 73 20 53 50  |..8,11)"Press SP|
00002200  41 43 45 20 42 41 52 20  74 6f 20 67 6f 20 6f 6e  |ACE BAR to go on|
00002210  22 3a 47 24 3d be 3a db  3a e1 0d 08 fc 0a 20 dd  |":G$=.:.:..... .|
00002220  f2 4d 41 50 0d 09 06 2c  20 ef 32 33 2c 32 34 30  |.MAP..., .23,240|
00002230  2c 32 35 35 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,255,255,255,255|
*
00002250  0d 09 10 12 20 ef 20 32  39 2c 38 31 30 3b 37 37  |.... . 29,810;77|
00002260  32 3b 0d 09 1a 17 20 e3  20 5a 3d 31 20 b8 20 33  |2;.... . Z=1 . 3|
00002270  36 30 3a f3 20 41 24 3a  ed 0d 09 24 07 20 ef 35  |60:. A$:...$. .5|
00002280  0d 09 2e 0e 20 e3 20 43  3d 31 20 b8 20 34 0d 09  |.... . C=1 . 4..|
00002290  38 0c 20 4a 3d 30 3a 56  3d 30 0d 09 42 0e 20 e3  |8. J=0:V=0..B. .|
000022a0  20 55 3d 31 20 b8 20 34  0d 09 4c 0a 20 4a 3d 4a  | U=1 . 4..L. J=J|
000022b0  2b 31 0d 09 56 12 20 e7  20 55 3d 31 20 8c 20 53  |+1..V. . U=1 . S|
000022c0  3d 32 39 30 0d 09 60 12  20 e7 20 55 3d 32 20 8c  |=290..`. . U=2 .|
000022d0  20 53 3d 31 35 30 0d 09  6a 12 20 e7 20 55 3d 33  | S=150..j. . U=3|
000022e0  20 8c 20 53 3d 32 31 30  0d 09 74 11 20 e7 20 55  | . S=210..t. . U|
000022f0  3d 34 20 8c 20 53 3d 38  30 0d 09 7e 16 20 e3 20  |=4 . S=80..~. . |
00002300  41 4e 3d 30 20 b8 20 33  35 39 20 88 20 37 32 0d  |AN=0 . 359 . 72.|
00002310  09 88 20 20 58 3d 31 2e  35 2a 53 2a b5 28 b2 28  |..  X=1.5*S*.(.(|
00002320  41 4e 2d 33 36 2a 28 4a  20 83 20 32 29 29 29 0d  |AN-36*(J . 2))).|
00002330  09 92 1c 20 59 3d 53 2a  9b 28 b2 28 41 4e 2d 33  |... Y=S*.(.(AN-3|
00002340  36 2a 28 4a 20 83 20 32  29 29 29 0d 09 9c 0a 20  |6*(J . 2))).... |
00002350  56 3d 56 2b 31 0d 09 a6  1e 20 ee 20 43 20 e4 20  |V=V+1.... . C . |
00002360  8d 64 6c 49 2c 8d 64 76  49 2c 8d 54 72 4a 2c 8d  |.dlI,.dvI,.TrJ,.|
00002370  44 46 4a 0d 09 b0 0a 20  ed 3a ed 3a ed 0d 09 ba  |DFJ.... .:.:....|
00002380  07 20 ef 34 0d 09 c4 0b  20 e5 20 8d 44 50 4a 0d  |. .4.... . .DPJ.|
00002390  09 d8 1f 20 f4 20 53 75  62 72 6f 75 74 69 6e 65  |... . Subroutine|
000023a0  73 20 66 6f 72 20 67 72  61 70 68 69 63 73 0d 09  |s for graphics..|
000023b0  ec 2e 20 4d 28 33 2a 56  2d 32 29 3d a8 28 56 29  |.. M(3*V-2)=.(V)|
000023c0  3a 4d 28 33 2a 56 2d 31  29 3d a8 28 58 29 3a 4d  |:M(3*V-1)=.(X):M|
000023d0  28 33 2a 56 29 3d a8 28  59 29 3a f8 0d 09 f6 0e  |(3*V)=.(Y):.....|
000023e0  20 f3 20 50 2c 51 2c 52  2c 53 0d 0a 00 1e 20 41  | . P,Q,R,S.... A|
000023f0  3d 4d 28 33 2a 50 2d 31  29 2b 31 36 3a 42 3d 4d  |=M(3*P-1)+16:B=M|
00002400  28 33 2a 50 29 2d 31 36  0d 0a 0a 25 20 ec 20 41  |(3*P)-16...% . A|
00002410  2c 42 3a df 28 4d 28 33  2a 51 2d 31 29 2b 31 36  |,B:.(M(3*Q-1)+16|
00002420  29 2c 28 4d 28 33 2a 51  29 2d 31 36 29 0d 0a 14  |),(M(3*Q)-16)...|
00002430  26 20 ec 20 41 2c 42 3a  df 20 28 4d 28 33 2a 52  |& . A,B:. (M(3*R|
00002440  2d 31 29 2b 31 36 29 2c  28 4d 28 33 2a 52 29 2d  |-1)+16),(M(3*R)-|
00002450  31 36 29 0d 0a 1e 22 20  ec 20 41 2c 42 3a df 20  |16)..." . A,B:. |
00002460  4d 28 33 2a 53 2d 31 29  2b 31 36 2c 4d 28 33 2a  |M(3*S-1)+16,M(3*|
00002470  53 29 2d 31 36 0d 0a 28  06 20 f8 0d 0a 32 0a 20  |S)-16..(. ...2. |
00002480  ec 20 58 2c 59 0d 0a 3c  13 20 f1 bd 20 32 34 30  |. X,Y..<. .. 240|
00002490  3b bd 20 32 34 30 3a f8  0d 0a 46 15 20 e6 30 2c  |;. 240:...F. .0,|
000024a0  30 3a ec 20 58 2c 59 3a  f1 3b 56 3a f8 0d 0a 50  |0:. X,Y:.;V:...P|
000024b0  06 20 e1 0d 0a 64 0c 20  dd f2 52 45 52 55 4e 0d  |. ...d. ..RERUN.|
000024c0  0a 6e 2f 20 f1 3a f1 22  44 6f 20 79 6f 75 20 77  |.n/ .:."Do you w|
000024d0  61 6e 74 20 74 6f 20 68  61 76 65 20 61 6e 6f 74  |ant to have anot|
000024e0  68 65 72 20 67 61 6d 65  3f 20 59 2f 4e 22 0d 0a  |her game? Y/N"..|
000024f0  70 0c 20 2a 46 58 31 35  2c 31 0d 0a 72 42 20 47  |p. *FX15,1..rB G|
00002500  24 3d be 3a e7 20 47 24  3d 22 59 22 20 8c 20 f1  |$=.:. G$="Y" . .|
00002510  22 4f 6b 61 79 2c 20 65  76 65 72 79 74 68 69 6e  |"Okay, everythin|
00002520  67 20 69 73 20 62 65 69  6e 67 20 6d 6f 76 65 64  |g is being moved|
00002530  2e 2e 2e 2e 2e 22 3a e5  8d 74 42 4a 0d 0a 78 31  |.....":..tBJ..x1|
00002540  20 e7 20 47 24 3d 22 4e  22 20 8c 20 f1 22 4f 2e  | . G$="N" . ."O.|
00002550  4b 2e 22 3a f1 89 28 31  30 29 22 47 4f 4f 44 42  |K.":..(10)"GOODB|
00002560  59 45 22 3a e0 3a 8b 20  e5 8d 44 6e 4a 0d 0a 82  |YE":.:. ..DnJ...|
00002570  13 20 e3 20 5a 3d 30 20  b8 20 36 30 30 30 3a ed  |. . Z=0 . 6000:.|
00002580  0d 0a 8c 0f 20 e3 20 5a  3d 20 31 20 b8 20 35 0d  |.... . Z= 1 . 5.|
00002590  0a 96 1d 20 ef 31 39 2c  31 2c 30 3b 30 3b 3a e3  |... .19,1,0;0;:.|
000025a0  20 4d 3d 30 20 b8 20 32  35 30 3a ed 0d 0a a0 1d  | M=0 . 250:.....|
000025b0  20 ef 31 39 2c 31 2c 31  3b 30 3b 3a e3 20 4d 3d  | .19,1,1;0;:. M=|
000025c0  30 20 b8 20 32 35 30 3a  ed 0d 0a aa 06 20 ed 0d  |0 . 250:..... ..|
000025d0  0a b4 36 20 db 3a f1 22  4f 4b 41 59 2c 20 48 45  |..6 .:."OKAY, HE|
000025e0  52 45 20 57 45 20 47 4f  22 3a e3 20 5a 3d 30 20  |RE WE GO":. Z=0 |
000025f0  b8 20 34 30 30 30 3a ed  3a ef 31 39 2c 31 2c 37  |. 4000:.:.19,1,7|
00002600  3b 30 3b 3a db 0d 0a be  06 20 e1 0d 0a c8 25 20  |;0;:..... ....% |
00002610  dc 20 22 31 41 22 2c 22  32 41 22 2c 22 35 41 22  |. "1A","2A","5A"|
00002620  2c 22 31 31 41 22 2c 22  31 42 22 2c 22 30 22 20  |,"11A","1B","0" |
00002630  0d 0a d2 24 20 dc 20 22  32 41 22 2c 22 31 41 22  |...$ . "2A","1A"|
00002640  2c 22 31 32 41 22 2c 22  33 41 22 2c 22 32 42 22  |,"12A","3A","2B"|
00002650  2c 22 30 22 0d 0a dc 24  20 dc 20 22 33 41 22 2c  |,"0"...$ . "3A",|
00002660  22 32 41 22 2c 22 31 33  41 22 2c 22 34 41 22 2c  |"2A","13A","4A",|
00002670  22 33 42 22 2c 22 30 22  0d 0a e6 24 20 dc 20 22  |"3B","0"...$ . "|
00002680  34 41 22 2c 22 33 41 22  2c 22 31 34 41 22 2c 22  |4A","3A","14A","|
00002690  35 41 22 2c 22 34 42 22  2c 22 30 22 0d 0a f0 24  |5A","4B","0"...$|
000026a0  20 dc 20 22 35 41 22 2c  22 34 41 22 2c 22 31 35  | . "5A","4A","15|
000026b0  41 22 2c 22 31 41 22 2c  22 35 42 22 2c 22 30 22  |A","1A","5B","0"|
000026c0  0d 0a fa 26 20 dc 20 22  36 41 22 2c 22 31 32 41  |...& . "6A","12A|
000026d0  22 2c 22 31 31 41 22 2c  22 31 36 41 22 2c 22 36  |","11A","16A","6|
000026e0  42 22 2c 22 30 22 0d 0b  04 26 20 dc 20 22 37 41  |B","0"...& . "7A|
000026f0  22 2c 22 31 32 41 22 2c  22 31 33 41 22 2c 22 31  |","12A","13A","1|
00002700  37 41 22 2c 22 37 42 22  2c 22 30 22 0d 0b 0e 26  |7A","7B","0"...&|
00002710  20 dc 20 22 38 41 22 2c  22 31 33 41 22 2c 22 31  | . "8A","13A","1|
00002720  34 41 22 2c 22 31 38 41  22 2c 22 38 42 22 2c 22  |4A","18A","8B","|
00002730  30 22 0d 0b 18 26 20 dc  20 22 39 41 22 2c 22 31  |0"...& . "9A","1|
00002740  34 41 22 2c 22 31 39 41  22 2c 22 31 35 41 22 2c  |4A","19A","15A",|
00002750  22 39 42 22 2c 22 30 22  0d 0b 22 28 20 dc 20 22  |"9B","0".."( . "|
00002760  31 30 41 22 2c 22 32 30  41 22 2c 22 31 31 41 22  |10A","20A","11A"|
00002770  2c 22 31 35 41 22 2c 22  31 30 42 22 2c 22 30 22  |,"15A","10B","0"|
00002780  0d 0b 2c 26 20 dc 20 22  31 31 41 22 2c 22 31 30  |..,& . "11A","10|
00002790  41 22 2c 22 31 41 22 2c  22 36 41 22 2c 22 31 31  |A","1A","6A","11|
000027a0  42 22 2c 22 30 22 0d 0b  36 25 20 dc 20 22 31 32  |B","0"..6% . "12|
000027b0  41 22 2c 22 32 41 22 2c  22 36 41 22 2c 22 37 41  |A","2A","6A","7A|
000027c0  22 2c 22 31 32 42 22 2c  22 30 22 0d 0b 40 25 20  |","12B","0"..@% |
000027d0  dc 20 22 31 33 41 22 2c  22 33 41 22 2c 22 37 41  |. "13A","3A","7A|
000027e0  22 2c 22 38 41 22 2c 22  31 33 42 22 2c 22 30 22  |","8A","13B","0"|
000027f0  0d 0b 4a 25 20 dc 20 22  31 34 41 22 2c 22 38 41  |..J% . "14A","8A|
00002800  22 2c 22 39 41 22 2c 22  34 41 22 2c 22 31 34 42  |","9A","4A","14B|
00002810  22 2c 22 30 22 0d 0b 54  26 20 dc 20 22 31 35 41  |","0"..T& . "15A|
00002820  22 2c 22 39 41 22 2c 22  35 41 22 2c 22 31 30 41  |","9A","5A","10A|
00002830  22 2c 22 31 35 42 22 2c  22 30 22 0d 0b 5e 27 20  |","15B","0"..^' |
00002840  dc 20 22 31 36 41 22 2c  22 36 41 22 2c 22 31 37  |. "16A","6A","17|
00002850  41 22 2c 22 32 30 41 22  2c 22 31 36 42 22 2c 22  |A","20A","16B","|
00002860  30 22 0d 0b 68 27 20 dc  20 22 31 37 41 22 2c 22  |0"..h' . "17A","|
00002870  37 41 22 2c 22 31 36 41  22 2c 22 31 38 41 22 2c  |7A","16A","18A",|
00002880  22 31 37 42 22 2c 22 30  22 0d 0b 72 27 20 dc 20  |"17B","0"..r' . |
00002890  22 31 38 41 22 2c 22 31  37 41 22 2c 22 38 41 22  |"18A","17A","8A"|
000028a0  2c 22 31 39 41 22 2c 22  31 38 42 22 2c 22 30 22  |,"19A","18B","0"|
000028b0  0d 0b 86 27 20 dc 20 22  31 39 41 22 2c 22 31 38  |...' . "19A","18|
000028c0  41 22 2c 22 39 41 22 2c  22 32 30 41 22 2c 22 31  |A","9A","20A","1|
000028d0  39 42 22 2c 22 30 22 0d  0b 9a 28 20 dc 20 22 32  |9B","0"...( . "2|
000028e0  30 41 22 2c 22 31 39 41  22 2c 22 31 30 41 22 2c  |0A","19A","10A",|
000028f0  22 31 36 41 22 2c 22 32  30 42 22 2c 22 30 22 0d  |"16A","20B","0".|
00002900  0b a4 25 20 dc 20 22 31  42 22 2c 22 32 42 22 2c  |..% . "1B","2B",|
00002910  22 35 42 22 2c 22 31 31  42 22 2c 22 31 41 22 2c  |"5B","11B","1A",|
00002920  22 31 43 22 0d 0b ae 26  20 dc 20 22 32 42 22 2c  |"1C"...& . "2B",|
00002930  22 31 42 22 2c 22 31 32  42 22 2c 22 33 42 22 2c  |"1B","12B","3B",|
00002940  22 32 41 22 2c 22 32 43  22 20 0d 0b b8 25 20 dc  |"2A","2C" ...% .|
00002950  20 22 33 42 22 2c 22 32  42 22 2c 22 31 33 42 22  | "3B","2B","13B"|
00002960  2c 22 34 42 22 2c 22 33  41 22 2c 22 33 43 22 0d  |,"4B","3A","3C".|
00002970  0b c2 25 20 dc 20 22 34  42 22 2c 22 33 42 22 2c  |..% . "4B","3B",|
00002980  22 31 34 42 22 2c 22 35  42 22 2c 22 34 41 22 2c  |"14B","5B","4A",|
00002990  22 34 43 22 0d 0b d6 25  20 dc 20 22 35 42 22 2c  |"4C"...% . "5B",|
000029a0  22 34 42 22 2c 22 31 35  42 22 2c 22 31 42 22 2c  |"4B","15B","1B",|
000029b0  22 35 41 22 2c 22 35 43  22 0d 0b e0 27 20 dc 20  |"5A","5C"...' . |
000029c0  22 36 42 22 2c 22 31 32  42 22 2c 22 31 31 42 22  |"6B","12B","11B"|
000029d0  2c 22 31 36 42 22 2c 22  36 41 22 2c 22 36 43 22  |,"16B","6A","6C"|
000029e0  0d 0b ea 27 20 dc 20 22  37 42 22 2c 22 31 32 42  |...' . "7B","12B|
000029f0  22 2c 22 31 33 42 22 2c  22 31 37 42 22 2c 22 37  |","13B","17B","7|
00002a00  41 22 2c 22 37 43 22 0d  0b f4 27 20 dc 20 22 38  |A","7C"...' . "8|
00002a10  42 22 2c 22 31 33 42 22  2c 22 31 34 42 22 2c 22  |B","13B","14B","|
00002a20  31 38 42 22 2c 22 38 41  22 2c 22 38 43 22 0d 0b  |18B","8A","8C"..|
00002a30  fe 27 20 dc 20 22 39 42  22 2c 22 31 34 42 22 2c  |.' . "9B","14B",|
00002a40  22 31 39 42 22 2c 22 31  35 42 22 2c 22 39 41 22  |"19B","15B","9A"|
00002a50  2c 22 39 43 22 0d 0c 08  2a 20 dc 20 22 31 30 42  |,"9C"...* . "10B|
00002a60  22 2c 22 32 30 42 22 2c  22 31 31 42 22 2c 22 31  |","20B","11B","1|
00002a70  35 42 22 2c 22 31 30 41  22 2c 22 31 30 43 22 0d  |5B","10A","10C".|
00002a80  0c 0a 28 20 dc 20 22 31  31 42 22 2c 22 31 30 42  |..( . "11B","10B|
00002a90  22 2c 22 31 42 22 2c 22  36 42 22 2c 22 31 31 41  |","1B","6B","11A|
00002aa0  22 2c 22 31 31 43 22 0d  0c 0c 27 20 dc 20 22 31  |","11C"...' . "1|
00002ab0  32 42 22 2c 22 32 42 22  2c 22 36 42 22 2c 22 37  |2B","2B","6B","7|
00002ac0  42 22 2c 22 31 32 41 22  2c 22 31 32 43 22 0d 0c  |B","12A","12C"..|
00002ad0  0e 27 20 dc 20 22 31 33  42 22 2c 22 33 42 22 2c  |.' . "13B","3B",|
00002ae0  22 37 42 22 2c 22 38 42  22 2c 22 31 33 41 22 2c  |"7B","8B","13A",|
00002af0  22 31 33 43 22 0d 0c 10  27 20 dc 20 22 31 34 42  |"13C"...' . "14B|
00002b00  22 2c 22 38 42 22 2c 22  39 42 22 2c 22 34 42 22  |","8B","9B","4B"|
00002b10  2c 22 31 34 41 22 2c 22  31 34 43 22 0d 0c 12 28  |,"14A","14C"...(|
00002b20  20 dc 20 22 31 35 42 22  2c 22 39 42 22 2c 22 35  | . "15B","9B","5|
00002b30  42 22 2c 22 31 30 42 22  2c 22 31 35 41 22 2c 22  |B","10B","15A","|
00002b40  31 35 43 22 0d 0c 14 29  20 dc 20 22 31 36 42 22  |15C"...) . "16B"|
00002b50  2c 22 36 42 22 2c 22 31  37 42 22 2c 22 32 30 42  |,"6B","17B","20B|
00002b60  22 2c 22 31 36 41 22 2c  22 31 36 43 22 0d 0c 16  |","16A","16C"...|
00002b70  29 20 dc 20 22 31 37 42  22 2c 22 37 42 22 2c 22  |) . "17B","7B","|
00002b80  31 36 42 22 2c 22 31 38  42 22 2c 22 31 37 41 22  |16B","18B","17A"|
00002b90  2c 22 31 37 43 22 0d 0c  18 29 20 dc 20 22 31 38  |,"17C"...) . "18|
00002ba0  42 22 2c 22 31 37 42 22  2c 22 38 42 22 2c 22 31  |B","17B","8B","1|
00002bb0  39 42 22 2c 22 31 38 41  22 2c 22 31 38 43 22 0d  |9B","18A","18C".|
00002bc0  0c 1a 29 20 dc 20 22 31  39 42 22 2c 22 31 38 42  |..) . "19B","18B|
00002bd0  22 2c 22 39 42 22 2c 22  32 30 42 22 2c 22 31 39  |","9B","20B","19|
00002be0  41 22 2c 22 31 39 43 22  0d 0c 1c 2a 20 dc 20 22  |A","19C"...* . "|
00002bf0  32 30 42 22 2c 22 31 39  42 22 2c 22 31 30 42 22  |20B","19B","10B"|
00002c00  2c 22 31 36 42 22 2c 22  32 30 41 22 2c 22 32 30  |,"16B","20A","20|
00002c10  43 22 0d 0c 26 24 20 dc  20 22 31 43 22 2c 22 32  |C"..&$ . "1C","2|
00002c20  43 22 2c 22 35 43 22 2c  22 31 31 43 22 2c 22 31  |C","5C","11C","1|
00002c30  42 22 2c 22 30 22 0d 0c  28 24 20 dc 20 22 32 43  |B","0"..($ . "2C|
00002c40  22 2c 22 31 43 22 2c 22  31 32 43 22 2c 22 33 43  |","1C","12C","3C|
00002c50  22 2c 22 32 42 22 2c 22  30 22 0d 0c 2a 24 20 dc  |","2B","0"..*$ .|
00002c60  20 22 33 43 22 2c 22 32  43 22 2c 22 31 33 43 22  | "3C","2C","13C"|
00002c70  2c 22 34 43 22 2c 22 33  42 22 2c 22 30 22 0d 0c  |,"4C","3B","0"..|
00002c80  2c 24 20 dc 20 22 34 43  22 2c 22 33 43 22 2c 22  |,$ . "4C","3C","|
00002c90  31 34 43 22 2c 22 35 43  22 2c 22 34 42 22 2c 22  |14C","5C","4B","|
00002ca0  30 22 0d 0c 2e 24 20 dc  20 22 35 43 22 2c 22 34  |0"...$ . "5C","4|
00002cb0  43 22 2c 22 31 35 43 22  2c 22 31 43 22 2c 22 35  |C","15C","1C","5|
00002cc0  42 22 2c 22 30 22 0d 0c  30 26 20 dc 20 22 36 43  |B","0"..0& . "6C|
00002cd0  22 2c 22 31 32 43 22 2c  22 31 31 43 22 2c 22 31  |","12C","11C","1|
00002ce0  36 43 22 2c 22 36 42 22  2c 22 30 22 0d 0c 32 26  |6C","6B","0"..2&|
00002cf0  20 dc 20 22 37 43 22 2c  22 31 32 43 22 2c 22 31  | . "7C","12C","1|
00002d00  33 43 22 2c 22 31 37 43  22 2c 22 37 42 22 2c 22  |3C","17C","7B","|
00002d10  30 22 0d 0c 34 26 20 dc  20 22 38 43 22 2c 22 31  |0"..4& . "8C","1|
00002d20  33 43 22 2c 22 31 34 43  22 2c 22 31 38 43 22 2c  |3C","14C","18C",|
00002d30  22 38 42 22 2c 22 30 22  0d 0c 36 26 20 dc 20 22  |"8B","0"..6& . "|
00002d40  39 43 22 2c 22 31 34 43  22 2c 22 31 39 43 22 2c  |9C","14C","19C",|
00002d50  22 31 35 43 22 2c 22 39  42 22 2c 22 30 22 0d 0c  |"15C","9B","0"..|
00002d60  38 28 20 dc 20 22 31 30  43 22 2c 22 32 30 43 22  |8( . "10C","20C"|
00002d70  2c 22 31 31 43 22 2c 22  31 35 43 22 2c 22 31 30  |,"11C","15C","10|
00002d80  42 22 2c 22 30 22 0d 0c  3a 26 20 dc 20 22 31 31  |B","0"..:& . "11|
00002d90  43 22 2c 22 31 30 43 22  2c 22 31 43 22 2c 22 36  |C","10C","1C","6|
00002da0  43 22 2c 22 31 31 42 22  2c 22 30 22 0d 0c 3c 25  |C","11B","0"..<%|
00002db0  20 dc 20 22 31 32 43 22  2c 22 32 43 22 2c 22 36  | . "12C","2C","6|
00002dc0  43 22 2c 22 37 43 22 2c  22 31 32 42 22 2c 22 30  |C","7C","12B","0|
00002dd0  22 0d 0c 3e 25 20 dc 20  22 31 33 43 22 2c 22 33  |"..>% . "13C","3|
00002de0  43 22 2c 22 37 43 22 2c  22 38 43 22 2c 22 31 33  |C","7C","8C","13|
00002df0  42 22 2c 22 30 22 0d 0c  40 25 20 dc 20 22 31 34  |B","0"..@% . "14|
00002e00  43 22 2c 22 38 43 22 2c  22 39 43 22 2c 22 34 43  |C","8C","9C","4C|
00002e10  22 2c 22 31 34 42 22 2c  22 30 22 0d 0c 42 26 20  |","14B","0"..B& |
00002e20  dc 20 22 31 35 43 22 2c  22 39 43 22 2c 22 35 43  |. "15C","9C","5C|
00002e30  22 2c 22 31 30 43 22 2c  22 31 35 42 22 2c 22 30  |","10C","15B","0|
00002e40  22 0d 0c 44 27 20 dc 20  22 31 36 43 22 2c 22 36  |"..D' . "16C","6|
00002e50  43 22 2c 22 31 37 43 22  2c 22 32 30 43 22 2c 22  |C","17C","20C","|
00002e60  31 36 42 22 2c 22 30 22  0d 0c 46 27 20 dc 20 22  |16B","0"..F' . "|
00002e70  31 37 43 22 2c 22 37 43  22 2c 22 31 36 43 22 2c  |17C","7C","16C",|
00002e80  22 31 38 43 22 2c 22 31  37 42 22 2c 22 30 22 0d  |"18C","17B","0".|
00002e90  0c 48 27 20 dc 20 22 31  38 43 22 2c 22 31 37 43  |.H' . "18C","17C|
00002ea0  22 2c 22 38 43 22 2c 22  31 39 43 22 2c 22 31 38  |","8C","19C","18|
00002eb0  42 22 2c 22 30 22 0d 0c  4a 27 20 dc 20 22 31 39  |B","0"..J' . "19|
00002ec0  43 22 2c 22 31 38 43 22  2c 22 39 43 22 2c 22 32  |C","18C","9C","2|
00002ed0  30 43 22 2c 22 31 39 42  22 2c 22 30 22 0d 0c 4c  |0C","19B","0"..L|
00002ee0  28 20 dc 20 22 32 30 43  22 2c 22 31 39 43 22 2c  |( . "20C","19C",|
00002ef0  22 31 30 43 22 2c 22 31  36 43 22 2c 22 32 30 42  |"10C","16C","20B|
00002f00  22 2c 22 30 22 0d 0c 4e  d2 20 dc 20 31 2c 32 2c  |","0"..N. . 1,2,|
00002f10  31 31 2c 35 2c 32 2c 31  2c 31 32 2c 33 2c 33 2c  |11,5,2,1,12,3,3,|
00002f20  32 2c 31 33 2c 34 2c 34  2c 33 2c 31 34 2c 35 2c  |2,13,4,4,3,14,5,|
00002f30  35 2c 34 2c 31 35 2c 31  2c 36 2c 31 31 2c 31 36  |5,4,15,1,6,11,16|
00002f40  2c 31 32 2c 37 2c 31 32  2c 31 37 2c 31 33 2c 38  |,12,7,12,17,13,8|
00002f50  2c 31 33 2c 31 38 2c 31  34 2c 39 2c 31 34 2c 31  |,13,18,14,9,14,1|
00002f60  39 2c 31 35 2c 31 30 2c  31 35 2c 32 30 2c 31 31  |9,15,10,15,20,11|
00002f70  2c 31 31 2c 31 30 2c 31  2c 36 2c 31 32 2c 36 2c  |,11,10,1,6,12,6,|
00002f80  37 2c 32 2c 31 33 2c 38  2c 37 2c 33 2c 31 34 2c  |7,2,13,8,7,3,14,|
00002f90  39 2c 38 2c 34 2c 31 35  2c 39 2c 35 2c 31 30 2c  |9,8,4,15,9,5,10,|
00002fa0  31 36 2c 36 2c 32 30 2c  31 37 2c 31 37 2c 31 36  |16,6,20,17,17,16|
00002fb0  2c 37 2c 31 38 2c 31 38  2c 31 37 2c 38 2c 31 39  |,7,18,18,17,8,19|
00002fc0  2c 31 39 2c 31 38 2c 39  2c 32 30 2c 32 30 2c 31  |,19,18,9,20,20,1|
00002fd0  39 2c 31 36 2c 31 30 0d  ff                       |9,16,10..|
00002fd9

07-02-88/WAMPUS.m0

07-02-88/WAMPUS.m1

07-02-88/WAMPUS.m2

07-02-88/WAMPUS.m4

07-02-88/WAMPUS.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .