Willus.com
Home
|
Archive
|
About
CASTLE.BAS
(13752 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.
m 150:AF,HZ:K#(7,7),C$(33),R$(4),W$(8),E$(8),C(3,4),T(8):I0::T(128):20 !m I(K#(X1,Y1))Z1: <m I(I)100((I)99): Vm II8((I9)(I0)): rm II(I19)18(I18): m X(8):Y(8):6:(I)10110 m I,Q: |n :(64,"*"),:21)"THE WIZARD'S CASTLE":(64,"*"),"Copyright (C) 1979 by Joseph R Power":Y$"** ANSWER YES OR NO":X$"DO YOU WANT A POTION OF ":Q$" FOR 1000 GP'S":ST$"STRENGTH":IQ$"INTELLIGENCE":DX$"DEXTERITY" n "LAST REVISED 08/26/80": *oP :Q133:C$(Q):Q:I$:Z18:Y18:X18:6:I,101:X,Y,Z:Q18:W$(Q),E$(Q):Q:Q14:R$(Q):Q:"PLEASE BE PATIENT - ";:X1:Y4:Z1 o 6:I,2:"IN";:Z17:Q112:Q104:10:I1,103:Q1:Z:"I";:Z18:Q113124:10:Q:Q113:Q105112:10:Q:Q125:10:Q1:O$:O$;:Z lp Q126133:Z(8):10:Q:"G";:Q101:A13:Z(8):10:C(A,1)X:C(A,2)Y:C(A,3)Z:C(A,4)0:O$:O$;:A:"S";:RC0:ST2:DX14:R$(3)"MAN":Q112(12):Z(8):10:R1X:R2Y:R3Z qQ109:Z(8):10:O1X:O2Y:O3Z:"TLE":BF0:OT8:AV0:HT0:T1:VF0:LF0:TC0:GP60:RF0:OF0:BL0:IQ8:SX0:Q18:T(Q)0:Q::;"ALL RIGHT, BOLD ONE" >q@"YOU MAY BE AN ELF, DWARF, MAN, OR HOBBIT":8005 qqJQ14:(R$(Q),1)O$RCQ:STST2Q:DXDX2Q qTQ:OTOT4(RC1):RC0R$(3)"HUMAN":390 qr"** THAT WAS INCORRECT. PLEASE TYPE E, D, M, OR H.":320 ;r"SEX ";:8010:O$"M"SX1::O$"F"ʲ"** CUTE ";R$(RC);", REAL CUTE. TRY M OR F":390 r:"OK ";R$(RC);", YOU HAVE THESE STATISTICS:":ST$;"= ";ST,IQ$;"= ";IQ,DX$;"= ";DX:"AND ";OT;" OTHER POINTS TO ALLOCATE AS YOU WISH." sZ$IQ$:8020:IQIQQ:OTZ$ST$:8020:STSTQ:OTZ$DX$:8020:DXDXQ Js :"OK, ";R$(RC);", YOU HAVE 60 GOLD PIECES (GP's)" s&Z$"ARMOR":8100:AV0:WV0:FL0:WC0:"PLATE<30> CHAINMAIL<20> LEATHER<10> NOTHING<0>":8005:O$"N"640 #tNAV3(O$"P")2(O$"C")(O$"L"):AV0ʲ"** ARE YOU A ";R$(RC);" OR A TURKEY ? TYPE P,C,L, OR N":550 otAHAV7:GPGPAV10::"OK, BOLD ";R$(RC);", YOU HAVE ";GP;" GP's LEFT" tZ$"WEAPONS":8100:"SWORD<30> MACE<20> DAGGER<10> NOTHING<0>":8005:O$"N"740 'uWV3(O$"S")2(O$"M")(O$"D"):WV0ʲ"** IS YOUR IQ REALLY ";IQ;"? TYPE S,M,D, OR N":650 DuGPGPWV10::GP20800 u"WANT TO BUY A LAMP FOR 20 GP's ";:8010:O$"Y"LF1:GPGP20:800::O$"N"ʲY$:760 u :GP1Q0:850 u*"OK, ";R$(RC);", YOU HAVE ";GP;" GOLD PIECES LEFT" ?v4"FLARES COST 1 GP EACH. HOW MANY DO YOU WANT ";O$:Q(O$):Q0(O$)48840 wv>"** IF YOU DON'T WANT ANY JUST TYPE 0 (ZERO)":820 vHQGPʲ"** YOU CAN ONLY AFFORD ";GP:820 vR:FLFLQ:GPGPQ:X1:Y4:Z1:"OK ";R$(RC);", YOU ENTER THE CASTLE AND BEGIN.":2740 wpTT1:RFOF0910 ,wuC(1,4)T(1)TT1 SwzC(2,4)T(3)GPGP(5):GP0GP0 wC(3,4)T(5)I(512)8000:QI:7:Q,I100 wQ13:C(Q,4)C(Q,4)(C(Q,1)X)(C(Q,2)Y)(C(Q,3)Z):C(Q,4)(C(Q,4)0):Q w(5)11050 x"YOU ";:Q(7)BL:Q7Q4 ,xQ940,925,930,920,945,960,965:1050 Gx"STEPPED ON A FROG": x"HEAR ";("A SCREAM FOOTSTEPSA WUMPUS THUNDER",(4)98,9): x"SNEEZED": x"SEE A BAT FLY BY": x"SMELL ";C$(12(13));" FRYING": y"FEEL LIKE YOU'RE BEING WATCHED": (y"ARE PLAYING WIZARD'S CASTLE": \yBLT(4)2ʲC$(29);" CURES YOUR BLINDNESS":BL0 y$BFT(6)2ʲC$(31);" DISSOLVES THE BOOK":BF0 y8:"YOUR MOVE ";O$:(O$,2)"DR"1630::O$(O$,1):O$"N"1290 z`(O$"S")(O$"W")(O$"E")1300::O$"U"1380::O$"D"1400::O$"M"1420::O$"F"ʡ1BL1470,1420::O$"L"ʡ1BL1520,1420::O$"O"1850::O$"G"ʡ1BL2010,1420 zO$"T"ʡ1RF2130,2150::O$"Q"2190::"** STUPID ";R$(RC);" THAT WASN'T A VALID COMMAND":880 z 6:(I)24240 ?{IX(O$"N")(O$"S"):8:XI:IY(O$"W")(O$"E"):8:YI:2740 Z{d6:(I)3ZZ1:2740 l{nZ$"UP":1410 {xZ$"DOWN":6:(I)4ZZ1:2740 {"** OH ";R$(RC);", NO STAIRS GOING ";Z$;" IN HERE":880 |BL1ʲ"** YOU CAN'T SEE ANYTHING, DUMB ";R$(RC):880 ;|::AX:BY:X18:Y18:6:Q(I):Q99Q34 b|XAYBʲ"<";(I$,Q,1);">";:1443 z|" ";(I$,Q,1);" "; |Y::X:XA:YB:1510 |FL0ʲ"** HEY BRIGHT ONE, YOU'RE OUT OF FLARES":880 F}:FLFL1:AX:BY:Q1A1A1:IQ1:8:XI:Q2B1B1:IQ2:8:YI:6:QI:7:Q,I:(I$,I,1);" ";:Q2::Q1:XA:YB U}8110:880 }LF0ʲ"** YOU DON'T HAVE A LAMP, ";R$(RC):880 =~"WHERE DO YOU SHINE THE LAMP (N,S,E, OR W) ";:8010:AX:BY:IX(O$"N")(O$"S"):8:XI:IY(O$"W")(O$"E"):8:YI:(AX)(BY)0ʲ"** TURKEY! THAT'S NOT A DIRECTION":880 ~J"THE LAMP SHINES INTO (";X;",";Y;") LEVEL ";Z:6:QI:7:XI:"THERE YOU WILL FIND ";C$(X):XA:YB:Q,I:880 ~^6:(I)5ʲ"** IF YOU WANT A DRINK, FIND A POOL":880 hQ(8):"YOU TAKE A DRINK AND ";:Q7ʲ"FEEL "; MrQ1660,1690,1710,1740,1755,1780,1800,1820 t|IST(3):9:STI:"STRONGER":880 STST(3):"WEAKER":1(ST1)880,4180 IIQ(3):9:IQI:"SMARTER":880 IQIQ(3):"DUMBER":1(IQ1)880,4180 IDX(3):9:DXI:"NIMBLER":880 FDXDX(3):"CLUMSIER":1(DX1)880,4180 \Q(4):QRC1800 ~RCQ:"BECOME A ";R$(RC):880 SX1SX:"TURN INTO A ";:SX0ʲ"FE"; &"MALE ";R$(RC):880 :6:(I)6ʲ"YOU OPEN THE CHEST AND":1950 ?6:(I)12ʲ"YOU OPEN THE BOOK AND":1870 [D"** THE ONLY THING YOU OPENED WAS YOUR BIG MOUTH":880 N(6)1880,1890,1900,1910,1920,1930 X"FLASH! OH NO! YOU ARE NOW A BLIND ";R$(RC):BL1:1940 b"ITS ANOTHER VOLUME OF ZOT'S POETRY! - YEECH!":1940 'l"ITS AN OLD COPY OF PLAY";R$((4)):1940 Uv"ITS A MANUAL OF DEXTERITY!":DX18:1940 "ITS A MANUAL OF STRENGTH !":ST18:1940 ̂"THE BOOK STICKS TO YOUR HANDS SO YOU CAN'T DRAW YOUR WEAPON!":BF1 ݂6:I,1:880 (4)1960,1980,1990,1980 7"KABOOM! IT EXPLODES":Q(6):4150:1(ST1)1940,4180 mQ(1000):"FIND ";Q;" GOLD PIECES":GPGPQ:1940 "GAS! YOU STAGGER FROM THE ROOM":6:I,1:TT20:O$("NSEW",(4),1):1300 6:(I)11ʲ"** NO ORB - NO GAZE":880 "YOU SEE ";:(6)2030,2050,2060,2070,2090,2120 ]"YOURSELF IN A BLOODY HEAP":STST(2):1(ST1)880,4180 "YOURSELF DRINKING FROM A POOL AND BECOMING ";C$(12(13)):880 τ C$(12(13));" GAZING BACK AT YOU":880 8AX:BY:CZ:X(8):Y(8):Z(8):6:QI:7:Q,I:C$(I);" AT (";X;",";Y;") LEVEL ";Z:XA:YB:ZC:880 h*A(8):B(8):C(8):(8)4AO1:BO2:CO3 >"THE ORB OF ZOT AT (";A;",";B;") LEVEL ";C:880 H"A SOAP OPERA RERUN":880 RRF0ʲ"** YOU CAN'T TELEPORT WITHOUT THE RUNESTAFF!":880 fZ$"X-COORD (1=FAR NORTH 8=FAR SOUTH) ":8060:XQ:Z$"Y-COORD (1=FAR WEST 8=FAR EAST ) ":8060:YQ:Z$"LEVEL (1=TOP 8=BOTTOM ) ":8060:ZQ:O$"T":2740 "DO YOU REALLY WANT TO QUIT ";:8010:O$"Y"ʲ"** THEN DON'T SAY YOU DO":880::4280 BL0ʑ8110 } "ST= ";ST;" IQ= ";IQ;" DX= ";DX;" FLARES= ";FL;" GP's= ";GP:W$(WV1);" / ";W$(AV5);:LF1ʲ" / A LAMP"; ۇ :WC0:6:QI:7:Q,I:Z$"YOU HAVE ":"HERE YOU FIND ";C$(I):QI:(Q7)(Q11)(Q12)880 Q7GPGP(10):Z$;GP:1940 Q8FLFL(5):Z$;FL:1940 , Q92860 \ (O1X)(O2Y)(O3Z)ʡ1(O$"T")1300,4410 {" X(8):Y(8):Z(8):2740 , Q10IZ1:8:ZI:2740 ЈT Q25Q34ʲ"ITS NOW YOURS":T(Q25)1:TCTC1:1940 Y 6:A(I)12:WC0:(A13)(VF1)3572 D^ "YOU MAY TRADE WITH, ATTACK, OR IGNORE THE VENDOR":8005:O$"I"880 {| O$"A"VF1:"YOU'LL BE SORRY YOU DID THAT":3572 O$"T"ʲ"** NICE SHOT, ";R$(RC):2910 ˉ Q18:A(Q1500):T(Q)03020 / "DO YOU WANT TO SELL ";C$(Q25);" FOR ";A;" GP's ";:8010:O$"Y"TCTC1:T(Q)0:GPGPA:3020 F O$"N"ʲY$:2980 Q:GP1E3ʲ"YOU'RE TOO POOR TO TRADE, ";R$(RC):880 GP12503240 Ҋ "OK, ";R$(RC);", YOU HAVE ";GP;" GOLD PIECES AND ";W$(AV5) < Z$"ARMOR":8100:"NOTHING<0> LEATHER<1250> ";:GP1499ʲ"CHAINMAIL<1500> ";:GP1999ʲ"PLATE<2000>"; U :8005:O$"N"3130 | O$"L"GPGP1250:AV1:AH7:3130 O$"C"GP1500ʲ"** YOU HAVEN'T GOT THAT MUCH CASH":3060 O$"C"GPGP1500:AV2:AH14:3130 ! O$"P"GP2000ʲ"** YOU CAN'T AFFORD PLATE":3060 B& O$"P"GPGP2000:AV3:AH21:3130 u5 "** DON'T BE SILLY. CHOOSE A SELECTION":3080 : GP12503240 ? "YOU HAVE ";GP;" GP's LEFT WITH ";W$(WV1);" IN HAND" (D Z$"WEAPONS":8100:"NOTHING<0> DAGGER<1250> ";:GP1499ʲ"MACE<1500> ";:GP1999ʲ"SWORD<2000>"; AX :8005:O$"N"3240 cl O$"D"GPGP1250:WV1:3240 v O$"M"GP1500ʲ"** SORRY SIR, I DON'T GIVE CREDIT":3140 č O$"M"GPGP1500:WV2:3240 O$"S"GP2000ʲ"** DUNGEON EXPRESS CARD - YOU LEFT HOME WITHOUT IT!":3140 M O$"S"GP2000ʲ"YOU LEFT HOME WITHOUT IT!":3140 o O$"S"GPGP2000:WV3:3240 "** TRY CHOOSING A SELECTION":3160 GP1000880 Ȏ Z$ST$:8080:O$"Y"3290 GPGP1E3:IST(6):9:STI:QST:8090:3240 O$"N"ʲY$:3250 ! GP1000880 @ Z$IQ$:8080:O$"Y"3360 q GPGP1E3:IIQ(6):9:IQI:QIQ:8090:3300 O$"N"ʲY$:3310 * GP1000880 4 Z$DX$:8080:O$"Y"3420 H GPGP1E3:IDX(6):9:DXI:QDX:8090:3370 \ O$"N"ʲY$:3380 (GP1000)(LF1)880 E 2 "WANT A LAMP";Q$;:8010:O$"Y"3510 GPGP1000:LF1:"ITS GUARANTEED TO OUTLIVE YOU!":880 O$"N"ʲY$:3480 880 Q11(A2):Q2A2:Q31:(C(1,4)T(1))(BL1)(DX(9)(9))4030 W 2 :"YOU'RE FACING ";C$(A12):"YOU MAY ATTACK OR RETREAT";:Q31ʲ", OR BRIBE";:IQ14ʲ", OR CAST A SPELL"; :"YOUR ";ST$;" IS ";ST;" AND ";DX$;" IS ";DX:8005:O$"A"3730 ؑWV0ʲ"** POUNDING ON A MONSTER WON'T HURT IT":4030 BF1ʲ"** YOU CAN'T BEAT IT TO DEATH WITH A BOOK":4030 B$DX(20)(BL3)ʲ" DRAT! MISSED":4030 ." YOU HIT THE LOUSY ";(C$(A12),(C$(A12))2):Q2Q2WV:(A9A12)(8)1ʲ"OH NO! YOUR ";W$(WV1);" BROKE":WV0 ʒ=Q204030 VMCMC1:C$(A12);" LIES DEAD AT YOUR FEET":HTT603690 @e"YOU SPEND AN HOUR EATING ";C$(A12);E$((8)):HTT kjXR1YR2ZR3ʡ1(A13)3710,4640 t"GREAT ZOT! YOU'VE FOUND THE RUNESTAFF":R10:RF1 ~Q(1000):"YOU NOW GET HIS HOARD OF ";Q;" GP's":GPGPQ:1940 O$"R"4030 (O$"C")3860 BIQ15Q31ʲ"** YOU CAN'T CAST A SPELL NOW!":3580 "WHICH SPELL (WEB, FIREBALL, OR DEATHSPELL) ";:8010:O$"W"3800 STST1:WC(8)1:1(ST1)4030,4180 ƔO$"F"3830 Q(7)7:STST1:IQIQ1:(IQ1)(ST1)4180 ." IT DOES ";Q;" POINTS OF DAMAGE.":Q2Q2Q:3645 dO$"D"ʲ"** TRY ONE OF THE OPTIONS GIVEN":3580 "DEATH - - - ";:IQ15(4)ʲ"YOURS":IQ0:4180 "HIS":Q20:3670 O$"B"Q31ʲ"** CHOOSE ONE OF THE LISTED OPTIONS":3580 TC0ʲ"'ALL I WANT IS YOUR LIFE!'":4030 4(Q(8):T(Q)03880 |2"I WANT ";C$(Q25);", WILL YOU GIVE IT TO ME ";:8010:O$"N"4030 8O$"Y"ʲY$:3890 ܖ<T(Q)0:TCTC1:"OK, JUST DON'T TELL ANYONE":6:VFVF((I)25):880 Q32:WC0WCWC1:WC0ʲ"THE WEB JUST BROKE!" =Z$(C$(12A),(C$(12A))2):WC04047 o"THE ";Z$;" IS STUCK AND CAN'T ATTACK":4070 "THE ";Z$;" ATTACKS":DX(7)(7)(7)BL34060 ȗ" HAH! HE MISSED YOU":4070 " OUCH! HE HIT YOU":QQ1:4150:ST14180 O$"R"3580 ""YOU HAVE ESCAPED" "DO YOU GO NORTH, SOUTH, EAST, OR WEST ";:8010:(O$"N")(O$"S")(O$"E")(O$"W")1300 ,"** DON'T PRESS YOUR LUCK ";R$(RC):4090 6AV04175 @QQAV:AHAHAV:Q0AHAHQ:Q0 EAH0AH0:AV0:"YOUR ARMOR IS DESTROYED - GOOD LUCK" -OSTSTQ: xTQ1750:Q::(64,"="):"A NOBLE EFFORT, OH FORMERLY LIVING ";R$(RC) h"YOU DIED FROM A LACK OF ";:ST1ʲST$::IQ1ʲIQ$::DX$ ᙆQ31:"WHEN YOU DIED YOU HAD:":4310 Q30:"YOU LEFT THE CASTLE WITH";:OF0ʲ"OUT"; 7" THE ORB OF ZOT":OF04280 "A GLORIOUS VICTORY!":"YOU ALSO GOT OUT WITH THE FOLLOWING:":4300 Κ"A LESS THAN AWE-INSPIRING DEFEAT.":"WHEN YOU LEFT THE CASTLE YOU HAD:" Q30ʲ"YOUR MISERABLE LIFE" Q18:T(Q)1ʲC$(Q25), :Q::W$(WV1):W$(AV5):LF1ʲ"A LAMP" oFL;" FLARES":GP;" GP's":RF1ʲ"THE RUNESTAFF" "AND IT TOOK YOU ";T;" TURNS!" :"PLAY AGAIN ";:8010:O$"Y"ʲ"SOME ";R$(RC);"S NEVER LEARN"::Q11000:Q:20 O$"N"ʲY$:4360 8&"MAYBE DUMB ";R$(RC);" NOT SO DUMB AFTER ALL":: :"GREAT UNMITIGATED ZOT!":"YOU JUST FOUND THE ORB OF ZOT":"THE RUNESTAFF IS GONE":RF0:OF1:O10:1940 AN EMPTY ROOM,THE ENTRANCE,STAIRS GOING UP,STAIRS GOING DOWN,A POOL,A CHEST,GOLD PIECES,FLARES,A WARP,A SINKHOLE,A CRYSTAL ORB,A BOOK,A KOBOLD,AN ORC,A WOLF,A GOBLIN,AN OGRE,A TROLL,A BEAR,A MINOTAUR,A GARGOYLE,A CHIMERA,A BALROG vA DRAGON,A VENDOR,THE RUBY RED,THE NORN STONE,THE PALE PEARL,THE OPAL EYE,THE GREEN GEM,THE BLUE FLAME,THE PALANTIR,THE SILMARIL,".EUDPCGFWSOBMMMMMMMMMMMMVTTTTTTTT?",NO WEAPON,WICH,DAGGER," STEW",MACE," SOUP",SWORD," BURGER" 랣NO ARMOR," ROAST",LEATHER," MUNCHY",CHAINMAIL," TACO",PLATE," PIE",HOBBIT,ELF,MAN,DWARF,T,I,A,L,I,Z,I,N," ",C,A "YOU GET ALL HIS WARES:":"PLATE ARMOR":AV3:AH21:"A SWORD":WV3:"A ";ST$;" POTION":IST(6):9:STI:"AN ";IQ$;" POTION":IIQ(6):9:IQI H"A ";DX$;" POTION":IDX(6):9:DXI:LF0ʲ"A LAMP":LF1 ɟf3710 ޟE "YOUR CHOICE "; J O$:O$(O$,1): AT "HOW MANY POINTS DO YOU ADD TO ";Z$;:O$:Q(O$):(Q0)((O$)48)Q1 kc (Q0)(QOT)(Q(Q))ʲ"** ";:8020 yh OTOTQ: | Z$;:O$:Q((O$)):(Q0)(Q9)ʒ ɠ "** TRY A NUMBER FROM 1 TO 8":8060 ޠ X$;Z$;Q$;:8010 "YOUR ";Z$;" IS NOW ";Q: = "HERE IS A LIST OF ";Z$;" YOU CAN BUY (WITH COST IN <>)": h "YOU ARE AT (";X;",";Y;") LEVEL ";Z: