' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֝uW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'Ӝu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wU H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  Lh@(LH9LHH/Hh/ H-З( ܸ(& ¸$8 H` *HVDP (ED Z $0x8x D- ܸDD#HIHHHHhHH݌hHhHh݌H6 h Լ ռ ռ ռ`HJ>݌h Hh݌`  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ穎鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `JJ`ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LL[dmx-&(&6 `J͠٠ˠ@跻~!Wo*9~~~~ɬƬ~UVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS @ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABR^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHn 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)nooõĵL LLЦ  #-µµ( zegehtpjigh q Ql` z8L`MaEK@>ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ@ NL   L` -e L գsr ࣭ml ࣭srL -µLЦ գ ze)rs zrsLq ] Qlr L̦ գ8gh ࣥhgL գ8LʨM ࣥˤLµH hLħõµ µõL&E`( 80 0 DDLDLDL^ t^`,tP ȟpMt-^^`DH hWLԧ d@` Lꢩ  c ȢL LqLգcl mllm ꢥELȦAD@ C N cLuɠ% d: L ЌĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ Ju`浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠Jz# 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `͠卪ҠƠĠ퍻Ġ򽲩Р¹占ˠ̠占ŠĠ썍  ҠٍҠЍѠŲ󠰠ϩР٠ӍŲРҠύ٠ҠōԠĢ䬠䬠󮮮ĸčԠ뮮ĸčؠ㮠蠹Р̠ìؠ㮠㠫؍ؠؽثؠؠ󩍠àРؠ٠㮍٠㮠蠰̠ìؠ덠Р󮍠㮠蠹̠à䍠̠ë䍠Р󮍠Ԡ٠宮čҠٍРҍ̠ҠōԠĸĢӠ謢ĸčԠ嬠ĸčԠ󮮮ĸčԠ󮮮ĸčؠ栱㮠蠹Р̠Ŭؠ㮠㠫؍ؠؽثؠؠ󩍠àРؠؠư栱퍠Ơ㮠蠤ƍР̠̬ؠ㮠㠫؍ؠؽثؠĠؠĠ󩍠àРؠčؠƷؠ蠤Ʒ󩍠㮠蠹̠̬ؠ㮠㠫ؠ󩍠Ԡ٠宮čҠٍРҍԠΠ卍àРؠčؠƷؠ蠤Ʒ󩍠㮠蠹̠̬ؠ؍ؠؽثؠؠ󩍠àРؠԠ٠宮čҠٍРҍ̠Ҡàҍ󍪭ӠҠōԠĸĢ󮮮ĸčؠ堸㮠蠹Р̠Ŭؠ㮠㨶䬠䬠čԠĸčԠĸčōӍԠԠįĠ΍àҠōԠĢﮮĸčԠ䬠䬠󮢸čԠ뿠ٯΩĸčӍԠ̠ӠՍ̠ҠōԠĢﮮĸčԠ󮢸čԠӠčԠ謠嬠čԠ󿠠ٯΩčӍҠ͍ҠҠՠՍҠ٠ҠԍРѠбРѠвРѠгРѠдРѠеРѠжРѠзРѠиРҍбРŠЍвРӠгРӠдРӠеРӠжР̠㮠зР̠иРԠԠ卍卪ŠҠōԠĸĸĢ󮮮ĸč٠ؠР٠㮍̠ز̠شؠ̠ظ栱̠رؠ㮠؍÷㮠蠤÷䠽÷Ȭؠ㮠Ƞ؍٠ٽ٫٠٠àР格РԠ쮮ĸč٠ؠР̍̍̍̍؍Р󮍠̠ӫؠЍ̠ӬؠРЍР󮍠٠ٽ٫٠٠àР格Ԡ٠宮čҠٍРҍ󠦠卪ӠҠōԠĸĢ󮮮ĸčԠ򮮮ĸčԠ󮮮ĸčؠ場㮠蠹Р̠Ŭؠ㮠㠫؍ؠؽثؠؠ󩍠àРؠԠ٠宮čҠٍРҍ󍪭ӠҠōԠĸĢ󮮮ĸčؠ場㮠蠹Р̠Ŭؠ㮠㠫؍ؠؽثؠؠ󩍠àРؠԠ٠宮čҠٍРҍ󠦠󍪭ӠҠōԠĸĢ󮮮ĸčԠ󮮮ĸčؠ報㮠蠹Р̠Ŭؠ㮠㠫؍ؠؽثؠؠ󩍠àРؠԠ٠宮čҠٍРՠҠōԠĢ袸čԠ󠦠čԠčԠ󠦠čԠ󩢸čԠŠԠøčōԠĢ֠čԠî󠠠ҠčōԠčӍԠՠ΍ͪ֠򠠪î󠱸Ҡ򠠠ԠƠ卍ō̍Πՠ٠ՠՠՠʠĠ忠ٯΩϠʍˠ̍΍àð占à卍󺍍ҠՠРՠԠŰűĠŰðŠŰðȠ栱Ӡ栱Š栱à栱̠獍󺍪卪箍ΠҠ֠򧍍̠Ԡ̠Ԡ墠󍻠̩ؠ젱卻캍Ԡ 덠ˠ덠 ɠԠ場占ɠԫڠԫ獠Р卍РύŠŠÍ٠РߢҠԠ٠ŠЍԠԠÍҠǍàݱˍԠÍؠݱ̠űÍ젤ÍԠٍ؍ЍРЍ؍ٍӍǠǠЍРРӠÍӠ占Р٠ө٠占Ѡˠ栰ҠԠԩР󍍺ˠЍӠ򍍍퍪ϠҠōԠĢ֠ԠɠԢčԠ򢍠ԠĸčԠР䢸čԠ宠䬠䬠čԠ塢čōԠĸčԠ忠ٯΩĸčҠٍҠЍѠԠ󠰠ϩРҍԠōԠР占 썠ԫԍԠ̍Ԡ٠ō٠РΠ̠č̠΍̠ōӍ٠΍РРР٢ѠӍРѠӍǠӍӠǠӍӍԠŠ΍             WERDNA'S AMULET,BEAR STATUE,FROG,STATUE,BRONZE KEY,SILVER KEY,GOLD KEY,BLUE RIBBON ONE,STONE OF PIETY,BLARNEY STONE,AMULET OF SKILLS'AMULET OF SKILL,GREAT MAGE WAND,COIN OF POWER,STAFF OF GNILDA,HRATHNIR,KOD HELMET,KOD SHIELD,KOD GAUNLETS,KOD ARMOR,Jz #?? РԵîԠԵҮԠٮ Ӡ( ĮӠ   ͠٠ˠͲͲŠŮ#ӠϠ!خɠ!Ӡ68(ST6UVk,ȱk-`),-`G ::63000]Y140:"=";::qX;:5:A$(X):(" "X" ";:6:(A$(X),15):2X" ";:5:(NA$(X),8,15):<1:20:22:20:34,1:2:FP33,21:32,19:1:1:: U33,40:32,0:23:1::U Z85:23:"IS YOUR PROGRAM LISTED HERE? Y/";::"N";::" ";:A$:w dA$"Y"MAXN1:N105::2000 n23:958:34,1:35,21::35,24: 60:X0 N1105 ((NA$(N),8,1))652000 ((NA$(N),8,1))61N105:2000 ((NA$(N),8,1))942000! XX1: A$(X)(NA$(N),8,30)T T(X)((NA$(N),2,1))h X21İ30:2000 X21X61X101İ80 X41İ40:2000 $X41X81İ90 .X61İ30:2000 8X81İ40:2000 BX101İ30:2000 L40  MAXX 85:34,22 23:958T "SELECT A FILE BY NUMBER -->";A$:A(A$):AMAX2010_ A1Ĭ} :::T(A)66T$"BRUN " T(A)84T$"EXEC " T(A)65T(A)73T$"RUN " 23:T$A$(A) 23:D$T$A$(A)  NAME$(105),A$(105),T(105) "X138:B$B$"=":3 ,X10511:NAME$(X)B$:I 6NAME$(0)(B$,19)U @D$(4)} E12:12:"READING CATALOG ":12:29 Y63075 ^2054:D$"CATALOG" c216,0:D$"PR#0":D$"IN#0": h(NA$(0),1)" "Ģ12:868:"!!! ERROR - UNABLE TO READ DIRECTORY !!!": |:10005 1:" 80N":0,63998:0     %,,'Ѕ &,&` G& Y& e& q&&LLJ5K&L`L, & & & &LQ,Ѕ &,`' &`( &`m & &` & &`m & &`( &`' &` & &``----------*1^ * No code found after label *Wh *-----------------------------*]r:v|LABEL$(NUM)LINE$(I)LABEL(NUM)I10LINE$(I)":"I:" ":: *==============================================*' * Add li * APPLESOFT PRE-PROCESSOR;2* AUTHOR: JIM S. HARTSP* 311 BORDEAUX ST.rZ* JACKSONVILLE, NC 28540d* 1-919-455-0530x* COPYRIGHT (C) 1989 *-----------------* * Set variables * *-----------------* :(21): turn off 80 columns D$(4)K CT$"CATALOG": use CAT if under ProDOS} EXT$"PRE.": extension for preprocessed file LC$"&": start-of-label character :  *-------------------------------------*  * Read number of branching commands *4  * and DIMension arrays *b " *-------------------------------------*h ,:s 6ITEMS @LINE$(1000),LABEL$(250),LABEL(250) JCMD$(ITEMS),LN(ITEMS) T: ^ *------------------------------* h * Read in branching commands *1 r *------------------------------*7 |:F I1ITEMSY CMD$(I),LN(I)` If : *----------------------* * Get current prefix * *----------------------* : D$;"PREFIX" PR$ :  *============================*0  * Display title screen and *U  * get source filename *z  *============================* : & 02:9 : D" APPLESOFT PRE-PROCESSOR " N X:13 b"BY : JIM S. HART" l8:"CURRENT PATH = ";PR$ v12& "PLEASE ENTER NAME OF FILE", K "(?=";CT$;", /=SET PATH)"^ :"-> ";NAME$d :x NAME$"?"790~ : *---------------------------------* * User wants a CATALOG (or CAT) * *---------------------------------*: D$;CT$A$:A$!550' :;NAME$"/"980A :n**-------------------------------------*4* User wants to change current path *>*-------------------------------------*H:R19\"PATH WANTED : ";PTH$f(PTH$,1)"/"PR$PR$PTH$:890$pPR$PTH$:zD$;"PREFIX ";PR$C550I:r *--------------------------------* * Check to see if file exists. * * If it doesn't then get user * * to re-enter the filename * *--------------------------------*:'1010?D$;"VERIFY ";NAME$I1130T216,0u:"THERE IS NO FILE CALLED":NAME$;::" ON THIS DISK.":"PRESS ";::" RETURN ";:" TO TRY AGAIN ";$A$:A$.5508:B *-------------------------------------*GL * Filename found, go and process it *uV *-------------------------------------*{`:j216,0t:~:" PROCESSING ";NAME$;" ":: *================================* * Read file into LINE$() array *7 *================================*=:G3100M:n *========================* * Check for any labels * *========================*:"CHECKING FOR LABELS"; :I1LINES".";((LINE$(I),1)LC$16902:B< *-------------------------------------*pF * Label found at beginning of line. *P * Go through line character by *Z * character until a space is found. *d * If a space is not found, then *(n * there is no program code after *Vx * label. * *-------------------------------------*:FD0NUMNUM1:K2(LINE$(I))X$(LINE$(I),K,1)X$" "1580: *--------------------------*1 * Code found after label *T *--------------------------*Z:zLABEL$(NUM)(LINE$(I),K1)LABEL(NUM)I10LINE$(I)(LINE$(I),K1)"FD1:K(LINE$(I)),K6:@FD01690J: T *-------------------           &H B$" "Y13420!&R A$A$B$)&\ B$3&f 33809&p :?&z E& :K& :n& *==========================*& * Write new file to disk *& *==========================*& :& (N$)15N$(N$,15)& D$;"OPEN";N$& D$;"CLOSE" ' D$;"================*ID * Search each line for a GOTO or GOSUB *N * and check to see if label exists. If *X * label exists, then replace it with line *b * number from table. If it does not exist, *)l * then stop processing and display line with *av * bad label. * *===============================================*:"REPLACING LABELS WITH LINE NUMBERS";I1LINES".";:H1ITEMS: items like GOTO and GOSUB:F*------------------------------------*r* Scan each line for GOTO or GOSUB **------------------------------------*:J1(LINE$(I))LN(H)(LINE$(I),J,LN(H))CMD$(H)2260 :*--------------------------------*< * GOTO or GOSUB found in line. *d** Check to see if label after *4* GOTO or GOSUB is in the label *>* array we extracted earlier *H* from program. *R*--------------------------------* \:3fA$(LINE$(I),JLN(H)1): get label9p:gzK1NUM: check to see if in label arrayA$LABEL$(K)2200: was it found?GOOD0:2220: nope, try againLINE$(I)(LINE$(I),JLN(H))(LABEL(K))GOOD1:KNUMK:(GOOD12380: GOOD<>1 means bad label@J(LINE$(I))LN(H)GJM:THZ:fI:" "l :v 2530| :$ *===================*. * Bad label found *8 *===================*B :L :(7)V :"*** BAD LABEL FOUND "::` "LABEL = ";::A$:Bj "AND WAS FOUND IN THIS LINE:":Ht V~ LINE$(I)` :: "PLEASE CORRECT AND THEN RE-RUN":"THIS PROGRAM." 2950 : *===============================* * Processing complete. Write * * file back to disk w/prefix *G *===============================*M :S y "PROGRAM SUCCESSFULLY PROCESSED" 5 "SAVE AS ";EXT$;NAME$;"?": "Y=YES,RET=CATALOG,D=DIFF NAME,Q=QUIT": " --> "; 16368,0! ( A$:(A$"Y"A$"Q"A$"D"A$(13))2600:A$' 2 :8 < A$"Q"2950> F :R P A$(13)2690^ Z D$;CT$j d A$:A$t n 2530z x : A$"D"N$EXT$NAME$:2910 7 "SAVE AS : ";N$ 2830 D$;"VERIFY";N$ 216,0 ! N$;" ALREADY EXISTS!"! (! "PRESS ";::" RETURN ";:>! " TO CONTINUE ";J! A$:A$T! 2530Z! :e! 216,0r! NAME$N$|!" 2530!, :!6 *==============================*!@ * Save new file as text file *!J *==============================*!T :"^ :"SAVING PROCESSED FILE...")"h 3520E"r :"TYPE 'EXEC ";N$;"'"m"| "TO LOAD PROCESSED BASIC PROGRAM."s" y" :" :" ***************************" * *" * S U B R O U T I N E S *# * *)# ***************************/# :5# :b# *====================================*# * Read file into LINE$() array and *# * count number of lines read in. *# *====================================*# :# LINES0$& D$;"OPEN";NAME$$0 3210!$: :+$D 3330A$N (A$,1)"*"3190Q$X A$""3190c$b LINESLINES1w$l LINE$(LINES)A$$v 3140$ :$ 216,0$ :D$;"CLOSE"$ 1280$ :$ :$ *=============================*% * Subroutine to read a line *,% * character by character. *R% * Ignore leading spaces and *x% * accept all characters. *% *=============================*% :% D$;"READ ";NAME$% A$""% Y0% B$%* :%4 B$(13)3450%> B$" "Y1ne numbers to beginning of each line *^ *==============================================*d:"ADDING LINE NUMBERS";I1LINES".";LINE$(I)(I10)" "LINE$(I)I:&" ":0:: *=============================== *==========================*&( :@( (N$)15N$(N$,15)R( D$;"OPEN";N$b( D$;"CLOSE"w( D$;"DELETE ";N$( D$;"OPEN ";N$( D$;"WRITE ";N$( I1LINES(LINE$(I)((D$;"CLOSE"($:(.(8:(B:)L *===================*!)V * DATA statements *=)` *===================*C)j:J)t2b)~"GOTO",4,"GOSUB",5DELETE ";N$' D$;"OPEN ";N$2' D$;"WRITE ";N$A' I1LINESO'LINE$(I)U'e'D$;"CLOSE"k'$:q'.w'8:}'B:'L *===================*'V * DATA statements *'` *===================*'j:'t2'~"GOTO",4,"GOSUB",5" * (Ӡ͠Ӯ􍻠㩠ǠĶ󍻭ˠՠˠՠŰԠՠ԰ՠΠՠðԠՠðΠՠðƠՠðŸ͠ՠ͠ՠϠՠϠՠЍ͠͠䮍Ͳ宍Р͍ύԠԠ͠Ԡԍ͍͠͠İύҠōԠΠƶƷӍ΍ͲΠҠˠӍҠԠ͠͠ҠǸ堤Ҡdz堤ҠӠӠԲ͠ԲƹԲРԠԲ͠ōà԰ԳԳԳÍؠР԰԰卍ԳԠƠҠӠӠҠˠӠҠdzˠ堤ҠǸˠ堤РˠӍ􍻠Ͳ宍Ԡ͠͠ԠԠΠ͠İİ͍ύҠōԠΠӍ堤堤Ǹ͍ύҠōӍ堤堤dz͍ύҠōӍӠ퍻İƠİƍӠĠӠİ͍ĠİύðčҠŠӠӍӠ퍻¸ƠƍӠ¸Ӡ¸͍ύðčҠōӍӠİƠİƩˠč͍čύčҠōӍ堤퍻dzˠ͍ύҠōӍ堤퍻Ǹˠ͍ύҠōӍ堣͍堣ύ堣堫čŠҠŠà͠䠱àϠ䠱͠РĠ忍ŠŠӠ󍍻卻堣͍堣ύŠ٠ͱٍͩϩٍٍŠͱӍŠĠӠ     % "CHECK TO SEE IF HOST COMPUTERJ"IS A LASER 128. IF IT IS, THENn"LOAD IN II+ ROMS FIRST BEFORE("RUNNING MAIN PROGRAM.2:D$(4)<4);"PRINT SHOP LOVER'S UTILITY SET"FADDRESS64898PCHECK(ADDRESS)(ADDRESS1) Z(CHECK253)1601 dRAMCARD49281:ROM49280:DOS1002W nWRITE(RAMCARD):WRITE(RAMCARD)w xD$;"BLOAD II+.ROM, A$D000" LOCK(ROM) DOS:255 :4);"LASER 128 MODS ENABLED" D$;"RUN PS.HELLO" 10:(11):10:25:"(0-99)":10:1:E$;":";:D:1010:D:"";A$:A$""ıbA(A$):A99A0ī970m510:Print actual amount of item10:D:((N)16)10((N)((N)16)16);:Print Prompt for items of 0-9999 value;10:(11):10:( /~~~~~~~~~~~~~~~~~~~~~~~~~~~~\ O| Ultima V | u| Misc. Editor |(| By Kevin Lynch | 2| ------------------ | <| (c) 1988 |  F| By: The Byte Zappers | ; P+------------------------------+ A ZP d::1300 nN7:N$(N),W$(48),S$(48),R$(8),P$(8),E$(8),M$(19),D(16):D$(4):D$"PR#3" xR1N:N$(R)::W148:W$(W)::S148:S$(S):* R18:R$(R)::P18:P$(P)::E18:E$(E)::M119:M$(M)::R116:D(R)0:N Set veriables for title screen ::A$"Ultima V":V12:490:A$"Misc. Editor":V13:490:A$"By":V15:490:A$" The Phantom":V17:490:A$" Insert Britannia Disk And Press a Key":V22:490 Load in character informationI A$:(4);"PREFIX/BRITANNIA":(4);"BLOAD ROSTER"X Main Menu B$"Ultima V Misc. Editor -"::B$" "B$:Z$B$(B$,1,8) B1::N7:A$"Ultima V - Cheat Menu":V2:490:::4::80):N7:80) A5N6:A:" ";::78);::" ":4 O1N:5O:12::"[ ] ";N$(O)::R1R U(R)1Ģ5R:39::"*":f RR1:RNī260o 230y :P1 5P:13::(27);:"E";::(24); :20:1:"[";::"Ultima V";::"]:";::(27);"FG";::(24);% "C$(Z$,B,8):20:2::C$;::T130:T:BB1:B(Z$)8B1A ,K(16384):K128ī290a 6KK128:16368,0:K13410 @K21K8K10K11K48K49NĢ5P:13:" ";:350 JK21K8K10K11K48K49NĢ5P:13:" ";:350 T300 ^A(49200):A(49200)hK8K11PP1:P1PN:2709rK21K10PP1:PNP1:270S|K49K49(N1)ī270cPK48:270G(N$(P))3:P$(N$(P),G)20:1:"[";::"Bye Bye!";::"]:";L1G$P$"........":R$(G$,L,1):20:L11:R$;::(27)"FG";::(24);:LL1:L(P$)8ī470!450MU(P)1:P530,570,610,650,690,730,950:fMenu for charactersH(80(A$))2:V:H:A$;:Poke value into BufferN,((A10)16)(A(A10)10):Weapons & Armor :V2:A$"Weapons & Armor":490:W1:N33280C:E$W$(W):D(E$)2:970:WW1:NN1:W48ė:200L&540X0Spells::V2:A$"Spells":490::V3:A$"In order to cast higher level spells you must have characters of higher levels":490:W1:N33344D:E$S$(W):D(E$)2:970:WW1:NN1:W48ė:200N580+XScrollsSb:V2:A$"Scrolls":490:W1:N33392l:E$R$(W):D(E$)2:970:WW1:NN1:W8ė:200v620Potions:V2:A$"Potions":490:W1:N33400:E$P$(W):D(E$)2:970:WW1:NN1:W8ė:200660Reagents=:V2:A$"Reagents":490:W1:N33440s:E$E$(W):D(E$)2:970:WW1:NN1:W8ė:200|700Miscellaneous:V2:A$"Miscellaneous":490:N33152::E$M$(1):D(E$)2:1030::E$M$(2):D(E$)2:NN2:1030Y:E$M$(3):D(E$)2:NN2:970::E$M$(4):D(E$)2:NN1:970::E$M$(5):D(E$)2:NN1:970u(33159)1F$"Y":770F$"N"10:(11);:10:M$(6);" (Y/N):";F$;(8);:"";A$:A$(13)ī800 A$"Y"Ĺ33159,1A$"N"Ĺ33159,0 :E$M$(7):D(E$)2:NN2:970(*C33264:F8:1320>4C33265:F9:1320U>C33266:F10:1320|H:E$M$(11):D(E$)2:N33267:970RC33268:F12:1320\:E$M$(13):D(E$)2:N33269:970fC33270:F14:1320p:E$M$(15):D(E$)2:N33271:970zC33272:F16:1320&C33273:F17:1320=C33274:F18:1320TC33275:F19:1320]200{Save Updated Information(4)"BSAVE ROSTER,A$8000,L$3FF"::(4)"PREFIX/ULTIMA5.EDIT":(4)"RUN STARTUP"Print Prompt for items of 0-99 valueG          0)10):)8Print actual amount of itemBU((N)16)10((N)((N)16)16):J(((N1)16)10)((N1)(((N1)16)16)):U100J;:LData for Main Menu V"1) Weapons & Armor","2) Spells","3) Scrolls","4) Potions","5) Reagents","6) Miscellaneous","7) Quit"/`Data for Weapons & Armorj"Leather Helm","Chain Coif","Iron Helm","Spkd Helm","Sm. Shield","Lg. Shield","Spkd. Shld","Shld/Magic","Shld/Jewel","Cloth","Leather"Kt"Ring Mail","Scale","Chain","Plate","Myst. Armr","Dagger","Sling","Club","Flmng Oil","Main Gauch","Spear","Thrwng Axe","Sht. Sword","Mace"~"Morn. Star","Bow","Arrows","Crossbow","Quarrels","Long Sword","2H Hammer","2H Axe","2H Sword","Halberd","Chaos Swrd","Magic Bow"^"Silver Swd","Magic Axe","Glass Swrd","Jewel Swrd","Myst. Swrd","Inv. ring","Prot. Ring","Regen Ring","Am/Turning","Sp. Collar","Ankh"sData for Spells4"In Lor","Grav Por","An Zu","An Nox","Mani","An Ylem","An Sanct","An Xen Cor","Rel Hur","In Wis","Kal Xen","In Xen Man","Vas Lor","Vas Flam","In Flam Gr","In Nox Gr","In Zu Grav","In Por""An Grav","In Sanct","In Sanct G","Uus Por","Des Por","Wis Quas","In Bet Xen","An Ex Por","In Ex Por","Vas Mani","In Zu","Rel Tym","In Vas Py","Quas An Wi","In An""Wis An Yle","An Xen Ex","Rel Xen Be","Sanct Lo","Xen Corp","In Quas Xe","In Quas Wi","In Nox Hur","In Quas Co","In Mani Co","Kal Xen Co","In Vas G C","In Flam Hu","Vas Rel Po","An Tym"Data for Scrolls"Vas Lor","Rel Hur","In Sanct","In An","In Quas Wis","Kal Xen Corp","In Mani Corp","An Tym")Data for Potionsn"Blue","Yellow","Red","Green","Orange","Purple","Black","White"Data for Reagents"Sulfur Ash","Ginseng","Garlic","Sp. Silk","Blood Moss","Blk. Pearl","Nightshade","Mandrake"Data for Miscellaneous"Food","Gold","Keys","Gems","Torches","Grappling Hook","Magic Carpet","Shard/Falsehood","Shard/Hatred","Shard/Cowardice","Spyglass","HMS Cape Plan","Sextants","Pocket Watch","Skull Keys","Amulet","Crown","Sceptre","Black Badge" Error CheckingK :"Error.. make sure the Britannia disk is in the drive":A$:::100q Print and Poke the value of item ((C)255F$"Y":1340 2F$"N" <10:(11);:10:M$(F);" (Y/N):";F$;(8);:"";A$:A$""ı FA$"Y"ĹC,255 PA$"N"ĹC,0 Z :"Error.. make sure the Britannia disk is in the drive":A$:::100q Print and Poke the value of item ((C)255F$"Y":1340 2F$"N" <10:(11);:10:M$(F);" (Y/N):";F$;(8);:"";A$:A$""ı FA$"Y"ĹC,255 PA$"N"ĹC,0 Z25:"(0-9999)";::10:E$;":";:D:1090:D:"";A$:A$""ıXA(A$):A9999A01030d1070:$Poke value into buffer.N,((A100)10)16(A100)(((A100)10)10):N1,(((A((A100)100))10)16)(A((A100)100)((A(A100)100)1)2:NN4:1500::E$"Intelligence":D(E$)2:NN1:1500::E$"Dexterity":D(E$)2:NN1:1500:E$"Magic":D(E$)2:NN1:1500::E$"Current Hit Points":D(E$)2:NN1:1600::E$"Maximum Hit Points":D(E$)2:NN21600::E$"Experience Poi& /~~~~~~~~~~~~~~~~~~~~~~~~~~~~\M| Ultima V | u| Character Editor | (| By Kevin Lynch | 2| ------------------ | <| (c) 1988 |  F| By: The Byte Zappers | ; P+------------------------------+ A ZP d::1740 nD(16),A$(17):D$(4):D$"PR#3":R116:D(R)0:R xP1:B1 Set veriables for title screen A$(17)"Save and Quit to Main Menu" ::A$"Ultima V":V12:260:A$"Character Editor":V13:260:A$"By":V15:260:A$" The Phantom":V17:260:A$" Insert Britannia Disk And Press a Key":V22:260 Load in character information A$:(4);"PREFIX/BRITANNIA":(4);"BLOAD ROSTER" 300 A$ placement on screen& F H(80(A$))2:V:H:A$;:L [ Main Menua "k ,:I0 6C$"Ultima V Character Editor -": @C$" "C$:Z$C$(C$,1,8) JS17 T:1::80):S6:80):A2S5:A::" ";::78);::" ":: ^:V1:A$"Character Stats. Menu":260::V2:A$"Remember... Only 6 Characters In the Party":260:V7:A$" Characters in Party":260:C32768 h rRead name from memory | B116:A$(B)"":B:B1 ECC7:(E)0E32775A$(B)A$(B)((E)):E ? placement of character name on screenE u 3B:3:"[ ] ";A$(B);:D(B)1Ė25::"*":{  Advance B and C to read in next character name  BB1:CC8:B16530 400  Check to see if character is in party#G5:M5:Q32896R(Q)00KQ(((G4)8)120):LKK7:560[&5800(L)0L32775I$I$((L))::M4:MM1:41:I$DGG1:QQ16:Q33136ī600NI$"":540X3B:3:"[ ] ";A$(17)bB1l3B:4::(27);:"E";::(24);:Sv24:1:"[";::"Ultima V";::"]:";::(27);"FG";::(24);K$(Z$,P,8):24:2::K$;::Z130:Z:PP1:P(Z$)8P1O(16384):O128ī640OO128:16368,0:O13ī720O21O8O10O11Ģ3B:4:" ";:690650=Y(49200):Y(49200):O8O11BB1:B1BS:620`O21O10BB1:BSB1:620i620Q$A$(B):23:1::"[";::"Have fun";::"]:";:T1V$Q$".......":J$(V$,T,1):24:T11:J$;::(27);"FG";::(24);:TT1:T(Q$)8ī750 730/B0B17SB8:NS32760:FS120?B17ī1440\R116:BRD(R)1ī800b k850 "You have already edited this person. Do you want to edit him/her again (Y/N):";H$:H$"Y"ī850*3004>Start of character statisticsH=RG$"":ENN7:(E)0E32775G$G$((E)):b\:V2:A$"Character Stats.":260f:10:"Name:";G$;:6:"";A$:A$""NNF:900p(A$)8ī870zW0(A$)1:NW,((A$,W1,1))128::XW7:NX,0::NNF(N)00F$"Y":920 F$"N"b:10:"In Party (Y/N):";F$;(8);:"";A$:A$"Y"āQ328963313616:(Q)00II1I5ĺ:"You can't have any more characters in your party.";:B$:300A$"N"ĹN,255:970A$""ī970:A$"Y"ĹN,0F$((N2))610:(11);"Avatar, Fighter, Bard, Mage:";F$;(8);:"";A$GA$""ī1040\A$"A"ĹN2,193qA$"F"ĹN2,198A$"B"ĹN2,194A$"M"ĹN2,205(N1)62F$"M":1060F$"F"$10:(11);"Sex (M/F):";F$;(8);:"";A$:A$""ī1090.A$"M"ĹN1,62#8A$"F"ĹN1,63@B(N3)199F$"G":1120]L(N3)196F$"D":1120hVF$"P"`10:(11);"Health (G/D/P):";F$;(8);:"";A$:A$""ī1160jA$"G"ĹN3,199tA$"D"ĹN3,196~A$"P"ĹN3,208`:E$"Strength":D(E$          N32990D(6)1&N33006D(7)1: N33022D(8)1NN33038D(9)1cN33054D(10)1x(N33070D(11)12N33086D(12)1<N33102D(13)1FN33118D(14)1PN33134D(15)1ZN33150D(16)1d300n xPoke value into Buffer7N,((A10)16)(A(A10)10):=[Save Updated Informationa(4)"BSAVE ROSTER,A$8000,L$3FF"::(4)"PREFIX/ULTIMA5.EDIT":(4)"RUN STARTUP"Print Prompt for items of 0-99 value910:(11):10:25:"(0-99)":10:1:E$;":";:D:1560:D:"";A$:A$""ıUA(A$):A99A0ī1500a1420:gPrint actual amount of item10:D:((N)16)10((N)((N)16)16);:",Print Prompt for items of 0-9999 value6G@10:(11):10:25:"(0-9999)";::10:E$;":";:D:1700:D:"";A$:A$""ıdJA(A$):A9999A01600pT1660:v^hPoke value into bufferr |N,((A100)10)16(A100)(((A100)10)10):N1,(((A((A100)100))10)16)(A((A100)100)((A(A100)100)10)10):&GPrint actual amount of itemMU((N)16)10((N)((N)16)16):J(((N1)16)10)((N1)(((N1)16)16)):U100J;:Error Checking:"Error.. make sure the Britannia disk is in the drive":A$:::100&GPrint actual amount of itemMU((N)16)10((N)((N)16)16):J(((N1)16)10)((N1)(((N1)16)16)):U100J;:Error Checking:"Error.. make sure the Britannia disk ints":D(E$)2:NN2:1600u:10:(11):10:25:"(0-9)":10:1:"Level:";:D7:NN2:1560:7:"";A$:A$""ī1220A(A$):A9A0ī11901420N32910D(1)1N32926D(2)1N32942D(3)1N32958D(4)1N32974D(5)1 ::::*"1) Character Editor"I"2) Miscellaneous Editor"`(:"WHICH (1-2)";A-(4)"PREFIX/ULTIMA5.EDIT"2A1ĺ(4)"RUN ULT5.CHAR.EDIT"<A2ĺ(4)"RUN ULT5.MISC.EDIT"F:"Error.. make sure the Britannia disk i ,@ALOY.CDA ALOY.CDA  ALOY EditorKd0 s s٧ s젠 s󠠹ҠP  s٧Ԡ sɠԍ s s sР sĠ宍P  s s忠٠Ω 0hhkL s쮮qqqq sĠ򮮮0q B qɸ6 s堳Ġ宍L sĠ󮮮q q0 s䠠 s堳Ġ宍 s宍L!0 (`HZ0H "(zh`Dsssss8sssstsHs:sssssUs&s sp 宍L!0 (`HZ0H "(zh`Dss     ,@ALOY.CDA ALOY.CDA  ALOY EditorKd0 s s٧ s젠 s󠠹ҠP  s٧Ԡ sɠԍ s s sР sĠ宍P  s s忠٠Ω 0hhkL s쮮qqqq sĠ򮮮0q B qɸ6 s堳Ġ宍L sĠ󮮮q q0 s䠠 s堳Ġ宍 s宍L!0 (`HZ0H "(zh`Dsssss8sssstsHs:sssssUs&s sp 宍L!0 (`HZ0H "(zh`Dss    w ,@ULTIMA.CDAULTIMA.CDAw Ultima V EditorKd0LPHZ0H "(zh`!0 &(`  9֠Ԡɠԍ 9 9 9Р 9宠䬠䬠 9塍P & 9 9忠ٯΩ  L0hhk0`0`` 9P & 9֠ 9î󠠠ҠP & 9`  9 9󠦠 9 9󠦠 9 9䬠䬠 9 9P &`  9ﮮ 9䬠䬠 9뿠ٯΩ`  9ﮮ 9 9Ӡ 9謠嬠 9󿠠ٯΩ` p  &ɱ!ɲ ɳɴɵɶɷɸLL;LLLLGLLpL  9󮮮 ǟ 9쮮 00 9٠宮 L  9󮮮 9򮮮 9󮮮0 9٠宮 L  9󮮮@p 9٠宮 L  9󮮮 9󮮮p 9٠宮 L  9󮮮ਐ 9٠宮 L   LL  9䬠䬠󮮮 9뮮 00 9٠宮 L  9Ӡ謍 9嬠 9󮮮 9󮮮 9٠宮 Lu r Q 9 999t9qnkJ9999K9HEB!99999}\9-99999?9<96p30G-*'$;!&p99W9A9(9%999&9f999 9999t9qk9e&099&999&M9 9999T9QJ&$P999&9f999 9999t9qk9e&        58,(D58)1:10208jC$"BASIC ITEMS":F1:G15:1190^tC$"BETTER ITEMS":F33:G15:1190~C$"REALY GOOD ITEMS":F64:G14:1190C$"PROVING GROUNDS ONLY":F130:G3:1190C$"KNIGHT OF DIAMONDS ONLY":F94:G14:1190C$"KNIGHT OF DIAMTWIZFIX 2.11REVISED BY VINCENT ANDREWSPMUST BE RAN FROM DOS 3.3!} 38000:N$(20),B(20),A(20),T$(140):1440F1320:510} PP$"":ED17D31:P$P$((E))::L$((D200))"-EAST "((D202))"-NORTH LEVEL-"((D204)):R(D34):C(D36):S(D40):O(D42):Y1(D38):Y2(D39):OL((Y1Y2256)52):N(D44):I(D45):M(D46):H(D47):WN(N32)32m QV(N32)(I(I4)4)8:U(I4)32(I128):TM(M32)32:Q(M32)(H(H4)4)8:P(H4)32(H128):G1(D52):G2(D53):G3(D54):G4(D55):CAG1(G2256)((G3(G4256))10000):E1(D124):E2(D125):E3(D126):E4(D127) RZE1(E2256)((E3(E4256))10000):Y(D132)((D133)256):X(D134):G(D136):J(D176):(D177)0J(J256). K17:ED144(2K):M(K)(E)::K17:ED158(2K):P(K)(E):: :N$(A),O$(O);" ";R$(R);" ";C$(C):"PASSWORD==>";P$::" STRENGTH ";W10);W;5);"GOLD ";CA:" I Q ";V10);V;6);"EXP ";Z:" PIETY ";U10);U:" VITALITY ";T10);T;4);"LEVEL ";Y;6);"AGE ";OL " AGILITY ";Q10);Q;5);"HITS ";X;"/";G;2);"AC ";J:" LUCK ";P10);P;3);"STATUS ";S$(S)::" MAGE ";M(1);"/";M(2);"/";M(3);"/";M(4);"/";M(5);"/";M(6);"/";M(7):" PRIEST ";P(1);"/";P(2);"/";P(3);"/";P(4);"/";P(5);"/";P(6);"/";P(7): "LOCATION: ";L$' K139:"*";:::"A-LIFE E-LEVEL+1 I-EXPERIENCE":"B-CASTLE F-HIT POINTS J-GOLD":"C-IDENTIFY G-M SPELLS K-YOUTH":"D-UNCURSE H-P SPELLS L-QUALITIES":" <2> P.2,REMAKE <3> P.3, TRADING POST":" ROSTER, CHANGES CANCELLED"d" ROSTER, CHANGES PERMANENT":" CTRL-P PRINT-OUT OF CHARATER":j:80:280:410:35,1515:19:16368,0:B$:B(B$):B27ī70&B508200B511000:B16610LD14:1:" ->START PRINTER AND PRESS ANY KEY<- ";:A$:1::K140:"*";:::280::1300:400::0:280:530qbB13Ĺ47092,2:768:47092,1:70lB65B76ī530vBB64:B650,660,670,690,700,720,740,750,760,780,800,810:80:280:530D40,0:D41,0: D32,0:K200205:DK,0::EED64D1208:E,1::K811:(D58(8K))0Ă:K0SD58,K:wED62D1188:E,0:E2,0::K(D132):K254ĹD130,K1:D132,K1:K(D136):K555ĹD134,K10:D136,K10"D138,255:D139,255:D140,255:K17:ED144(K2):E,9::yD140,255:D141,255:D142,255:D143,255:D144,7:K17:ED158(K2):E,9::(D126)254ĹD126,(D126)1 (D54)254ĹD54,(D54)1 D38,170:D39,3: *D44,82:D45,74:D46,82:D47,74:4:>::N$(A);O$(O);" ";R$(R);" ";C$(C)::K140:"*";::"A-GOOD D-HUMAN I-FIGHTER":"B-NEUTRAL E-ELF J-MAGE":"C-EVIL F-DWAFT K-PRIEST":16)"G-GNOME L-THIEF":16)"H-HOBBIT M-BISHOP"O?30)"N-SAMURAI":30)"O-LORD":30)"P-NINJA"::" RETURN TO P.1"{16:19:16368,0:B$:B(B$):B13520BB64:B0B16920B4970B9980990OB:(D42),O:830RB3:(D34),R:830CB9:(D36),C:830670:690::T(0)(D58):1290:K140:"*";:::"YOU MAY CHOOSE:":" A. BASICS":" B. BETTER STUFF":" C. REALLY GOOD STUFF":" D. PROVING GROUNDS ONLY":" E. KOD ONLY, PART 1":" F. KOD ONLY, PART 2":" G. DROP SOMETHING"::" RETURN TO P.1"0.22:19:16368,0:B$:B(B$):B13520D8B65B711070uBBB64:B1130,1140,1150,1160,1170,1180,1100L22:1:"TYPE NUMBER OF OBJECT TO DROP: ";:16368,0:B$:B(B$):B49B561100VBB48:KB8:D588K,(D668K)::D122,0:D!! ! ! ! ! !!!!!!!!!""" " " " " """""""""TONE,DREAMER'S STONE,DAMIEN STONE,GREAT MAGE WAND,COIN OF POWER,STONE OF YOUTH,MIND STONE,STONE OF PIETY,BLARNEY STONE,AMULET OF SKILLS'AMULET OF SKILL,GREAT MAGE WAND,COIN OF POWER,STAFF OF GNILDA,HRATHNIR,KOD HELMET,KOD SHIELD,KOD GAUNLETS,KOD ARMOR,N OBJECT BY NUMBER, OR PRESS TO GO TO TRADING POST."]23:19:"";B$:B$""1020B(B$):BFBF1(G2)1250B129BB36D58,T(0)1:D58(8(T(0)1)),B:1190 14)"TRADING POST"::C$(C);" ";N$(A);": ";T(0);" OBJECTS"`K18:T(K)(D588K):::K182:K;"-";T$(T(K));17(T$(T(K))));K1;"-";T$(T(K1)):::f(:A2::1420:::"THESE ARE THE CHARACTERS ON YOUR BACK-UPWIZARDRY DISK. YOUR OPTIONS NOW ARE:"::"'A' TO 'T' CHOOSE A CHARACTER BY LETTER ENDS THE PROGRAM CTRL-P PRINTS OUT THE ROSTER":dF22:19:A$:A(A$):A271520uPA16ī1400Z:4)"START PRINTER AND PRESS ANY KEY. ";:A$:1::1420::0:1330xA65A84ī1350AA64:47084,B(A):47085,A(A):768:n8)"WIZARDRY ROSTER":K132:"-";:::K1202:(K64);". ";(N$(K),12),;(K65);". ";(N$(K1),12)::c::5:14::"+ +":6:14:" WIZFIX 2.1 ":7:14:"+ +"::::100:250:"-WIZARDRY KILLED OF YOUR BEST FRIENDS?":K11200::"-YOU SAY YOUR BROTHER IS LOST FOREVER?":K11200::"-YOU'D GIVE ANYTHING FOR 1 MORE LEVEL?"KK11200::::10)"WIZFIX IS THE ANSWER":10)"------"::K11500::" MAKE A BACK-UP DISK OF YOUR CHARACTERSUSING THE WIZARDRY UTILITIES. WIZFIXWILL HELP YOU DO ALL MANNER OF MAGICS. USE ONLY THE BACK-UP!!!!!!"10)"INSERT BACK-UP DISK. ":255:1540:8)"PRESS TO BEGIN ";:16368,0:A$:A$(13)ī1530:11:(16):"FAREWELL":::::1K120:47084,B(K):47085,A(K):768:N$(K)"":L115:N$(K)N$(K)((DL)):::)768,32:769,227:770,3:771,76:772,217:773,3:47083,0:47091,0:47092,1:D38000:47088,D(D256)256:47089,(D256):K15:R$(K)::K07:C$(K)::K07:S$(K)::K13:O$(K)::K120:B(K),A(K)::T$(0)" ":K1136:T$(K)::K94100T$(K)T$(K36):::HUMAN,ELF,DWARF,GNOME,HOBBIT,FIGHTER,MAGE,PRIEST,THIEF,BISHOP,SAMURAI,LORD,NINJA,OK,AFRAID,ASLEEP,PARALYZED,STONED,DEAD,ASHES,LOST FOREVER,GOOD,NEUTRAL,EVIL 0,0,0,13,0,11,0,9,0,7,0,5,0,3,0,1,1,0,1,13,1,11,1,9,1,7,1,5,1,3,1,1,2,0,2,13,2,11,2,9 ,LONG SWORD,SHORT SWORD,ANOINTED MACE,ANOINTED FLAIL,STAFF,DAGGER,SMALL SHIELD,L. SHIELD,ROBES,LEATER ARMOR$!CHAIN MAIL,BREAST PLATE,PLATE MAIL,HELM,DIOS POTION,LATUMOFIS POTION,LONG SWORD +1,SHORT SWORD +1,MACE +1,STAFF OF MOGREF!KANTINO SCROLL,LEATHER +1,CHAIN MAIL +1,PLATE MAIL +1,SHIELD +1,BREAST PLATE +1,BADIOS SCROLL,HALITO SCROLL,LONG SWORD -1,SHORT SWORD -1" MACE -1,STAFF +2,DRAGON SLAYER,HELM +1,LEATHER -1,CHAIN -1,BREAST PLATE -1,SHIELD -1,JEWELED AMULET,BADIOS SCROLL,SOPIC POTION,L. SWORD +2,S. SWORD +2,MACE +2,LOMILWA SCROLL,DILTO SCROLL,COPPER GLOVES,LEATHER +2,CHAIN +2,PLATE MAIL +2+# SHIELD +2,HELM +2(EVIL),DIAL POTION,PORFIC RING,WERE SLAYER,MAGE MASHER,MACE PRO POISON,MONTINO STAFF,BLADE CUSINART',MANIFO AMULET# ROD OF FLAME,EVIL CHAIN +2,NEUT P-MAIL +2,EVIL SHIELD +3,MAKANITO AMULET,MALOR DIADEM,BADIAL SCROLL,SHORT SWORD -1,DAGGER +2,MACE -2:$ STAFF -2,DAGGER OF SPEED,CURSED ROBE,LEATHER -2,CHAIN -2,BREAST PLATE -2,SHIELD -2,CURSED HELMET,BREAST PLATE +2,SILVER GLOVES $ EVIL SWORD +3,EVIL SSWORD +3,THIEVES DAGGER,BREAST PLATE +3,LORDS GARB,MURASAMA BLADE,SHURIKEN,CHAIN PRO FIRE,EVIL PLATE +3,SHIELD +3Y%RING OF HEALING,RING PRO UNDEAD,DEADLY RING,ROD OF RISING,AMULET OF COVER,ROBE +3,WINTER MITTENS,NCKLCE PRO MAGIC,STAFF OF LIGHT,LONG SWORD +5%SWINGING SWORD,PRIEST PUNCHER,PRIEST'S MACE,SWINGING SSWORD,RING PRO FIRE,CURSED PLATE +1,PLATE MAIL +5,STAFF OF CURING,RING OF REGEN,METAMORPH RING&STONE SONDS ONLY":F124:G2:1190:20(C$).5:C$::KFFG:K;"-";T$(K)::3:KFG1F1(G2):20:K;"-";T$(K)::19:K140:"*";::T(0)(D58):"YOU HAVE ";T(0);" OBJECTS.":T(0)7ĺ"YOUR HAVE NO MORE ROOM.":K11500::1020>"YOU MAY CHOOSE A