Willus.com
Home
|
Archive
|
About
GARGCST5.BAS
(13899 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 100 j j 460 j( @470,(34);"GARGOYLE CASTLE";(34) k2 @896,"PROGRAMMED IN 1980 BY -PANIC SIMULATIONS";45);"VERSION: PROTO 1.1"; @k< @960," ";50);"16K LEVEL II"; xkF IT: THIS IS THE NUMBER OF ITEMS ON THE NOUN LIST kP NA$(IT),NM$(IT),LO(IT) kZ I1 IT: NA$(I),NM$(I),LO(I): I kd PL20:PO1 kn LO kx CO(LO,6),LI(LO),D$(LO) l I0 LO l D$(I) l J1 6 *l CO(I,J) 2l J >l LI(I) Fl I Ol LC5 ^l SS$NM$(4) dl jl l LI(LC)0 L0 "IT'S DARK IN HERE!": 440 l :"I AM IN ";D$(LC) l"I CAN SEE "; 4m LO(32)99 LC28 "THAT MY ARMOR PULLS ME STRAIGHT TO THE BOTTOM, AND I'M DROWNED.":LC0: 2250 =mVI0 Lm" I1 IT dm, LO(I)LC 340 m6 64(X)(NA$(I))(NM$(I)) m@NM$(I);NA$(I);". "; mJVIVI1 mT I m^ VI0 "THAT THERE ARE NO ITEMS IN SIGHT."; mh nr"THE EXITS ARE "; (n| CO(LC,1)0 " NORTH,"; Gn CO(LC,2)0 " EAST,"; gn CO(LC,3)0 " SOUTH,"; n CO(LC,4)0 " WEST,"; n CO(LC,5)0 " UP,"; n CO(LC,6)0 " DOWN,"; n n (63,"+") nA$"" =o (LO(31)LC LO(31)99) LO(32)99 NM$(31)"A VICIOUS GREEN AND PURPLE " 1190 Xo"WHAT SHOULD I DO";A$ no (A$)1 880 to zo oV$(A$,3) o I1 (A$) o ((A$,I),1) " " A$((A$,(A$)I),3): 560 o& I o0 VERB LIST p: V$"GO " 880 pD V$"WAL" 880 0pN V$"RUN" 880 GpX V$"GET" 1140 ^pb V$"TAK" 1140 upl V$"PIC" 1140 pv V$"DRO" 1310 p V$"PUT" 1310 p V$"LOO" 220 p V$"INV" 1390 p V$"REA" 1480 p V$"UNR" 1580 q V$"BUR" 1610 -q V$"LIG" 1610 Dq V$"CLI" 1710 [q V$"RUB" 1760 rq V$"HEL" 1860 q V$"DIG" 1880 q V$"OPE" 2000 q V$"POL" 2080 q V$"TIE" 2170 q V$"SCO" 2250 q V$"QUI" 2420 r V$"REM" 2480 *r* V$"COV" 2540 Ar4 V$"SCR" 2620 Xr> V$"EAT" 2700 orH V$"MEL" 2750 rR V$"PLA" 2840 r\"SORRY, I DON'T KNOW HOW TO DO THAT." rf 460 rp rz TR1 LO(21)14:TR0 ,s L0 LI(LC)0 "MOVING IN THE DARK CAN BE DANGEROUS!": I1 300: I <sNM$(5)"A " KsNM$(4)SS$ vs LO(10)99 NM$(10)"A LIT " L0 sA$(A$,3) s A$"NOR" A$"N" s A$"WES" A$"W" s A$"SOU" A$"S" s A$"EAS" A$"E" s A$"DOW" A$"D" t A$"UP" A$"U" t Lt CO(LC,1)0 A$"N" LCCO(LC,1): 1120 }t CO(LC,2)0 A$"E" LCCO(LC,2): 1120 t CO(LC,3)0 A$"S" LCCO(LC,3): 1120 t CO(LC,4)0 A$"W" LCCO(LC,4): 1120 <u$ A$"U" CO(1,5)0 LC1 LO(6)99 LO(6)1 "IT'S TOO HIGH TO REACH.": 460 u. A$"U" LO(6)99 "I CAN'T CLIMB A LADDER I'M CARRYING.": 460 u8 CO(LC,5)0 A$"U" LCCO(LC,5): 1120 uB CO(LC,6)0 A$"D" LCCO(LC,6): 1120 vL"SORRY, I CAN'T GO THAT DIRECTION." vV 460 :v` LO(6)LC CO(6,6)LC Fvj 220 Lvt cv~ A$"SOC" 1290 v POPL "I HAVE TOO MUCH ALREADY!": 1290 v A$"GAR" 1210 v LO(31)LC "IT ISN'T HERE": 460 Lw NM$(31)"A VICIOUS GREEN AND PURPLE " LO(32)99 "A LOOSE AND VICIOUS GARGOYLE ATTACKS ME. i AM DEAD." iwLC0:2250 : GOTO SCORE vw I1IT w A$(NA$(I),3) LO(I)LC 1280 x A$"COA" (NM$(30),6,1)"G" LO(19)99 "YOU DON'T HAVE ANYTHING TO CARRY THEM IN.": 460 wx A$"COA" (NM$(30),6,1)"G" LO(19)99 (NM$(19),3,1)"F" "NOT WHILE THE URN IS CLOSED": 460 x A$"BIR" (LO(9)99 LO(9)LC) "IT FLYS AWAY FROM ME.":LO(22)(6): J1 300: J: 220 )y A$"BIR" LO(22)0:NM$(9)"* A CRYSTAL BIRD LOCKED IN A ": 220 FyLO(I)99:POPO1: 220 Ny I ky "I CAN'T PICK THAT UP." wy 460 }y y( I1 IT y2 A$"URN" LO(30)99 LO(30)LC:POPO1 y< A$"LAD" LO(6)99 CO(7,6)LC zF A$(NA$(I),3) LO(I)99 LO(I)LC:POPO1: 220 %zP I BzZ "YOU DON'T HAVE THAT." Nzd 460 Tzn ]zxPO0 ezC0 |z"I AM CARRYING "; z I1 IT z LO(I)99 NM$(I);NA$(I);", ":CC1:POPO1 z I z C0 "NOTHING." z 460 z { L0 LI(LC)0 "IN THE DARK?": 1560 g{ A$"BOO" (LO(2)LC LO(2)99) "i DON'T READ GERMAN.": 460 { A$"SCR" (NM$(4),4)"A TI" (LO(4)99 LO(4)LC) "ON THE OUTSIDE, IT SAYS 'ROLLED BY SCROLL ROLLER'S UNION 207.'": 460 V| A$"SCR" NM$(4)"AN UNROLLED " (LO(4)LC LO(4)99) "IT SAYS, BURN IT UP, CHUCK.": 460 | A$"CLO" NM$(7)"A FAINTLY LETTERED " (LO(7)99 LO(7)LC) "IT SAYS, IN THE CLOSET,DUMMY.": 460 A} A$"SIG" LC26 "IT SAYS, 'STAND BY FOR MORE ADVENTURE.' THANK RON ADAMS FOR THIS FINE ADVENTURE GAME.": 460 } A$"PLA" LC13 (L1 LI(13)1) "GLOWING LETTERS SAY DROP *TREASURES HERE AND SAY SCORE.": 460 } "SORRY CHARLIE, CAN'T DO IT." }" 460 }, ~6 A$"SCR" "I DON'T KNOW HOW.": 460 o~@ A$"SCR" LO(5)LC:NM$(4)"AN UNROLLED ":SS$NM$(4):"A LIGHTER FELL OUT.": 460 u~J ~T A$"LIG" A$"FLA" A$"SCR" "SORRY, IT WON'T LIGHT": 460 ,^ A$"LIG" (LO(5)LC LO(5)99) NM$(5)"A LIT ":L1:"THE LIGHTER FLARES.": I1 300: I: 220 oh A$"SCR" LO(4)LC LO(4)99 "IT ISN'T HERE.": 460 r A$"SCR" NM$(5)"A LIT " NM$(4)"A BURNING ":"THE SCROLL BURNS BRIGHTLY.":L1: 1680 | A$"FLA" LO(10)99 L1:NM$(10)"A LIT ": 220 *"WHAT DO YOU MEAN?": 460 s LC1 "IN THE LIGHT, I SEE AN OPENING IN THE CEILING.":CO(1,5)7 LC1 CO(1,5)7:CO(6,6)7:CO(7,5)6: 460 460 뀸 A$"LAD" "I CAN'T CLIMB THAT.": 460 ! LO(6)LC LO(6)99 "WHAT LADDER?": 460 ~ CO(LC,5)0 "I CLIMBED IT, BUT THERE WAS NOTHING THERE SO I CAME BACK DOWN.": 460 A$"U": 1010 I1 IT A$(NA$(I),3) (LO(I)LC LO(I)99) "IT'S NOT HERE.": 460 I ' A$"RIN" "NOTHING, SPORT.": 460 [ LO(3)LC LO(3)99 "WHAT RING?": 460 LO(7)99 LO(7)LC "I HAVE NOTHING TO RUB IT WITH.": 460 &"THE RING GLOWS GOLD.":NM$(3)"* A SHIMMERING " 0NM$(7)"A FAINTLY LETTERED " : 460 D CN"HELP? YOU'RE SUPPOSED TO BE HELPING ME!": 460 IX ~b LO(8)99 LO(20)99 "WITH WHAT?": 460 փl LC5 LC12 LC14 LC15 LC24 LC26 "i CAN'T DIG HERE.": 460 v"OKAY. HERE'S A HOLE." 0 LC5 CO(27,5)5 : CO(5,6)27 : LO(22)90 LO(22)27 X LC12 CO(27,5)12 : CO(12,6)27 LC14 CO(27,5)14 : CO(14,6)27 LC15 CO(27,5)15 : CO(15,6)27: LO(25)90 LO(25)27 LC24 CO(27,5)24 : CO(24,6)27: LO(23)90 LO(23)27 $ LC24 LO(15)90 LO(15)24 d LC26 CO(27,5)26 : CO(26,6)27: LO(31)90 LO(31)27 p 460 v A$"SCR" 1580 υ A$"CAG" A$"URN" "IT DOESN'T SEEM TO OPEN.": 460 A$"CAG" LO(9)99 LO(9)LC "WHAT CAGE": 460 \ A$"CAG" (LO(9)99 LO(9)LC) "THE DOOR OPENED.":NM$(9)"AN OPEN " dž A$"URN" (LO(19)99 LO(19)LC) "IT'S OPEN":NM$(19)"AN OPEN FUNERARY ": LO(26)90 LO(26)LC "SOMETHING FELL OUT." 460 9* A$"CRO" A$"RIN" "I CAN'T POLISH SUCH A THING": 460 x4 A$"RIN" LO(3)LC LO(3)99 "WHAT RING?": 460 > LO(16)LC LO(16)99 "I DON'T HAVE ANY POLISH.": 460 H A$"CRO" LO(23)LC LO(23)99 "WHAT CROWN?": 460 RR A$"RIN" "I DON'T NEED POLISH FOR THIS. IT'S JUST A LITTLE DULL.": 460 \ NM$(16)"AN EMPTY BOTTLE OF " "SORRY, I'M OUT OF POLISH.": 460 f A$"CRO" NM$(16)"A BOTTLE FULL OF " NM$(23)"*A GLISTENING SILVER ":NM$(16)"AN EMPTY BOTTLE OF " .p"IT SHINES OF SILVER.": 460 4z j A$"GAR" "I AM UNABLE TO TIE THAT.": 460 ɉ (LO(31)99 LO(31)LC) (LO(17)99 LO(17)LC) "I'M SORRY. I CANNOT.": 460 ≘NM$(17)"A KNOTTED " LO(17)0 NM$(31)"* A ROPE BOUND " 5"IT'S FRIENDLY WHEN IT'S TIED UP." A 460 G PSC0 YSM0 h I1 IT (NM$(I),1)"*" LO(I)13 SCSC1: 2310 LO(I)27 LO(I)99 LO(I)1 LO(I)28 LO(I)0 LO(I)90 LO(I)24 SMSM1 I 2 "YOU SCORED ";SC10;" POINTS OUT OF 100"; L SM0 ".": 2360 U$ "," . "BUT I AM PENALIZING YOU ";SM;" POINTS FOR SLOPPINESS." 8 "AND YOUR NET SCORE IS ";SC10SM;"." B SM6 "CLEAN UP AFTER YOURSELF." $L SC10SM100 "CONGRATULATIONS! A PERFECT SCORE.":LC0 YV SC10SM90 SC10SM100 "VERY, VERY GOOD." |` LC0 "THE GAME IS OVER": j 460 t ~ "DO YOU WANT TO QUIT";: X$ ʌ (X$,1)"Y" 460 ӌ LC0 ٌ 匦 2250 댰 A$"ARM" "I CANNOT REMOVE THAT.": 460 Q LO(32)99 "I AM NOT WEARING IT.": 460 _ LO(32)LC } "AH, THAT FEELS BETTER." 460 A$"BOO" "i CAN'T COVER THAT.": 460 (LO(2)99 LO(2)LC) (LO(11)99 LO(11)LC) "I CAN'T YET.": 460 2 LO(11)0: GET RID OF COVER W NM$(2)"* A COMPLETE GUTENBURG " j NA$(2)"BIBLE" ( "THAT LOOKS NICE." 2 460 < F A$"BUL" "THE ONLY THING I CAN SCREW IS A BULB.": 460 >P (LO(13)99 LO(13)13) (LO(12)99 LO(12)13) "THAT'S THE WRONG KIND OF BULB!": 460 LZ SUCCESS Yd LO(13)0 fn LI(13)1 x NA$(14)"LAMP":NM$(14)"* A TIFFANY " 220 я A$"COM" "I CAN'T EAT THAT!": 460 LO(15)99 LO(15)LC "GAG......YURP! BAD!": 460 / "THANK GOD, IT ISN'T HERE!" ; 460 A n A$"ICE" "THAT WON'T MELT": 460 NA$(29)"ICE" "ONLY ONCE!": 460 (LO(29)LC LO(29)99) (LO(30)LC LO(30)99) "I CAN'T YET.": 460 NM$(29)"SOME THAWED " NA$(29)"WATER" 9 NM$(30)"SOME COLD " ^ "THAT DID IT. THE WATER FLOWS." j 460 p " A$"BUL" A$"TUL" "I CAN'T PLANT THAT.": 460 , (LO(13)99 LO(13)LC) (LO(12)99 LO(12)LC) "PLANT THAT BULB?": 460 W6 (LO(12)99 LO(12)LC) (LO(15)99 LO(15)LC) NA$(29)"WATER" 2890 @ "I DON'T HAVE EVERYTHING I NEED.": 460 J LC14 "IT WON'T GROW HERE.": 460 T LO(20)99 LO(20)LC LO(8)LC LO(8)99 "NOT WITH THESE BARE HANDS!!!": 460 @^ TR1: THIS IS THE TULIP READY COUNTER `h "OKAY. I BURIED THAT MESS" r LO(12)0:LO(15)0:LO(29)0 | 460 NA$(I),NM$(I),LO(I) ד 32: THIS IS THE ITEM COUNT "RUBY","* A HUGE ",4 "BOOK","AN OLD ",3 ! "RING","A DULL ",2 E "SCROLL","A TIGHTLY ROLLED ",3 [ "LIGHTER","A ",0 u "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 > "BULB","A LIGHT ",27 [ "SOCKET","AN EMPTY ",13 & "COMPOST","SOME WELL ROTTED ",90 0 "POLISH","A BOTTLE FULL OF ",13 : "ROPE","A COILED ",21 ߕD "TRASH","A MOUND OF ",21 N "URN","A FUNERARY ",15 X "TROWEL","A GARDEN ",1 >b "TULIP","* A RAINBOW COLORED ",90 bl "BIRD","* A LIVING CRYSTAL ",5 v "CROWN","A DISCARDED, BLACKENED ",90 "D","D",90 Ɩ "COINS","* SOME TRIANGULAR GOLD ",90 햔 "PIPE","* A PLATINUM SMOKING ",90 "D","D",90 "D","D",90 , "ICE","SOME GREENISH ",26 L "COALS","SOME GLOWING ",18 } "GARGOYLE","A VICIOUS GREEN AND PURPLE ",90 "ARMOUR","SOME VERY, VERY HEAVY ",99 Η 28 : THIS IS THE LOCATION COUNT "NOWHERE.",0,0,0,0,0,0,0 "A DIM CLOSET.",0,2,3,0,0,0,0 Y "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 "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 G4 "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 H "A SQUARE ROOM WITH A VAULTED CEILING.",0,0,9,11,0,24,1 R "A LIBRARY FULL OF ANCIENT AND WONDERFUL BOOKS.",0,10,12,0,0,0,1 a\ "A GRASSY ROOF-TOP WITH POTTED PALMS AND A CLEAR BLUE SKY.",11,13,14,25,0,0,1 ̛f "A ROOM WITH A TALL GOLDEN THRONE, AND A SMALL PLASTER PLAQUE SET IN THE FLOOR..",0,0,0,12,0,0,0 9p "A BEAUTIFUL FLOWER GARDEN, WITH BEDS OF PLANTS DOWN BOTH SIDES OF A LONG WALK.",12,0,15,0,0,0,1 z "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 "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 "A TWIST IN THE HALLWAY, WITH A TERRAZZO EAGLE IN THE FLOOR.",0,0,22,19,0,0,1 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 "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 m "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