Willus.com
Home
|
Archive
|
About
SORCAST5.BAS
(12681 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.
,m 1000 ?m AZ:S:150 m :(23):16553,255:" SORCERER'S CASTLE":" BY GREG HASSETT":CP49:S1"I DON'T SEE IT HERE.":S2"DON'T BE RIDICULOUS.":179 m 160 m (85)20125 n ZZ2(100)50132 n (27)8141 Sn TT1:152:VB$"ALA"CP32CP17:4:"NOTHING HAPPENED.":8 pn VB1(NO21NO30)VB1 n NO$"JES""I SEE NO JESTER HERE.":8 n VB$"CRO"(CP52CP53)CP53CP52:4:CP53:4 o VB$"TUR""YOU HAVE USED";T;"TURNS SO FAR.":8 No VB30(VB10VB2VB6)NO$"""YOU MUST SUPPLY A DIRECT OBJECT.":8 o VB$"HI"(2)1"HELLO":8:"NICE WEATHER WE'VE BEEN HAVING LATELY.":8 o NO$"GUN"NO1 o VB30115 o NO$"BAG"NO5 p VB1NO0(NO22NO29)"YOU MUST SUPPLY A VERB.":8 Qp VB1NO0"I DON'T KNOW HOW TO "(34);N1$;(34)" ANYTHING.":8 tp VB6(NO$"EVE"NO$"ALL")22 p NO0VB10"I DON'T KNOW WHAT A "(34);N1$;(34)" IS.":8 q VB23,30,4,37,40,42,48,49,53,57,59,60,63,72,74,82,85,91,92,92,63,100,100,102,103,106,109,112,113,115 Zq (NO22NO29)NO$"""I DON'T KNOW HOW TO DO THAT.":8 rq NO$"""WHERE?":8 q NO25NONO4 q NONO22:P(CP,NO)0"THERE IS NO WAY TO GO IN THAT DIRECTION.":8 q CP1NO1DF0"THE CASTLE DOOR IS LOCKED.":8 Gr CP17NO1CF0"THE CRACK IS FAR TOO SMALL FOR YOU TO FOLLOW.":8 Zr CPP(CP,NO):4 r OB(NO,0)1"YOU'VE ALREADY GOT IT!":8 r NO0"WHAT'S A ";N1$;"?":8 r OB(NO,0)CPS1:8 r! NO17NO21NO20NO16S2:8 s" ZZ17"YOU ARE UNABLE TO CARRY ANY MORE.":8 s# NO9PF0"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:8 s$ "OKAY.":ZZZZ1:OB(NO,0)1:8 s% ZZ0"YOU ARE EMPTY HANDED.":8 (t& "YOU ARE HOLDING THE FOLLOWING :":I1LO:OB(I,0)1OB$(I) 2t' I:8 _t( J0:I1LO:OB(I,0)1JJOB(I,1):I:I t) "OUT OF A MAXIMUM OF 225 POINTS, YOU HAVE";J;"POINTS.":8 t* NO0OB(NO,0)1"YOU'RE NOT CARRYING IT!":8 t+ NO$"EVE"NO$"ALL"46 =u, ZZ0"YOU'RE NOT CARRYING ANYTHING!":8:I1LO:OB(I,0)1OB(I,0)CP Su- I:ZZ0:"OK.":8 u. NO0"I'VE NEVER HEARD OF A ";N1$;".":8 u/ OB(NO,0)CP:"DROPPED.":ZZZZ1:8 u0 "SORRY, THIS IS YOUR ADVENTURE, NOT MINE!":8 v1 :"PRESS <ENTER> WHEN CASSETTE PREPARATIONS ARE MADE ";XX$ 4v2 I1LO:#1,OB(I,0) [v3 I:#1,CP,T,DF,VF,CF,PF,SF%,WF,ZZ bv4 4 v5 :"PRESS <ENTER> WHEN CASSETTE PREPARATIONS ARE MADE ";XX$ v6 I1LO:#1,OB(I,0) v7 I:#1,CP,T,DF,VF,CF,PF,SF%,WF,ZZ v8 4 `w9 "DO YOU REALLY WANT TO QUIT NOW";QN$:(QN$,1)"Y"8:"ARE YOU SURE";Q2$:(Q2$,1)"Y""I DIDN'T THINK SO.":8 iw: 145 w; "ALL RIGHT...";N1$;:8 w< OB(NO,0)1"YOU'RE NOT HOLDING IT HENCE IT IS IMPOSSIBLE TO DRINK IT.":8 w= NO7S2:8 ?x> "OKAY. GULP GULP GULK. SOMETHING SEEMS DIFFERENT NOW...":ZZZZ1:OB(7,0)0:CF1:8 x? NO31NO16NO30"I KNOW NOT HOW TO OPEN SUCH A THING.":8 x@ NO16OB(16,0)CP"WHAT VAULT?":8 xA NO16OB(2,0)1"YOU DON'T HAVE THE KEY.":8 5yB NO16"THE VAULT IS OPEN.":VF1:OB(15,0)0"A GOLD BAR FALLS OUT!":OB(15,0)CP ByC NO168 QyD NO31122 lyE CP1"WHAT DOOR?":8 yF OB(2,0)1"YOU DON'T SEEM TO HAVE THE KEY.":8 yG "THE DOOR IS OPEN.":DF1:8 yH OB(NO,0)1"YOU ARE NOT CARRYING IT.":8 3zI "I'VE KNOWN STRANGE PEOPLE, BUT ATTACKING ";OB$(NO);"?":8 AzJ NO2079 ^zK NO17"WHAT KNIGHT?":8 zL NO21"I SEE NO PIRATE HERE.":8 zM OB(I,0)1"YOU ARE NOT CURRENTLY HOLDING THAT.":8 zN "IT ISN'T ALIVE!":8 zO CP32"WHAT SORCERER?":8 j{P OB(8,0)1"YOU HAVE NO SWORD TO DO IT WITH. OH MY! THE SORCERER HAS JUST KILLED YOU!":I13000:I:145 {Q "THE SORCERER DIED AND THEN VANISHED. HIS SCEPTER REMAINS.":OB(14,0)CP:OB(20,0)0:8 {R OB(NO,0)1"YOU DON'T HAVE THAT RIGHT NOW.":8 2|S NO3"HOW DO YOU EXPECT TO READ ";OB$(NO);"?":8 ]|T "IT SAYS : MAGIC WORD : ALAKAZAM.":8 |U OB(NO,0)1OB(NO,0)CP"I DON'T SEE THAT HERE.":8 |V OB(1,0)1"YOU DON'T HAVE A GUN!":8 |W NO17"THE BULLET DISSOLVES AS IT HITS THE ARMOR.":8 ?}X "THE GOLDEN BULLET FROM THE GOLDEN PISTOL VAPORIZES THAT." W}Y OB(NO,0)1ZZZZ1 i}Z OB(NO,0)0:8 }[ OB(NO,0)1S2:8:"YOU'RE NOT HOLDING IT.":8 }\ NO16NO30NO3195 }] OB(NO,0)1"YOU ARE NOT HOLDING THAT TO MY KNOWLEDGE.":8 +~^ "I DON'T KNOW HOW TO CLOSE SUCH A THING.":8 T~_ NO16OB(16,0)CP"WHAT VAULT?":8 ~` NO16"THE VAULT IS CLOSED AND LOCKED.":VF0:8 ~a NO31119 ~b CP1"WHAT DOOR?":8 ~c "THE DOOR IS CLOSED AND LOCKED.":DF0:8 d OB(NO,0)1"YOU'RE NOT HOLDING IT.":8 Ue "NO, THESE ITEMS HAVE TO BE USED ON THE NEXT ADVENTURE, TOO.":8 f "THE VALUE OF THAT IS";OB(NO,1);"POINTS.":8 g OB(NO,0)1"YOU DON'T SEEM TO HAVE IT.":8 h NO8"WOW THIS IS FUN!":8 i "WHOOOSH!":8 &j OB(NO,0)1"YOU'RE NOT CURRENTLY CARRYING IT.":8 7k NO8S2:8 \l "IT IS ALREADY RAZOR SHARP.":8 m OB(NO,0)1"TU NE LE PORTES PAS (YOU'RE NOt CARRYING IT).":8 n NO19"HOW?":8 o "VERY GOOD! NOW YOU MAY GO TO SECOND GRADE!":8 p "TRY DROP.":8 @q "I CAN ONLY TELL YOU WHAT IS IN THE ROOM WITH YOU. SORRY," br "I CANNOT FIND ANYTHING.":8 s CP44(2)1"WHEEEE!":"ARE YOU ENJOYING YOURSELF?" t CP448 ݁u WF0"THE WINDOW IS ONLY SLIGHTLY AJAR.":8 Ov "OKAY...YOU FALL SAFELY IN THE PILE OF LEAVES.":CP48:"YOU SEEM TO BE LOST IN A FOREST OF SPRUCE TREES.":8 w CP44"WHAT WINDOW? I DON'T SEE A WINDOW!":8 x WF0"IT IS ALREADY CLOSED.":8 y "HAVING OPENED IT EARLIER, YOU FIND IT IMPOSSIBLE TO CLOSE.":8 z CP44"WHAT WINDOW?":8 .{ WF1"IT IS ALREADY OPEN.":8 | "THROUGH A GREAT EFFORT, YOU OPEN THE WINDOW. THERE IS A PILE OF LEAVES OUTSIDE THE WINDOW.":WF1:8 Ճ} "HOLY MOLY! A BLACK KNIGHT WALKED IN TO KILL YOU!":152 ~ VB17NO17129 OB(1,0)1"YOU HAVE NO GUN!":129 9 "THE KNIGHT DISINTIGRATED.":8 f "THE KNIGHT IS RUNNING TOWARDS YOU..."; (5)2"IT KILLS YOU":I13000:I:145 ᄃ "IT MISSES YOU AND CRASHES INTO THE WALL...WAIT! HE HAS DISAPPEARED!":8 "A PIRATE JUST APPEARED AND CHARTLED," J "WELL SHIVER ME TIMBERS! NOT ANOTHER ONE! HAR HAR HAR," } "I'LL JUST SNATCH ALL THIS BOOTY AND HIDE IT" "DEEP IN THE MAZE." Dž "WITH THAT HE STEALS ALL OF YOUR TREASURE!" 䅉 I1LO:OB(I,0)1140 OB(I,1)0140 OB(I,0)(6)34:ZZZZ1 I:8 d "JINGLE JINGLE JINGLE!":"CHESTER THE JESTER POPS UP AND CHANTS," (34);C$((8)1);" TEE HEE HEE!";(34) Æ "AND THEN VANISHES IN A CLOUD OF PINK SMOKE." ʆ 8 :J0:I1LO:OB(I,0)1JJOB(I,1) I < "OUT OF A MAXIMUM OF 225 POINTS, YOU HAVE SCORED";J;"POINTS." :"DO YOU WISH TO TRY THIS ADVENTURE AGAIN ";AG$:AG$(AG$,1):AG$"Y"ʎ:AG$"N"148 "WHAZZAT?":8 "***** WHAT DO YOU WANT TO DO";CM$ N1$"":V1$"":NO0:VB0:NO$"":VB$"" F CM(CM$):I1CM:(CM$,I,1)" "V1$V1$(CM$,I,1):I x VB$(V1$,3):I1NV:VB$(I)VB$VBI:157:I VB1:N1$V1$:158 Lj (V1$)1(CM$)NO0::N1$(CM$,(CM$)1(V1$)) NO$(N1$,3):I1NN:NO$(I)NO$NOI::I NO0: ! :"YOU'RE ";P$(CP):I1LO S OB(I,0)CP" *** THERE IS ";OB$(I);" HERE." Z I CP1DF0"THE DOOR IS LOCKED." CP18VF0OB(16,0)18"THE VAULT IS LOCKED." ㉥ CP17CF0"A SMALL CRACK LEADS SOUTHWARD." CP1DF1"THE DOOR IS OPEN." 7 CP18VF1OB(16,0)18"THE VAULT IS OPEN." f CP44WF0"THE WINDOW IS SLIGHTLY AJAR." CP17CF1"A TOWERING HOLE LEADS SOUTHWARD." CF0P(17,1)0 CP44WF1"THE WINDOW IS WIDE OPEN. THERE IS A RATHER LARGE PILE OF LEAVES OUTSIDE THE WINDOW." @ K0:"YOU CAN GO ";:I03:P(CP,I)0175 O K1", "; _ D$(I);:K1 u :K0"NOWHERE!" K1 P(17,1)18 ؋ "===============================================================":5 % NP53:LO35:NN31:NV30:P(NP,3),P$(NP),VB$(NV),NO$(NN),OB(LO,1),OB$(LO) e P$(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,1,6,0 P$(5)P$(4):P$(6)P$(4):6,6,6,5 P$(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 SPLENDID CHAMBER 30 FEET 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 w P$"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 M 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 P$(17)"IN A DUSTY PANTRY. MARKINGS IN THE DUST READ, GO SOUTH TO DUNGEON.":0,18,13,0 P$(18)"IN A PRIMATIVE ART GALLERY.":17,0,0,19 P$(19)"IN A MAZE OF TWISTY LITTLE PASSAGES." ? P$(20)"IN A TWISY MAZE OF LITTLE PASSAGES." q P$(21)"IN A LITTLE MAZE OF TWISTY PASSAGES." P$(22)"IN A TWISTING MAZE OF LITTLE PASSAGES." א P$(23)"IN A LITTLE TWISTY MAZE OF PASSAGES." 0,20,18,0,20,22,20,19,21,21,22,23,21,22,20,22,21,24,23,23 V P$(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 SORCERER (?)":24,0,28,0 P$(28)"IN THE DRAWING ROOM.":0,0,0,27,0,26,0,0,0,31,0,26 s P$(29)"IN THE PARLOR.":P$(30)"IN THE STUDY.":P$(31)"IN THE SITTING ROOM.":0,0,0,0,0,0,0,0 P$(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 { P$(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 Д P$(41)"AT THE BRINK OF A HUGE PIT.":P$(43)"IN A BARREN CUBICAL, 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 ɕ P$(45)"LOST IN A DARK FOREST MADE UP CHIEFLY OF 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,47,52,0,0,51,53 I 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,NOR,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 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,20,THE SORCERER'S SCEPTER,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 32,0,AN EVIL PIRATE,0,0 ޙ I121:OB$(I),OB(I,0),OB(I,1):I NORTH,SOUTH,EAST,WEST I03:D$(I):I } P$(19)P$(19)" A NOTE ON THE WAlL READS: THIS IS NOT THE MAZE WHERE THE PIRATE HIDES HIS TREASURE. --GH" ƚ OB$(20)"AN EVIL SORCERER JUST WAITING TO CAST A SPELL ON YOU" > P$(50)"AT THE END OF THE PATH, WITH FOREST SURROUNDING YOU IN ALL DIRECTIONS EXCEPT NORTH, WHERE YOU WERE BEFORE." P(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 6 C$(0)"PAY ATTENTION IN THE MAZE, TO THE WORDING OF THE PHRASE! IF YOU DO YOU'LL BE UN-MAZED." ~ C$(1)"GULP GULP GULP, DRINK IT DOWN, I'M NOT SUCH A STUPID CLOWN!" Ĝ C$(2)"OUT OF A 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)!" U C$(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!" 4