Willus.com
Home
|
Archive
|
About
SORCAST2.BAS
(12865 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: PRINT CHR$(23);" SORCERER'S CASTLE ADVENTURE BY GREG HASSETT" 20 CLEAR980:ON ERROR GOTO 1420:DEFINTA-Z:DEFSTRS:CP=49:S1="I DON'T SEE IT HERE.":S2="DON'T BE RIDICULOUS.":GOTO1710 30 GOTO1520 40 IF RND(85)=20THEN1180 50 IF ZZ>2AND RND(100)=50THEN1250 60 IF RND(27)=8THEN1340 70 T=T+1:GOSUB1440:IF VB$="ALA"IFCP=32CP=17:GOTO30:ELSEPRINT"NOTHING HAPPENED.":GOTO70 80 IF VB=-1AND(NO>21ANDNO<30)VB=1 90 IF NO$="JES"PRINT"I SEE NO JESTER HERE.":GOTO70 100 IF VB$="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 IF VB$="HI"IFRND(2)=1PRINT"HELLO":GOTO70:ELSEPRINT"NICE WEATHER WE'VE BEEN HAVING LATELY.":GOTO70 140 IF NO$="GUN"NO=1 150 IF VB=30THEN1080 160 IF NO$="BAG"NO=5 170 IF VB=-1ANDNO<>0AND(NO<22ORNO>29)PRINT"YOU MUST SUPPLY A VERB.":GOTO70 180 IF VB<1ANDNO=0PRINT"I DON'T KNOW HOW TO "CHR$(34);N1$;CHR$(34)" ANYTHING.":GOTO70 190 IF VB=6AND(NO$="EVE"ORNO$="ALL")THEN210 200 IF NO=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 IF NO$=""PRINT"WHERE?":GOTO70 240 IF NO>25NO=NO-4 250 NO=NO-22:IF P(CP,NO)=0PRINT"THERE IS NO WAY TO GO IN THAT DIRECTION.":GOTO70 260 IFCP=1ANDNO=1ANDDF=0PRINT"THE CASTLE DOOR'S LOCKED.":GOTO70 270 IF CP=17ANDNO=1ANDCF=0PRINT"THE CRACK IS FAR TOO SMALL FOR YOU TO FOLLOW.":GOTO70 280 CP=P(CP,NO):GOTO30 290 IF OB(NO,0)=-1PRINT"YOU'RE ALREADY GOT IT!":GOTO70 300 IF NO=0PRINT"WHAT'S A ";N1$; "?":GOTO70 310 IF OB(NO,0)<>CPPRINTS1:GOTO70 320 IF NO=17ORNO=21ORNO=20ORNO=16PRINTS2:GOTO70 330 IF ZZ+1>7PRINT"YOU ARE UNABLE TO CARRY ANYMORE.":GOTO70 340 IF NO=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 IF ZZ=0PRINT"YOU ARE EMPTY-HANDED.":GOTO70 370 PRINT"YOU ARE HOLDING THE FOLLOWING: ":FOR I=1TOLO:IF OB(I,0)=-1PRINTOB$(I) 380 NEXTI:GOTO70 390 J=0:FORI=1TOLO:IF OB(I,0)=1 J=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 CARRYING IT!":GOTO70 420 IFNO$<>"EVE"ANDNO$<>"ALL"THEN450 430 IF ZZ=0PRINT"YOU'RE NOT CARRYING ANYTHING!":GOTO70:ELSEFORI=1TOLO:IFOB(I,0)=-1 OB(I,0)=CP 440 NEXTI:ZZ=0:PRINT"OK.":GOTO70 450 IF NO=0PRINT"I'VE NEVER 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$:IF LEFT$(QN$,1)<>"Y"THEN70:ELSEINPUT"ARE YOU SURE?"; Q2$:IF LEFT$(Q2$,1)<>"Y"PRINT"I DIDN'T THINK SO.":GOTO70 510 GOTO1380 520 PRINT"ALL RIGHT..."; N1$;:GOTO70 530 IF OB(NO,0)<>-1PRINT"YOU'RE NOT HOLDING IT HENCE IT IS IMPOSSIBLE TO DRINK IT.":GOTO70 540 IF NO<>7PRINTS2:GOTO70 550 PRINT"OKAY. GULP GULP GULK. SOMETHING SEEMS DIFFERENT NOW...":ZZ=ZZ-1:OB(7,0)=0:CF=1:GOTO70 560 IF NO<>31ANDNO<>16ANDNO<>30PRINT"I KNOW NOT HOW TO OPEN SUCH A THING.":GOTO70 570 IF NO=16ANDOB(16,0)<>CPPRINT"WHAT VAULT?":GOTO70 580 IF NO=16ANDOB(2,0)<>-1PRINT"YOU DON'T HAVE THE KEY.":GOTO70 590 IF NO=16PRINT"THE VAULT IS OPEN.":VF=1:IF OB(15,0)=0PRINT"A GOLD BAR FALLS OUT!":OB(15,0)=CP 600 IF NO=16THEN70 610 IF NO=31THEN1150 620 IF CP<>1PRINT"WHAT DOOR?":GOTO70 630 IF OB(2,0)<>-1PRINT"YOU DON'T SEEM TO HAVE THE KEY.":GOTO70 640 PRINT"THE DOOR IS OPEN.":DF=1:GOTO70 650 IF OB(NO,0)<>-1PRINT"YOU ARE NOT CARRYING IT.":GOTO70 660 PRINT"I'VE KNOWN STRANGE PEOPLE, BUT ATTACKING "; OB$(NO);"?":GOTO70 670 IF NO=20THEN720 680 IF NO=17PRINT"WHAT KNIGHT?":GOTO70 690 IF NO=21PRINT"I SEE NO PIRATE HERE.":GOTO70 700 IF OB(I,0)<>-1PRINT"YOU ARE NOT CURRENTLY HOLDING THAT.":GOTO70 710 PRINT"IT ISN'T ALIVE!":GOTO70 720 IF CP<>32PRINT"WHAT SORCERER?":GOTO70 730 IF OB(8,0)<>-1PRINT"YOU HAVE NO SWORD TO DO IT WITH. OH MY! THE SORCERER HAS JUST KILLED YOU!":FORI=1TO3000:NEXTI:GOTO1380 740 PRINT"THE SORCERER DIED AND THEN VANISHED. ONLY HIS SCEPTOR REMAINS.":OB(14,0)=CP:OB(20,0)=0:GOTO70 750 IF OB(NO,0)<>-1PRINT"YOU DON'T HAVE THAT RIGHT NOW.":GOTO70 760 IF NO<>3PRINT"HOW DO YOU EXPECT TO READ "; OB$(NO); "?":GOTO70 770 PRINT"IT SAYS : MAGIC WORD : ALAKAZAM.":GOTO70 780 IF OB(NO,0)<>-1ANDOB(NO,0)<>CPPRINT"I DON'T SEE THAT HERE.":GOTO70 790 IF OB(1,0)<>-1PRINT"YOU DON'T HAVE A GUN!":GOTO70 800 IF NO=17PRINT"THE BULLET DISSOLVES AS IT HITS THE ARMOR.":GOTO70 810 PRINT"THE GOLDEN BULLET FROM THE GOLDEN PISTOL VAPORIZES THAT." 820 IF OB(NO,0)=-1 ZZ=ZZ-1 830 OB(NO,0)=0:GOTO70 840 IF OB(NO,0)=-1PRINTS2:GOTO70:ELSEPRINT"YOU'RE NOT HOLDING IT.":GOTO70 850 IFNO=16ORNO=30ORNO=31THEN880 860 IF OB(NO,0)<>-1PRINT"YOU'RE NOT HOLDING THAT TO MY KNOWLEDGE.":GOTO70 870 PRINT"I DON'T KNOW HOW TO CLOSE SUCH A THING.":GOTO70 880 IF NO=16ANDOB(16,0)<>CPPRINT"WHAT VAULT?":GOTO70 890 IF NO=16PRINT"THE VAULT IS CLOSED AND LOCKED.":VF=0:GOTO70 900 IF NO=31THEN1120 910 IF CP<>1PRINT"WHAT DOOR?":GOTO70 920 PRINT"THE DOOR IS CLOSED AND LOCKED.":DF=0:GOTO70 930 IF OB(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 IF OB(NO,0)<>-1PRINT"YOU DON'T SEEM TO HAVE IT.":GOTO70 970 IF NO<>8PRINT"WOW THIS IS FUN!":GOTO70 980 PRINT"WHOOOSH!":GOTO70 990 IF OB(NO,0)<>-1PRINT"YOU'RE NOT CURRENTLY CARRYING IT.":GOTO70 1000 IF NO<>8PRINTS2:GOTO70 1010 PRINT"IT IS ALREADY RAZOR SHARP.":GOTO70 1020 IF OB(NO,0)<>-1PRINT"TU NE LE PORTES PAS (YOU'RE NOT CARRYING IT).":GOTO70 1030 IF NO<>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 IF CP<>44IFRND(2)=1PRINT"WHEEEE!":ELSEPRINT"ARE YOU ENJOYING YOURSELF?" 1090 IF CP<>44THEN70 1100 IF WF=0PRINT"THE WINDOW IS ONLY SLIGHTLY AJAR.":GOTO70 1110 PRINT"OKAY...YOU FALL SAFELY IN THE PILE OF LEAVES.":CP=48:PRINT"YOU SEEM TO BE LOST IN THE FOREST OF SPRUCE TREES.":GOTO70 1120 IF CP<>44PRINT"WHAT WINDOW? I DON'T SEE A WINDOW!":GOTO70 1130 IF WF=0PRINT"IT IS ALREADY CLOSED.":GOTO70 1140 PRINT"HAVING OPENED IT EARLIER, YOU FIND IT IMPOSSIBLE TO CLOSE.":GOTO70 1150 IF CP<>44PRINT"WHAT WINDOW?":GOTO70 1160 IF WF=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 IF VB<>17ORNO<>17THEN1220 1200 IF OB(1,0)<>-1PRINT"YOU HAVE NO GUN!":GOTO1220 1210 PRINT"THE KNIGHT DISINTEGRATED.":GOTO70 1220 PRINT" THE KNIGHT IS RUNNING TOWARD YOU..."; 1230 IF RND(5)=2PRINT"IT KILLS YOU":FORI=1TO3000: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 ALL OF YOUR TREASURE!" 1300 FOR I=1TOLO:IFOB(I,0)<>-1THEN1330 1310 IF OB(I,1)=0THEN1330 1320 OB(I,0)=RND(6)+34:ZZ=ZZ-1 1330 NEXTI:GOTO70 1340 PRINT"JINGLE JINGLE JINGLE!":PRINT"CHESTER THE COURT JESTER POPS UP AND CHANTS," 1350 PRINTCHR$(34); C$(RND(8)-1); " TEE HEE HEE!"; CHR$(34) 1360 PRINT"AND THEN VANISHES IN A CLOUD OF PINK SMOKE." 1370 GOTO70 1380 CLS:J=0:FORI=1TOLO:IF OB(I,0)=1 J=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 IF LEN(V1$)+1>=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 IF OB(I,0)=CPPRINT" *** THERE IS "; OB$(I); " HERE." 1540 NEXTI 1550 IF CP=1ANDDF=0PRINT"THE DOOR IS LOCKED." 1560 IF CP=18ANDVF=0ANDOB(16,0)=18PRINT"THE VAULT IS LOCKED." 1570 IF CP=17ANDCF=0PRINT"A SMALL CRACK LEADS SOUTHWARD." 1580 IF CP=1ANDDF=1PRINT"THE DOOR IS OPEN." 1590 IF CP=18ANDVF=1ANDOB(16,0)=18PRINT"THE VAULT IS OPEN." 1600 IF CP=44ANDWF=0PRINT"THE WINDOW IS SLIGHTLY AJAR." 1610 IF CP=17ANDCF=1PRINT"A TOWERING HOLE LEADS SOUTHWARD." 1620 IF CF=0 P(17,1)=0 1630 IF CP=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 IF K=1PRINT", "; 1660 PRINTD$(I);:K=1 1670 NEXT:IFK=0PRINT"NOWHERE!" 1680 IF K=1 PRINT 1690 P(17,1)=18 1700 PRINT"================================================================":GOTO40 1710 NP=53:LO=35:NN=31:NV=30:DIM P(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 SPLENDID CHAMBER 30 FEET HIGH.":DATA1,11,0,10 1780 P$(9)="IN A DAMP, MUSTY LIBRARY.":DATA0,10,0,0 1790 P$(10)="IN A 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.":DATA 0,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 LIITLE 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 SORCERER (?)":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 FOR I=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 FOR I=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 THE 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 A FOREST OUT OF 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 FOR I=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 DATA A 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 SAPPHIRE 2081 DATA 14,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,20,THE SORCERER'S SCEPTER,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 FOR I=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 FOR I=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 A 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 TREASURES LIES UNDER A ROOF. SOME MIGHT BE UNDER A TREE!" 2280 CLS:INPUT"WHAT IS YOUR NAME ";NA$:NA$=NA$+"/AN4:1":GOTO30