Willus.com
Home
|
Archive
|
About
GARGCST2.BAS
(13827 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.
oj :DOWNLOADED FROM TBBS HEADQUARTERS j :RUN BY EBERT'S PERSONAL COMPUTERS j : 690-4566 (DATA) j 100 j j 570 j @470,(34);"GARGOYLE CASTLE";(34) Fk @896,"COPYRIGHT 1980-PANIC SIMULATIONS";45);"VERSION: PROTO 1.1"; k @960,"KIT DOMENICO";50);"16K LEVEL II":"PLEASE USE UPPERCASE ONLY" ki IT: THIS IS THE NUMBER OF ITEMS ON THE NOUN LIST kl NA$(IT),NM$(IT),LO(IT) ln I1 IT: NA$(I),NM$(I),LO(I): I lx PL6:PO1 %l LO Bl CO(LO,6),LI(LO),D$(LO) Ql I0 LO ]l D$(I) kl J1 6 yl CO(I,J) l J l LI(I) l I lLC5 lSS$NM$(4) l l l LI(LC)0 L0 "IT'S DARK IN HERE!": 560 m:"I AM IN ";D$(LC) m"I CAN SEE "; m LO(32)99 LC28 "THAT MY ARMOR PULLS ME STRAIGHT TO THE BOTTOM, AND I'M DROWNED.":LC0: 5300 m VI0 m I1 IT m LO(I)LC 545 m 64(X)(NA$(I))(NM$(I)) m NM$(I);NA$(I);". "; m VIVI1 n! I 5n& VI0 "THAT THERE ARE NO ITEMS IN SIGHT."; ;n' Rn("THE EXITS ARE "; rn* CO(LC,1)0 " NORTH,"; n+ CO(LC,2)0 " EAST,"; n, CO(LC,3)0 " SOUTH,"; n- CO(LC,4)0 " WEST,"; n. CO(LC,5)0 " UP,"; o/ CO(LC,6)0 " DOWN,"; o0 "o9 (63,"+") ,o:A$"" o; (LO(31)LC LO(31)99) LO(32)99 NM$(31)"A VICIOUS GREEN AND PURPLE " 2012 o<"WHAT SHOULD I DO";A$ o> (A$)1 1000 oD oN oXV$(A$,3) ob I1 (A$) pl ((A$,I),1) " " A$((A$,(A$)I),3): 650 !pv I 1p VERB LIST Gp V$"GO " 1000 ]p V$"WAL" 1000 sp V$"RUN" 1000 p V$"GET" 2000 p V$"TAK" 2000 p V$"PIC" 2000 p V$"DRO" 2500 p V$"PUT" 2500 p V$"LOO" 500 q V$"INV" 3000 "q V$"REA" 4000 8q V$"UNR" 4300 Nq V$"BUR" 4400 dq V$"LIG" 4400 zq V$"CLI" 4500 q V$"RUB" 4600 q V$"HEL" 4700 q V$"DIG" 4800 q V$"OPE" 5000 q V$"POL" 5100 q V$"TIE" 5200 r* V$"SCO" 5300 *r4 V$"QUI" 5600 @r> V$"REM" 5800 VrH V$"COV" 5900 lrR V$"SCR" 6000 r\ V$"EAT" 6100 rf V$"MEL" 6200 rp V$"PLA" 6300 r"SORRY, I DON'T KNOW HOW TO DO THAT." r 570 r s TR1 LO(21)14:TR0 Rs L0 LI(LC)0 "MOVING IN THE DARK CAN BE DANGEROUS!": I1 300: I bsNM$(5)"A " qsNM$(4)SS$ s 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" t A$"EAS" A$"E" #t A$"DOW" A$"D" ;t A$"UP" A$"U" At qt$ CO(LC,1)0 A$"N" LCCO(LC,1): 1200 t. CO(LC,2)0 A$"E" LCCO(LC,2): 1200 t8 CO(LC,3)0 A$"S" LCCO(LC,3): 1200 uB CO(LC,4)0 A$"W" LCCO(LC,4): 1200 \uD A$"U" CO(1,5)0 LC1 LO(6)99 LO(6)1 "IT'S TOO HIGH TO REACH.": 570 uF A$"U" LO(6)99 "I CAN'T CLIMB A LADDER I'M CARRYING.": 570 uL CO(LC,5)0 A$"U" LCCO(LC,5): 1200 vV CO(LC,6)0 A$"D" LCCO(LC,6): 1200 .v"SORRY, I CAN'T GO THAT DIRECTION." 8v 570 Tv LO(6)LC CO(6,6)LC ^v 500 dv zv A$"SOC" 2040 v POPL "I HAVE TOO MUCH ALREADY!": 2040 v A$"GAR" 2018 v LO(31)LC "IT ISN'T HERE": 570 _w NM$(31)"A VICIOUS GREEN AND PURPLE " LO(32)99 "A LOOSE AND VICIOUS GARGOYLE ATTACKS ME. i AM DEAD." {wLC0:5300: GOTO SCORE w I1IT w A$(NA$(I),3) LO(I)LC 2030 x A$"COA" (NM$(30),6,1)"G" LO(19)99 "YOU DON'T HAVE ANYTHING TO CARRY THEM IN.": 570 x A$"COA" (NM$(30),6,1)"G" LO(19)99 (NM$(19),3,1)"F" "NOT WHILE THE URN IS CLOSED": 570 x A$"BIR" (LO(9)99 LO(9)LC) "IT FLYS AWAY FROM ME.":LO(22)(6): J1 300: J: 500 2y A$"BIR" LO(22)0:NM$(9)"* A CRYSTAL BIRD LOCKED IN A ": 500 MyLO(I)99:POPO1: 500 Uy I ry"I CAN'T PICK THAT UP." |y4 570 y y I1 IT y A$"URN" LO(30)99 LO(30)LC:POPO1 y A$"LAD" LO(6)99 CO(7,6)LC z A$(NA$(I),3) LO(I)99 LO(I)LC:POPO1: 500 (z I Ez "YOU DON'T HAVE THAT." Oz 570 Uz ^z PO0 fz C0 }z "I AM CARRYING "; z I1 IT z LO(I)99 NM$(I);NA$(I);", ":CC1:POPO1 z I z C0 "NOTHING." z 570 z { L0 LI(LC)0 "IN THE DARK?": 4190 c{ A$"BOO" (LO(2)LC LO(2)99) "i DON'T READ GERMAN.": 570 { 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.'": 570 N| A$"SCR" NM$(4)"AN UNROLLED " (LO(4)LC LO(4)99) "IT SAYS, BURN IT UP, CHUCK.": 570 | A$"CLO" NM$(7)"A FAINTLY LETTERED " (LO(7)99 LO(7)LC) "IT SAYS, IN THE CLOSET,DUMMY.": 570 7} A$"SIG" LC26 "IT SAYS, 'STAND BY FOR MORE ADVENTURE.' CALL YOUR LOCAL DISTRIBUTOR TODAY.": 570 } A$"PLA" LC13 (L1 LI(13)1) "GLOWING LETTERS SAY DROP *TREASURES HERE AND SAY SCORE.": 570 }^ "SORRY CHARLIE, CAN'T DO IT." }c 570 } ~ A$"SCR" "I DON'T KNOW HOW.": 570 ]~ A$"SCR" LO(5)LC:NM$(4)"AN UNROLLED ":SS$NM$(4):"A LIGHTER FELL OUT.": 570 c~0 ~: A$"LIG" A$"FLA" A$"SCR" "SORRY, IT WON'T LIGHT": 570 D A$"LIG" (LO(5)LC LO(5)99) NM$(5)"A LIT ":L1:"THE LIGHTER FLARES.": I1 300: I: 500 WI A$"SCR" LO(4)LC LO(4)99 "IT ISN'T HERE.": 570 N A$"SCR" NM$(5)"A LIT " NM$(4)"A BURNING ":"THE SCROLL BURNS BRIGHTLY.":L1: 4460 X A$"FLA" LO(10)99 L1:NM$(10)"A LIT ": 500 b"WHAT DO YOU MEAN?": 570 Vl LC1 "IN THE LIGHT, I SEE AN OPENING IN THE CEILING.":CO(1,5)7 v LC1 CO(1,5)7:CO(6,6)7:CO(7,5)6: 570 570 Ȁ A$"LAD" "I CAN'T CLIMB THAT.": 570 LO(6)LC LO(6)99 "WHAT LADDER?": 570 W CO(LC,5)0 "I CLIMBED IT, BUT THERE WAS NOTHING THERE SO I CAME BACK DOWN.": 570 iA$"U": 1050 o ~ I1 IT ǁ A$(NA$(I),3) (LO(I)LC LO(I)99) "IT'S NOT HERE.": 570 ρ I A$"RIN" "NOTHING, SPORT.": 570 - LO(3)LC LO(3)99 "WHAT RING?": 570 s LO(7)99 LO(7)LC "I HAVE NOTHING TO RUB IT WITH.": 570 "THE RING GLOWS GOLD.":NM$(3)"* A SHIMMERING " ɂ NM$(7)"A FAINTLY LETTERED " ӂ* 570 ق\ f"HELP? YOU'RE SUPPOSED TO BE HELPING ME!": 570 H LO(8)99 LO(20)99 "WITH WHAT?": 570 LC5 LC12 LC14 LC15 LC24 LC26 "i CAN'T DIG HERE.": 570 "OKAY. HERE'S A HOLE." LC5 CO(27,5)5 : CO(5,6)27 : LO(22)90 LO(22)27 LC12 CO(27,5)12 : CO(12,6)27 H 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 , LC26 CO(27,5)26 : CO(26,6)27: LO(31)90 LO(31)27 6$ 570 < R A$"SCR" 4300 A$"CAG" A$"URN" "IT DOESN'T SEEM TO OPEN.": 570 ΅ A$"CAG" LO(9)99 LO(9)LC "WHAT CAGE": 570 A$"CAG" (LO(9)99 LO(9)LC) "THE DOOR OPENED.":NM$(9)"AN OPEN " 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." 570 A$"CRO" A$"RIN" "I CAN'T POLISH SUCH A THING": 570 3 A$"RIN" LO(3)LC LO(3)99 "WHAT RING?": 570 u LO(16)LC LO(16)99 "I DON'T HAVE ANY POLISH.": 570 A$"CRO" LO(23)LC LO(23)99 "WHAT CROWN?": 570 A$"RIN" "I DON'T NEED POLISH FOR THIS. IT'S JUST A LITTLE DULL.": 570 Q NM$(16)"AN EMPTY BOTTLE OF " "SORRY, I'M OUT OF POLISH.": 570 A$"CRO" NM$(16)"A BOTTLE FULL OF " NM$(23)"*A GLISTENING SILVER ":NM$(16)"AN EMPTY BOTTLE OF " ߈"IT SHINES OF SILVER.": 570 P Z A$"GAR" "I AM UNABLE TO TIE THAT.": 570 vd (LO(31)99 LO(31)LC) (LO(17)99 LO(17)LC) "I'M SORRY. I CANNOT.": 570 nNM$(17)"A KNOTTED " sLO(17)0 xNM$(31)"* A ROPE BOUND " ≂"IT'S FRIENDLY WHEN IT'S TIED UP." 쉌 570 SC0 SM0 I1 IT E (NM$(I),1)"*" LO(I)13 SCSC1: 5330 LO(I)27 LO(I)99 LO(I)1 LO(I)28 LO(I)0 LO(I)90 LO(I)24 SMSM1 I ܊"YOU SCORED ";SC10;" POINTS OUT OF 100"; SM0 ".": 5370 "," < "BUT I AM PENALIZING YOU ";SM;" POINTS FOR SLOPPINESS." g"AND YOUR NET SCORE IS ";SC10SM;"." SM6 "CLEAN UP AFTER YOURSELF." ͋ SC10SM100 "CONGRATULATIONS! A PERFECT SCORE.":LC0 SC10SM90 SC10SM100 "VERY, VERY GOOD." *r LC0 "THE GAME IS OVER":65000 4| 570 : ["DO YOU WANT TO QUIT";: X$ t (X$,1)"Y" 570 }LC0 5300 Ō A$"ARM" "I CANNOT REMOVE THAT.": 570 LO(32)99 "I AM NOT WEARING IT.": 570 LO(32)LC ""AH, THAT FEELS BETTER." , 570 2 ` A$"BOO" "i CAN'T COVER THAT.": 570 (LO(2)99 LO(2)LC) (LO(11)99 LO(11)LC) "I CAN'T YET.": 570 э*LO(11)0: GET RID OF COVER 4NM$(2)"* A COMPLETE GUTENBURG " 9NA$(2)"BIBLE" !>"THAT LOOKS NICE." +H 570 1p rz A$"BUL" "THE ONLY THING I CAN SCREW IS A BULB.": 570 (LO(13)99 LO(13)13) (LO(12)99 LO(12)13) "THAT'S THE WRONG KIND OF BULB!": 570 厎 SUCCESS LO(13)0 LI(13)1 )NA$(14)"LAMP":NM$(14)"* A TIFFANY " 3 500 9 f A$"COM" "I CAN'T EAT THAT!": 570 LO(15)99 LO(15)LC "GAG......YURP! BAD!": 570 "THANK GOD, IT ISN'T HERE!" ̏ 570 ҏ8 B A$"ICE" "THAT WON'T MELT": 570 (G NA$(29)"ICE" "ONLY ONCE!": 570 |L (LO(29)LC LO(29)99) (LO(30)LC LO(30)99) "I CAN'T YET.": 570 VNM$(29)"SOME THAWED " `NA$(29)"WATER" ĐjNM$(30)"SOME COLD " t"THAT DID IT. THE WATER FLOWS." ~ 570 4 A$"BUL" A$"TUL" "I CAN'T PLANT THAT.": 570 (LO(13)99 LO(13)LC) (LO(12)99 LO(12)LC) "PLANT THAT BULB?": 570 ۑ (LO(12)99 LO(12)LC) (LO(15)99 LO(15)LC) NA$(29)"WATER" 6350 "I DON'T HAVE EVERYTHING I NEED.": 570 5 LC14 "IT WON'T GROW HERE.": 570 LO(20)99 LO(20)LC LO(8)LC LO(8)99 "NOT WITH THESE BARE HANDS!!!": 570 TR1: THIS IS THE TULIP READY COUNTER ޒ"OKAY. I BURIED THAT MESS" LO(12)0:LO(15)0:LO(29)0 570 .bm NA$(I),NM$(I),LO(I) Sem 32: THIS IS THE ITEM COUNT mjm"RUBY","* A HUGE ",4 tm"BOOK","AN OLD ",3 ~m"RING","A DULL ",2 m"SCROLL","A TIGHTLY ROLLED ",3 דm"LIGHTER","A ",0 m"LADDER","A LONG ",4 m"CLOTH","A FUZZY ",3 *m"SHOVEL","AN ANTIQUE ",16 Em"CAGE","A WICKER ",18 fm"FLASHLIGHT","AN UNLIT ",15 m"BOOKCOVER","AN EMPTY ",11 m"BULB","A TULIP ",25 m"BULB","A LIGHT ",27 הm"SOCKET","AN EMPTY ",13 m"COMPOST","SOME WELL ROTTED ",90 " n"POLISH","A BOTTLE FULL OF ",13 = n"ROPE","A COILED ",21 [n"TRASH","A MOUND OF ",21 w n"URN","A FUNERARY ",15 (n"TROWEL","A GARDEN ",1 2n"TULIP","* A RAINBOW COLORED ",90 ޕ<n"BIRD","* A LIVING CRYSTAL ",5 Fn"CROWN","A DISCARDED, BLACKENED ",90 Pn"D","D",90 BZn"COINS","* SOME TRIANGULAR GOLD ",90 idn"PIPE","* A PLATINUM SMOKING ",90 ynn"D","D",90 xn"D","D",90 n"ICE","SOME GREENISH ",26 Ȗn"COALS","SOME GLOWING ",18 n"GARGOYLE","A VICIOUS GREEN AND PURPLE ",90 #n"ARMOUR","SOME VERY, VERY HEAVY ",99 JMq 28 : THIS IS THE LOCATION COUNT iRq "NOWHERE.",0,0,0,0,0,0,0 \q"A DIM CLOSET.",0,2,3,0,0,0,0 fq"A GATHERING ROOM WITH WIDE BENCHES DOWN BOTH SIDES.",5,0,4,1,0,0,1 pq"AN OLD STONE ARMS ROOM.",1,4,0,0,0,0,1 1zq"A DANK AND MUSTY DUNGEON.",2,0,0,3,0,0,0 ۘq"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 ]q"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 q"THE TOP OF THE LADDER.",0,0,0,0,0,0,0 Ùq"A BRIDGE TO A TOWER OFF TO THE WEST.",0,6,0,9,0,0,1 q"A NORTH-SOUTH CORRIDOR IN THE TOWER.",10,8,19,0,0,0,1 <q"A SQUARE ROOM WITH A VAULTED CEILING.",0,0,9,11,0,24,1 q"A LIBRARY FULL OF ANCIENT AND WONDERFUL BOOKS.",0,10,12,0,0,0,1 ݚq"A GRASSY ROOF-TOP WITH POTTED PALMS AND A CLEAR BLUE SKY.",11,13,14,25,0,0,1 Hq"A ROOM WITH A TALL GOLDEN THRONE, AND A SMALL PLASTER PLAQUE SET IN THE FLOOR..",0,0,0,12,0,0,0 q"A BEAUTIFUL FLOWER GARDEN, WITH BEDS OF PLANTS DOWN BOTH SIDES OF A LONG WALK.",12,0,15,0,0,0,1 q"A TOMB WITH A ROW OF BRONZE MARKERS FOR FALLEN SCHOLARS.",18,16,0,14,0,0,0 Jq"A MUSEUM WITH BROKEN AND DESTROYED DISPLAYS.",17,0,0,15,0,0,0 q"AN EAST-WEST CORRIDOR WITH PORCELAIN TILE WALLS.",0,22,16,18,0,0,0 ڜr"A TORTURE CHAMBER WITH A BRAZIER IN THE CORNER.",0,17,15,0,0,0,0 r"A SQUARE ROOM WITH A VAULTED CEILING.",9,20,0,0,0,0,1 mr"A TWIST IN THE HALLWAY, WITH A TERRAZZO EAGLE IN THE FLOOR.",0,0,22,19,0,0,1 $r"A BATHROOM WITH PRECIOUS METAL FIXTURES.",0,0,23,22,0,0,0 .r"A HALLWAY WITH WARRIORS IN BAS-RELIEF IN THE WALL STONES.",20,21,23,17,0,0,1 b8r"A BEDROOM FIT FOR A KING. IT SAYS 'KING' RIGHT ON THE CURTAIN.",22,21,0,0,0,0,0 Br"A PIT FULL OF SMELLY GARBAGE AND FOUL REFUSE.",0,0,0,0,10,0,0 Lr"A PASSAGE WITH A BLINDING GLARE TO THE WEST AND A DARK HOLE TO THE EAST.",0,12,0,26,0,0,1 Vr"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 `r"THE BOTTOM OF A HOLE.",0,0,0,0,0,0,0 @jr"THE WATER OF THE MOAT.",0,5,0,0,0,0,1 F