Willus.com
Home
|
Archive
|
About
GARGCST3.BAS
(12514 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.
Qj 100: [j 96 j @470,(34);"GARGOYLE CASTLE";(34) j @896,"COPYRIGHT 1980-PANIC SIMULATIONS";45);"VERSION: PROTO 1.1"; j @960,"KIT DOMENICO";50);"16K LEVEL II"; k IT k NA$(IT),NM$(IT),LO(IT) Ak I1IT:NA$(I),NM$(I),LO(I):I Ok PL6:PO1 Wk LO sk CO(LO,6),LI(LO),D$(LO) k I0LO k" D$(I) k$ J16 k& CO(I,J) k( J k* LI(I) k, I k. LC5 k0 SS$NM$(4) k2 l4 LI(LC)0L0ʲ"IT'S DARK IN HERE!":92 l6 :"I AM IN ";D$(LC) 1l8 "I CAN SEE "; l: LO(32)99LC28"THAT MY ARMOR PULLS ME STRAIGHT TO THE BOTTOM, AND I'M DROWNED.":LC0:426 l< VI0 l> I1IT l@ LO(I)LC72 lB 64(X)(NA$(I))(NM$(I))ʲ lD NM$(I);NA$(I);". "; mF VIVI1 mH I 8mJ VI0ʲ"THAT THERE ARE NO ITEMS IN SIGHT."; >mL UmN "THE EXITS ARE "; rmP CO(LC,1)0ʲ" NORTH,"; mR CO(LC,2)0ʲ" EAST,"; mT CO(LC,3)0ʲ" SOUTH,"; mV CO(LC,4)0ʲ" WEST,"; mX CO(LC,5)0ʲ" UP,"; mZ CO(LC,6)0ʲ" DOWN,"; n\ n^ (63,"+") n` A$"" lnb (LO(31)LCLO(31)99)LO(32)99NM$(31)"A VICIOUS GREEN AND PURPLE "230 nd "WHAT SHOULD I DO";A$ nf (A$)1174 nh V$(A$,3) nj I1(A$) nl ((A$,I),1)" "A$((A$,(A$)I),3):112 nn I op V$"GO "174 or V$"WAL"174 $ot V$"RUN"174 6ov V$"GET"222 Hox V$"TAK"222 Zoz V$"PIC"222 lo| V$"DRO"254 ~o~ V$"PUT"254 o V$"LOO"50 o V$"INV"268 o V$"REA"284 o V$"UNR"302 o V$"BUR"306 o V$"LIG"306 o V$"CLI"324 p V$"RUB"332 p V$"HEL"350 1p V$"DIG"352 Cp V$"OPE"376 Up V$"POL"392 gp V$"TIE"410 yp V$"SCO"426 p V$"QUI"460 p V$"REM"472 p V$"COV"484 p V$"SCR"500 p V$"EAT"516 p V$"MEL"526 p V$"PLA"544 "q "SORRY, I DON'T KNOW HOW TO DO THAT." *q 96 Cq TR1LO(21)14:TR0 q L0LI(LC)0"MOVING IN THE DARK CAN BE DANGEROUS!":I1300:I q NM$(5)"A " q NM$(4)SS$ q LO(10)99NM$(10)"A LIT "L0 q A$(A$,3) q A$"NOR"A$"N" r A$"WES"A$"W" r A$"SOU"A$"S" 0r A$"EAS"A$"E" Er A$"DOW"A$"D" Yr A$"UP"A$"U" r CO(LC,1)0A$"N"LCCO(LC,1):218 r CO(LC,2)0A$"E"LCCO(LC,2):218 r CO(LC,3)0A$"S"LCCO(LC,3):218 r CO(LC,4)0A$"W"LCCO(LC,4):218 Ks A$"U"CO(1,5)0LC1LO(6)99LO(6)1ʲ"IT'S TOO HIGH TO REACH.":96 s A$"U"LO(6)99ʲ"I CAN'T CLIMB A LADDER I'M CARRYING.":96 s CO(LC,5)0A$"U"LCCO(LC,5):218 s CO(LC,6)0A$"D"LCCO(LC,6):218 t "SORRY, I CAN'T GO THAT DIRECTION." t 96 (t LO(6)LCCO(6,6)LC 0t 50 Bt A$"SOC"250 ot POPLʲ"I HAVE TOO MUCH ALREADY!":250 t A$"GAR"234 t LO(31)LCʲ"IT ISN'T HERE":96 u NM$(31)"A VICIOUS GREEN AND PURPLE "LO(32)99ʲ"A LOOSE AND VICIOUS GARGOYLE ATTACKS ME. i AM DEAD." "u LC0:426 .u I1IT Qu A$(NA$(I),3)LO(I)LC248 u A$"COA"(NM$(30),6,1)"G"LO(19)99ʲ"YOU DON'T HAVE ANYTHING TO CARRY THEM IN.":96 v A$"COA"(NM$(30),6,1)"G"LO(19)99(NM$(19),3,1)"F"ʲ"NOT WHILE THE URN IS CLOSED":96 hv A$"BIR"(LO(9)99LO(9)LC)ʲ"IT FLYS AWAY FROM ME.":LO(22)(6):J1300:J:50 v A$"BIR"LO(22)0:NM$(9)"* A CRYSTAL BIRD LOCKED IN A ":50 v LO(I)99:POPO1:50 v I v "I CAN'T PICK THAT UP." v 96 v I1IT %w A$"URN"LO(30)99LO(30)LC:POPO1 GwA$"LAD"LO(6)99CO(7,6)LC ywA$(NA$(I),3)LO(I)99LO(I)LC:POPO1:50 wI w"YOU DON'T HAVE THAT." w 96 w PO0 wC0 w"I AM CARRYING "; wI1IT xLO(I)99ʲNM$(I);NA$(I);", ":CC1:POPO1 xI #xC0"NOTHING." +x96 Rx L0LI(LC)0ʲ"IN THE DARK?":298 x A$"BOO"(LO(2)LCLO(2)99)ʲ"i DON'T READ GERMAN.":96 y A$"SCR"(NM$(4),4)"A TI"(LO(4)99LO(4)LC)ʲ"ON THE OUTSIDE, IT SAYS 'ROLLED BY SCROLL ROLLER'S UNION 207.'":96 fy"A$"SCR"NM$(4)"AN UNROLLED "(LO(4)LCLO(4)99)ʲ"IT SAYS, BURN IT UP, CHUCK.":96 y$A$"CLO"NM$(7)"A FAINTLY LETTERED "(LO(7)99LO(7)LC)ʲ"IT SAYS, IN THE CLOSET,DUMMY.":96 =z&A$"SIG"LC26ʲ"IT SAYS, 'STAND BY FOR MORE ADVENTURE.' CALL YOUR LOCAL DISTRIBUTOR TODAY.":96 z(A$"PLA"LC13(L1LI(13)1)ʲ"GLOWING LETTERS SAY DROP *TREASURES HERE AND SAY SCORE.":96 z*"SORRY CHARLIE, CAN'T DO IT." z,96 z.A$"SCR"ʲ"I DON'T KNOW HOW.":96 E{0A$"SCR"LO(5)LC:NM$(4)"AN UNROLLED ":SS$NM$(4):"A LIGHTER FELL OUT.":96 {2A$"LIG"A$"FLA"A$"SCR"ʲ"SORRY, IT WON'T LIGHT":96 {4A$"LIG"(LO(5)LCLO(5)99)NM$(5)"A LIT ":L1:"THE LIGHTER FLARES.":I1300:I:50 |6A$"SCR"LO(4)LCLO(4)99ʲ"IT ISN'T HERE.":96 s|8A$"SCR"NM$(5)"A LIT "NM$(4)"A BURNING ":"THE SCROLL BURNS BRIGHTLY.":L1:318 |:A$"FLA"LO(10)99L1:NM$(10)"A LIT ":50 |<"WHAT DO YOU MEAN?":96 }>LC1ʲ"IN THE LIGHT, I SEE AN OPENING IN THE CEILING.":CO(1,5)7 3}@LC1CO(1,5)7:CO(6,6)7:CO(7,5)6:96 ;}B96 e}DA$"LAD"ʲ"I CAN'T CLIMB THAT.":96 }FLO(6)LCLO(6)99ʲ"WHAT LADDER?":96 }HCO(LC,5)0ʲ"I CLIMBED IT, BUT THERE WAS NOTHING THERE SO I CAME BACK DOWN.":96 }JA$"U":198 ~LI1IT D~NA$(NA$(I),3)(LO(I)LCLO(I)99)ʲ"IT'S NOT HERE.":96 K~PI q~RA$"RIN"ʲ"NOTHING, SPORT.":96 ~TLO(3)LCLO(3)99ʲ"WHAT RING?":96 ~VLO(7)99LO(7)LCʲ"I HAVE NOTHING TO RUB IT WITH.":96 X"THE RING GLOWS GOLD.":NM$(3)"* A SHIMMERING " 1ZNM$(7)"A FAINTLY LETTERED " 9\96 m^"HELP? YOU'RE SUPPOSED TO BE HELPING ME!":96 s` bLO(8)99LO(20)99ʲ"WITH WHAT?":96 dLC5LC12LC14LC15LC24LC26ʲ"i CAN'T DIG HERE.":96 f"OKAY. HERE'S A HOLE." 7hLC5CO(27,5)5:CO(5,6)27:LO(22)90LO(22)27 ZjLC12CO(27,5)12:CO(12,6)27 }lLC14CO(27,5)14:CO(14,6)27 nLC15CO(27,5)15:CO(15,6)27:LO(25)90LO(25)27 pLC24CO(27,5)24:CO(24,6)27:LO(23)90LO(23)27 rLC24LO(15)90LO(15)24 DtLC26CO(27,5)26:CO(26,6)27:LO(31)90LO(31)27 Lv96 Rx dzA$"SCR"302 |A$"CAG"A$"URN"ʲ"IT DOESN'T SEEM TO OPEN.":96 Ё~A$"CAG"LO(9)99LO(9)LCʲ"WHAT CAGE":96 A$"CAG"(LO(9)99LO(9)LC)ʲ"THE DOOR OPENED.":NM$(9)"AN OPEN " zA$"URN"(LO(19)99LO(19)LC)ʲ"IT'S OPEN":NM$(19)"AN OPEN FUNERARY ":LO(26)90LO(26)LC "SOMETHING FELL OUT." 96 ߂A$"CRO"A$"RIN"ʲ"I CAN'T POLISH SUCH A THING":96 A$"RIN"LO(3)LCLO(3)99ʲ"WHAT RING?":96 NLO(16)LCLO(16)99ʲ"I DON'T HAVE ANY POLISH.":96 A$"CRO"LO(23)LCLO(23)99ʲ"WHAT CROWN?":96 уA$"RIN"ʲ"I DON'T NEED POLISH FOR THIS. IT'S JUST A LITTLE DULL.":96 NM$(16)"AN EMPTY BOTTLE OF "ʲ"SORRY, I'M OUT OF POLISH.":96 }A$"CRO"NM$(16)"A BOTTLE FULL OF "NM$(23)"*A GLISTENING SILVER ":NM$(16)"AN EMPTY BOTTLE OF " "IT SHINES OF SILVER.":96 ҄A$"GAR"ʲ"I AM UNABLE TO TIE THAT.":96 $(LO(31)99LO(31)LC)(LO(17)99LO(17)LC)ʲ"I'M SORRY. I CANNOT.":96 =NM$(17)"A KNOTTED " JLO(17)0 hNM$(31)"* A ROPE BOUND " "IT'S FRIENDLY WHEN IT'S TIED UP." 96 SC0 SM0 I1IT 煲(NM$(I),1)"*"LO(I)13SCSC1:438 8LO(I)27LO(I)99LO(I)1LO(I)28LO(I)0LO(I)90LO(I)24SMSM1 ?I n"YOU SCORED ";SC10;" POINTS OUT OF 100"; SM0ʲ".":448 "," Ȇ"BUT I AM PENALIZING YOU ";SM;" POINTS FOR SLOPPINESS." "AND YOUR NET SCORE IS ";SC10SM;"." SM6"CLEAN UP AFTER YOURSELF." TSC10SM100ʲ"CONGRATULATIONS! A PERFECT SCORE.":LC0 SC10SM90SC10SM100"VERY, VERY GOOD." LC0ʲ"THE GAME IS OVER": 96 Ӈ"DO YOU WANT TO QUIT";:X$ (X$,1)"Y"96 LC0 426 2A$"ARM"ʲ"I CANNOT REMOVE THAT.":96 ^LO(32)99ʲ"I AM NOT WEARING IT.":96 lLO(32)LC "AH, THAT FEELS BETTER." 96 A$"BOO""i CAN'T COVER THAT.":96 (LO(2)99LO(2)LC)(LO(11)99LO(11)LC)ʲ"I CAN'T YET.":96 (LO(11)0: GET RID OF COVER MNM$(2)"* A COMPLETE GUTENBURG " `NA$(2)"BIBLE" x"THAT LOOKS NICE." 96 A$"BUL"ʲ"THE ONLY THING I CAN SCREW IS A BULB.":96 (LO(13)99LO(13)13)(LO(12)99LO(12)13)ʲ"THAT'S THE WRONG KIND OF BULB!":96 ) SUCCESS 6LO(13)0 CLI(13)1 m NA$(14)"LAMP":NM$(14)"* A TIFFANY " u50 { A$"COM"ʲ"I CAN'T EAT THAT!":96 LO(15)99LO(15)LCʲ"GAG......YURP! BAD!":96 "THANK GOD, IT ISN'T HERE!" 96 ,A$"ICE"ʲ"THAT WON'T MELT":96 RNA$(29)"ICE"ʲ"ONLY ONCE!":96 (LO(29)LCLO(29)99)(LO(30)LCLO(30)99)ʲ"I CAN'T YET.":96 NM$(29)"SOME THAWED " ʋNA$(29)"WATER" NM$(30)"SOME COLD " "THAT DID IT. THE WATER FLOWS." 96 J"A$"BUL"A$"TUL"ʲ"I CAN'T PLANT THAT.":96 $(LO(13)99LO(13)LC)(LO(12)99LO(12)LC)ʲ"PLANT THAT BULB?":96 ٌ&(LO(12)99LO(12)LC)(LO(15)99LO(15)LC)NA$(29)"WATER"554 ("I DON'T HAVE EVERYTHING I NEED.":96 +*LC14ʲ"IT WON'T GROW HERE.":96 ~,LO(20)99LO(20)LCLO(8)LCLO(8)99ʲ"NOT WITH THESE BARE HANDS!!!":96 .TR1: THIS IS THE TULIP READY COUNTER ɍ0"OKAY. I BURIED THAT MESS" 2LO(12)0:LO(15)0:LO(29)0 496 6 NA$(I),NM$(I),LO(I) ;832: THIS IS THE ITEM COUNT U:"RUBY","* A HUGE ",4 m<"BOOK","AN OLD ",3 >"RING","A DULL ",2 @"SCROLL","A TIGHTLY ROLLED ",3 B"LIGHTER","A ",0 َD"LADDER","A LONG ",4 F"CLOTH","A FUZZY ",3 H"SHOVEL","AN ANTIQUE ",16 -J"CAGE","A WICKER ",18 NL"FLASHLIGHT","AN UNLIT ",15 nN"BOOKCOVER","AN EMPTY ",11 P"BULB","A TULIP ",25 R"BULB","A LIGHT ",27 T"SOCKET","AN EMPTY ",13 V"COMPOST","SOME WELL ROTTED ",90 X"POLISH","A BOTTLE FULL OF ",13 %Z"ROPE","A COILED ",21 C\"TRASH","A MOUND OF ",21 _^"URN","A FUNERARY ",15 {`"TROWEL","A GARDEN ",1 b"TULIP","* A RAINBOW COLORED ",90 Ɛd"BIRD","* A LIVING CRYSTAL ",5 f"CROWN","A DISCARDED, BLACKENED ",90 h"D","D",90 *j"COINS","* SOME TRIANGULAR GOLD ",90 Ql"PIPE","* A PLATINUM SMOKING ",90 an"D","D",90 qp"D","D",90 r"ICE","SOME GREENISH ",26 t"COALS","SOME GLOWING ",18 v"GARGOYLE","A VICIOUS GREEN AND PURPLE ",90 x"ARMOUR","SOME VERY, VERY HEAVY ",99 0z28: THIS IS THE LOCATION COUNT N|"NOWHERE.",0,0,0,0,0,0,0 q~"A DIM CLOSET.",0,2,3,0,0,0,0 "A GATHERING ROOM WITH WIDE BENCHES DOWN BOTH SIDES.",5,0,4,1,0,0,1 璂"AN OLD STONE ARMS ROOM.",1,4,0,0,0,0,1 "A DANK AND MUSTY DUNGEON.",2,0,0,3,0,0,0 "A LUSH GREEN MEADOW, WITH A TOWER TO THE SOUTH. NOT TOO FAR TO THE WEST IT LOOKS LIKE THERE'S A CASTLE. THERE'S A DEEP MOAT WEST.",0,0,2,28,0,0,1 B"A HIGH TOWER LOOKING OUT ON THE MEADOW. THROUGH A WESTERN PORTAL, A BRIDGE LEADS TO ANOTHER CASTLE.",0,0,0,8,0,7,1 n"THE TOP OF THE LADDER.",0,0,0,0,0,0,0 "A BRIDGE TO A TOWER OFF TO THE WEST.",0,6,0,9,0,0,1 䔎"A NORTH-SOUTH CORRIDOR IN THE TOWER.",10,8,19,0,0,0,1 !"A SQUARE ROOM WITH A VAULTED CEILING.",0,0,9,11,0,24,1 g"A LIBRARY FULL OF ANCIENT AND WONDERFUL BOOKS.",0,10,12,0,0,0,1 "A GRASSY ROOF-TOP WITH POTTED PALMS AND A CLEAR BLUE SKY.",11,13,14,25,0,0,1 -"A ROOM WITH A TALL GOLDEN THRONE, AND A SMALL PLASTER PLAQUE SET IN THE FLOOR..",0,0,0,12,0,0,0 "A BEAUTIFUL FLOWER GARDEN, WITH BEDS OF PLANTS DOWN BOTH SIDES OF A LONG WALK.",12,0,15,0,0,0,1 떚"A TOMB WITH A ROW OF BRONZE MARKERS FOR FALLEN SCHOLARS.",18,16,0,14,0,0,0 /"A MUSEUM WITH BROKEN AND DESTROYED DISPLAYS.",17,0,0,15,0,0,0 x"AN EAST-WEST CORRIDOR WITH PORCELAIN TILE WALLS.",0,22,16,18,0,0,0 "A TORTURE CHAMBER WITH A BRAZIER IN THE CORNER.",0,17,15,0,0,0,0 "A SQUARE ROOM WITH A VAULTED CEILING.",9,20,0,0,0,0,1 R"A TWIST IN THE HALLWAY, WITH A TERRAZZO EAGLE IN THE FLOOR.",0,0,22,19,0,0,1 "A BATHROOM WITH PRECIOUS METAL FIXTURES.",0,0,23,22,0,0,0 똨"A HALLWAY WITH WARRIORS IN BAS-RELIEF IN THE WALL STONES.",20,21,23,17,0,0,1 G"A BEDROOM FIT FOR A KING. IT SAYS 'KING' RIGHT ON THE CURTAIN.",22,21,0,0,0,0,0 "A PIT FULL OF SMELLY GARBAGE AND FOUL REFUSE.",0,0,0,0,10,0,0 "A PASSAGE WITH A BLINDING GLARE TO THE WEST AND A DARK HOLE TO THE EAST.",0,12,0,26,0,0,1 Κ"A WIND SWEPT ICEFIELD. STORM CLOUDS BLOT A FAINT RED SUN. i CAN SEE A CARAVAN OF ICE BEASTS. tHERE'S A SIGN HALF-BURIED IN THE ICE. WHOOPS, THIS IS THE WRONG ADVENTURE.",0,25,0,0,0,0,1 "THE BOTTOM OF A HOLE.",0,0,0,0,0,0,0 %"THE WATER OF THE MOAT.",0,5,0,0,0,0,1