Willus.com
Home
|
Archive
|
About
WIZCAST2.BAS
(18430 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 350:AF,HZ:K#(7,7),C$(33),R$(4),W$(8),E$(8),C(3,4),T(8):I0::T(128):20 j I(K#(X1,Y1))Z1: j I(I)100((I)99): j II8((I9)(I0)): k II(I19)18(I18): (k X(8):Y(8):6:(I)10110 3k I,Q: l :(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" -l "LAST REVISED 4/30/82": lP :Q133:C$(Q):Q:I$:Z18:Y18:X18:6:I,101:X,Y,Z:Q18:W$(Q),E$(Q):Q:Q14:R$(Q):Q lS JU$"":"DO YOU WISH TO USE A PRE-PREPARED CASTLE (Y/N)";JU$:JU$""83:JU$"Y" 10000 : 230 kmU JU$"N":"DO YOU WANT TO LOAD AN OLD GAME (Y/N)";JU$:(JU$,1)(121) (JU$,1)(89) IM0 : 64000 mW "PLEASE BE PATIENT - ";:X1:Y4:Z1 #n 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 n 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"; n Q112(12):Z(8):10:R1X:R2Y:R3Z n Q109:Z(8):10:O1X:O2Y:O3Z:"TLE" o RC0:ST2:DX14:R$(3)"MAN" ~oBF0:OT8:AV0:HT0:T1:VF0:LF0:TC0:GP60:RF0:OF0:BL0:IQ8:SX0:Q18:T(Q)0:Q::;"ALL RIGHT, BOLD ONE" o@"YOU MAY BE AN ELF, DWARF, MAN, OR HOBBIT":8005 oJQ14:(R$(Q),1)O$RCQ:STST2Q:DXDX2Q pTQ:OTOT4(RC1):RC0R$(3)"HUMAN":390 Tpr"** THAT WAS INCORRECT. PLEASE TYPE E, D, M, OR H.":320 p"SEX ";:8010:O$"M"SX1::O$"F"ʲ"** CUTE ";R$(RC);", REAL CUTE. TRY M OR F":390 =q:"OK ";R$(RC);", YOU HAVE THESE STATISTICS:":ST$;"= ";ST,IQ$;"= ";IQ,DX$;"= ";DX:"AND ";OT;" OTHER POINTS TO ALLOCATE AS YOU WISH." qZ$IQ$:8020:IQIQQ:OTZ$ST$:8020:STSTQ:OTZ$DX$:8020:DXDXQ q :"OK, ";R$(RC);", YOU HAVE 60 GOLD PIECES (GP's)" -r&Z$"ARMOR":8100:AV0:WV0:FL0:WC0:"PLATE<30> CHAINMAIL<20> LEATHER<10> NOTHING<0>":8005:O$"N"640 rNAV3(O$"P")2(O$"C")(O$"L"):AV0ʲ"** ARE YOU A ";R$(RC);" OR A %&$#&%$? TYPE P,C,L, OR N":550 rAHAV7:GPGPAV10::"OK, BOLD ";R$(RC);", YOU HAVE ";GP;" GP's LEFT" :sZ$"WEAPONS":8100:"SWORD<30> MACE<20> DAGGER<10> NOTHING<0>":8005:O$"N"740 sWV3(O$"S")2(O$"M")(O$"D"):WV0ʲ"** IS YOUR IQ REALLY ";IQ;"? TYPE S,M,D, OR N":650 sGPGPWV10::GP20800 t"WANT TO BUY A LAMP FOR 20 GP's ";:8010:O$"Y"LF1:GPGP20:800::O$"N"ʲY$:760 ,t :GP1Q0:850 dt*"OK, ";R$(RC);", YOU HAVE ";GP;" GOLD PIECES LEFT" t4"FLARES COST 1 GP EACH. HOW MANY DO YOU WANT ";O$:Q(O$):Q0(O$)48840 t>"** IF YOU DON'T WANT ANY JUST TYPE 0 (ZERO)":820 uHQGPʲ"** YOU CAN ONLY AFFORD ";GP:820 tuR:FLFLQ:GPGPQ:X1:Y4:Z1:"OK ";R$(RC);", YOU ENTER THE CASTLE AND BEGIN.":2740 upTT1:RFOF0910 uuC(1,4)T(1)TT1 uzC(2,4)T(3)GPGP(5):GP0GP0 uC(3,4)T(5)I(512)8000:QI:7:Q,I100 HvQ13: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 Yv(5)11050 yv"YOU ";:Q(7)BL:Q7Q4 vQ940,925,930,920,945,960,965:1050 v"STEPPED ON A FROG": v"HEAR ";("A SCREAM FOOTSTEPSA WUMPUS THUNDER",(4)98,9): w"SNEEZED": *w"SEE A BAT FLY BY": Qw"SMELL ";C$(12(13));" FRYING": yw"FEEL LIKE YOU'RE BEING WATCHED": w"ARE PLAYING WIZARD'S CASTLE": wBLT(4)2ʲC$(29);" CURES YOUR BLINDNESS":BL0 x$BFT(6)2ʲC$(31);" DISSOLVES THE BOOK":BF0 bx8:"YOUR MOVE ";O$:(O$,2)"DR"1630::O$(O$,1):O$((O$)32((O$)94)):O$"N"1290 xB O$"Q" O$"q" "If you wish to save the game in progress, type yes else no.":"(y/n)";Q$: (Q$,1)"Y" (Q$,1)"Y" IM1 : 64000: y`(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 czIX(O$"N")(O$"S"):8:XI:IY(O$"W")(O$"E"):8:YI:2740 zd6:(I)3ZZ1(Z1)8:2740 znZ$"UP":1410 zxZ$"DOWN":6:(I)4ZZ1(Z8)8:2740 {"** OH ";R$(RC);", NO STAIRS GOING ";Z$;" IN HERE":880 <{BL1ʲ"** YOU CAN'T SEE ANYTHING, DUMB ";R$(RC):880 o{::AX:BY:X18:Y18:6:Q(I):Q99Q34 {XAYBʲ"<";(I$,Q,1);">";:1443 {" ";(I$,Q,1);" "; {Y::X:XA:YB:1510 |FL0ʲ"** HEY BRIGHT ONE, YOU'RE OUT OF FLARES":880 z|:FLFL1:AX:BY:Q1A1A1:IQ1:8:XI:Q2B1B1:IQ2:8:YI:6:QI:7:Q,I:(I$,I,1);" ";:Q2::Q1:XA:YB |8110:880 |LF0ʲ"** YOU DON'T HAVE A LAMP, ";R$(RC):880 q}"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 R~hQ(8):"YOU TAKE A DRINK AND ";:Q7ʲ"FEEL "; ~rQ1660,1690,1710,1740,1755,1780,1800,1820 ~|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 LIDX(3):9:DXI:"NIMBLER":880 zDXDX(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 S?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 v"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 k"KABOOM! IT EXPLODES":Q(6):4150:1(ST1)1940,4180 Q(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 R"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 lAX:BY:CZ:X(8):Y(8):Z(8):6:QI:7:Q,I:C$(I);" AT (";X;",";Y;") LEVEL ";Z:XA:YB:ZC:880 *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 2"DO YOU REALLY WANT TO QUIT ";:8010:O$"Y"ʲ"** THEN DON'T SAY YOU DO":880::4280 B 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 1 Q7GPGP(10):Z$;GP:1940 R 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 x^ "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 c "DO YOU WANT TO SELL ";C$(Q25);" FOR ";A;" GP's ";:8010:O$"Y"TCTC1:T(Q)0:GPGPA:3020 z O$"N"ʲY$:2980 Q:GP1E3ʲ"YOU'RE TOO POOR TO TRADE, ";R$(RC):880 ʼn GP12503240 "OK, ";R$(RC);", YOU HAVE ";GP;" GOLD PIECES AND ";W$(AV5) p Z$"ARMOR":8100:"NOTHING<0> LEATHER<1250> ";:GP1499ʲ"CHAINMAIL<1500> ";:GP1999ʲ"PLATE<2000>"; :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 N! O$"P"GP2000ʲ"** YOU CAN'T AFFORD PLATE":3060 v& O$"P"GPGP2000:AV3:AH21:3130 5 "** 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>"; uX :8005:O$"N"3240 l O$"D"GPGP1250:WV1:3240 v O$"M"GP1500ʲ"** SORRY SIR, I DON'T GIVE CREDIT":3140 O$"M"GPGP1500:WV2:3240 J O$"S"GP2000ʲ"** DUNGEON EXPRESS CARD - YOU LEFT HOME WITHOUT IT!":3140 O$"S"GP2000ʲ"YOU LEFT HOME WITHOUT IT!":3140 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 D O$"N"ʲY$:3250 U GP1000880 t Z$IQ$:8080:O$"Y"3360 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 4\ O$"N"ʲY$:3380 N (GP1000)(LF1)880 y "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 :"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 I BF1ʲ"** YOU CAN'T BEAT IT TO DEATH WITH A BOOK":4030 v$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 te"YOU SPEND AN HOUR EATING ";C$(A12);E$((8)):HTT jXR1YR2ZR3ʡ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 vIQ15Q31ʲ"** 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 b" IT DOES ";Q;" POINTS OF DAMAGE.":Q2Q2Q:3645 O$"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 k TC0ʲ"'ALL I WANT IS YOUR LIFE OR JOHN LITVIN'S GIRLFRIEND'":4030 (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 "THE ";Z$;" IS STUCK AND CAN'T ATTACK":4070 "THE ";Z$;" ATTACKS":DX(7)(7)(7)BL34060 " HAH! HE MISSED YOU":4070 G" OUCH! HE HIT YOU":QQ1:4150:ST14180 YO$"R"3580 q"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 2@QQAV:AHAHAV:Q0AHAHQ:Q0 nEAH0AH0:AV0:"YOUR ARMOR IS DESTROYED - GOOD LUCK" |OSTSTQ: ǘTQ1750:Q::(64,"="):"A NOBLE EFFORT, OH FORMERLY LIVING ";R$(RC) /h"BESIDES DYING FROM BEING A HOSEHEAD, YOU DIED FROM A LACK OF ";:ST1ʲST$::IQ1ʲIQ$::DX$ XQ31:"WHEN YOU DIED YOU HAD:":4310 Q30:"YOU LEFT THE CASTLE WITH";:OF0ʲ"OUT"; " THE ORB OF ZOT":OF04280 "A GLORIOUS VICTORY!":"YOU ALSO GOT OUT WITH THE FOLLOWING:":4300 E"A LESS THAN AWE-INSPIRING DEFEAT.":"WHEN YOU LEFT THE CASTLE YOU HAD:" fQ30ʲ"YOUR MISERABLE LIFE" Q18:T(Q)1ʲC$(Q25), Q::W$(WV1):W$(AV5):LF1ʲ"A LAMP" FL;" FLARES":GP;" GP's":RF1ʲ"THE RUNESTAFF" "AND IT TOOK YOU ";T;" TURNS!" C OF 0 QP0 : QUT : GS$"CASTLES/DAT" : 65000 :"PLAY AGAIN";:8010:O$"Y"ʲ"SOME ";R$(RC);"S NEVER LEARN"::Q11000:Q:20 O$"N"ʲY$:4360 &"MAYBE DUMB ";R$(RC);" NOT SO DUMB AFTER ALL":: 62000 Z:"GREAT UNMITIGATED ZOT!":"YOU JUST FOUND THE ORB OF ZOT":"THE RUNESTAFF IS GONE":RF0:OF1:O10:1940 HAN 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,A HALFLING,A TROLL,A JACKEL,A MINOTAUR,A VAMPIRE,A CHIMERA,A NYMPH .A 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,".E[\PC$FSOBkowghtjmvcndVTTTTTTTT?",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 8 "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 wH"A ";DX$;" POTION":IDX(6):9:DXI:LF0ʲ"A LAMP":LF1 f3710 E "YOUR CHOICE "; şJ O$:O$(O$,1):O$((O$)32((O$)94)): T "HOW MANY POINTS DO YOU ADD TO ";Z$;:O$:Q(O$):(Q0)((O$)48)Q1 =c (Q0)(QOT)(Q(Q))ʲ"** ";:8020 Kh OTOTQ: r| 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 <>)": : "YOU ARE AT (";X;",";Y;") LEVEL ";Z: O'FS$"CASDUN/DAT" '"WHAT FILE IS THE CASTLE IN (<ENTER> FOR DEFAULT)";FS$ $' 10200 .'"I",1,FS$,"MU" 8' Q 0 7 ΡB' 1,,64350 ֡L' Q V' 1,,,O1,O2,O3; ['1,,,R1,R2,R3; `' Q 1 3 j' 1,,64340 $t' Q *y' 0~' ;'10010 n0:"Press <ENTER> to return to the menu page." z:"MENU" :The following subroutine is used to save a game in progress. 64310 ޢ"Name";NA$ # NA$ "" "Everyone has a name, now what's yours?" : 64020 9( XZ 1 (NA$) z2 ( ( NA$,XZ,1 ) ) 94 (NA$,XZ,1)(((NA$,XZ,1))32) < XZ F"R",1,"CASTLE/DAT","MU" P (1)$ 1 IM0 "NO PREVIOUS GAME SAVED!" : 1 : 87 Z (1)$ 1 IM1 64130 d 1,,,NC$; )n NC$ NA$ 64150 Kx (1)$ 1 IM0 64280 IM1 (1)$1 1,!%,,(35," "); : 1,#,,NA$; : 64150 64100 ¤ IM0 1,,64330 : 1,,64330 Ҥ Q 1 3 IM0 1,,64340 : 1,,64340 Q Q 1 8 @ IM0 1,,,T(Q); : 1,,,T(Q); H Q X Q 1 3 IM0 1,,,O(Q),R(Q); : 1,,,O(Q),R(Q); Q ̥ Q 0 7 : IM0 1,,64350 : 1,,64350 إ Q: 1 IM0 2740 : 1080 1 ""I can't find your name in my records. If this is your correct name : '";NA$;"',":"then you don't have a game saved. Is it ( Y / N )";X$:X$ "N"X$ "n" 64020 : 87 , G6 40 "DISK ERROR HAS OCCURRED. Returning to main program..." : L 1 2000 : : : "O",1,"ERROR/DAT":1,!%,,"CASTLE",,;:: 64270 M@ JX%,Y%,Z%,BF%,VF%,LF%,RF%,OF%,BL%,ST%,IQ%,DX%,OT%,AV%,AH%,WV%,TC%,GP!,FL%,HT%,T%,RC%,O1%,O2%,O3%,R1%,R2%,R3%,O$; TC%(Q,1),C%(Q,2),C%(Q,3),C%(Q,4); +^K#(Q,0),K#(Q,1),K#(Q,2),K#(Q,3),K#(Q,4),K#(Q,5),K#(Q,6),K#(Q,7); ߨ:The following subroutine is used to save high scores of players. The calling subroutine must suppy GS$ which is the name of the game and NS which is equal to the NEW SCORE. :High score save from htest/v1 4/30/82 19:15 9: Changes ON ERROR GOTO address. v"DO YOUR WANT YOUR NAME IN THE RECORDS ( Y OR N )";QN$ QN$ "" "TRY AGAIN..." : 65030 ʩ ((QN$)32((QN$)91)) "N" ک$ 65350 ) QP 0 Q * QP 1 Q + QP 2 Q N,"F=ERASE",DN$(1),QS(1) : QM 400 : DN$(QM), QS(QM) V.: f8"NAME";QA$ B QA$ "" "EVERYONE HAS A NAME, NOW WHAT'S YOURS?" : 65080 L (QA$, " ") 0 "WHAT IS YOUR LAST NAME";N1$ : QA$ QA$ " " Q1$ V >[:CMD"BREAK,Y" 'Enable break key while drive is running. R`"R",1,GS$,"MU" sjPO% 0 : X$ "N" : FS% 0 t (1)$ 1 65220 ~"The data base for high score saves is NOT ի"on this diskette. +"Do you want to (S)tart a new data base, or (R)eturn back to the game (S/R)";QB$ B QB$ "" 65170 eQB$ ((QB$)32((QB$)91)) QB$"R" : GS$ : QB$ "S" 65170 65270 L% 1 QM Ӭ 1,,,DN$(L%),QS(L%); DN$(L%) QA$ PO% L% : FS% (1)# & (1)$ 1 LS% L% : L% QM / L% PO% 0 ʲ"I CAN'T FIND YOUR NAME IN MY RECORDS. IF THIS IS YOUR CORRECT NAME : '";QA$;"'," : "I'LL PUT IT IN MY RECORDS ( Y / N )";X$ : PO% 0 ( (X$) 78 (X$) 110) 1 : 65080 X PO% 0 1,!%,,QA$,QU; : LS% LS% 1 : DN$(LS%) QA$ : QS(LS%) QU : 65310 QU QS(PO%) "I'M SORRY, YOUR OLD SCORE OF";QS(PO%);"IS A BETTER SCORE." : "YOUR SCORE HAS IMPROVED FROM";QS(PO%) : 1,!FS%,,QA$,QU; : QS(PO%) QU "O",LS%,QS(1),DN$(1) ( QS(1) QU "YOU HAVE BEATEN THE OLD HIGH SCORE OF";QS(1);"SET BY " : DN$(1) QA$ DN$(1) "YOU" : DN$(PO%) "YOU" į2 QS(1) QU DN$(1); ", CONGRADULATIONS!" گ< 1 : 65410 : F 65535 0 KP"ERROR HAS OCCURED!!! PROGRAMMER WILL BE NOTIFIED. RETURNING TO MAIN PROGRAM..." QZ d L 1 2000 : :GIVE TIME TO PRESS BREAK KEY. n"R",1,"ERRORFIL/DAT","MU" ɰx 1,!%,,GS$,21,; : : ϰ Ⰴ L% 1 LS% QA$ DN$(L%) RA% L% : L% LS% L% 5 24);"NUMBER OF TURNS:" ^ L% 1 13(LS%13)(LS%14)LS% 16); : "% %";DN$(L%);: QS(L%) L% 16);"Your current ranking is";RA%;(24);("stndrdth",(RA%2)(RA%4)(RA%3)81,2);" out of";LS%;(24);"." A16); : : :CMD"BREAK,N":RETURN