Willus.com
Home
|
Archive
|
About
SORCAST3.BAS
(12683 bytes)
EMULATE AS:
DEFAULT TYPE (BASIC)
|
CMD program
|
Program on Disk
|
2-Disk Debug
|
Disk Download
SHOW BELOW AS:
BASIC program
(download)
|
Text File
(download)
|
Z-80 Program
(download)
|
EDTASM File
(download)
|
Graphic
(download)
|
Hex File
(download)
|
SCRIPSIT File
(download)
Return to TRS-80 software list.
10 CLS:PRINTCHR$(23);" SORCERER'S CASTLE ADVENTURE BY GREG HASSET" 20 CLEAR980:POKE16553,255:DEFINTA-Z:DEFSTRS:CP=49:S1="I DON'T SEE IT HERE.":S2="DON'T BE RIDICULOUS.":GOTO1710 30 GOTO1520 40 IFRND(85)=20THEN1180 50 IFZZ>2ANDRND(100)=50THEN1250 60 IFRND(27)=8THEN1340 70 T=T+1:GOSUB1440:IFVB$="ALA"IFCP=32CP=17:GOTO30:ELSEPRINT"NOTHING HAPPENED.":GOTO70 80 IFVB=-1AND(NO>21ANDNO<30)VB=1 90 IFNO$="JES"PRINT"I SEE NO JESTER HERE.":GOTO70 100 IFVB$="CRO"IF(CP=52ORCP=53)IFCP=53CP=52:GOTO30:ELSECP=53:GOTO30 110 IFVB$="TUR"PRINT"YOU HAVE USED";T;"TURNS SO FAR.":GOTO70 120 IFVB<>30AND(VB>10ORVB=2ORVB=6)ANDNO$=""PRINT"YOU MUST SUPPLY A DIRECT OBJECT.":GOTO70 130 IFVB$="HI"IFRND(2)=1PRINT"HELLO":GOTO70:ELSEPRINT"NICE WEATHER WE'VE BEEN HAVING LATELY.":GOTO70 140 IFNO$="GUN"NO=1 150 IFVB=30THEN1080 160 IFNO$="BAG"NO=5 170 IFVB=-1ANDNO<>0AND(NO<22ORNO>29)PRINT"YOU MUST SUPPLY A VERB.":GOTO70 180 IFVB<1ANDNO=0PRINT"I DON'T KNOW HOW TO "CHR$(34);N1$;CHR$(34)" ANYTHING.":GOTO70 190 IFVB=6AND(NO$="EVE"ORNO$="ALL")THEN210 200 IFNO=0ANDVB>10PRINT"I DON'T KNOW WHAT A "CHR$(34);N1$;CHR$(34)" IS.":GOTO70 210 ONVBGOTO220,290,30,360,390,410,470,480,490,500,520,530,560,650,670,750,780,840,850,850,560,930,930,950,960,990,1020,1050,1060,1080 220 IF(NO<22ORNO>29)ANDNO$<>""PRINT"I DON'T KNOW HOW TO DO THAT.":GOTO70 230 IFNO$=""PRINT"WHERE?":GOTO70 240 IFNO>25NO=NO-4 250 NO=NO-22:IFP(CP,NO)=0PRINT"THERE IS NO WAY TO GO IN THAT DIRECTION.":GOTO70 260 IFCP=1ANDNO=1ANDDF=0PRINT"THE CASTLE DOOR IS LOCKED.":GOTO70 270 IFCP=17ANDNO=1ANDCF=0PRINT"THE CRACK IS FAR TOO SMALL FOR YOU TO FOLLOW.":GOTO70 280 CP=P(CP,NO):GOTO30 290 IFOB(NO,0)=-1PRINT"YOU'VE ALREADY GOT IT!":GOTO70 300 IFNO=0PRINT"WHAT'S A ";N1$;"?":GOTO70 310 IFOB(NO,0)<>CPPRINTS1:GOTO70 320 IFNO=17ORNO=21ORNO=20ORNO=16PRINTS2:GOTO70 330 IFZZ+1>7PRINT"YOU ARE UNABLE TO CARRY ANY MORE.":GOTO70 340 IFNO=9ANDPF=0PRINT"THE MOVEMENT OF THE PAINTING REVEALS A VAULT IN THE WALL. THE VAULT IS LOCKED.":PF=1:OB(16,0)=CP:OB(9,0)=-1:ZZ=ZZ+1:GOTO70 350 PRINT"OKAY.":ZZ=ZZ+1:OB(NO,0)=-1:GOTO70 360 IFZZ=0PRINT"YOU ARE EMPTY-HANDED.":GOTO70 370 PRINT"YOU ARE HOLDING THE FOLLOWING :":FORI=1TOLO:IFOB(I,0)=-1PRINTOB$(I) 380 NEXTI:GOTO70 390 J=0:FORI=1TOLO:IFOB(I,0)=1J=J+OB(I,1):NEXTI:ELSENEXTI 400 PRINT"OUT OF A MAXIMUM OF 225 POINTS, YOU HAVE";J;"POINTS.":GOTO70 410 IFNO<>0ANDOB(NO,0)<>-1PRINT"YOU'RE NOT CARRYINH IT!":GOTO70 420 IFNO$<>"EVE"ANDNO$<>"ALL"THEN450 430 IFZZ=0PRINT"YOU'RE NOT CARRYING ANYTHING!":GOTO70:ELSEFORI=1TOLO:IFOB(I,0)=-1OB(I,0)=CP 440 NEXTI:ZZ=0:PRINT"OK.":GOTO70 450 IFNO=0PRINT"I'VE HEARD OF A ";N1$;".":GOTO70 460 OB(NO,0)=CP:PRINT"DROPPED.":ZZ=ZZ-1:GOTO70 470 PRINT"SORRY, THIS IS YOUR ADVENTURE, NOT MINE!":GOTO70 480 CLS:OPEN"O",1,NA$:CLS:PRINT"SAVING...":FORI=1TOLO:PRINT#1,OB(I,0):NEXTI:PRINT#1,CP;T;DF;VF;CF;PF;SF%;WF;ZZ:CLOSE:GOTO30 490 CLS:OPEN"I",1,NA$:CLS:PRINT"LOADING...":FORI=1TOLO:INPUT#1,OB(I,0):NEXTI:INPUT#1,CP,T,DF,VF,CF,PF,SF%,WF,ZZ:CLOSE:GOTO30 500 INPUT"DO YOU REALLY WANT TO QUIT NOW";QN$:IFLEFT$(QN$,1)<>"Y"THEN70:ELSEINPUT"ARE YOU SURE";Q2$:IFLEFT$(Q2$,1)<>"Y"PRINT"I DIDN'T THINK SO.":GOTO70 510 GOTO1380 520 PRINT"ALL RIGHT...";N1$;:GOTO70 530 IFOB(NO,0)<>-1PRINT"YOU'RE NOT HOLDING IT HENCE IT IS IMPOSSIBLE TO DRINK IT.":GOTO70 540 IFNO<>7PRINTS2:GOTO70 550 PRINT"OKAY. GULP GULP GULK. SOMETHING SEEMS DIFFERENT NOW...":ZZ=ZZ-1:OB(7,0)=0:CF=1:GOTO70 560 IFNO<>31ANDNO<>16ANDNO<>30PRINT"I KNOW NOT HOW TO OPEN SUCH A THING.":GOTO70 570 IFNO=16ONDOB(16,0)<>CPPRINT"WHAT VAULT?":GOTO70 580 IFNO=16ANDOB(2,0)<>-1PRINT"YOU DON'T HAVE THE KEY.":GOTO70 590 IFNO=16PRINT"THE VAULT IS OPEN.":VF=1:IFOB(15,0)=0PRINT"A GOLD BAR FALLS OUT!":OB(15,0)=CP 600 IFNO=16THEN70 610 IFNO=31THEN1150 620 IFCP<>1PRINT"WHAT DOOR?":GOTO70 630 IFOB(2,0)<>-1PRINT"YOU DON'T SEEM TO HAVE THE KEY.":GOTO70 640 PRINT"THE DOOR IS OPEN.":DF=1:GOTO70 650 IFOB(NO,0)<>-1PRINT"YOU ARE NOT CARRYING.":GOTO70 660 PRINT"I'VE KNOWN STRANGE PEOPLE, BUT ATTACKING ";OB$(NO);"?":GOTO70 670 IFNO=20THEN720 680 IFNO=17PRINT"WHAT KNIGHT?":GOTO70 690 IFNO=21PRINT"I SEE NO PIRATE HERE.":GOTO70 700 IFOB(I,0)<>-1PRINT"YOU ARE NOT CURRENTLY HOLDING THAT.":GOTO70 710 PRINT"IT ISN'T ALIVE!":GOTO70 720 IFCP<>32PRINT"WHAT SORCERER?":GOTO70 730 IFOB(8,0)<>-1PRINT"YOU HAVE NO SWORD TO DO IT WITH. OH MY! THE SORCERER HAS JUST KILLED YOU!":FORI=1TO2000:NEXTI:GOTO1380 740 PRINT"THE SORCERER DIED AND THEN VANISHED. HIS SCEPTOR REMAINS.":OB(14,0)=CP:OB(20,0)=0:GOTO70 750 IFOB(NO,0)<>-1PRINT"YOU DON'T HAVE THAT RIGHT NOW.":GOTO70 760 IFNO<>3PRINT"HOW DO EXPECT TO READ ";OB$(NO);"?":GOTO70 770 PRINT"IT SAYS: MAGIC WORD : ALAKAZAM.":GOTO70 780 IFOB(NO,0)<>-1ANDOB(NO,0)<>CPPRINT"I DON'T SEE THAT HERE.":GOTO70 790 IFOB(1,0)<>-1PRINT"YOU DON'T HAVE A GUNN!":GOTO70 800 IFNO=17PRINT"THE BULLET DISOLVES AS IT HITS THE ARMOR.":GOTO70 810 PRINT"THE GOLDEN BULLET FROM THE PISTOL VAPORIZES THAT." 820 IFOB(NO,0)=-1ZZ=ZZ-1 830 OB(NO,0)=0:GOTO70 840 IFOB(NO,0)=-1PRINTS2:GOTO70:ELSEPRINT"YOU'RE NOT HOLDING IT.":GOTO70 850 IFNO=16ORNO=30ORNO=31THEN880 860 IFOB(NO,0)<>-1PRINT"YOU ARE NOT HOLDING THAT TO MY KNOWLEDGE.":GOTO70 870 PRINT"I DON'T KNOW HOW TO CLOSE SUCH A THING.":GOTO70 880 IFNO=16ANDOB(16,0)<>CPPRINT"WHAT VAULT?":GOTO70 890 IFNO=16PRINT"THE VAULT IS CLOSED AND LOCKED.":VF=0:GOTO70 900 IFNO=31THEN1120 910 IFCP<>1PRINT"WHAT DOOR?":GOTO70 920 PRINT"THE DOOR IS CLOSED AND LOCKED.":DF=0:GOTO70 930 IFOB(NO,0)<>-1PRINT"YOU'RE NOT HOLDING IT.":GOTO70 940 PRINT"NO, THESE ITEMS HAVE TO BE USED ON THE NEXT ADVENTURE, TOO.":GOTO70 950 PRINT"THE VALUE OF THAT IS";OB(NO,1);"POINTS.":GOTO70 960 IFOB(NO,0)<>-1PRINT"YOU DON'T SEEM TO HAVE IT.":GOTO70 970 IFNO<>8PRINT"WOW THIS IS FUN!":GOTO70 980 PRINT"WHOOOSH!":GOTO70 990 IFOB(NO,0)<>-1PRINT"YOU'RE NOT CURRENTLY CARRYING IT.":GOTO70 1000 IFNO<>8PRINTS2:GOTO70 1010 PRINT"IT IS ALREADY RAZOR SHARP.":GOTO70 1020 IFOB(N0,0)<>-1PRINT"TU NE LE PORTES PAS (YOU'RE NOT CARRYING IT).":GOTO70 1030 IFNO<>19PRINT"HOW?":GOTO70 1040 PRINT"VERY GOOD! NOW YOU MAY GO TO SECOND GRADE!":GOTO70 1050 PRINT"TRY DROP.":GOTO70 1060 PRINT"I CAN ONLY TELL YOU WHAT IS IN THE ROOM WITH YOU. SORRY," 1070 PRINT"I CANNOT FIND ANYTHING.":GOTO70 1080 IFCP<>44IFRND(2)=1PRINT"WHEEE!":ELSEPRINT"ARE YOU ENJOYING YOURSELF?" 1090 IFCP<>44THEN70 1100 IFWF=0PRINT"THE WINDOW IS ONLY SLIGHT AJAR.":GOTO70 1110 PRINT"OKAY...YOU FALL SAFELY INTO A PILE OF LEAVES.":CP=48:PRINT"YOU SEEM TO BE LOST IN A FOREST OF SPRUCE TREES.":GOTO70 1120 IFCP<>44PRINT"WHAT WINDOW? I DON'T SEE A WINDOW!":GOTO70 1130 IFWF=0PRINT"IT IS ALREADY CLOSED.":GOTO70 1140 PRINT"HAVING OPENED IT EARLIER, YOU FIND IT IMPOSSIBLE TO CLOSE.":GOTO70 1150 IFCP<>44PRINT"WHAT WINDOW?":GOTO70 1160 IFWF=1PRINT"IT IS ALREADY OPEN.":GOTO70 1170 PRINT"THROUGH A GREAT EFFORT, YOU OPEN THE WINDOW. THERE IS A PILE OF LEAVES OUTSIDE THE WINDOW.":WF=1:GOTO70 1180 PRINT"HOLY MOLY! A BLACK KNIGHT WALKED IN TO KILL YOU!":GOSUB1440 1190 IFVB<>17ORNO<>17THEN1220 1200 IFOB(1,0)<>-1PRINT"YOU HAVE NO GUN!":GOTO1220 1210 PRINT"THE KNIGHT DISINTEGRATED.":GOTO70 1220 PRINT"THE KNIGHT IS RUNNING TOWARD YOU..."; 1230 IFRND(5)=2PRINT"IT KILLS YOU":FORI=1TO2000:NEXTI:GOTO1380 1240 PRINT"IT MISSES YOU AND CRASHES INTO THE WALL...WAIT! HE HAS DISAPPEARED!":GOTO70 1250 PRINT"A PIRATE JUST APPEARED AND CHORTLED," 1260 PRINT"WELL SHIVER ME TIMBERS! NOT ANOTHER ONE! HAR HAR HAR," 1270 PRINT"I'LL JUST SNATCH ALL THIS BOOTY AND HIDE IT" 1280 PRINT"DEEP IN THE MAZE." 1290 PRINT"WITH THAT HE STEALS AL OF YOUR TREASURE!" 1300 FORI=1TOLO:IFOB(I,0)<>-1THEN1330 1310 IFOB(I,1)=0THEN1330 1320 OB(I,0)=RND(6)+34:ZZ=ZZ-1 1330 NEXTI:GOTO70 1340 PRINT"JINGLE JINGLE JINGLE!":PRINT"CHESTER THE JESTER POPS UP AND CHANTS," 1350 PRINTCHR$(34);C$(RND(8)-1);" TEE HEE HEE!";CHR$(34) 1360 PRINT"AN THEN VANISHES IN A CLOUD OF PINK SMOKE." 1370 GOTO70 1380 CLS:J=0:FORI=1TOLO:IFOB(I,0)=1J=J+OB(I,1) 1390 NEXTI 1400 PRINT"OUT OF A MAXIMUM OF 225 POINTS, YOU HAVE SCORED";J;"POINTS." 1410 END 1420 PRINT"WHAZZAT?":GOTO70 1430 STOP 1440 INPUT"***** WHAT DO YOU WANT TO DO";CM$ 1450 N1$="":V1$="":NO=0:VB=0:NO$="":VB$="" 1460 CM=LEN(CM$):FORI=1TOCM:IFMID$(CM$,I,1)<>" "V1$=V1$+MID$(CM$,I,1):NEXTI 1470 VB$=LEFT$(V1$,3):FORI=1TONV:IFVB$(I)=VB$VB=I:GOTO1490:ELSENEXTI 1480 VB=-1:N1$=V1$:GOTO1500 1490 IFLEN(V1$)>=LEN(CM$)NO=0:RETURN:ELSEN1$=RIGHT$(CM$,LEN(CM$)-1-LEN(V1$)) 1500 NO$=LEFT$(N1$,3):FORI=1TONN:IFNO$(I)=NO$NO=I:RETURN:ELSENEXTI 1510 NO=0:RETURN 1520 CLS:PRINT"YOU'RE ";P$(CP):FORI=1TOLO 1530 IFOB(I,0)=CPPRINT" *** THERE IS ";OB$(I);" HERE." 1540 NEXTI 1550 IFCP=1ANDDF=0PRINT"THE DOOR IS LOCKED." 1560 IFCP=18ANDVF=0ANDOB(16,0)=18PRINT"THE VAULT IS LOCKED." 1570 IFCP=17ANDCF=0PRINT"A SMALL CRACK LEADS SOUTHWARD." 1580 IFCP=1ANDDF=1PRINT"THE DOOR IS OPEN." 1590 IFCP=18ANDVF=1ANDOB(16,0)=18PRINT"THE VAULT IS OPEN." 1600 IFCP=44ANDWF=0PRINT"THE WINDOW IS SLIGHTLY AJAR." 1610 IFCP=17ANDCF=1PRINT"A TOWERING HOLE LEADS SOUTHWARD." 1620 IFCF=0P(17,1)=0 1630 IFCP=44ANDWF=1PRINT"THE WINDOW IS WIDE OPEN. THERE IS A RATHER LARGE PILE OF LEAVES OUTSIDE THE WINDOW." 1640 K=0:PRINT"YOU CAN GO ";:FORI=0TO3:IFP(CP,I)=0THEN1670 1650 IFK=1PRINT", "; 1660 PRINTD$(I);:K=1 1670 NEXT:IFK=0PRINT"NOWHERE!" 1680 IFK=1PRINT 1690 P(17,1)=18 1700 PRINT"================================================================":GOTO40 1710 NP=53:LO=35:NN=31:NV=30:DIMP(NP,3),P$(NP),VB$(NV),NO$(NN),OB(LO,1),OB$(LO) 1720 P$(1)="OUTSIDE A MEDIEVAL CASTLE.":DATA5,8,3,2,4,7,1,0,6,7,0,1 1730 P$=" SIDE OF THE CASTLE.":P$(2)="AT THE WEST"+P$:P$(3)="AT THE EAST"+P$ 1740 P$(4)="IN A VAST FOREST STRETCHING OUT OF SIGHT.":DATA4,2,4,4,53,0,6,1 1750 P$(5)=P$(4):P$(6)=P$(4):DATA6,6,6,5 1760 P$(7)="AT THE SOUTH"+P$+" THERE IS A TOWER WITH A SMALL WINDOW IN THE FAR, FAR DISTANCE.":DATA2,0,0,0 1770 P$(8)="IN A SPENDID CHAMBER 30FT HIGH.":DATA1,11,0,10 1780 P$(9)="IN A DAMP, MUSTY LIBRARY.":DATA0,10,0,0 1790 P$(10)="IN THE MASTER BEDROOM.":DATA9,0,8,0 1800 P$="IN A VAST CORRIDOR STRETCHING OUT OF SIGHT TO THE ":P$(11)=P$+"SOUTH.":DATA8,12,14,0 1810 P$(12)=P$+"NORTH AND SOUTH.":DATA11,13,15,0 1820 P$(13)=P$+"NORTH.":DATA12,0,16,17 1830 P$="IN A BEDROOM WITH A ":P$(14)=P$+"STONE FLOOR.":P$(15)=P$+"WOODEN FLOOR.":P$(16)=P$+"DIRT FLOOR.":DATA0,0,0,11,0,0,0,12,0,33,0,13 1840 P$(17)="IN A DUSTY PANTRY. MARKINGS IN THE DUST READ, GO SOUTH TO DUNGEON.":DATA0,18,13,0 1850 P$(18)="IN A PRIMITIVE ART GALLERY.":DATA17,19,0,19 1860 P$(19)="IN A MAZE OF TWISTY LITTLE PASSAGES." 1870 P$(20)="IN A TWISTY MAZE OF LITTLE PASSAGES." 1880 P$(21)="IN A LITTLE MAZE OF TWISTY PASSAGES." 1890 P$(22)="IN A TWISTING MAZE OF LITTLE PASSAGES." 1900 P$(23)="IN A LITTLE TWISTY MAZE OF PASSAGES." 1910 DATA0,20,18,0,20,22,20,19,21,21,22,23,21,22,20,22,21,24,23,23 1920 P$(24)="IN THE KITCHEN.":DATA23,27,25,0,0,27,26,24,29,28,30,25 1930 P$(25)="IN THE DINING ROOM.":P$(26)="IN THE ALCOVE TO THE STUDY.":P$(27)="IN THE OFFICE OF THE SORCEROR (?)":DATA24,0,28,0 1940 P$(28)="IN THE DRAWING ROOM.":DATA0,0,0,27,0,26,0,0,0,31,0,26 1950 P$(29)="IN THE PARLOR.":P$(30)="IN THE STUDY.":P$(31)="IN THE SITTING ROOM.":DATA0,0,0,0,0,0,0,0 1960 P$(32)="IN THE DUNGEON!" 1970 FORI=1TONP:FORJ=0TO3:READP(I,J):NEXTJ,I:P(31,RND(4)-1)=32 1980 P$(33)="IN A PRIMEVAL CONFERENCE ROOM.":DATA16,0,35,0 1990 P$(34)="IN THE TOWER. IT OVERLOOKS A HUGE KINGDOM DOWN A MONSTROUS MOUNTAIN. THE GRASS IS GREENER THAN GREEN ITSELF.":DATA0,0,36,0 2000 P$(35)="IN A MAZE OF TWISTY LITTLE PASSAGES, ALL ALIKE." 2001 FORI=36TO40:P$(I)=P$(35):NEXT:DATA36,35,35,33,38,34,37,35,36,0,39,0,40,39,39,36,38,37,39,38,41,38,0,0,42,40,0,0 2010 P$(41)="AT THE BRINK OF A HUGE PIT.":P$(43)="IN A BARREN CUBICLE, WITH PASSAGES LEADING OFF TO THE NORTH AND SOUTH." 2011 P$(42)="IN THE PIT. A GOOD PASSAGE EXITS TO THE NORTH." 2020 P$(44)="AT THE END OF THE CASTLE. YOU CAN SEE FOREST OUT A SMALL WINDOW.":DATA43,0,41,0,44,42,0,0,0,0,0,0 2030 P$(45)="LOST IN A DARK FOREST MADE UP OF CHIEFLY SPRUCE TREES." 2031 FORI=46TO48:P$(I)=P$(45):NEXTI:DATA45,46,45,49,45,47,46,50,46,51,47,48,50,48,47,48 2040 P$(49)="ON AN OLD PATH MADE BY HORSES IN MEDIEVAL TIMES.":P$(51)="IN THE MIDDLE OF A CLEARING. TO THE SOUTH IS A BRIDGE." 2041 P$(52)="ON THE NORTH SIDE OF THE BRIDGE":P$(53)="ON THE SOUTH SIDE OF THE BRIDGE.":DATA0,50,45,0,49,48,46,0,0,52,47,0,51,53 2050 DATA0,0,52,5,0,0,PIS,KEY,BOO,RUG,COI,SAP,LIQ,SWO,PAI,OPA,SIL,PEN,PIL,SCE,BAR,VAU,KNI,CUP,CRO,SOR,PIR 2051 DATANOR,SOU,EAS,WES,N,S,E,W,DOO,WIN 2060 DATAGO,GET,LOO,INV,SCO,DRO,HEL,SAV,LOA,QUI,SAY,DRI,OPE,HIT,KIL,REA,SHO,EAT,CLO,LOC,UNL,DES,BRE,VAL,SWI,SHA,WEA,THR,FIN,JUM 2070 FORI=1TONN:READNO$(I):NEXTI:FORI=1TONV:READVB$(I):NEXTI 2080 DATAA GOLD PISTOL,4,10,A SET OF KEYS,2,0,A BOOK ON SORCERY,9,0,A PERSIAN RUG,10,15,A BAG OF COINS,3,15,A PRICELESS SAPHIRE 2081 DATA14,10,A FLASK OF LIQUID,15,0,A GOLDEN SWORD,42,10,A PRICELESS PAINTING,18,15 2090 DATAA GIANT OPAL,22,15,A SET OF SILVERWARE,24,15,A PLATINUM PEN,27,5,A VELVET PILLOW,43,30,THE SORCERER'S SCEPTOR,0,50 2091 DATAA GOLD BAR,0,20,A VAULT IN THE WALL,0,0,A BLACK KNIGHT,0,0,A PEWTER CUP,25,15,A KING'S CROWN,30,10,XXX 2100 DATA32,0,AN EVIL PIRATE,0,0 2110 FORI=1TO21:READOB$(I),OB(I,0),OB(I,1):NEXTI 2120 DATANORTH,SOUTH,EAST,WEST 2130 FORI=0TO3:READD$(I):NEXTI 2140 P$(19)=P$(19)+" A NOTE ON THE WALL READS: THIS IS NOT THE MAZE WHERE THE PIRATE HIDES HIS TREASURE. --GH" 2150 OB$(20)="AN EVIL SORCERER JUST WAITING TO CAST A SPELL ON YOU" 2160 P$(50)="AT THE END OF THE PATH, WITH FOREST SURROUNDING YOU IN ALL DIRECTIONS EXCEPT NORTH, WHERE YOU WERE BEFORE." 2170 P(50,3)=48:P$(47)=P$(47)+" TO THE SOUTH THERE SEEMS TO BE LIGHT." 2180 FORI=52TO53:P$(I)=P$(I)+" ACROSS THE BRIDGE IS MORE FOREST.":NEXT 2190 P(36,2)=37 2200 C$(0)="PAY ATTENTION IN THE MAZE, TO THE WORDING OF THE PHRASE! IF YOU DO YOU'LL BE UN-MAZED." 2210 C$(1)="GULP GULP GULP, DRINK IT DOWN, I'M NOT SUCH A STUPID CLOWN!" 2220 C$(2)="OUT OF THE WINDOW YOU MAY FALL. JUST LOOK OUT, THAT IS ALL!" 2230 C$(3)="THE KNIGHTS CAN'T BE KILLED, AS FAR AS I KNOW. IF YOU FIND THEY CAN, PLEASE TELL ME SO!" 2240 C$(4)="DON'T BRING THE SWORD TO THE SORCERER'S PLACE, IF YOU DO HE MIGHT CONFRONT YOU FACE TO FACE!" 2250 C$(5)="HOCUS POCUS, ALAKAZAM! DON'T READ THE BOOK OR YOU'LL BE SORRY! (YOU TRY TO RHYME ALAKAZAM)!" 2260 C$(6)="PASSAGES THAT SEEM ALL ALIKE CAN SEEM QUITE DIFFERENT, JUST HOPE YOU'RE RIGHT!" 2270 C$(7)="NOT ALL TREASURE LIES UNDER A ROOF. SOME MIGHT BE UNDER A TREE!" 2280 CLS:INPUT"WHAT IS YOUR NAME";NA$:NA$=NA$+"/AN4:0":GOTO30