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.
j :(23);" SORCERER'S CASTLE ADVENTURE BY GREG HASSET" j 980:16553,255:AZ:S:CP49:S1"I DON'T SEE IT HERE.":S2"DON'T BE RIDICULOUS.":1710 j 1520 k( (85)201180 k2 ZZ2(100)501250 0k< (27)81340 tkF TT1:1440:VB$"ALA"CP32CP17:30:"NOTHING HAPPENED.":70 kP VB1(NO21NO30)VB1 kZ NO$"JES""I SEE NO JESTER HERE.":70 kd VB$"CRO"(CP52CP53)CP53CP52:30:CP53:30 (ln VB$"TUR""YOU HAVE USED";T;"TURNS SO FAR.":70 tlx VB30(VB10VB2VB6)NO$"""YOU MUST SUPPLY A DIRECT OBJECT.":70 l VB$"HI"(2)1"HELLO":70:"NICE WEATHER WE'VE BEEN HAVING LATELY.":70 l NO$"GUN"NO1 l VB301080 l NO$"BAG"NO5 7m VB1NO0(NO22NO29)"YOU MUST SUPPLY A VERB.":70 |m VB1NO0"I DON'T KNOW HOW TO "(34);N1$;(34)" ANYTHING.":70 m VB6(NO$"EVE"NO$"ALL")210 m NO0VB10"I DON'T KNOW WHAT A "(34);N1$;(34)" IS.":70 cn VB220,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 n (NO22NO29)NO$"""I DON'T KNOW HOW TO DO THAT.":70 n NO$"""WHERE?":70 n NO25NONO4 o NONO22:P(CP,NO)0"THERE IS NO WAY TO GO IN THAT DIRECTION.":70 IoCP1NO1DF0"THE CASTLE DOOR IS LOCKED.":70 oCP17NO1CF0"THE CRACK IS FAR TOO SMALL FOR YOU TO FOLLOW.":70 oCPP(CP,NO):30 o"OB(NO,0)1"YOU'VE ALREADY GOT IT!":70 o,NO0"WHAT'S A ";N1$;"?":70 p6OB(NO,0)CPS1:70 3p@NO17NO21NO20NO16S2:70 gpJZZ17"YOU ARE UNABLE TO CARRY ANY MORE.":70 pTNO9PF0"THE MOVEMENT OF THE PAINTING REVEALS A VAULT IN THE WALL. THE VAULT IS LOCKED.":PF1:OB(16,0)CP:OB(9,0)1:ZZZZ1:70 q^"OKAY.":ZZZZ1:OB(NO,0)1:70 :qhZZ0"YOU ARE EMPTY-HANDED.":70 |qr"YOU ARE HOLDING THE FOLLOWING :":I1LO:OB(I,0)1OB$(I) q|I:70 qJ0:I1LO:OB(I,0)1JJOB(I,1):I:I q"OUT OF A MAXIMUM OF 225 POINTS, YOU HAVE";J;"POINTS.":70 *rNO0OB(NO,0)1"YOU'RE NOT CARRYINH IT!":70 IrNO$"EVE"NO$"ALL"450 rZZ0"YOU'RE NOT CARRYING ANYTHING!":70:I1LO:OB(I,0)1OB(I,0)CP rI:ZZ0:"OK.":70 rNO0"I'VE HEARD OF A ";N1$;".":70 rOB(NO,0)CP:"DROPPED.":ZZZZ1:70 2s"SORRY, THIS IS YOUR ADVENTURE, NOT MINE!":70 s:"O",1,NA$::"SAVING...":I1LO:#1,OB(I,0):I:#1,CP;T;DF;VF;CF;PF;SF%;WF;ZZ::30 s:"I",1,NA$::"LOADING...":I1LO:#1,OB(I,0):I:#1,CP,T,DF,VF,CF,PF,SF%,WF,ZZ::30 dt"DO YOU REALLY WANT TO QUIT NOW";QN$:(QN$,1)"Y"70:"ARE YOU SURE";Q2$:(Q2$,1)"Y""I DIDN'T THINK SO.":70 nt1380 t"ALL RIGHT...";N1$;:70 tOB(NO,0)1"YOU'RE NOT HOLDING IT HENCE IT IS IMPOSSIBLE TO DRINK IT.":70 t NO7S2:70 Hu&"OKAY. GULP GULP GULK. SOMETHING SEEMS DIFFERENT NOW...":ZZZZ1:OB(7,0)0:CF1:70 u0NO31NO16NO30"I KNOW NOT HOW TO OPEN SUCH A THING.":70 u:NO16DOB(16,0)CP"WHAT VAULT?":70 uDNO16OB(2,0)1"YOU DON'T HAVE THE KEY.":70 CvNNO16"THE VAULT IS OPEN.":VF1:OB(15,0)0"A GOLD BAR FALLS OUT!":OB(15,0)CP QvXNO1670 avbNO311150 }vlCP1"WHAT DOOR?":70 vvOB(2,0)1"YOU DON'T SEEM TO HAVE THE KEY.":70 v"THE DOOR IS OPEN.":DF1:70 wOB(NO,0)1"YOU ARE NOT CARRYING.":70 Ew"I'VE KNOWN STRANGE PEOPLE, BUT ATTACKING ";OB$(NO);"?":70 TwNO20720 rwNO17"WHAT KNIGHT?":70 wNO21"I SEE NO PIRATE HERE.":70 wOB(I,0)1"YOU ARE NOT CURRENTLY HOLDING THAT.":70 w"IT ISN'T ALIVE!":70 xCP32"WHAT SORCERER?":70 xOB(8,0)1"YOU HAVE NO SWORD TO DO IT WITH. OH MY! THE SORCERER HAS JUST KILLED YOU!":I12000:I:1380 x"THE SORCERER DIED AND THEN VANISHED. HIS SCEPTOR REMAINS.":OB(14,0)CP:OB(20,0)0:70 yOB(NO,0)1"YOU DON'T HAVE THAT RIGHT NOW.":70 GyNO3"HOW DO EXPECT TO READ ";OB$(NO);"?":70 ry"IT SAYS: MAGIC WORD : ALAKAZAM.":70 y OB(NO,0)1OB(NO,0)CP"I DON'T SEE THAT HERE.":70 yOB(1,0)1"YOU DON'T HAVE A GUNN!":70 z NO17"THE BULLET DISOLVES AS IT HITS THE ARMOR.":70 Pz*"THE GOLDEN BULLET FROM THE PISTOL VAPORIZES THAT." hz4OB(NO,0)1ZZZZ1 {z>OB(NO,0)0:70 zHOB(NO,0)1S2:70:"YOU'RE NOT HOLDING IT.":70 zRNO16NO30NO31880 {\OB(NO,0)1"YOU ARE NOT HOLDING THAT TO MY KNOWLEDGE.":70 B{f"I DON'T KNOW HOW TO CLOSE SUCH A THING.":70 l{pNO16OB(16,0)CP"WHAT VAULT?":70 {zNO16"THE VAULT IS CLOSED AND LOCKED.":VF0:70 {NO311120 {CP1"WHAT DOOR?":70 {"THE DOOR IS CLOSED AND LOCKED.":DF0:70 ,|OB(NO,0)1"YOU'RE NOT HOLDING IT.":70 s|"NO, THESE ITEMS HAVE TO BE USED ON THE NEXT ADVENTURE, TOO.":70 |"THE VALUE OF THAT IS";OB(NO,1);"POINTS.":70 |OB(NO,0)1"YOU DON'T SEEM TO HAVE IT.":70 |NO8"WOW THIS IS FUN!":70 }"WHOOOSH!":70 I}OB(NO,0)1"YOU'RE NOT CURRENTLY CARRYING IT.":70 [}NO8S2:70 }"IT IS ALREADY RAZOR SHARP.":70 }OB(N0,0)1"TU NE LE PORTES PAS (YOU'RE NOT CARRYING IT).":70 }NO19"HOW?":70 ~"VERY GOOD! NOW YOU MAY GO TO SECOND GRADE!":70 )~"TRY DROP.":70 i~$"I CAN ONLY TELL YOU WHAT IS IN THE ROOM WITH YOU. SORRY," ~."I CANNOT FIND ANYTHING.":70 ~8CP44(2)1"WHEEE!":"ARE YOU ENJOYING YOURSELF?" ~BCP4470 LWF0"THE WINDOW IS ONLY SLIGHT AJAR.":70 yV"OKAY...YOU FALL SAFELY INTO A PILE OF LEAVES.":CP48:"YOU SEEM TO BE LOST IN A FOREST OF SPRUCE TREES.":70 `CP44"WHAT WINDOW? I DON'T SEE A WINDOW!":70 jWF0"IT IS ALREADY CLOSED.":70 t"HAVING OPENED IT EARLIER, YOU FIND IT IMPOSSIBLE TO CLOSE.":70 9~CP44"WHAT WINDOW?":70 ]WF1"IT IS ALREADY OPEN.":70 Ȁ"THROUGH A GREAT EFFORT, YOU OPEN THE WINDOW. THERE IS A PILE OF LEAVES OUTSIDE THE WINDOW.":WF1:70 "HOLY MOLY! A BLACK KNIGHT WALKED IN TO KILL YOU!":1440 VB17NO171220 HOB(1,0)1"YOU HAVE NO GUN!":1220 m"THE KNIGHT DISINTEGRATED.":70 "THE KNIGHT IS RUNNING TOWARD YOU..."; ǁ(5)2"IT KILLS YOU":I12000:I:1380 "IT MISSES YOU AND CRASHES INTO THE WALL...WAIT! HE HAS DISAPPEARED!":70 B"A PIRATE JUST APPEARED AND CHORTLED," "WELL SHIVER ME TIMBERS! NOT ANOTHER ONE! HAR HAR HAR," "I'LL JUST SNATCH ALL THIS BOOTY AND HIDE IT" ˂ "DEEP IN THE MAZE." "WITH THAT HE STEALS AL OF YOUR TREASURE!" I1LO:OB(I,0)11330 - OB(I,1)01330 I(OB(I,0)(6)34:ZZZZ1 T2I:70 <"JINGLE JINGLE JINGLE!":"CHESTER THE JESTER POPS UP AND CHANTS," ǃF(34);C$((8)1);" TEE HEE HEE!";(34) P"AN THEN VANISHES IN A CLOUD OF PINK SMOKE." Z70 )d:J0:I1LO:OB(I,0)1JJOB(I,1) 0nI sx"OUT OF A MAXIMUM OF 225 POINTS, YOU HAVE SCORED";J;"POINTS." y "WHAZZAT?":70 "***** WHAT DO YOU WANT TO DO";CM$ 優N1$"":V1$"":NO0:VB0:NO$"":VB$"" !CM(CM$):I1CM:(CM$,I,1)" "V1$V1$(CM$,I,1):I TVB$(V1$,3):I1NV:VB$(I)VB$VBI:1490:I lVB1:N1$V1$:1500 (V1$)(CM$)NO0::N1$(CM$,(CM$)1(V1$)) хNO$(N1$,3):I1NN:NO$(I)NO$NOI::I ܅NO0: :"YOU'RE ";P$(CP):I1LO .OB(I,0)CP" *** THERE IS ";OB$(I);" HERE." 5I ZCP1DF0"THE DOOR IS LOCKED." CP18VF0OB(16,0)18"THE VAULT IS LOCKED." "CP17CF0"A SMALL CRACK LEADS SOUTHWARD." ,CP1DF1"THE DOOR IS OPEN." 6CP18VF1OB(16,0)18"THE VAULT IS OPEN." A@CP44WF0"THE WINDOW IS SLIGHTLY AJAR." tJCP17CF1"A TOWERING HOLE LEADS SOUTHWARD." TCF0P(17,1)0 ^CP44WF1"THE WINDOW IS WIDE OPEN. THERE IS A RATHER LARGE PILE OF LEAVES OUTSIDE THE WINDOW." hK0:"YOU CAN GO ";:I03:P(CP,I)01670 +rK1", "; ;|D$(I);:K1 Q:K0"NOWHERE!" [K1 jP(17,1)18 "================================================================":40 NP53:LO35:NN31:NV30:P(NP,3),P$(NP),VB$(NV),NO$(NN),OB(LO,1),OB$(LO) CP$(1)"OUTSIDE A MEDIEVAL CASTLE.":5,8,3,2,4,7,1,0,6,7,0,1 P$" SIDE OF THE CASTLE.":P$(2)"AT THE WEST"P$:P$(3)"AT THE EAST"P$ P$(4)"IN A VAST FOREST STRETCHING OUT OF SIGHT.":4,2,4,4,53,0,6,1 P$(5)P$(4):P$(6)P$(4):6,6,6,5 cP$(7)"AT THE SOUTH"P$" THERE IS A TOWER WITH A SMALL WINDOW IN THE FAR, FAR DISTANCE.":2,0,0,0 P$(8)"IN A SPENDID CHAMBER 30FT HIGH.":1,11,0,10 ʊP$(9)"IN A DAMP, MUSTY LIBRARY.":0,10,0,0 P$(10)"IN THE MASTER BEDROOM.":9,0,8,0 QP$"IN A VAST CORRIDOR STRETCHING OUT OF SIGHT TO THE ":P$(11)P$"SOUTH.":8,12,14,0 ~P$(12)P$"NORTH AND SOUTH.":11,13,15,0 P$(13)P$"NORTH.":12,0,16,17 '&P$"IN A BEDROOM WITH A ":P$(14)P$"STONE FLOOR.":P$(15)P$"WOODEN FLOOR.":P$(16)P$"DIRT FLOOR.":0,0,0,11,0,0,0,12,0,33,0,13 0P$(17)"IN A DUSTY PANTRY. MARKINGS IN THE DUST READ, GO SOUTH TO DUNGEON.":0,18,13,0 :P$(18)"IN A PRIMITIVE ART GALLERY.":17,19,0,19 DP$(19)"IN A MAZE OF TWISTY LITTLE PASSAGES." NP$(20)"IN A TWISTY MAZE OF LITTLE PASSAGES." MXP$(21)"IN A LITTLE MAZE OF TWISTY PASSAGES." bP$(22)"IN A TWISTING MAZE OF LITTLE PASSAGES." lP$(23)"IN A LITTLE TWISTY MAZE OF PASSAGES." v0,20,18,0,20,22,20,19,21,21,22,23,21,22,20,22,21,24,23,23 2P$(24)"IN THE KITCHEN.":23,27,25,0,0,27,26,24,29,28,30,25 P$(25)"IN THE DINING ROOM.":P$(26)"IN THE ALCOVE TO THE STUDY.":P$(27)"IN THE OFFICE OF THE SORCEROR (?)":24,0,28,0 펔P$(28)"IN THE DRAWING ROOM.":0,0,0,27,0,26,0,0,0,31,0,26 OP$(29)"IN THE PARLOR.":P$(30)"IN THE STUDY.":P$(31)"IN THE SITTING ROOM.":0,0,0,0,0,0,0,0 lP$(32)"IN THE DUNGEON!" I1NP:J03:P(I,J):J,I:P(31,(4)1)32 ӏP$(33)"IN A PRIMEVAL CONFERENCE ROOM.":16,0,35,0 WP$(34)"IN THE TOWER. IT OVERLOOKS A HUGE KINGDOM DOWN A MONSTROUS MOUNTAIN. THE GRASS IS GREENER THAN GREEN ITSELF.":0,0,36,0 P$(35)"IN A MAZE OF TWISTY LITTLE PASSAGES, ALL ALIKE." I3640:P$(I)P$(35)::36,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 xP$(41)"AT THE BRINK OF A HUGE PIT.":P$(43)"IN A BARREN CUBICLE, WITH PASSAGES LEADING OFF TO THE NORTH AND SOUTH." P$(42)"IN THE PIT. A GOOD PASSAGE EXITS TO THE NORTH." P$(44)"AT THE END OF THE CASTLE. YOU CAN SEE FOREST OUT A SMALL WINDOW.":43,0,41,0,44,42,0,0,0,0,0,0 cP$(45)"LOST IN A DARK FOREST MADE UP OF CHIEFLY SPRUCE TREES." I4648:P$(I)P$(45):I:45,46,45,49,45,47,46,50,46,51,47,48,50,48,47,48 /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." P$(52)"ON THE NORTH SIDE OF THE BRIDGE":P$(53)"ON THE SOUTH SIDE OF THE BRIDGE.":0,50,45,0,49,48,46,0,0,52,47,0,51,53 0,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 7NOR,SOU,EAS,WES,N,S,E,W,DOO,WIN GO,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 ݔI1NN:NO$(I):I:I1NV:VB$(I):I Y 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 SAPHIRE !14,10,A FLASK OF LIQUID,15,0,A GOLDEN SWORD,42,10,A PRICELESS PAINTING,18,15 #*A 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 +A 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 432,0,AN EVIL PIRATE,0,0 Ӗ>I121:OB$(I),OB(I,0),OB(I,1):I HNORTH,SOUTH,EAST,WEST RI03:D$(I):I q\P$(19)P$(19)" A NOTE ON THE WALL READS: THIS IS NOT THE MAZE WHERE THE PIRATE HIDES HIS TREASURE. --GH" fOB$(20)"AN EVIL SORCERER JUST WAITING TO CAST A SPELL ON YOU" 2pP$(50)"AT THE END OF THE PATH, WITH FOREST SURROUNDING YOU IN ALL DIRECTIONS EXCEPT NORTH, WHERE YOU WERE BEFORE." xzP(50,3)48:P$(47)P$(47)" TO THE SOUTH THERE SEEMS TO BE LIGHT." I5253:P$(I)P$(I)" ACROSS THE BRIDGE IS MORE FOREST.": ǘP(36,2)37 *C$(0)"PAY ATTENTION IN THE MAZE, TO THE WORDING OF THE PHRASE! IF YOU DO YOU'LL BE UN-MAZED." rC$(1)"GULP GULP GULP, DRINK IT DOWN, I'M NOT SUCH A STUPID CLOWN!" C$(2)"OUT OF THE WINDOW YOU MAY FALL. JUST LOOK OUT, THAT IS ALL!" C$(3)"THE KNIGHTS CAN'T BE KILLED, AS FAR AS I KNOW. IF YOU FIND THEY CAN, PLEASE TELL ME SO!" C$(4)"DON'T BRING THE SWORD TO THE SORCERER'S PLACE, IF YOU DO HE MIGHT CONFRONT YOU FACE TO FACE!" C$(5)"HOCUS POCUS, ALAKAZAM! DON'T READ THE BOOK OR YOU'LL BE SORRY! (YOU TRY TO RHYME ALAKAZAM)!" NC$(6)"PASSAGES THAT SEEM ALL ALIKE CAN SEEM QUITE DIFFERENT, JUST HOPE YOU'RE RIGHT!" C$(7)"NOT ALL TREASURE LIES UNDER A ROOF. SOME MIGHT BE UNDER A TREE!" Λ:"WHAT IS YOUR NAME";NA$:NA$NA$"/AN4:0":30