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.
j : (23);" SORCERER'S CASTLE ADVENTURE BY GREG HASSETT" j 980: 1420: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 2k< (27)81340 wkF 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 2ln VB$"TUR""YOU HAVE USED"; T; " TURNS SO FAR.":70 ~lx 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 m NO$"BAG"NO5 Fm 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 un 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 ^oCP1NO1DF0"THE CASTLE DOOR'S LOCKED.":70 o CP17NO1CF0"THE CRACK IS FAR TOO SMALL FOR YOU TO FOLLOW.":70 oCPP(CP,NO):30 o" OB(NO,0)1"YOU'RE ALREADY GOT IT!":70 p, NO0"WHAT'S A ";N1$; "?":70 )p6 OB(NO,0)CPS1:70 Np@ NO17NO21NO20NO16S2:70 pJ ZZ17"YOU ARE UNABLE TO CARRY ANYMORE.":70 qT 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:70 0q^"OKAY.":ZZZZ1:OB(NO,0)1:70 Wqh ZZ0"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)1 JJOB(I,1):I:I r"OUT OF A MAXIMUM OF 225 POINTS, YOU HAVE"; J;"POINTS.":70 LrNO0OB(NO,0)1"YOU'RE NOT CARRYING IT!":70 krNO$"EVE"NO$"ALL"450 r ZZ0"YOU'RE NOT CARRYING ANYTHING!":70:I1LO:OB(I,0)1 OB(I,0)CP rI:ZZ0:"OK.":70 s NO0"I'VE NEVER HEARD OF A "; N1$;".":70 *sOB(NO,0)CP:"DROPPED.":ZZZZ1:70 ]s"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 t:"I",1,NA$::"LOADING...":I1LO:# 1,OB(I,0):I:# 1,CP,T,DF,VF,CF,PF,SF%,WF,ZZ::30 t"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 t1380 t"ALL RIGHT..."; N1$;:70 u OB(NO,0)1"YOU'RE NOT HOLDING IT HENCE IT IS IMPOSSIBLE TO DRINK IT.":70 'u NO7S2:70 u&"OKAY. GULP GULP GULK. SOMETHING SEEMS DIFFERENT NOW...":ZZZZ1:OB(7,0)0:CF1:70 u0 NO31NO16NO30"I KNOW NOT HOW TO OPEN SUCH A THING.":70 u: NO16OB(16,0)CP"WHAT VAULT?":70 'vD NO16OB(2,0)1"YOU DON'T HAVE THE KEY.":70 ~vN NO16"THE VAULT IS OPEN.":VF1: OB(15,0)0"A GOLD BAR FALLS OUT!":OB(15,0)CP vX NO1670 vb NO311150 vl CP1"WHAT DOOR?":70 vv OB(2,0)1"YOU DON'T SEEM TO HAVE THE KEY.":70 w"THE DOOR IS OPEN.":DF1:70 Gw OB(NO,0)1"YOU ARE NOT CARRYING IT.":70 w"I'VE KNOWN STRANGE PEOPLE, BUT ATTACKING "; OB$(NO);"?":70 w NO20720 w NO17"WHAT KNIGHT?":70 w NO21"I SEE NO PIRATE HERE.":70 x OB(I,0)1"YOU ARE NOT CURRENTLY HOLDING THAT.":70 7x"IT ISN'T ALIVE!":70 Yx CP32"WHAT SORCERER?":70 x OB(8,0)1"YOU HAVE NO SWORD TO DO IT WITH. OH MY! THE SORCERER HAS JUST KILLED YOU!":I13000:I:1380 +y"THE SORCERER DIED AND THEN VANISHED. ONLY HIS SCEPTOR REMAINS.":OB(14,0)CP:OB(20,0)0:70 cy OB(NO,0)1"YOU DON'T HAVE THAT RIGHT NOW.":70 y NO3"HOW DO YOU EXPECT TO READ "; OB$(NO); "?":70 y"IT SAYS : MAGIC WORD : ALAKAZAM.":70 z OB(NO,0)1OB(NO,0)CP"I DON'T SEE THAT HERE.":70 5z OB(1,0)1"YOU DON'T HAVE A GUN!":70 rz NO17"THE BULLET DISSOLVES AS IT HITS THE ARMOR.":70 z*"THE GOLDEN BULLET FROM THE GOLDEN PISTOL VAPORIZES THAT." z4 OB(NO,0)1 ZZZZ1 z>OB(NO,0)0:70 {H OB(NO,0)1S2:70:"YOU'RE NOT HOLDING IT.":70 2{RNO16NO30NO31880 t{\ OB(NO,0)1"YOU'RE NOT HOLDING THAT TO MY KNOWLEDGE.":70 {f"I DON'T KNOW HOW TO CLOSE SUCH A THING.":70 {p NO16OB(16,0)CP"WHAT VAULT?":70 |z NO16"THE VAULT IS CLOSED AND LOCKED.":VF0:70 | NO311120 7| CP1"WHAT DOOR?":70 f|"THE DOOR IS CLOSED AND LOCKED.":DF0:70 | OB(NO,0)1"YOU'RE NOT HOLDING IT.":70 |"NO, THESE ITEMS HAVE TO BE USED ON THE NEXT ADVENTURE, TOO.":70 }"THE VALUE OF THAT IS"; OB(NO,1); "POINTS.":70 F} OB(NO,0)1"YOU DON'T SEEM TO HAVE IT.":70 i} NO8"WOW THIS IS FUN!":70 }}"WHOOOSH!":70 } OB(NO,0)1"YOU'RE NOT CURRENTLY CARRYING IT.":70 } NO8S2:70 }"IT IS ALREADY RAZOR SHARP.":70 8~ OB(NO,0)1"TU NE LE PORTES PAS (YOU'RE NOT CARRYING IT).":70 P~ NO19"HOW?":70 ~"VERY GOOD! NOW YOU MAY GO TO SECOND GRADE!":70 ~"TRY DROP.":70 ~$"I CAN ONLY TELL YOU WHAT IS IN THE ROOM WITH YOU. SORRY," ~."I CANNOT FIND ANYTHING.":70 ;8 CP44(2)1"WHEEEE!":"ARE YOU ENJOYING YOURSELF?" KB CP4470 ~L WF0"THE WINDOW IS ONLY SLIGHTLY AJAR.":70 V"OKAY...YOU FALL SAFELY IN THE PILE OF LEAVES.":CP48:"YOU SEEM TO BE LOST IN THE FOREST OF SPRUCE TREES.":70 )` CP44"WHAT WINDOW? I DON'T SEE A WINDOW!":70 Pj WF0"IT IS ALREADY CLOSED.":70 t"HAVING OPENED IT EARLIER, YOU FIND IT IMPOSSIBLE TO CLOSE.":70 ~ CP44"WHAT WINDOW?":70 ۀ WF1"IT IS ALREADY OPEN.":70 F"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 ȁ OB(1,0)1"YOU HAVE NO GUN!":1220 큺"THE KNIGHT DISINTEGRATED.":70 " THE KNIGHT IS RUNNING TOWARD YOU..."; I (5)2"IT KILLS YOU":I13000:I:1380 "IT MISSES YOU AND CRASHES INTO THE WALL...WAIT! HE HAS DISAPPEARED!":70 Ă"A PIRATE JUST APPEARED AND CHORTLED," "WELL SHIVER ME TIMBERS! NOT ANOTHER ONE! HAR HAR HAR," 4"I'LL JUST SNATCH ALL THIS BOOTY AND HIDE IT" N " DEEP IN THE MAZE." "WITH THAT HE STEALS ALL OF YOUR TREASURE!" I1LO:OB(I,0)11330 OB(I,1)01330 σ(OB(I,0)(6)34:ZZZZ1 ڃ2I:70 '<"JINGLE JINGLE JINGLE!":"CHESTER THE COURT JESTER POPS UP AND CHANTS," VF(34); C$((8)1); " TEE HEE HEE!"; (34) P"AND THEN VANISHES IN A CLOUD OF PINK SMOKE." Z70 d:J0:I1LO: OB(I,0)1 JJOB(I,1) nI x"OUT OF A MAXIMUM OF 225 POINTS, YOU HAVE SCORED"; J; " POINTS." ""WHAZZAT?":70 ( P"***** WHAT DO YOU WANT TO DO";CM$ zN1$"":V1$"":NO0:VB0:NO$"":VB$"" CM(CM$):I1CM:(CM$,I,1)" " V1$V1$(CM$,I,1):I 녾VB$(V1$,3):I1NV:VB$(I)VB$ VBI:1490:I VB1:N1$V1$:1500 < (V1$)1(CM$)NO0::N1$(CM$,(CM$)1(V1$)) lNO$(N1$,3):I1NN:NO$(I)NO$ NOI::I wNO0: :"YOU'RE "; P$(CP):I1LO ͆ OB(I,0)CP" *** THERE IS "; OB$(I); " HERE." Ԇ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." 6 CP18VF1OB(16,0)18"THE VAULT IS OPEN." @ CP44WF0"THE WINDOW IS SLIGHTLY AJAR." J CP17CF1"A TOWERING HOLE LEADS SOUTHWARD." /T CF0 P(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 Ոr K1", "; |D$(I);:K1 :K0"NOWHERE!" K1 P(17,1)18 b"================================================================":40 NP53:LO35:NN31:NV30: P(NP,3),P$(NP),VB$(NV),NO$(NN),OB(LO,1),OB$(LO) 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,0,6,1 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 KP$(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 A MASTER BEDROOM.":9,0,8,0 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 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 20P$(17)"IN A DUSTY PANTRY. MARKINGS IN THE DUST READ, GO SOUTH TO DUNGEON.":0,18,13,0 g: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." XP$(21)"IN A LIITLE MAZE OF TWISTY PASSAGES." 1bP$(22)"IN A TWISTING MAZE OF LITTLE PASSAGES." clP$(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 ⎀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 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!" M 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 EP$(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 THE BARREN CUBICLE, WITH PASSAGES LEADING OFF TO THE NORTH AND SOUTH." hP$(42)"IN THE PIT. A GOOD PASSAGE EXITS TO THE NORTH." ؒP$(44)"AT THE END OF THE CASTLE. YOU CAN SEE A FOREST OUT OF A SMALL WINDOW.":43,0,41,0,44,42,0,0,0,0,0,0 P$(45)"LOST IN A DARK FOREST MADE UP OF CHIEFLY SPRUCE TREES." k 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." fP$(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 NOR,SOU,EAS,WES,N,S,E,W,DOO,WIN m 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 SAPPHIRE h! 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 L+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 i432,0,AN EVIL PIRATE,0,0 >I121:OB$(I),OB(I,0),OB(I,1):I HNORTH,SOUTH,EAST,WEST R 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" rfOB$(20)"AN EVIL SORCERER JUST WAITING TO CAST A SPELL ON YOU" pP$(50)"AT THE END OF THE PATH, WITH FOREST SURROUNDING YOU IN ALL DIRECTIONS EXCEPT NORTH, WHERE YOU WERE BEFORE." 0zP(50,3)48:P$(47)P$(47)" TO THE SOUTH THERE SEEMS TO BE LIGHT." q 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." +C$(1)"GULP GULP GULP, DRINK IT DOWN, I'M NOT SUCH A STUPID CLOWN!" qC$(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)!" C$(6)"PASSAGES THAT SEEM ALL ALIKE CAN SEEM QUITE DIFFERENT, JUST HOPE YOU'RE RIGHT!" OC$(7)"NOT ALL TREASURES LIES UNDER A ROOF. SOME MIGHT BE UNDER A TREE!" :"WHAT IS YOUR NAME ";NA$:NA$NA$"/AN4:1":30