Willus.com
Home
|
Archive
|
About
WIZARD.BAS
(20452 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.
b ***************************************************** * * ڄ * WIZARD'S CASTLE GAME FROM JULY/AUGUST 1980 * * ISSUE OF RECREATIONAL COMPUTING MAGAZINE * R * WRITTEN FOR EXIDY SORCERER BY JOSEPH R. POWER * * MODIFIED FOR HEATH MICROSOFT BASIC BY J.F.STETSON * ʅ * * ***************************************************** AZ 6 C$("),I$("),R$(),W$(),E$() Y L( ),C(,),T(),O(),R() s A(Q)(()Q) $ B(Q)Q((Q)(Q)) ) C(Q)Q(Q)(Q) І. D(Q)@(Q)(X)Y 3 E(Q)Qd(Qc) 8Y$"** PLEASE ANSWER YES OR NO" =NG B 5G INITIALIZE ARRAYS ;L GQNGNG SVQ() Y[ h` Q " ze C$(Q),I$(Q) j Q o Q tL(Q)e y Q ~ Q Ƈ W$(Q),E$(Q) · Q ܇ Q 臒 R$(Q) Q NG @ );"* * * THE WIZARD'S CASTLE * * *" F P "MANY CYCLES AGO, IN THE KINGDOM OF N'DIC, THE GNOMIC" Ɉ "WIZARD ZOT FORGED HIS GREAT *ORB OF POWER*. HE SOON" "VANISHED, LEAVING BEHIND HIS VAST SUBTERRANEAN CASTLE" F "FILLED WITH ESURIENT MONSTERS, FABULOUS TREASURES, AND" "THE INCREDIBLE *ORB OF ZOT*. FROM THAT TIME HENCE, MANY" ʼn "A BOLD YOUTH HAS VENTURED INTO THE WIZARD'S CASTLE. AS" "OF NOW, *NONE* HAS EVER EMERGED VICTORIOUSLY! BEWARE!!" X:Y %L(D()) 3 Z B Q1 KQh U g L(D(Z))g p Q1 x Z Z Qq | Q # Q1 NJ( Qi p ъ- ي2 Q 7Q} < A Q1 F Z K Q~ PZA() #U +Z Q 4_Qe Bd A NiZA() Xn esC(A,)X rxC(A,)Y }C(A,)Z C(A,) A RC ST DX R$()"MAN" ЋQpA( ) ܋ZA() 拪 R()X R()Y R()Z Qm ZA() & 1O()X <O()Y GO()Z mBF:OT:AV:HT:T:VF:LF TC:GP<:RF:OF:BL:IQ:SX Q T(Q) Q ٌ "ALL RIGHT, BOLD ONE." "YOU MAY BE AN ELF, DWARF, MAN, OR HOBBIT." # Q S (R$(Q),)O$ RCQ:STSTQ:DXDXQ [ Q a t OTOT(RC) " RC R$()"HUMAN": 1 э' "** THAT WAS INCORRECT. PLEASE TYPE E, D, M, OR H." ۍ, 1 "WHICH SEX TO YOU PREFER"; 6 ' ; O$"M" SX: O 3@ O$"F" O fE "** CUTE ";R$(RC);", REAL CUTE. TRY M OR F." pJ 1 vO T "OK, ";R$(RC);", YOU HAVE THE FOLLOWING ATTRIBUTES :" Y "STRENGTH =";ST;" INTELLIGENCE =";IQ;" DEXTERITY =";DX #^ "AND";OT;"OTHER POINTS TO ALPRINT @ (1,0),""; )c ;hZ$"STRENGTH" Em 6 QrSTSTQ bw OT x|Z$"INTELLIGENCE" 6 IQIQQ OT Z$"DEXTERITY" 6 ȏDXDXQ "OK, ";R$(RC);", YOU HAVE 60 GOLD PIECES (GP'S)." Z$"ARMOR" 1AV:WV:FL:WC h "PLATE<30> CHAINMAIL<20> LEATHER<10> NOTHING<0>" r O$"N" AV(O$"P")(O$"C")(O$"L") AV Ő "** ARE YOU A ";R$(RC);" OR ";C$(A( ) );"?" AHAV:GPGPAV # Y "OK, BOLD ";R$(RC);", YOU HAVE";GP;"GP'S LEFT." jZ$"WEAPONS" t "SWORD<30> MACE<20> DAGGER<10> NOTHING<0>" O$"N" WV(O$"S")(O$"M")(O$"D") WV ' "** IS YOUR IQ REALLY";IQ;"?" 1 A GPGPWV U! GP ? [& + "DO YOU WANT TO BUY A LAMP FOR 20 GP'S"; 0 ' 5 O$"Y" LF:GPGP: ? ؒ: O$ "N" : Y$:: + ޒ? D GP Q: { /I "OK, ";R$(RC);", YOU HAVE";GP;"GOLD PIECES LEFT." 5N lS "FLARES COST 1 GP EACH. HOW MANY DO YOU WANT";O$ yXQ(O$) ] b Q (O$)0 v ӓg "** IF YOU DON'T WANT ANY, JUST TYPE 0 (ZERO)." ٓl q S v Q GP "** YOU CAN ONLY AFFORD";GP;".":: S 0{FLFLQ:GPGPQ @X:Y:Z y "OK, ";R$(RC);", YOU ARE NOW ENTERING THE CASTLE!" z MAIN PROCESSING LOOP TT ̔ RFOF 蔨 C(,) T() TT C(,) T() GPGPA() GP GP 9 C(,) T() IAX:BY:CZ eXA():YA():ZA() L(D(Z))E(L(D(Z)))d XA:YB:ZC L(D(Z)) Q C(Q,)(C(Q,)X)(C(Q,)Y)(C(Q,)Z) Q A() u "YOU "; (QA()BL : Q Q ` Q M,,C,,W,a,k j u "STEPPED ON A FROG!" "HEAR "; A() ,%,/,9 ʖ "A SCREAM!" Ж % "FOOTSTEPS!" * / "A WUMPUS!" 4 9 "THUNDER!" > )C "SNEEZED!" /H IM "SEE A BAT FLY BY!" OR wW "SMELL ";C$( A( ));" FRYING!" }\ a "FEEL LIKE YOU'RE BEING WATCHED!" f ϗk "HEAR FAINT RUSTLING NOISES!" p u BLT() z C$( );" CURES YOUR BLINDNESS!" #BL < BFT() B f C$( );" DISSOLVES THE BOOK!" oBF u "ENTER YOUR COMMAND : ";O$ (O$,)"DR" 6 O$(O$,) O$"N" (O$"S") (O$"W") (O$"E") O$"U" & O$"D" 9 O$"M" Y O$"F" BL < , y O$"L" BL , O$"O" O$"G" BL q , Ι O$"T" : RF , O$"Q" > O$"H" t ; "*** WIZARD'S CASTLE COMMAND AND INFORMATION SUMMARY ***" A p "THE FOLLOWING COMMANDS ARE AVAILABLE :" w "H/ELP N/ORTH S/OUTH E/AST W/EST U/P" "D/OWN DR/INK M/AP F/LARE L/AMP O/PEN" "G/AZE T/ELEPORT Q/UIT" L "THE CONTENTS OF ROOMS ARE AS FOLLOWS :" R $ ". = EMPTY ROOM B = BOOK C = CHEST" Ǜ) "D = STAIRS DOWN E = ENTRANCE/EXIT F = FLARES" . "G = GOLD PIECES M = MONSTER O = CRYSTAL ORB" D3 "P = MAGIC POOL S = SINKHOLE T = TREASURE" 8 "U = STAIRS UP V = VENDOR W = WARP/ORB" = B "THE BENEFITS OF HAVING TREASURES ARE :" G L "RUBY RED - AVOID LETHARGY PALE PEARL - AVOID LEECH" <Q "GREEN GEM - AVOID FORGETTING OPAL EYE - CURES BLINDNESS" zV "BLUE FLAME - DISSOLVES BOOKS NORN STONE - NO BENEFIT" [ "PALANTIR - NO BENEFIT SILMARIL - NO BENEFIT" ` e "PRESS RETURN WHEN READY TO RESUME, ";R$(RC);"."; j "";O$ o t Ly "** SILLY ";R$(RC);", THAT WASN'T A VALID COMMAND!" V~ m L(D(Z)) j XX(O$"N")(O$"S") YY(O$"W")(O$"E") XB(X) YB(Y) Þ z ➡ L(D(Z)) ZZ: z Z$"UP" Z$"DOWN" % L(D(Z)) ZZ: z + b "** THERE ARE NO STAIRS GOING ";Z$;" FROM HERE!" l BL "** YOU CAN'T SEE ANYTHING, YOU DUMB ";R$(RC);"!" ȟ Ο DISPLAY MAP OF CURRENT CASTLE LEVEL AX:BY X . Y = QL(D(Z)) n Q c QQd : LET Q=34 TO HIDE ROOMS XA YB "<";I$(Q);"> ";: " ";I$(Q);" "; Y Ġ ̠# X ؠ( XA:YB - 2 ") LEVEL";Z 7 < FL Z DA "** HEY, BRIGHT ONE, YOU'RE OUT OF FLARES!" NF TK P DISPLAY ADJACENT ROOM CONTENTS WITH FLARE U Z _ FLFL d AX:BY i Q1A A ʡn XB(Q1) ݡs Q2B B x YB(Q2) } QE(L(D(Z))) L(D(Z))Q # " ";I$(Q);" "; , Q2 2 8 A Q1 M XA:YB W a g DISPLAY CONTENTS OF ADJACENT ROOM WITH LAMP LF "** YOU DON'T HAVE A LAMP, ";R$(RC);"!" 0 "WHERE DO YOU WANT TO SHINE THE LAMP (N,S,E,W)"; : ' F AX:BY d XB(X(O$"N")(O$"S")) YB(Y(O$"W")(O$"E")) AXBY У "** THAT'S NOT A DIRECTION, ";R$(RC);"!" ڣ "THE LAMP SHINES INTO (";X;",";Y;") LEVEL";Z;"." 7 L(D(Z))E(L(D(Z))) e "THERE YOU WILL FIND ";C$(L(D(Z)));"." q XA:YB {" ' , TAKE A DRINK FROM A POOL 1 6 L(D(Z)) J Ť; @ "** IF YOU WANT A DRINK, FIND A POOL!" E J QA() O -T "YOU TAKE A DRINK AND "; FY Q "FEEL "; p^ Q c ,h ,m ,r ,w ,| , , c STC(STA()): "STRONGER.": ˥h STSTA(): "WEAKER.": ((ST)) ,. m IQC(IQA()): "SMARTER.": %r IQIQA(): "DUMBER.": ((IQ)) ,. Lw DXC(DXA()): "NIMBLER.": | DXDXA(): "CLUMSIER.": ((DX)) ,. QA(): QRC ¦ RCQ: "BECOME A ";R$(RC);".": SXSX: "TURN INTO A ";: SX "FE"; "MALE ";R$(RC);"!": * L(D(Z)) 0 O "YOU OPEN THE CHEST AND" Y + t L(D(Z)) z "YOU OPEN THE BOOK AND" ݧ "** THE ONLY THING OPENED WAS YOUR BIG MOUTH!" A() , , , , , C "FLASH! OH NO! YOU ARE NOW A BLIND ";R$(RC);"!" L BL V ! "IT'S ANOTHER VOLUME OF ZOT'S POETRY! - YECH!!" ! Ũ "IT'S AN OLD COPY OF PLAY";R$(A());"!" Ϩ ! "IT'S A MANUAL OF DEXTERITY!" DX ! * "IT'S A MANUAL OF STRENGTH!" 4 ST > ! f "THE BOOK STICKS TO YOUR HANDS -" "NOW YOU ARE UNABLE TO DRAW YOUR WEAPON!" BF ! L(D(Z)) & ֩+ A() 0 ,D ,X ,D 0 "KABOOM! IT EXPLODES!!" 5 QA() : %? ((ST)) ! ,. 3D QA( ) QI "FIND";Q;"GOLD PIECES!" ]N GPGPQ gS ! X "GAS!! YOU STAGGER FROM THE ROOM!" ] L(D(Z)) b TT Īg O$("NSEW",A(),) Ϊl q L(D(Z)) v { "** IT'S HARD TO GAZE WITHOUT AN ORB!" # ) ; "YOU SEE "; a A() , , , , , "YOURSELF IN A BLOODY HEAP!" STSTA(): ((ST)) ,. "YOURSELF DRINKING FROM A POOL AND BECOMING ";C$( A( ));"!" & C$( A( ));" GAZING BACK AT YOU!" 0 @ AX:BY:CZ \ XA():YA():ZA() o QE(L(D(Z))) ~ L(D(Z))Q C$(Q);" AT (";X;",";Y;") LEVEL";Z;"." XA:YB:ZC Ĭ AA():BA():CA() A() AO():BO():CO() A "***THE ORB OF ZOT*** AT (";A;",";B;") LEVEL";C;"!" K g "A SOAP OPERA RERUN!" q RF "** YOU CAN'T TELEPORT WITHOUT THE RUNESTAFF!" ʭ Z$"X-COORDINATE" m XQ Z$"Y-COORDINATE" m YQ 0% Z$"Z-COORDINATE" :* m B/ ZQ M4 O$"T" W9 z ]> C "DO YOU REALLY WANT TO QUIT NOW"; H ' M R O$"Y" a ϮW "** THEN DON'T SAY THAT YOU DO!" ٮ\ ߮a f k p DISPLAY STATUS INFORMATION u z 3 BL : p "STRENGTH =";ST;" INTELLIGENCE =";IQ;" DEXTERITY =";DX "TREASURES =";TC;" FLARES =";FL;" GOLD PIECES =";GP ܯ "WEAPON = ";W$(WV);" ARMOR = ";W$(AV); LF " AND A LAMP"; WC QE(L(D(Z))) , L(D(Z))Q B Z$"YOU NOW HAVE" H i "HERE YOU FIND ";C$(Q);"." (Q) (Q ) (Q ) Q GPGPA( ): Z$;GP;".": ! Q FLFLA(): Z$;FL;".": ! Q 4 (O()X) (O()Y) (O()Z) ((O$"T")) ,7 V XA():YA():ZA(): z s Q ZB(Z): z Q Q " "IT'S NOW YOURS!" T(Q) ɱ TCTC ӱ ! AL(D(Z)) WC (A ) (VF) Y J "YOU MAY TRADE WITH, ATTACK, OR IGNORE THE VENDOR." T g O$"I" } O$ "A" 8 $VF ) . "YOU'LL BE SORRY THAT YOU DID THAT!" 3 Y Բ8 O$"T" L ڲ= B "** NICE SHOT, ";R$(RC);"!" G L Q $QAA(Q ) 7V T(Q) t =[ t` "DO YOU WANT TO SELL ";C$(Q);" FOR";A;"GP'S"; ~e ' j O$"Y" TCTC:T(Q):GPGPA: t dzo O$ "N" Y$: [ ϳt Q y GP ~ "YOU'RE TOO POOR TO TRADE, ";R$(RC);"." # 8 GP > "OK, ";R$(RC);", YOU HAVE";GP;"GP'S AND ";W$(AV);" ARMOR." Z$"ARMOR" ô "NOTHING<0> LEATHER<1250> "; 괰 GP "CHAINMAIL<1500> "; GP "PLATE<2000>"; " 5 O$"N" ^ O$"L" GPGP :AV:AH: O$ "C" GP "** YOU HAVEN'T GOT THAT MUCH CASH ON HAND!" O$"C" GPGP :AV:AH: O$ "P" GP 2 "** YOU CAN'T AFFORD PLATE ARMOR!" < f O$"P" GPGP :AV:AH: l "** DON'T BE SILLY. CHOOSE A SELECTION." GP "YOU HAVE";GP;"GP'S LEFT WITH ";W$(WV);" IN HAND." Z$"WEAPON" # =( "NOTHING<0> DAGGER<1250> "; _- GP "MACE<1500> "; 2 GP "SWORD<2000>"; 7 < A F O$"N" ηK O$"D" GPGP :WV: P O$ "M" GP _ &U "** SORRY SIR, I'M AFRAID I DON'T GIVE CREDIT!" 0Z T_ O$"M" GPGP :WV: vd O$ "S" GP x i "** YOUR DUNGEON EXPRESS CARD - "; n "YOU LEFT HOME WITHOUT IT!" ˸s x O$"S" GPGP :WV: } "** TRY CHOOSING A SELECTION!" 7 3 GP EZ$"STRENGTH" O e O$ "Y" sGPGP STC(STA()) QST O$ "N" Y$: ֹ GP 칾Z$"INTELLIGENCE" O$ "Y" GPGP .IQC(IQA()) 7QIQ A K h O$ "N" Y$: } GP Z$"DEXTERITY" O$ "Y" GPGP ҺDXC(DXA()) ۺ QDX O$ "N" Y$: * (GP ) (LF) 0" a' "DO YOU WANT TO BUY A LAMP FOR 1000 GP'S"; k, ' 1 O$ "Y" O 6GPGP ;LF @ ƻE "IT'S GUARANTEED TO OUTLIVE YOU!" лJ O O$ "N" Y$: " T YQ1(A):Q2A:Q3 J^ (C(,)T()) (BL) (DXA()A()) \ Pc th "YOU'RE FACING ";C$(A );"!" zm r "YOU MAY ATTACK OR RETREAT." ̼w Q3 "YOU CAN ALSO ATTEMPT A BRIBE." | IQ "YOU CAN ALSO CAST A SPELL." < "YOUR STRENGTH IS";ST;"AND YOUR DEXTERITY IS";DX;"." F \ O$ "A" ] p WV v "** POUNDING ON ";C$(A );" WON'T HURT IT!" \ ǽ BF ͽ "** YOU CAN'T BEAT IT TO DEATH WITH A BOOK!" \ * DX A()(BL) 0 M "YOU MISSED, TOO BAD!" W \ zZ$(C$(A ),(C$(A ))) (Z$,)" " Z$(Z$,) ¾ "YOU HIT THE EVIL ";Z$;"!" ϾQ2Q2WV (A A ) A() 3 "OH NO! YOUR ";W$(WV);" BROKE!" <WV O Q2 \ U a MCMC C$(A );" LIES DEAD AT YOUR FEET!" H T< + ߿! "YOU SPEND AN HOUR EATING ";C$(A );E$(A());"." &HT (+ X R() Y R() Z R() ((A )) D, .0 ]5 "GREAT ZOT! YOU'VE FOUND THE RUNESTAFF!" h:R() q?RF DQA( ) I N "YOU NOW GET HIS HOARD OF";Q;"GP'S!" SGPGPQ X ! ] O$"R" \ b O$ "C" g IQ Q3 { l ;q "** YOU CAN'T CAST A SPELL NOW!" Ev c K{ | "WHICH SPELL (WEB, FIREBALL, DEATHSPELL)"; ' O$ "W" STST WCA() ((ST)) \,. O$ "F" ¨QA()A() STST ²IQIQ 8· (IQ ) (ST ) . d¼ "IT DOES";Q;"POINTS WORTH OF DAMAGE." j vQ2Q2Q O$"D" "** TRY ONE OF THE OPTIONS GIVEN." c "DEATH . . . "; IQ A() "YOURS!":IQ: . & "HIS!":Q2: C O$"B" Q3 I v "** CHOOSE ONE OF THE OPTIONS LISTED." c TC "ALL I WANT IS YOUR LIFE!" \ QA() T(Q) % * "I WANT ";C$(Q);". WILL YOU GIVE IT TO ME"; )/ ' <4 O$"N" \ Y9 O$ "Y" Y$: % d>T(Q) pCTCTC vH M "OK, JUST DON'T TELL ANYONE ELSE." RVFVF(L(D(Z))) W \Q3 a WC p fWCWC k WC : "THE WEB JUST BROKE!" 4pZ$(C$(A ),(C$(A ))) Uu (Z$,)" " Z$(Z$,) iz WC o ń "THE ";Z$;" IS STUCK AND CAN'T ATTACK NOW!" ʼn Ŏ œ "THE ";Z$;" ATTACKS!" Ř DX A()A()A()BL ŝ Ƣ "WHAT LUCK, HE MISSED YOU!" 'Ƨ -Ƭ GƱ "OUCH! HE HIT YOU!" PƶQQ1 Zƻ m ST . O$ "R" c "YOU HAVE ESCAPED!" "DO YOU WANT TO GO NORTH, SOUTH, EAST, OR WEST"; ' O$"N" O$"S" O$"E" O$"W" L "** DON'T PRESS YOUR LUCK, ";R$(RC);"!" R \ m AV $ xQQAV AHAHAV Q AHAHQ:Q AH $ AH:AV "YOUR ARMOR HAS BEEN DESTROYED . . . GOOD LUCK!" $STSTQ ) . 3 W8 "A NOBLE EFFORT, OH FORMERLY LIVING ";R$(RC);"!" ]= B "YOU DIED DUE TO LACK OF "; G ST "STRENGTH." L IQ "INTELLIGENCE." Q DX "DEXTERITY." V [Q3 ` "AT THE TIME YOU DIED, YOU HAD :" e %jQ3 +o Mt "YOU LEFT THE CASTLE WITH"; cy OF "OUT"; |~ " THE ORB OF ZOT." Ƀ Ɉ OF ɍ ɒ "AN INCREDIBLY GLORIOUS VICTORY!!" ɗ ɜ "IN ADDITION, YOU GOT OUT WITH THE FOLLOWING :" ʡ ʦ 8ʫ "A LESS THAN AWE-INSPIRING DEFEAT." >ʰ jʵ "WHEN YOU LEFT THE CASTLE, YOU HAD :" ʺ Q3 "YOUR MISERABLE LIFE!" ʿ Q T(Q) C$(Q) Q W$(WV);" AND ";W$(AV); LF " AND A LAMP"; ; "YOU ALSO HAD";FL;"FLARES AND";GP;"GOLD PIECES" ^ RF "AND THE RUNESTAFF" d "AND IT TOOK YOU";T;"TURNS!" "ARE YOU FOOLISH ENOUGH TO WANT TO PLAY AGAIN"; ' O$ "Y" # "SOME ";R$(RC);"S NEVER LEARN!" N "PLEASE BE PATIENT WHILE THE CASTLE IS RESTOCKED." T ^ Q {# O$ "N" Y$: ( "MAYBE DUMB ";R$(RC);" IS NOT SO DUMB AFTER ALL!" - 2 7 < "GREAT UNMITIGATED ZOT!" A F "YOU JUST FOUND ***THE ORB OF ZOT***!" !K HP "THE RUNESTAFF HAS DISAPPEARED!" QURF ZZOF e_O() od ! i AN EMPTY ROOM,.,THE ENTRANCE,E,STAIRS GOING UP,U n STAIRS GOING DOWN,D,A POOL,P,A CHEST,C,GOLD PIECES,G s FLARES,F,A WARP,W,A SINKHOLE,S,A CRYSTAL ORB,O Wx A BOOK,B,A KOBOLD,M,AN ORC,M,A WOLF,M,A GOBLIN,M,AN OGRE,M } A TROLL,M,A BEAR,M,A MINOTAUR,M,A GARGOYLE,M,A CHIMERA,M A BALROG,M,A DRAGON,M,A VENDOR,V,THE RUBY RED,T χ THE NORN STONE,T,THE PALE PEARL,T,THE OPAL EYE,T Hό THE GREEN GEM,T,THE BLUE FLAME,T,THE PALANTIR,T,THE SILMARIL,T jϑ X,"?",NO WEAPON," SANDWICH" ϖ DAGGER," STEW",MACE," SOUP",SWORD," BURGER",NO ARMOR," ROAST" ϛ LEATHER," FILET",CHAINMAIL," TACO",PLATE," PIE" Ϡ HOBBIT,ELF,MAN,DWARF ХXA():YA() .Ъ L(D(Z)) e =ЯL(D(Z))Q Cд Iй iо "YOU GET ALL HIS WARES :" } "PLATE ARMOR" AV:AH "A SWORD" WV "A STRENGTH POTION" STC(STA()) "AN INTELLIGENCE POTION" IQC(IQA()) ! "A DEXTERITY POTION" 5DXC(DXA()) R LF "A LAMP":LF \ D k Q @ v "*"; ~ Q " "YOUR CHOICE"; ' O$ ,O$(O$,) 1 6 "HOW MANY POINTS DO YOU WISH TO ADD TO YOUR ";Z$; ; O$ @ EQ(O$) >J Q (O$) 0 Q kO Q QOT Q(Q) "** ";: 6 wTOTOTQ }Y ^ O$ cQ((O$)) h m r Z$; w O$ |Q((O$)) ҁ Q Q ҆ Ӌ "** TRY A NUMBER FROM 1 TO 8." Ӑ m ӕ WӚ "DO YOU WANT TO BUY A POTION OF ";Z$;" FOR 1000 GP'S"; aӟ ' gӤ ө "YOUR ";Z$;" IS NOW";Q;"." Ӯ ӳ Ӹ "THESE ARE THE TYPES OF ";Z$;" YOU CAN BUY :" ӽ "YOU ARE AT (";X;",";Y;") LEVEL";Z;"."