15
IMPROVED VERSION

Here's the complete listing of the revised version of WEREWOLVES AND WANDERER.

10 REM WEREWOLVES AND WANDERER
11 REM UPGRADED VERSION
20 GOSUB 2600:REM INITIALISE
30 GOSUB 160
40 IF RO <> 11 THEN 30
50 PRINT:PRINT "YOU'VE DONE IT!!":GOSUB
3520:PRINT "THAT WAS THE EXIT FROM THE
CASTLE"
60 GOSUB 3520
70 PRINT:PRINT "YOU HAVE SUCCEEDED,
";N$;"!"
80 PRINT:PRINT "YOU MANAGED TO GET OUT OF THE
CASTLE"
90 GOSUB 3520
100 PRINT:PRINT "WELL DONE!"
110 GOSUB 3520
120 PRINT:PRINT "YOUR SCORE IS";
130 PRINT 3*TALLY + 5*STRENGTH + 2*WEALTH + FOOD +
30*MK
140 END
150 REM **********************
160 REM MAJOR HANDLING ROUTINE
170 STRENGTH = STRENGTH - 5
180 IF STRENGTH<10 THEN PRINT "WARNING,
" ;N$;", YOUR STRENGTH":PRINT
"IS RUNNING LOW": PRINT
190 IF STRENGTH < 1 THEN 2300:REM DEATH
200 TALLY = TALLY + 1
210 PRINT N$;", YOUR STRENGTH
IS";STRENGTH
220 IF WEALTH > 0 THEN PRINT "YOU HAVE
$";WEALTH
230 IF FOOD > 0 THEN PRINT "YOUR
PROVISIONS SACK HOLDS";FOOD;"UNITS OF
FOOD"
240 IF SUIT = 1 THEN PRINT "YOU ARE WEARING
ARMOR"
250 IF AXE=0 AND SWORD=0 AND AMULET=0 THEN 320
260 PRINT "YOU ARE CARRYING ";
270 IF AXE=1 THEN PRINT "AN AXE ";
280 IF SWORD=1 THEN PRINT "A SWORD ";
290 IF SWORD + AXE > 0 AND AMULET=1 THEN PRINT
"AND ";
300 IF AMULET=1 THEN PRINT "THE MAGIC
AMULET"
310 PRINT
320 IF LIGHT=0 THEN PRINT "IT IS TOO DARK TO
SEE ANYTHING"
330 IF LIGHT=1 THEN GOSUB 990:REM ROOM DESCRIPTION
340 K = A(RO,7):REM K IS SET TO CONTENTS OF ROOM
350 IF K=0 THEN 440:REM ROOM IS EMPTY
355 M=RND(1)
357 IF K>9 AND M<=.5 THEN PRINT "THERE
ARE GEMS HERE WORTH $";K:GOTO 440
360 IF K>9 AND M>.5 THEN PRINT "THERE
IS TREASURE HERE WORTH $";K:GOTO 440
370 PRINT:PRINT:PRINT "DANGER...THERE IS A
MONSTER HERE....":GOSUB 3520
380 IF K=-1 THEN M$="FEROCIOUS
WEREWOLF":FF=5
390 IF K=-2 THEN M$="FANATICAL
FLESHGORGER":FF=10
400 IF K=-3 THEN M$="MALOVENTY
MALDEMER":FF=15
410 IF K=-4 THEN M$="DEVASTATING
ICE-DRAGON":FF=20
415 IF K=-5 THEN M$="HORRENDOUS
HODGEPODGER":FF=25
416 IF K=-6 THEN M$="GHASTLY
GRUESOMENESS":FF=30
420 PRINT:PRINT "IT IS A ";M$
430 PRINT:PRINT "THE DANGER LEVEL
IS";FF; "!!"
440 GOSUB 3520
450 PRINT:PRINT:PRINT "WHAT DO YOU WANT TO
DO"
460 INPUT A$:A$=LEFT$(A$,1)
470 IF K<0 AND A$<>"F" AND
A$<>"R" THEN 460
480 PRINT:PRINT:PRINT
"------------------------------------":PRINT
490 IF A$="Q" THEN 120
500 IF A$="N" AND A(RO,1)=0 THEN PRINT
"NO EXIT THAT WAY":GOTO 440
510 IF A$="S" AND A(RO,2)=0 THEN PRINT
"THERE IS NO EXIT SOUTH":GOTO 440
520 IF A$="E" AND A(RO,3)=0 THEN PRINT
"YOU CANNOT GO IN THAT DIRECTION":GOTO
440
530 IF AS="W" AND A(RO,4)=0 THEN PRINT
"YOU CANNOT MOVE THROUGH SOLID
STONE":GOTO 440
540 IF A$="U" AND A(RO,5)=0 THEN PRINT
"THERE IS NO WAY UP FROM HERE":GOTO 440
550 IF A$="D" AND A(RO,6)=0 THEN PRINT
"YOU CANNOT DESCEND FROM HERE":GOTO 440
560 IF A$="R" AND RND(1)>.7 THEN 2420
570 IF AS="R" THEN K=0:PRINT "WHICH
WAY DO YOU WANT TO FLEE";:GOTO 460
580 IF A$="F" AND A(RO,7)>-1 THEN
PRINT "THERE IS NOTHING TO FIGHT
HERE":GOTO 440
590 IF A$="I" THEN GOSUB 3010:RETURN
600 IF A$="C" AND FOOD=0 THEN PRINT
"YOU HAVE NO FOOD":GOTO 440
610 IF A$="P" THEN GOSUB 2350:RETURN
620 IF A$="F" THEN 730
625 IF A$="M" THEN FOR J = 1 TO 30:PRINT
TAB(J);"*":NEXT J
630 IF A$="M" THEN RO=INT(RND(1)*19)+1
:IF RO=6 OR RO=11 THEN 630 ELSE 710
640 IF A$="C" THEN GOSUB 2480:RETURN
650 IF A$="N" THEN RO=A(RO,1)
660 IF A$="S" THEN RO=A(RO,2)
670 IF A$="E" THEN RO=A(RO,3)
680 IF A$="W" THEN RO=A(RO,4)
690 IF A$="U" THEN RO=A(RO,5)
700 IF A$="D" THEN RO=A(RO,6)
705 IF AS="T" THEN PRINT "YOUR
TALLY AT PRESENT IS";3*TALLY + 5*STRENGTH +
2*WEALTH + FOOD + 30*MK
706 IF A$="T" AND RND>.5 THEN
PRINT:PRINT "YOU HAVE
KILLED";MK;"MONSTERS SO FAR..."
710 RETURN
720 REM **************************
730 REM FIGHT
740 IF INKEY$<>"" THEN 740
750 PRINT "PRESS ANY KEY TO FIGHT"
760 IF INKEY$="" THEN 760
770 IF SUIT=1 THEN PRINT "YOUR ARMOR
INCREASES YOUR CHANCE OF
SUCCESS":FF=3*(INT(FF/4)):GOSUB 3520
780 CLS:FOR J=1 TO 6:PRINT "*_*_*_*_*_*_*_*
_*_*_*_*_*_*_*_*_*_*_*_*":NEXT J
790 IF AXE=0 AND SWORD=0 THEN PRINT "YOU HAVE
NO WEAPONS":PRINT "YOU MUST FIGHT WITH
BARE HANDS":FF=INT(FF + FF/5):GOTO 870
800 IF AXE=1 AND SWORD=0 THEN PRINT "YOU HAVE
ONLY AN AXE TO FIGHT
WITH":FF=4*INT(FF/5):GOTO 870
810 IF AXE=0 AND SWORD=1 THEN PRINT "YOU MUST
FIGHT WITH YOUR SWORD":FF=3*INT(FF/4):GOTO
870
820 INPUT "WHICH WEAPON? 1 - AXE, 2 -
SWORD";Z
830 IF Z<1 OR Z>2 THEN 820
840 IF Z=1 THEN FF=4*INT(FF/5)
850 IF Z=2 THEN FF=3*INT(FF/4)
860 REM *************************
870 REM THE BATTLE
880 PRINT:PRINT
890 IF RND(1)>.5 THEN PRINT M$;"
ATTACKS" ELSE PRINT "YOU ATTACK"
900 GOSUB 3520
905 IF RND>.5 AND LIGHT=1 THEN PRINT "YOUR
TORCH WAS KNOCKED FROM YOUR
HAND":LIGHT=0:GOSUB 3520
906 IF RND>.5 AND AXE=1 THEN PRINT "YOU
DROP YOUR AXE IN THE HEAT OF
BATTLE":AXE=0:FF=5*INT(FF/4)
907 IF RND>.5 AND SWORD=1 THEN PRINT "YOUR
SWORD IS KNOCKED FROM YOUR
HAND!!!":SWORD=0:FF=4*INT(FF/3)
910 IF RND(1)>.5 THEN PRINT:PRINT "YOU
MANAGE TO WOUND IT":FF=INT(5*FF/6)
911 IF RND>.95 THEN PRINT
"Aaaaargh!!!":GOSUB 3520:PRINT
"RIP! TEAR! RIP!"
912 IF RND>.9 THEN PRINT "YOU WANT TO RUN
BUT YOU STAND YOUR GROUND..."
913 IF RND>.9 THEN PRINT "*&%%$#$% $%#
!! @ #$$# #$@! #$ $#$"
914 IF RND>.7 THEN PRINT "WILL THIS BE A
BATTLE TO THE DEATH?"
915 IF RND>.7 THEN PRINT "HIS EYES FLASH
FEARFULLY"
916 IF RND>.7 THEN PRINT "BLOOD DRIPS FROM
HIS CLAWS"
917 IF RND>.7 THEN PRINT "YOU SMELL THE
SULPHUR ON HIS BREATH"
918 IF RND>.7 THEN PRINT "HE STRIKES
WILDLY, MADLY..........."
919 IF RND>.7 THEN PRINT "YOU HAVE NEVER
FOUGHT AN OPPONENT LIKE THIS!!"
920 GOSUB 3520
930 IF RND(1)>.5 THEN PRINT:PRINT "THE
MONSTER WOUNDS YOU!":STRENGTH=STRENGTH-5
940 IF RND(1)>.35 THEN 890
950 IF RND(1)*16>FF THEN PRINT:PRINT "AND
YOU MANAGED TO KILL THE ";M$:MK=MK+1:GOTO 970
960 PRINT:PRINT "THE ";M$;"
DEFEATED YOU" :STRENGTH=INT(STRENGTH/2)
970 A(RO,7)=0:GOSUB 3520:PRINT:PRINT:GOSUB
3520:RETURN
980 REM *****************
990 REM ROOM DESCRIPTIONS
1000 PRINT:PRINT
"******************************":PRINT:PRINT
1010 ON RO GOSUB 1040,1100,1170,1230,1280,1360,1410,
1470,1540,1620,1700,1730,1790,1860,1960,2030,2100,2160,2230
1020 RETURN
1030 REM ************
1040 REM ROOM 1
1050 PRINT "YOU ARE IN THE HALLWAY"
1055 IF RND>.4 THEN PRINT "FROM THE DUST
ON THE GROUND YOU CAN TELL":PRINT
"NO-ONE HAS WALKED HERE FOR A LONG, LONG
TIME"
1060 PRINT "THERE IS A DOOR TO THE
SOUTH"
1070 PRINT "THROUGH WINDOWS TO THE NORTH YOU
CAN SEE A SECRET HERB GARDEN"
1080 RETURN
1090 REM ************
1100 REM ROOM 2
1110 PRINT "THIS IS THE AUDIENCE
CHAMBER"
1115 IF RND>.4 THEN PRINT "THE FADED TAPE
STRIES ON THE WALL ONLY":PRINT "HINT AT
THE SPLENDOR WHICH THIS ROOM ONCE HAD"
1120 PRINT "THERE IS A WINDOW TO THE WEST BY
LOOKING TO THE RIGHT"
1130 PRINT "THROUGH IT YOU CAN SEE THE
ENTRANCE TO THE CASTLE."
1150 RETURN
1160 REM ************
1170 REM ROOM 3
1180 PRINT "YOU ARE IN THE GREAT HALL, AN
L-SHAPED ROOM"
1190 PRINT "THERE ARE TWO DOORS IN THIS
ROOM"
1200 PRINT "THE WOOD PANELS ARE WARPED AND
FADED..."
1205 IF RND>.4 THEN PRINT "AS YOU STAND
THERE, YOU HEAR A MOUSE SCAMPER ALONG":PRINT
"THE FLOOR BEHIND YOU...":PRINT
"YOU WHIRL AROUND...BUT SEE NOTHING!"
1210 RETURN
1220 REM ************
1230 REM ROOM 4
1240 PRINT "THIS IS THE MONARCH'S PRIVATE
MEETING ROOM"
1245 IF RND < .4 THEN PRINT "THE ECHO OF
ANCIENT PLOTTING AND WRANGLING HANGS":PRINT
"HEAVY IN THE MUSTY AIR..."
1250 PRINT "THERE IS A SINGLE EXIT TO THE
SOUTH"
1260 RETURN
1270 REM ************
1280 REM ROOM 5
1290 PRINT "THIS INNER HALLWAY CONTAINS A
DOOR TO THE NORTH,"
1300 PRINT "AND ONE TO THE WEST, AND A
CIRCULAR STAIRWELL"
1310 PRINT "PASSES THROUGH THE ROOM"
1315 IF RND >.6 THEN PRINT "THE ROOM IS
SMALL, AND UNFRIENDLY"
1320 PRINT "YOU CAN SEE AN ORNAMENTAL LAKE
THROUGH THE"
1330 PRINT "WINDOWS TO THE SOUTH"
1340 RETURN
1350 REM ************
1360 REM ROOM 6
1370 PRINT "YOU ARE AT THE ENTRANCE TO A
FORBIDDING-LOOKING"
1380 PRINT "STONE CASTLE.  YOU ARE FACING
EAST"
1390 RETURN
1400 REM ************
1410 REM ROOM 7
1420 PRINT "THIS IS THE CASTLE'S KITCHEN.
THROUGH WINDOWS IN"
1430 PRINT "THE NORTH WALL YOU CAN SEE A
SECRET HERB GARDEN."
1440 PRINT "IT HAS BEEN MANY YEARS SINCE
MEALS WERE"
1441 PRINT "PREPARED FOR THE MONARCH AND THE
COURT"
1442 PRINT "IN THIS KITCHEN......."
1443 IF RND>.4 THEN PRINT "...A RAT
SCURRIES ACROSS THE FLOOR..."
1450 RETURN
1460 REM **************
1470 REM ROOM 8
1480 PRINT "YOU ARE IN THE STORE ROOM, AMIDST
SPICES,"
1490 PRINT "VEGETABLES, AND VAST SACKS OF
FLOUR AND"
1500 PRINT "OTHER PROVISIONS."
1515 PRINT "THE AIR IS THICK WITH SPICE AND
CURRY FUMES..."
1520 RETURN
1530 REM **************
1540 REM ROOM 9
1550 PRINT "YOU HAVE ENTERED THE
LIFT..."
1560 GOSUB 3520
1570 PRINT "IT SLOWLY DESCENDS..."
1580 GOSUB 3520
1590 RO=10
1600 GOTO 1000
1610 REM ************************
1620 REM ROOM 10
1630 PRINT "YOU ARE IN THE REAR
VESTIBULE"
1640 PRINT "THERE ARE WINDOWS TO THE SOUTH
FROM WHICH YOU"
1650 PRINT "YOU CAN SEE THE ORNAMENTAL
LAKE"
1660 PRINT "THERE IS AN EXIT TO THE EAST,
AND"
1670 PRINT "ONE TO THE NORTH"
1680 RETURN
1690 REM *****************
1700 REM ROOM 11
1710 RETURN
1720 REM ****************
1730 REM ROOM 12
1740 PRINT "YOU ARE IN THE DANK, DARK
DUNGEON"
1750 PRINT "THERE IS A SINGLE EXIT, A SMALL
HOLE IN"
1760 PRINT "WALL TOWARDS THE WEST"
1765 IF RND>.4 THEN PRINT "...A HOLLOW,
DRY CHUCKLE IS HEARD":PRINT "FROM THE
GUARD ROOM...."
1770 RETURN
1780 REM ****************
1790 REM ROOM 13
1800 PRINT "YOU ARE IN THE PRISON GUARDROOM,
IN THE"
1810 PRINT "BASEMENT OF THE CASTLE. THE
STAIRWELL"
1820 PRINT "ENDS IN THIS ROOM. THERE IS ONE
OTHER"
1830 PRINT "EXIT, A SMALL HOLE IN THE EAST
WALL"
1835 PRINT "THE AIR IS DAMP AND
UNPLEASANT...A CHILL WIND"
1836 PRINT "RUSHES INTO THE ROOM FROM GAPS IN
THE STONE"
1837 PRINT "AT THE TOP OF THE WALLS"
1840 RETURN
1850 REM ****************
1860 REM ROOM 14
1870 PRINT "YOU ARE IN THE MASTER BEDROOM ON
THE UPPER"
1880 PRINT "LEVEL OF THE CASTLE...."
1890 PRINT "LOOKING DOWN FROM THE WINDOW TO
THE WEST YOU"
1900 PRINT "CAN SEE THE ENTRANCE TO THE
CASTLE, WHILE THE"
1910 PRINT "SECRET HERB GARDEN IS VISIBLE
BELOW THE NORTH"
1920 PRINT "WINDOW. THERE ARE DOORS TO THE
EAST AND"
1930 PRINT "TO THE SOUTH...."
1940 RETURN
1950 REM ***************
1960 REM ROOM 15
1970 PRINT "THIS IS THE L-SHAPED UPPER
HALLWAY."
1971 IF RND>.4 THEN PRINT "...A MOTH FLITS
ACROSS NEAR THE CEILING..."
1980 PRINT "TO THE NORTH IS A DOOR, AND THERE
IS A"
1990 PRINT "STAIRWELL IN THE HALL AS WELL.
YOU CAN SEE"
2000 PRINT "THE LAKE THROUGH THE SOUTH
WINDOWS"
2010 RETURN
2020 REM ****************
2030 REM ROOM 16
2040 PRINT "THIS ROOM WAS USED AS THE CASTLE
TREASURY IN"
2050 PRINT "BY-GONE YEARS...."
2055 IF RND>.4 THEN PRINT "...A SPIDER
SCAMPERS DOWN THE WALL........"
2060 PRINT "THERE ARE NO WINDOWS, JUST
EXITS."
2080 RETURN
2090 REM **************
2100 REM ROOM 17
2110 PRINT "OOOOH...YOU ARE IN THE
CHAMBERMAIDS' BEDROOM"
2115 PRINT "FAINT PERFUME STILL HANGS IN THE
AIR..."
2120 PRINT "THERE IS AN EXIT TO THE WEST AND
A DOOR"
2130 PRINT "TO THE SOUTH...."
2140 RETURN
2150 REM ***************
2160 REM ROOM 18
2170 PRINT "THIS TINY ROOM ON THE UPPER LEVEL
IS THE"
2180 PRINT "DRESSING CHAMBER. THERE IS A
WINDOW TO THE"
2190 PRINT "NORTH, WITH A VIEW OF THE HERB
GARDEN DOWN"
2200 PRINT "BELOW. A DOOR LEAVES TO THE
SOUTH"
2210 RETURN
2215 PRINT "YOU CATCH A GLIMPSE OF YOURSELF
IN THE MIRROR"
2216 PRINT "HANGING ON THE WALL AND ARE
SHOCKED AT YOUR"
2217 PRINT "DISHEVELED APPEARANCE"
2220 REM *******************
2230 REM ROOM 19
2240 PRINT "THIS IS THE SMALL ROOM OUTSIDE
THE CASTLE"
2260 PRINT "YOU CAN
SEE......................"
2270 PRINT "THE LAKE THROUGH THE SOUTHERN
WINDOWS"
2280 RETURN
2290 REM **************
2300 REM DEAD END
2310 PRINT "YOU HAVE DIED........."
2320 GOSUB 3520
2330 GOTO 120
2340 REM **************
2350 REM PICK UP TREASURE
2360 IF A(RO,7)<10 THEN PRINT "THERE IS NO
TREASURE TO PICK UP":GOSUB 3520:RETURN
2370 IF LIGHT=0 THEN PRINT "YOU CANNOT SEE
WHERE IT IS":GOSUB 3520:RETURN
2380 WEALTH=WEALTH + A(RO,7)
2390 A(RO,7)=0
2400 RETURN
2410 REM **************
2420 REM UNSUCCESSFUL ATTEMPT TO RUN
2430 PRINT "NO YOU MUST STAND AND FIGHT"
2440 A$="F"
2450 GOSUB 3520
2460 GOTO 590
2470 REM **************
2480 REM EAT FOOD
2490 CLS
2500 IF FOOD<1 THEN RETURN
2510 PRINT "YOU HAVE";FOOD;"UNITS
OF FOOD"
2520 PRINT "HOW MANY DO YOU WANT TO
EAT";
2530 INPUT Z
2540 IF Z>FOOD THEN 2530
2550 FOOD=INT(FOOD-Z)
2560 STRENGTH=INT(STRENGTH+5*Z)
2570 GOSUB 3410:CLS
2580 RETURN
2590 REM ***********
2600 REM INITIALISE
2610 CLS
2620 STRENGTH= 60 + INT(RND(1)*100)
2630 WEALTH= 30 + INT(RND(1)*100)
2640 FOOD=0
2650 TALLY=0
2660 MK=0:REM NO. OF MONSTERS KILLED
2670 REM **************
2680 REM SET UP CASTLE
2690 DIM A(19,7)
2700 FOR B=1 TO 19
2710 FOR C=1 TO 7
2720 READ A(B,C)
2730 NEXT C
2740 NEXT B
2750 INPUT "WHAT IS YOUR NAME,
EXPLORER"; N$
2760 CLS
2770 RO=6:REM STARTING POSITION (RO=ROOM NUMBER)
2780 SWORD=0
2790 AMULET=0
2800 AXE=0
2810 SUIT=0
2820 LIGHT=0
2830 REM **************
2840 REM ALLOT TREASURE
2850 FOR J = 1 TO 4
2860 M=INT(RND(1)*19)+1
2870 IF M=6 OR M=11 OR A(M,7)<>0 THEN 2860
2880 A(M,7)=INT(RND(1)*100)+10
2890 NEXT J
2900 REM **************
2910 REM ALLOT MONSTERS
2920 FOR J=1 TO 6
2930 M=INT(RND(1)*18)+1
2940 IF M=6 OR M=11 OR A(M,7)<>0 THEN 2930
2950 A(M,7)= -J
2960 NEXT J
2970 A(4,7)=100+INT(RND(1)*100)
2980 A(16,7)=100+INT(RND(1)*100)
2990 RETURN
3000 REM ****************************
3010 REM INVENTORY/PROVISIONS
3020 PRINT "PROVISIONS & INVENTORY"
3030 GOSUB 3260
3040 IF WEALTH<.1 THEN Z=0:GOTO 3137
3050 PRINT "YOU CAN BUY 1 - FLAMING TORCH
($15)"
3060 PRINT "            2 - AXE ($10)"
3070 PRINT "            3 - SWORD ($20)"
3080 PRINT "            4 - FOOD ($2 PER
UNIT)"
3090 PRINT "            5 - MAGIC AMULET
($30)"
3100 PRINT "            6 - SUIT OF ARMOR
($50)"
3110 PRINT "            0 - TO CONTINUE
ADVENTURE"
3131 IF LIGHT=1 THEN PRINT "YOU HAVE A
TORCH"
3132 IF AXE=1 THEN PRINT "YOUR SUPPLIES NOW
INCLUDE ONE AXE"
3133 IF SWORD=1 THEN PRINT "YOU SHOULD GUARD
YOUR SWORD WELL"
3134 IF AMULET=1 THEN PRINT "YOUR AMULET WILL
AID YOU IN TIMES OF STRESS"
3135 IF SUIT=1 THEN PRINT "YOU LOOK GOOD IN
ARMOR"
3136 PRINT:INPUT "ENTER NO. OF ITEM
REQUIRED";Z
3137 IF Z=0 THEN CLS:RETURN
3140 IF Z=1 THEN LIGHT=1:WEALTH=WEALTH-15
3150 IF Z=2 THEN AXE=1:WEALTH=WEALTH-10
3160 IF Z=3 THEN SWORD=1:WEALTH=WEALTH-20
3170 IF Z=5 THEN AMULET=1:WEALTH=WEALTH-30
3180 IF Z=6 THEN SUIT=1:WEALTH=WEALTH-50
3190 IF WEALTH<0 THEN PRINT "YOU HAVE
TRIED TO CHEAT ME!":WEALTH=0:SUIT=0:LIGHT=0:
AXE=0:SWORD=0:AMULET=0:FOOD=INT(FOOD/4):GOSUB 3520
3200 IF Z<>4 THEN 3030
3210 INPUT "HOW MANY UNITS OF
FOOD";Q:Q=INT(Q)
3220 IF 2*Q>WEALTH THEN PRINT "YOU HAVEN'T
GOT ENOUGH MONEY":GOTO 3210
3230 FOOD=FOOD+Q
3240 WEALTH=WEALTH-2*Q
3250 GOTO 3030
3260 IF WEALTH>0 THEN PRINT:PRINT:PRINT
"YOU HAVE $";WEALTH
3270 IF WEALTH=0 THEN PRINT "YOU HAVE NO
MONEY":COSUB 3520:RETURN
3280 FOR J=1 TO 4:PRINT:NEXT J
3290 RETURN
3300 REM ******************
3310 DATA 0,2,0,0,0,0,0:REM ROOM 1
3320 DATA 1,3,3,0,0,0,0:REM ROOM 2
3330 DATA 2,0,5,2,0,0,0:REM ROOM 3
3340 DATA 0,5,0,0,0,0,0:REM ROOM 4
3350 DATA 4,0,0,3,15,13,0:REM ROOM 5
3360 DATA 0,0,1,0,0,0,0: REM ROOM 6
3370 DATA 0,8,0,0,0,0,0: REM ROOM 7
3380 DATA 7,10,0,0,0,0,0: REM ROOM 8
3390 DATA 0,19,0,8,0,8,0:REM ROOM 9
3400 DATA 8,0,11,0,0,0,0:REM ROOM 10
3410 DATA 0,0,10,0,0,0,0:REM ROOM 11
3420 DATA 0,0,0,13,0,0,0:REM ROOM 12
3430 DATA 0,0,12,0,5,0,0:REM ROOM 13
3440 DATA 0,15,17,0,0,0,0:REM ROOM 14
3450 DATA 14,0,0,0,0,5,0:REM ROOM 15
3460 DATA 17,0,19,0,0,0,0:REM ROOM 16
3470 DATA 18,16,0,14,0,0,0:REM ROOM 17
3480 DATA 0,17,0,0,0,0,0:REM ROOM 18
3490 DATA 9,0,16,0,0,0,0:REM ROOM 19
3500 REM ******************
3510 REM ADJUST LOOP BELOW TO YOUR SYSTEM
3520 FOR T=1 TO 900:NEXT T
3530 RETURN


Return to Table of Contents | Previous Chapter | Next Chapter