' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `JJ`>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  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#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!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 AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-&(&6 `J͠٠ˠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠Jz# Ju`ŠĠ썍͠卪ҠƠĠ퍻Ġ򽲩Р¹占ˠ̠  㠫ؠ󩍠Ԡ٠宮čҠٍРҍԠΠ卍àРؠčؠƷؠ蠤Ʒ󩍠㮠蠹̠̬ؠƠ㮠蠤ƍР̠̬ؠ㮠㠫؍ؠؽثؠĠؠĠ󩍠àРؠčؠƷؠ蠤Ʒ󩍠㮠蠹̠̬ؠ㮠󮮮ĸčԠ󮮮ĸčؠ栱㮠蠹Р̠Ŭؠ㮠㠫؍ؠؽثؠؠ󩍠àРؠؠư栱퍠Ľ̠ҠōԠĸĢӠ謢ĸčԠ嬠ĸčԠ㮠蠰̠ìؠ덠Р󮍠㮠蠹̠à䍠̠ë䍠Р󮍠Ԡ٠宮čҠٍРҍ뮮ĸčؠ㮠蠹Р̠ìؠ㮠㠫؍ؠؽثؠؠ󩍠àРؠ٠㮍٠䠮ҠٍҠЍѠŲ󠰠ϩР٠ӍŲРҠύ٠ҠōԠĢ䬠䬠󮮮ĸčԠ젫؍ؠؽثؠؠ󩍠àРؠԠ٠宮čҠٍРҍ̠Ҡàҍ󍪭ӠҠōԠĸĢ󮮮ĸčؠ堸㮠蠹Р̠Ŭؠ㮠čؠ報㮠蠹Р̠Ŭؠ㮠㠫؍ؠؽثؠؠ󩍠àРؠԠ٠宮čҠٍРԠРؠԠ٠宮čҠٍРҍ󠦠󍪭ӠҠōԠĸĢ󮮮ĸčԠ󮮮Ľ󍪭ӠҠōԠĸĢ󮮮ĸčؠ場㮠蠹Р̠Ŭؠ㮠㠫؍ؠؽثؠؠ󩍠ð場㮠蠹Р̠Ŭؠ㮠㠫؍ؠؽثؠؠ󩍠àРؠԠ٠宮čҠٍРҍҠٍРҍ󠦠卪ӠҠōԠĸĢ󮮮ĸčԠ򮮮ĸčԠ󮮮ĸčؠ̍̍̍̍؍Р󮍠̠ӫؠЍ̠ӬؠРЍР󮍠٠ٽ٫٠٠àР格Ԡ٠宮čؠ㮠؍÷㮠蠤÷䠽÷Ȭؠ㮠Ƞ؍٠ٽ٫٠٠àР格РԠ쮮ĸč٠ؠ卪ŠҠōԠĸĸĢ󮮮ĸč٠ؠР٠㮍̠ز̠شؠ̠ظ栱̠رӠеРӠжР̠㮠зР̠иРԠԠ卍ѠгРѠдРѠеРѠжРѠзРѠиРҍбРŠЍвРӠгРӠдР󿠠ٯΩčӍҠ͍ҠҠՠՍҠ٠ҠԍРѠбРѠвРŭ̠ҠōԠĢﮮĸčԠ󮢸čԠӠčԠ謠嬠čԠàҠōԠĢﮮĸčԠ䬠䬠󮢸čԠ뿠ٯΩĸčӍԠ̠ӠՍ䬠䬠čԠĸčԠĸčōӍԠԠįĠ΍ՠҠōԠĢ袸čԠ󠦠čԠčԠ󠦠čԠ󩢸čԠŠԠøčōԠĢ֠čԠî󠠠ҠčōԠčӍԠՠ΍٠΍РРР٢ѠӍРѠӍǠӍӠǠӍӍԠŠ΍Ա占 썠ԫԍԠ̍Ԡ٠ō٠РΠ̠č̠΍̠ōӍ塢čōԠĸčԠ忠ٯΩĸčҠٍҠЍѠԠ󠰠ϩРҍԠōԠР򢍠ԠĸčԠР䢸čԠ宠䬠䬠čԠԩР󍍺ˠЍӠ򍍍퍪ϠҠōԠĢ֠ԠɠԢčԠӍǠǠЍРРӠÍӠ占Р٠ө٠占Ѡˠ栰ҠԠԠÍҠǍàݱˍԠÍؠݱ̠űÍ젤ÍԠٍ؍ЍРЍ؍ٍ卍РύŠŠÍ٠РߢҠԠ٠ŠЍԠ캍Ԡ 덠ˠ덠 ɠԠ場占ɠԫڠԫ獠РҠ֠򧍍̠Ԡ̠Ԡ墠󍻠̩ؠ젱卻젱à栱̠獍󺍪卪箍󺍍ҠՠРՠԠŰűĠŰðŠŰðȠ栱Ӡ栱Š򠠠ԠƠ卍ō̍Πՠ٠ՠՠՠʠĠ忠ٯΩϠʍˠ̍΍àð占à卍᪪֠򠠪î󠱸Ҡ             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 #??    ĮӠ РԵîԠԵҮԠٮ Ӡ(͠٠ˠͲͲŠŮ#ӠϠ!خɠ!ӠRECTORY !!!": |:10005 1:" 80N":0,63998:0"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 DI85: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) ((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 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 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:     %,,'Ѕ &,&` 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-------------*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 *------------------- * there is no program code after *Vx * label. * *-------------------------------------*:FD0NUMNUM1:K2(LINE$(I))X$(LINE$(I),K,1)X$" "1580: *-------------),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 *(nNE$() array *7 *================================*=:G3100M:n *========================* * Check for any labels * *========================*:"CHECKING FOR LABELS"; :I1LINES".";((LINE$(I------------------------*GL * Filename found, go and process it *uV *-------------------------------------*{`:j216,0t:~:" PROCESSING ";NAME$;" ":: *================================* * Read file into LI---------------------*:'1010?D$;"VERIFY ";NAME$I1130T216,0u:"THERE IS NO FILE CALLED":NAME$;::" ON THIS DISK.":"PRESS ";::" RETURN ";:" TO TRY AGAIN ";$A$:A$.5508:B *-------------"/"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 * *----------- D$;CT$A$:A$!550' :;NAME$"/"980A :n**-------------------------------------*4* User wants to change current path *>*-------------------------------------*H:R19\"PATH WANTED : ";PTH$f(PTH$,1)v12& "PLEASE ENTER NAME OF FILE", K "(?=";CT$;", /=SET PATH)"^ :"-> ";NAME$d :x NAME$"?"790~ : *---------------------------------* * User wants a CATALOG (or CAT) * *---------------------------------*:==========*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$ ommands *1 r *------------------------------*7 |:F I1ITEMSY CMD$(I),LN(I)` If : *----------------------* * Get current prefix * *----------------------* : D$;"PREFIX" PR$ :  *==================nds *4  * and DIMension arrays *b " *-------------------------------------*h ,:s 6ITEMS @LINE$(1000),LABEL$(250),LABEL(250) JCMD$(ITEMS),LN(ITEMS) T: ^ *------------------------------* h * Read in branching cturn 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 comma * 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):            &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$;"ine *,% * character by character. *R% * Ignore leading spaces and *x% * accept all characters. *% *=============================*% :% D$;"READ ";NAME$% A$""% Y0% B$%* :%4 B$(13)3450%> B$" "Y1D$;"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 l *)# ***************************/# :5# :b# *====================================*# * Read file into LINE$() array and *# * count number of lines read in. *# *====================================*# :# LINES0$& ^ :"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 *# * !"! (! "PRESS ";::" RETURN ";:>! " TO CONTINUE ";J! A$:A$T! 2530Z! :e! 216,0r! NAME$N$|!" 2530!, :!6 *==============================*!@ * Save new file as text file *!J *==============================*!T :""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 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$::` "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 * * 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 "---* \: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:(-------------------*< * 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*----------------------------- 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 :*-------------stop processing and display line with *av * bad label. * *===============================================*:"REPLACING LABELS WITH LINE NUMBERS";I1LINES".";:H1ITEMS: items================*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 ne numbers to beginning of each line *^ *==============================================*d:"ADDING LINE NUMBERS";I1LINES".";LINE$(I)(I10)" "LINE$(I)I:&" ":0:: *===================================*!)V * DATA statements *=)` *===================*C)j:J)t2b)~"GOTO",4,"GOSUB",5 *==========================*&( :@( (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 *===============DELETE ";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堤ҠӠӠԲ͠ԲƹԲРԠ͍͠͠İύҠōԠΠƶƷӍ΍ͲΠҠˠӍҠՠϠՠϠՠЍ͠͠䮍Ͳ宍Р͍ύԠԠ͠ԠԍһӠ͠Ӯ􍻠㩠ǠĶ󍻭ˠՠˠՠŰԠՠ԰ՠΠՠðԠՠðΠՠðƠՠðŸ͠ՠ     CK253)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"% "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(CHE 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:3272: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(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:970zC3$(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О660Reagents=: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$M1: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ė:200: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:WW);: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":49011PP1: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";::(24C$;::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)hK8K::" ":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::aracter 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);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 chByte 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:( /~~~~~~~~~~~~~~~~~~~~~~~~~~~~\ O| Ultima V | u| Misc. Editor |(| By Kevin Lynch | 2| ------------------ | <| (c) 1988 |  F| By: The            :"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 ZK :"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 Zous"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 CheckingMani 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 Miscellane 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 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","Relewel 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 g","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","Janeous","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","Slin0)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) Miscell25:"(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 PoiA$"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$:(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.0 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))610csH=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":92 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 statisti650=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"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:" ";:690 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);:(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^: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$ 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);::" ":: :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" 300Byte 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"& /~~~~~~~~~~~~~~~~~~~~~~~~~~~~\M| Ultima V | u| Character Editor | (| By Kevin Lynch | 2| ------------------ | <| (c) 1988 |  F| By: The           s 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 i00)((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 i:(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)125:"(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 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: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 valuents":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 isss8sssstsHs:sssssUs&s sp 宍L!0 (`HZ0H "(zh`DssĠ󮮮q q0 s䠠 s堳Ġ宍 s宍L!0 (`HZ0H "(zh`Dss忠٠Ω 0hhkL s쮮qqqq sĠ򮮮0q B qɸ6 s堳Ġ宍L sP  s٧Ԡ sɠԍ s s sР sĠ宍P  s s ,@ALOY.CDA ALOY.CDA  ALOY EditorKd0 s s٧ s젠 s󠠹Ҡ    sss8sssstsHs:sssssUs&s sp 宍L!0 (`HZ0H "(zh`DssĠ󮮮q q0 s䠠 s堳Ġ宍 s宍L!0 (`HZ0H "(zh`Dss忠٠Ω 0hhkL s쮮qqqq sĠ򮮮0q B qɸ6 s堳Ġ宍L sP  s٧Ԡ sɠԍ s s sР sĠ宍P  s s ,@ALOY.CDA ALOY.CDA  ALOY EditorKd0 s s٧ s젠 s󠠹Ҡ    099&999&M9 9999T9QJ&$P999&9f999 9999t9qk9e&9?9<96p30G-*'$;!&p99W9A9(9%999&9f999 9999t9qk9e&kJ9999K9HEB!99999}\9-9999 9嬠 9󮮮 9󮮮 9٠宮 Lu r Q 9 999t9qn  9䬠䬠󮮮 9뮮 00 9٠宮 L  9Ӡ٠宮 L  9󮮮 9󮮮p 9٠宮 L  9󮮮ਐ 9٠宮 L   LL 00 9٠宮 L  9󮮮 9򮮮 9󮮮0 9٠宮 L  9󮮮@p 9󿠠ٯΩ` p  &ɱ!ɲ ɳɴɵɶɷɸLL;LLLLGLLpL  9󮮮 ǟ 9쮮 ﮮ 9䬠䬠 9뿠ٯΩ`  9ﮮ 9 9Ӡ 9謠嬠 9󠦠 9 9󠦠 9 9䬠䬠 9 9P &`  9Ω  L0hhk0`0`` 9P & 9֠ 9î󠠠ҠP & 9`  9 9 9 9Р 9宠䬠䬠 9塍P & 9 9忠 w ,@ULTIMA.CDAULTIMA.CDAw Ultima V EditorKd0LPHZ0H "(zh`!0 &(`  9֠Ԡɠԍ 9        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 DIAMP.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:D670: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"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:8302: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-BISHO,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,8DK,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:D140ESS 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:STER, 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 PR"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":" RO " 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): 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 ";OL3):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):(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(D5TWIZFIX 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!! ! ! ! ! !!!!!!!!!""" " " " " """""""""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,SING,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 S -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 RIMONTINO 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-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,ORT 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 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,SH)::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,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(KIXWILL 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):0::"-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. WIZF8)"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?":K1120 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:nK18: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 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"`ONDS 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