Willus.com
Home
|
Archive
|
About
GARGCST1.BAS
(12544 bytes)
EMULATE AS:
DEFAULT TYPE (CMD)
|
BASIC 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.
n 1000 n :: n "GARGOYLE CASTLE" #o( " BY KIT DOMENICO":"16K LEVEL II"; +o2 IT Go< NA$(IT),NM$(IT),LO(IT) koF I1IT:NA$(I),NM$(I),LO(I):I yoP PL6:PO1 oZ LO od CO(LO,6),LI(LO),D$(LO) on I0LO ox D$(I) o J16 o CO(I,J) o J o LI(I) o I o LC5 o SS$NM$(4) p : p :: <p LI(LC)0L0ʲ"IT'S DARK IN HERE!":420 Zp :::" I AM IN ";D$(LC) np " I CAN SEE "; p LO(32)99LC28"THAT MY ARMOR PULLS ME STRAIGHT TO THE BOTTOM, AND I'M DROWNED.":LC0:2210 pVI0 pI1IT pLO(I)LC320 q"64(X)(NA$(I))(NM$(I))ʲ 4q,NM$(I);NA$(I);". "; @q6VIVI1 Gq@I wqJVI0ʲ"THAT THERE ARE NO ITEMS IN SIGHT."; }qT q^"THE EXITS ARE "; qhCO(LC,1)0ʲ" NORTH,"; qrCO(LC,2)0ʲ" EAST,"; q|CO(LC,3)0ʲ" SOUTH,"; rCO(LC,4)0ʲ" WEST,"; rCO(LC,5)0ʲ" UP,"; <rCO(LC,6)0ʲ" DOWN,"; Br Jr: TrA$"" r(LO(31)LCLO(31)99)LO(32)99NM$(31)"A VICIOUS GREEN AND PURPLE "1150 r" WHAT SHOULD I DO";A$ r(A$)1840 rV$(A$,3) rI1(A$) !s((A$,I),1)" "A$((A$,(A$)I),3):520 (sI 0s: BsV$"GO "840 Ts V$"WAL"840 fs&V$"RUN"840 ys0V$"GET"1100 s:V$"TAK"1100 sDV$"PIC"1100 sNV$"DRO"1270 sXV$"PUT"1270 sbV$"LOO"200 slV$"INV"1350 svV$"REA"1440 tV$"UNR"1540 #tV$"BUR"1570 6tV$"LIG"1570 ItV$"CLI"1670 \tV$"RUB"1720 otV$"HEL"1820 tV$"DIG"1840 tV$"OPE"1960 tV$"POL"2040 tV$"TIE"2130 tV$"SCO"2210 tV$"QUI"2380 tV$"REM"2440 uV$"COV"2500 u V$"SCR"2580 -uV$"EAT"2650 @u V$"MEL"2700 Su*V$"PLA"2790 ~u4"SORRY, I DON'T KNOW HOW TO DO THAT." u>440 uH: uRTR1LO(21)14:TR0 u\L0LI(LC)0"MOVING IN THE DARK CAN BE DANGEROUS!":I1300:I ufNM$(5)"A " vpNM$(4)SS$ 2vzLO(10)99NM$(10)"A LIT "L0 AvA$(A$,3) VvA$"NOR"A$"N" kvA$"WES"A$"W" vA$"SOU"A$"S" vA$"EAS"A$"E" vA$"DOW"A$"D" vA$"UP"A$"U" v: vCO(LC,1)0A$"N"LCCO(LC,1):1080 wCO(LC,2)0A$"E"LCCO(LC,2):1080 DwCO(LC,3)0A$"S"LCCO(LC,3):1080 nwCO(LC,4)0A$"W"LCCO(LC,4):1080 wA$"U"CO(1,5)0LC1LO(6)99LO(6)1ʲ"IT'S TOO HIGH TO REACH.":440 wA$"U"LO(6)99ʲ"I CAN'T CLIMB A LADDER I'M CARRYING.":440 )xCO(LC,5)0A$"U"LCCO(LC,5):1080 SxCO(LC,6)0A$"D"LCCO(LC,6):1080 |x$"SORRY, I CAN'T GO THAT DIRECTION." x.440 x8LO(6)LCCO(6,6)LC xB200 xL: xVA$"SOC"1250 x`POPLʲ"I HAVE TOO MUCH ALREADY!":1250 yjA$"GAR"1170 *ytLO(31)LCʲ"IT ISN'T HERE":440 y~NM$(31)"A VICIOUS GREEN AND PURPLE "LO(32)99ʲ"A LOOSE AND VICIOUS GARGOYLE ATTACKS ME. I AM DEAD." yLC0:2210 yI1IT yA$(NA$(I),3)LO(I)LC1240 4zA$"COA"(NM$(30),6,1)"G"LO(19)99ʲ"YOU DON'T HAVE ANYTHING TO CARRY THEM IN.":440 zA$"COA"(NM$(30),6,1)"G"LO(19)99(NM$(19),3,1)"F"ʲ"NOT WHILE THE URN IS CLOSED":440 zA$"BIR"(LO(9)99LO(9)LC)ʲ"IT FLYS AWAY FROM ME.":LO(22)(6):J1300:J:200 3{A$"BIR"LO(22)0:NM$(9)"* A CRYSTAL BIRD LOCKED IN A ":200 M{LO(I)99:POPO1:200 T{I q{"I CAN'T PICK THAT UP." z{440 {: { I1IT { A$"URN"LO(30)99LO(30)LC:POPO1 {A$"LAD"LO(6)99CO(7,6)LC | A$(NA$(I),3)LO(I)99LO(I)LC:POPO1:200 |(I 0|2"YOU DON'T HAVE THAT." 9|<440 A|F: J|PPO0 R|ZC0 i|d"I AM CARRYING "; u|nI1IT |xLO(I)99ʲNM$(I);NA$(I);", ":CC1:POPO1 |I |C0"NOTHING." |440 |: |L0LI(LC)0ʲ"IN THE DARK?":1520 8}A$"BOO"(LO(2)LCLO(2)99)ʲ"i DON'T READ GERMAN.":440 }A$"SCR"(NM$(4),4)"A TI"(LO(4)99LO(4)LC)ʲ"ON THE OUTSIDE, IT SAYS 'ROLLED BY SCROLL ROLLER'S UNION 207.'":440 ~A$"SCR"NM$(4)"AN UNROLLED "(LO(4)LCLO(4)99)ʲ"IT SAYS, BURN IT UP, CHUCK.":440 u~A$"CLO"NM$(7)"A FAINTLY LETTERED "(LO(7)99LO(7)LC)ʲ"IT SAYS, IN THE CLOSET,DUMMY.":440 ~A$"SIG"LC26ʲ"IT SAYS, 'STAND BY FOR MORE ADVENTURE.' CALL YOUR LOCAL DISTRIBUTOR TODAY.":440 @A$"PLA"LC13(L1LI(13)1)ʲ"GLOWING LETTERS SAY DROP *TREASURES HERE AND SAY SCORE.":440 c"SORRY CHARLIE, CAN'T DO IT." l440 t: A$"SCR"ʲ"I DON'T KNOW HOW.":440 A$"SCR"LO(5)LC:NM$(4)"AN UNROLLED ":SS$NM$(4):"A LIGHTER FELL OUT.":440 ": :,A$"LIG"A$"FLA"A$"SCR"ʲ"SORRY, IT WON'T LIGHT":440 6A$"LIG"(LO(5)LCLO(5)99)NM$(5)"A LIT ":L1:"THE LIGHTER FLARES.":I1300:I:200 р@A$"SCR"LO(4)LCLO(4)99ʲ"IT ISN'T HERE.":440 +JA$"SCR"NM$(5)"A LIT "NM$(4)"A BURNING ":"THE SCROLL BURNS BRIGHTLY.":L1:1640 ]TA$"FLA"LO(10)99L1:NM$(10)"A LIT ":200 {^"WHAT DO YOU MEAN?":440 hLC1ʲ"IN THE LIGHT, I SEE AN OPENING IN THE CEILING.":CO(1,5)7 rLC1CO(1,5)7:CO(6,6)7:CO(7,5)6:440 |440 : *A$"LAD"ʲ"I CAN'T CLIMB THAT.":440 XLO(6)LCLO(6)99ʲ"WHAT LADDER?":440 CO(LC,5)0ʲ"I CLIMBED IT, BUT THERE WAS NOTHING THERE SO I CAME BACK DOWN.":440 A$"U":970 ǂ: ӂI1IT A$(NA$(I),3)(LO(I)LCLO(I)99)ʲ"IT'S NOT HERE.":440 I BA$"RIN"ʲ"NOTHING, SPORT.":440 nLO(3)LCLO(3)99ʲ"WHAT RING?":440 LO(7)99LO(7)LCʲ"I HAVE NOTHING TO RUB IT WITH.":440 "THE RING GLOWS GOLD.":NM$(3)"* A SHIMMERING " NM$(7)"A FAINTLY LETTERED " 440 : J&"HELP? YOU'RE SUPPOSED TO BE HELPING ME!":440 R0: :LO(8)99LO(20)99ʲ"WITH WHAT?":440 DŽDLC5LC12LC14LC15LC24LC26ʲ"I CAN'T DIG HERE.":440 N"OKAY. HERE'S A HOLE." XLC5CO(27,5)5:CO(5,6)27:LO(22)90LO(22)27 ;bLC12CO(27,5)12:CO(12,6)27 ^lLC14CO(27,5)14:CO(14,6)27 vLC15CO(27,5)15:CO(15,6)27:LO(25)90LO(25)27 ΅LC24CO(27,5)24:CO(24,6)27:LO(23)90LO(23)27 텊LC24LO(15)90LO(15)24 %LC26CO(27,5)26:CO(26,6)27:LO(31)90LO(31)27 .440 6: IA$"SCR"1540 A$"CAG"A$"URN"ʲ"IT DOESN'T SEEM TO OPEN.":440 A$"CAG"LO(9)99LO(9)LCʲ"WHAT CAGE":440 A$"CAG"(LO(9)99LO(9)LC)ʲ"THE DOOR OPENED.":NM$(9)"AN OPEN " aA$"URN"(LO(19)99LO(19)LC)ʲ"IT'S OPEN":NM$(19)"AN OPEN FUNERARY ":LO(26)90LO(26)LC |"SOMETHING FELL OUT." 440 : ʇA$"CRO"A$"RIN"ʲ"I CAN'T POLISH SUCH A THING":440 A$"RIN"LO(3)LCLO(3)99ʲ"WHAT RING?":440 ;LO(16)LCLO(16)99ʲ"I DON'T HAVE ANY POLISH.":440 s A$"CRO"LO(23)LCLO(23)99ʲ"WHAT CROWN?":440 *A$"RIN"ʲ"I DON'T NEED POLISH FOR THIS. IT'S JUST A LITTLE DULL.":440 4NM$(16)"AN EMPTY BOTTLE OF "ʲ"SORRY, I'M OUT OF POLISH.":440 m>A$"CRO"NM$(16)"A BOTTLE FULL OF "NM$(23)"*A GLISTENING SILVER ":NM$(16)"AN EMPTY BOTTLE OF " H"IT SHINES OF SILVER.":440 R: Ɖ\A$"GAR"ʲ"I AM UNABLE TO TIE THAT.":440 f(LO(31)99LO(31)LC)(LO(17)99LO(17)LC)ʲ"I'M SORRY. I CANNOT.":440 2pNM$(17)"A KNOTTED " ?zLO(17)0 ]NM$(31)"* A ROPE BOUND " "IT'S FRIENDLY WHEN IT'S TIED UP." 440 : SC0 SM0 I1IT (NM$(I),1)"*"LO(I)13SCSC1:2270 1LO(I)27LO(I)99LO(I)1LO(I)28LO(I)0LO(I)90LO(I)24SMSM1 8I g"YOU SCORED ";SC10;" POINTS OUT OF 100"; |SM0ʲ".":2320 "," "BUT I AM PENALIZING YOU ";SM;" POINTS FOR SLOPPINESS." "AND YOUR NET SCORE IS ";SC10SM;"." SM6"CLEAN UP AFTER YOURSELF." N$ SC10SM100ʲ"CONGRATULATIONS! A PERFECT SCORE.":LC0 . SC10SM90SC10SM100"VERY, VERY GOOD." 8 LC0ʲ"THE GAME IS OVER": B 440 L : ЌV "DO YOU WANT TO QUIT";:X$ ` (X$,1)"Y"440 j LC0 t :: ~ 2210 : 8 A$"ARM"ʲ"I CANNOT REMOVE THAT.":440 e LO(32)99ʲ"I AM NOT WEARING IT.":440 s LO(32)LC "AH, THAT FEELS BETTER." 440 : ̍ A$"BOO""I CAN'T COVER THAT.":440 (LO(2)99LO(2)LC)(LO(11)99LO(11)LC)ʲ"I CAN'T YET.":440 ! LO(11)0 F NM$(2)"* A COMPLETE GUTENBURG " Y NA$(2)"BIBLE" q "THAT LOOKS NICE." z 440 : A$"BUL"ʲ"THE ONLY THING I CAN SCREW IS A BULB.":440 ( (LO(13)99LO(13)13)(LO(12)99LO(12)13)ʲ"THAT'S THE WRONG KIND OF BULB!":440 &2 LO(13)0 3< LI(13)1 ]F NA$(14)"LAMP":NM$(14)"* A TIFFANY " fP 200 nZ : d A$"COM"ʲ"I CAN'T EAT THAT!":440 ̏n LO(15)99LO(15)LCʲ"GAG......YURP! BAD!":440 x "THANK GOD, IT ISN'T HERE!" 440 : % A$"ICE"ʲ"THAT WON'T MELT":440 L NA$(29)"ICE"ʲ"ONLY ONCE!":440 (LO(29)LCLO(29)99)(LO(30)LCLO(30)99)ʲ"I CAN'T YET.":440 NM$(29)"SOME THAWED " Ő NA$(29)"WATER" ސ NM$(30)"SOME COLD " "THAT DID IT. THE WATER FLOWS." 440 : I A$"BUL"A$"TUL"ʲ"I CAN'T PLANT THAT.":440 (LO(13)99LO(13)LC)(LO(12)99LO(12)LC)ʲ"PLANT THAT BULB?":440 ڑ (LO(12)99LO(12)LC)(LO(15)99LO(15)LC)NA$(29)"WATER"2840 "I DON'T HAVE EVERYTHING I NEED.":440 . LC14ʲ"IT WON'T GROW HERE.":440 " LO(20)99LO(20)LCLO(8)LCLO(8)99ʲ"NOT WITH THESE BARE HANDS!!!":440 , TR1 6 "OKAY. I BURIED THAT MESS" ʒ@ LO(12)0:LO(15)0:LO(29)0 ӒJ 440 ےT 32 ^ "RUBY","* A HUGE ",4 h "BOOK","AN OLD ",3 %r "RING","A DULL ",2 I| "SCROLL","A TIGHTLY ROLLED ",3 _ "LIGHTER","A ",0 y "LADDER","A LONG ",4 "CLOTH","A FUZZY ",3 "SHOVEL","AN ANTIQUE ",16 ͓ "CAGE","A WICKER ",18 "FLASHLIGHT","AN UNLIT ",15 "BOOKCOVER","AN EMPTY ",11 ( "BULB","A TULIP ",25 B "BULB","A LIGHT ",27 _ "SOCKET","AN EMPTY ",13 "COMPOST","SOME WELL ROTTED ",90 "POLISH","A BOTTLE FULL OF ",13 Ŕ "ROPE","A COILED ",21 "TRASH","A MOUND OF ",21 "URN","A FUNERARY ",15 "TROWEL","A GARDEN ",1 B& "TULIP","* A RAINBOW COLORED ",90 f0 "BIRD","* A LIVING CRYSTAL ",5 : "CROWN","A DISCARDED, BLACKENED ",90 D "D","D",90 ʕN "COINS","* SOME TRIANGULAR GOLD ",90 X "PIPE","* A PLATINUM SMOKING ",90 b "D","D",90 l "D","D",90 0v "ICE","SOME GREENISH ",26 P "COALS","SOME GLOWING ",18 "GARGOYLE","A VICIOUS GREEN AND PURPLE ",90 "ARMOUR","SOME VERY, VERY HEAVY ",99 28 і "NOWHERE.",0,0,0,0,0,0,0 "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 j "AN OLD STONE ARMS ROOM.",1,4,0,0,0,0,1 "A DANK AND MUSTY DUNGEON.",2,0,0,3,0,0,0 3 "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 "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 ٘ "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 O "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 ҙ "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 4 "A BEAUTIFUL FLOWER GARDEN, WITH BEDS OF PLANTS DOWN BOTH SIDES OF A LONG WALK.",12,0,15,0,0,0,1 E> "A TOMB WITH A ROW OF BRONZE MARKERS FOR FALLEN SCHOLARS.",18,16,0,14,0,0,0 H "A MUSEUM WITH BROKEN AND DESTROYED DISPLAYS.",17,0,0,15,0,0,0 қR "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 Uf "A SQUARE ROOM WITH A VAULTED CEILING.",9,20,0,0,0,0,1 p "A TWIST IN THE HALLWAY, WITH A TERRAZZO EAGLE IN THE FLOOR.",0,0,22,19,0,0,1 z "A BATHROOM WITH PRECIOUS METAL FIXTURES.",0,0,23,22,0,0,0 B "A HALLWAY WITH WARRIORS IN BAS-RELIEF IN THE WALL STONES.",20,21,23,17,0,0,1 "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 0 "THE BOTTOM OF A HOLE.",0,0,0,0,0,0,0 \ "THE WATER OF THE MOAT.",0,5,0,0,0,0,1