' +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` ``ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LL[dmx-(6 ͠٠ˠ@跻~!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ƴ u`浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ ` K015:A:768K,A:Q56,32,31,254,144,4,169,0,240,2,169,1,141,16,3,96768:L64448:L(L)(L1)(784):A(L143)(L468)5(L427)9(L224)13(L255)17(L0)21(L255)25(A$"II II+ //E //E+//C //C+IIGS":(A$,A,4) 6 HEX$"3F5: 4C 0 3 N300:C9 AB D0 C 20 B1 0 20 67 DD 20 52 E7 4C 41 D9 C9 B0 D0 20 20 B1 0 N317";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:0F     8 * MAKE SURE YOU TYPE THIS IN USING PRODOS !!!!!!?*f* MAPPER.2400AD BY PAUL A.JOHNSONm(*ydBY(56)n"WHICH PAGE (1-7):";PGsPG0Āx1000Q(PG1)81(PG1)882(4)"BLOAD /PLYR/MAP,A8192,L512,B"BY(Q)512. (4)"BLOAD /PLYR/MAP,A8704,L512,B"BY(Q1)512: Y015P A$(0)"":A$(1)""\ X031g Z01 A(Z)(819232YX512Z) A(Z)3A(Z)8A(Z)42A(Z)48A(Z)224A$(Z)A$(Z)"+":300 A(Z)64A(Z)60A(Z)56A(Z)57A$(Z)A$(Z)"S":300: A(Z)63A(Z)68A(Z)72A(Z)73A$(Z)A$(Z)":":300c A(Z)7A(Z)12A$(Z)A$(Z)".":300 A(Z)31A(Z)36A$(Z)A$(Z)"/":300 A(Z)78A(Z)79A$(Z)A$(Z)"G":300 A(Z)237A(Z)236A$(Z)A$(Z)"w":300 A(Z)244A$(Z)A$(Z)"F":300 "A$(Z)A$(Z)" "! ,Z( 6X9 @A$(0);A$(1)@ JYO T(4)"FRE"V ^Qm h(4)"PR#0":110: :B156:BY(B)::(4)"PR#1":: DATA 30,72,29,28,31,72,72,72,23,22,72,21,72,20,0,1,7,6,8,9,15,14,16,17,72,32,72,33,72,34,72,35,25,27,24,26,72,72,2,3,5,4,10,11,13,12,18,19,72,38,36,37,72,39,72,72` :B1112:BY(B)::(4)"PR#1": 4,4,4,4,4,4,26,23,27,24,4,25,4,4,4,4,4,4,4,4,7,8,6,4,19,2,18,3,17,16,4,4,21,4,20,4,9,10,5,11,1,12,0,13,15,14,4,4,4,28,4,4,4,4,4,22 53,54,4,4,4,4,51,4,4,50,4,49,4,4,4,4,4,29,4,30,31,32,4,40,4,41,48,47,4,52,4,4,4,4,4,4,33,34,39,38,42,43,46,45,4,4,4,4,4,4,4,4,35,4,37,36,44,4,4,4,4,4,4,4,4,4,4     X@8` &"@ @"!?!" 0"""`xH` F8"!" `""""@"" @ @""  ""  "%"  " @@"@@"!!""D8C" 0!0`&HP  , ZDGRAF COPYRIGHT P.J.WALL 05/07/862MTHIS PROGRAM CONVERTSiPRINT SHOP 88X52 PIXELPICTURES TO TEXT FILESFOR ZARDAX OUTPUT TOEPSON PRINTERS USINGBIT IMAGE MODE., 6GOSUB 5000:REMLOAD MODULE FOR EPSON #8133 PARALLEL INTERFACE9 @DA8963:$2303 M/C DATA BLOCK)w JC(X)((X)((X256))(256).05)(X256):X MOD 256 TA0$"HOW MANY BITS TO PRINT ON EACH LINE?" ^:11:2000::BITS hBITS0BITS8ĺ(7):350 rBH52:PICTURE DEPTH IN BYTESE |BITS(BITS):BJ((BH)((BHBI))(BI).05)(BHBI):BH MOD BIR BLBIBJv BJ0MASK255:BK(BHBI):420 BK(BHBI)1:I18BL(BI7):MASKMA2(8I):I:GET MASK BYTE LEBK88:LE NGTH LLOC(LE):LENGTH MOD 256 LHI((LELLO)256)( D$(4):D$"BLOAD HTALVERT"o DA,BITS:DA1,11:DA2,(BITS1)11:DA3,LLO:DA4,LHI:DA5,MASK A1$"PLEASE INPUT THE NAME OF THE" A2$"PRINT SHOP GRAPHIC" A3$"YOU WISH TO LOAD FROM DISK" :11:A0$A1$:2000::A0$A2$:2000::A0$A3$:2000: 10:FI$I A1$"THE NAME OF THE FILE TO LOAD IS"U A2$FI$p A3$"IS THIS CORRECT?" &:11:A0$A1$:2000::A0$A2$:2000::A0$A3$:2000: 010:A$ :A$"Y"ī470 D:D$"BLOAD"FI$",A$2000"1 N:11::A0$"PLEASE WAIT":2000::A0$"CALCULATION IN PROGRESS":2000:B X8960:$2300u b1000:GOSUB 4000 IF USING THE #8133 INTERFACE{ l T1LE:T29471:T388:T43BITS T4 = 3*BITS/216 SETS L/F EQUAL TO BITS DEPTH T2 = $24FF T1 = LENGTH :11HA0$"DO YOU WISH TO SAVE THE FILE IN":2000:A0$"THE P.S. REDUCED FORM Y/N? ":2000^A$:A$"Y"1060nKL76:1070x$KL75.A4$(27)"3"(T4):A5$(27)"@"8:11:A0$"DO YOU WISH SPACES BEFORE THE PIC?":2000:A$:A$"Y"ī1100(BA0$"HOW MANY SPACES?":2000:SP:SP0SP255ĺ(7):1080dL:11:A1$"NOW SAVING FILE AS":A2$FI$"."(BITS)"ZD"VKL76A2$FI$"."(BITS)"ZDR"`A0$A1$:2000jA0$A2$:2000tD$"OPEN"A2$~D$"WRITE"A2$A4$3000I11T1ZP(T2I1) (ZP);1COCO1:COT3I1T1CO0:1230;1240G:3000OI1U^A5$pD$"CLOSE"A2$v(40(A0$))2:A0$ SP)(27)(KL)(88)(0); A3$(9)"124>":A7$"1B4B5800":T1616:T29471:T388:11PA0$"DO YOU WISH TO SAVE THE FILE IN":710:A0$"THE P.S. REDUCED FORM Y/N? ":710fA$:A$"Y"4050yA7$"1B4C5800"A4$(27)"3"(24):A5$(27)"@"A6$"2020202020202020202020202020202020202020202020202020202020202020":11:A1$"NOW SAVING FILE AS":A2$FI$".ZD">A7$"1B4C5800"A2$FI$".ZDR"OA0$A1$:710`A0$A2$:710qD$"OPEN"A2$D$"WRITE"A2$"A4$,A3$;A6$;A7$;6I11T1@ZP(T2I1)JC1(D1ZP2):C2(D1ZP21)T(C2)(C1);^COCO1:COT3I1T1CO0::A3$;A6$;A7$;%hI1+r4|A5$FD$"CLOSE"A2$LhNE(175)256(176)10I109:I2I2(NEI1):I1I2690ī5140LINES 5040 TO 5140 LOAD LOOKUP TABLE AND RESET PROGRAM END(175)256(176)1512ND(175)256(176)1II1015:I2015:I210ĹNDI22I132,I248:5080bNDI22I132,I255I110ĹNDI221I132,I148:5100NDI221I132,I155I2:I1175,(175)1:176,(176)2 D1(175)256(176)512015:I2015:I210ĹNDI22I132,I248:5080GNDI22I132,I255oI110ĹNDI221I132,I148:5100NDI221I132,I155I2:I1175,(175)1:176,(176)2  D1(175)256(176)512     # B### m#K%m#LK8X L # 8 ei*iݩ08 0%L K` Ќ  eiȐLK` *"HTALVERT"*COPYRIGHTP.J.WALL*06/07/86*.OR$2300*BITNO.EQ$01HOZBYTE.EQ$02 BLOSET.EQ$03 MASK.EQ$04 PICLO.EQ$06 PICHI.EQPICLO+1 VBYTE.EQ$08BYTENO.EQ$09LASTLO.EQ$0ALASTHI.EQLASTLO+1LNGTHLO.EQ$4BLNGTHHI.EQLNGTHLO+1STORLO.EQ$EBSTORHI.EQSTORLO+1WIDTH.EQ$ED* STARTCLC BCCINIT*DATA.HS07BITCOUNTER(DECIMAL8963)'.HS0BBYTESHORIZONTALLY(D.8964)!.HS42BLOCKOFFSET(D.8965),.HSC0LOWBYTESTORAGELENGTH(D.8966)!.HS02HIBYTEDITO(D.8966)-.HSF0MASKBYTETURNSOFFUNWANTEDBITS *!*INITIALIZE"*$INITLDADATA%STABITNO&LDADATA+1'STAHOZBYTE(LDADATA+2)STABLOSET/*STAPICLOSETSTARTADDRESS+BLOCKOFFSET*+LDA#$20(PICLO)=$2000+BLOCKOFFSET),STAPICHILATERDECREMENTEDTO$2000 -LDA#$00.STASTORLO/CLC0ADCDATA+31STALNGTHLO'2LDA#$25SETSTORAGEADDRESS$25003STASTORHI4ADCDATA+45STALNGTHHI6LDALNGTHLO7SEC'8SBC#$58BEGINNINGOFTHELASTROW9STALASTLO:LDALNGTHHI ;SBC#$00<STALASTHI =LDADATA+5SETUPMASKBYTE >STAMASK.?LDAHOZBYTESETNO.OFBYTESHORIZONTALLY@STAWIDTHALDA#$08SETBYTECOUNTERBSTABYTENOCLDY#$00ZEROPOSTINDEXE*F*NEXTHOZ.BYTEG*IBYTESDECBYTENOJLDAPICLOKSEC*LSBCBLOSETGOBACKBLOCKOFFSETBYTESMSTAPICLONLDAPICHI OSBC#$00PSTAPICHIQLDABITNORTAXSETBITCOUNTERSLDA#$00CLEAR"VBYTE" TSTAVBYTEINCLUDINGHIBITSV*W*MAKEAVERT.BYTEX* ZBITSTXA[CMPBITNO\BEQFIRST]LDAPICLO^CLC)_ADCHOZBYTE11BYTESONISNEXTBYTE`STAPICLOaLDAPICHI bADC#$00cSTAPICHIdFIRSTASLVBYTEeLDA(PICLO),YfCLCgROLPOPMSBINTO"VBYTE" hSTA(PICLO),YVIATHECARRYiLDAVBYTE jADC#$00kSTAVBYTElDEX mBNEBITSo*p*STOREMADEBYTEq*$sCLLOBITLDA#$06IFBITNO<7THEN$tCMPBITNOCLEARLOBITTOAVOID)uBMILASTSENDINGI&QvASLVBYTETOTHEEPSONwLASTLDASTORLO xSECAREWEINTHELASTROW?ySBCLASTLOzLDASTORHI{SBCLASTHI|BMISTOREIFNOSTOREBYTE}LDAVBYTE(~ANDMASKIFYESCLEARUNWANTEDBITSSTAVBYTEFROMEACHBYTESTORELDAVBYTE)STA(STORLO),YSTORENEWLYMADEBYTEINCSTORLO'LDA#$00INCREMENTSTORAGEADDRESSCMPSTORLO BNEHOK2INCSTORHI!HOK2LDASTORHICHECKFOREND+CMPLNGTHHIAT"LNGTHHI"AND"LNGTHLO"BNENOENDLDASTORLOCMPLNGTHLOBNENOENDRTSPROGRAMENDSHUNT1CLCBCCBYTESNOENDLDABYTENOBNEBYTESNEXT11DECWIDTHBEQNEXT88INCPICLO-LDA#$00INCREMENTHORIZ'ALBYTEADDRESSCMPPICLO BNEHOK3INCPICHI"HOK3LDA#$08SETBYTECOUNTERSTABYTENOCLCBCCSHUNT1**GETNEXTLINE*&NEXT88LDA#$08RESETBYTECOUNTERSTABYTENO.LDAHOZBYTERESETNO.OFHORIZONTALBYTESSTAWIDTHLDAPICLOINCBLOSETCLC ADCBLOSETBLOCKOFFSET+1.STAPICLOLATERREDUCEDBY"BLOCKOFFSET"LDAPICHI ADC#$00STAPICHIDECBLOSETCLCBCCSHUNT1GETNEXT88SAVEHTALVERT.SOURCE     A"X:LN410:L1X:LN"DATA";:NA$(L)","A(L):LNLN10:H:LN1010L1X:E1A(L):LNLN10:LN"DATA"TR$(L,E)","SE$(L,E)","BY$(L,E)","FR$(L,E)","TU$(L,E)","OO(L)E:L"HOME:?"Q$NA$" EDITOR HAS BEEN ENTERED."(4)"CLOSE"  (4)"dbn::A$"EDITOR CREATOR":(40(A$))2:L1(A$):(A$,L,1);:X(16336):X(16336):x2:1:L120:"- ";:X(16336)::34,3:"ENTER ALL TRACK, SECTOR, BYTES, AND BYTECHANGES AS ONE OR TWO-BYTE HEX NUMBERS."F 8:"HOW MANY ASPECTS OF THE GAME WILL YOU BECHANGING";:X$:X(X$):X0Č198:150 A(X),NA$(X),OO(X),TR$(X,30),SE$(X,30),BY$(X,30),FR$(X,30),TU$(X,30) L1X: 4:"HOW MANY SECTOR-EDITS ARE NECESSARY FOR ASPECT #"L;:A(L):A(L)0Č198:180 E1A(L):"PRESS RETURN ALONE FOR DEFAULT VALUES."::"EDIT #"E":"::"TRACK:(";TR$(L,E1)")";:11:850:X$""TR$(L,E)TR$(L,E1):210 TR$(L,E)X$ "SECTOR:(";SE$(L,E1)")";:12:850:X$""SE$(L,E)SE$(L,E1):230 SE$(L,E)X$- "BYTE:(";BY$(L,E1)")";:10:850:X$""BY$(L,E)BY$(L,E1):250= BY$(L,E)X$ "FROM:(";FR$(L,E1)")";:10:850:X$""FR$(L,E)FR$(L,E1):270 FR$(L,E)X$ "TO:(";TU$(L,E1)")";:8:850:X$""TU$(L,E)TU$(L,E1):290 TU$(L,E)X$K "::"WHAT WILL YOU CALL THIS ASPECT?":"(SUCH AS: TOGGLE UNLIMITED BULLETS)":"ANSWER: ";NA$(L) ,:"IS THIS ASPECT (1) ON OR OFF,":"OR (2) A NUMBER VALUE ?";:OO$:OO$:OO(L)(OO$):OO(L)1OO(L)2Č198:300 6 @:13:1:"WORKING ON HEX CONVERSIONS";:L1X:E1A(L) JH$TR$(L,E):800:TR$(L,E)D$:H$SE$(L,E):800:SE$(L,E)D$:H$BY$(L,E):800:BY$(L,E)D$:H$FR$(L,E):800:FR$(L,E)D$:H$TU$(L,E):800:TU$(L,E)D$ T:".";:CL(16336):CL(16336): ^--DOS UTILITY NEEDED (#54, P.9)--h:"WHAT WILL YOU CALL THIS EDITOR":NA$:)r(4)"MONICO"L|(4)"OPEN"NA$:(4)"WRITE"NA$b"90ONERRGOTO390"Q$(34):"100IFPEEK(768)<>169THEN?CHR$(4)"Q$"BLOADDOS UTILITY"Q$ "110HOME:TR=784:SE=789:RW=794:R=1:W=2:POKE799,0:POKE804,32:A =8192:P=768:POKE774,96:POKE779,1"~"120DIMA("X"),NA$("X"),OO("X"),T("X",30),S("X",30),BY("X",30 ),FR("X",30),TU("X",30),O$("L"),N("L"),C$("L")""130READX:FORL=1TOX:READO$(L),N(L)""140NEXT""150TEXT:HOME:?"Q$"INSERT '"NA$"' AT DRIVE 1"Q$":?"Q$"AND PRESS A KEY."Q$":GETG$:?"0"160FORL=1TOX:FORN=1TON(L)""170READT(L,N):READS(L,N):READBY(L,N):READFR(L,N):READTU(L,N ):READOO(L):POKERW,R:POKETR,T(L,N):POKESE,S(L,N):CALLP""180IFPEEK(A+BY(L,N))=FR(L,N)ANDOO(L)=1THENC$(L)="Q$"OFF"Q$" :GOTO210"A"190IFPEEK(A+BY(L,N))=TU(L,N)ANDOO(L)=1THENC$(L)="Q$"ON "Q$":GOTO210"g"200C$(L)=STR$(PEEK(A+BY(L,N)))"{"210NEXT:NEXT""220HOME:?"Q$"OPTIONS:"Q$":HTAB5:?"Q$"PRESS 1-"Q$"X"Q$" OR 'S' TO SAVE." "230?:FORL=1TOX:VTABL+3:INVERSE:?C$(L);:NORMAL:HTAB5:?L"Q$") "Q$";O$(L):NEXT:?:?"C"240INPUT"Q$"CHOICE: "Q$";C$"&"250C=VAL(C$):IFNOT(C$="Q$"S"Q$"OR(C>0ANDC<=X))THENCALL-198: VTABX+6:GOTO240"0"260IFC$="Q$"S"Q$"THEN300":"270IFC$(C)="Q$"OFF"Q$"THENC$(C)="Q$"ON "Q$":GOTO291",D"280IFC$(C)="Q$"ON "Q$"THENC$(C)="Q$"OFF"Q$":GOTO291"N"290?"Q$"ENTER NEW "Q$"O$(C)"Q$":"Q$":INPUTC$(C):VTABC+3:?"Q$" "Q$":POKE34,X+6:HOME:POKE34,0:GOTO291"X"291INVERSE:VTABC+3:?C$(C):NORMAL:VTABX+6:GOTO240"Eb"300?"Q$"DO "Q$";:INVERSE:?"Q$"NOT"Q$";:NORMAL:?"Q$" REMOVE THE DISK OR"Q$":?"Q$"YOUR COMPUTER COULD EXPLODE."Q$Yl"310FORL=1TOX"pv"320FORN=1TON(L)""330POKERW,R:POKETR,T(L,N):POKESE,S(L,N):CALLP""340IFC$(L)="Q$"ON "Q$"THENPOKEA+BY(L,N),TU(L,N)""350IFC$(L)="Q$"OFF"Q$"THENPOKEA+BY(L,N),FR(L,N)"C"360IFOO(L)=2THENPOKEA+BY(L,N),VAL(C$(L))"f"370POKERW,W:CALLP:NEXT:NEXT""380VTAB23:?"Q$"DONE."Q$":?"Q$"PRESS ANY KEY"Q$":GETG$:?:RUN""390?"Q$"YOU GOOFED!!"Q$":?:CALL-198:?"Q$"ERROR #"Q$"PEEK(222):END""400DAT     NOMONICO"5:23:"DONE.":"PRESS ANY KEY":G$::L (H$)2H$"0"H$*DE0:HE$"0123456789ABCDEF":H1$(H$,1):MP16:820:H1$(H$,1):MP1:820:4P116>H2$(HE$,P,1):H1$H2$DEDE((P1)MP):D$(DE):HR"";X$:XPSAT WORD ATTACK SKILLS8TK3:ST0:LT35:CDWRRT1TK:490:360:550u430:100:STST1:STDOS1030BF1060ST0:TKTK1:TKLT1030$490:TKT1:ST0:360.430:100:STST1:STDOS10708ST0:TKTK1:BF0TKLT1070 BTKLT1020" L:"COPY DONE":W '(4)"BLOAD RWTS.PSAT WORD ATTACK SKILLS,A$1900"$ GALGEBRA VOLUME 3 AND 47TK3:ST0:LT35:CDWRQT1TK:490:360:550t430:100:STST1:STDOS1030BF1060ST0:TKTK1:TKLT1030$490:TKT1:ST0:360.430:100:STST1:STDOS10708ST0:TKTK1:BF0TKLT1070 BTKLT1020! L:"COPY DONE":F '(4)"BLOAD RWTS.ALGEBRA,A$1900" ! "ULTIMA V CHARACTER EDITOR9"BY ERIC DELBRIDGEO"WRITTEN 8/17/88U(^2270<::20(Q$)2:Q$:XS1S2:X,153:".";:::::18:"DONE":X11000::320F"CONV HEX TO BCDPX0ZLB15XX1:LBLB16:90:"CALC HI NYBBLE dX9X9:"NO HEX PLEASE= nLB9LB9:"NONE HERE EITHERT xLB$(X)(LB):X0 HB15XX1:HBHB16:130:"CALC HI NYBBLE X9X9:"NO HEX PLEASE LB9LB9:"NONE HERE EITHER HB$(X)(HB) AM$LB$:MX99AM$HB$LB$ Q$"CURRENT "Q$" ("AM$")"\ :C$""::20(Q$)2:Q$::14:"CHANGE TO:";C$:(C$)0C$AM$ C((C$,5)):C$(C):C0CMX190 N2:MX99N4 (C$)NC$"0"C$:220 HB$"00":LB$(C$,2):N4HB$(C$,2) HB((HB$,1))16((HB$,1)) LB((LB$,1))16((LB$,1))& ] ::BD$"----------------------------------------" BD$;:8:"ULTIMA V CHARACTER EDITOR":11:"BY ERIC DELBRIDGE":BD$:34,5:16:BD$:35,15 "10:"INSERT BRITANNIA DISK AND PRESS ANY KEY":16368,0 ,(16384)128300= 616368,0:(4)"BLOAD ROSTER, A$8000, D1"` @:5)"(1) MAX OUT CHARACTERS" J5)"(2) MAX OUT WEAPONS & ARMOR" T5)"(3) MAX OUT SPELLS" ^5)"(4) MAX OUT POTIONS/SCROLLS" h5)"(5) MAX OUT REAGENTS" r5)"(6) EDIT FOOD/GOLD/ETC."( |:5)"(7) SAVE AND QUIT"6 16368,0Q K(16384):K128400_ 16368,0n K177830 K178Q$"MAXING OUT WEAPONS & ARMOR":S133280:S233343:60 K179Q$"MAXING OUT SPELLS":S133344:S233391:60*K180Q$"MAXING OUT POTIONS & SCROLLS":S133392:S233407:60dK181Q$"MAXING OUT REAGENTS":S133440:S233449:60sK182550K183500400(4)"BSAVE ROSTER, A$8000, L$400, D1":::"DONE"* MAX OUT FOOD/GOLD * &:5)"(1) EDIT GOLD"!05)"(2) EDIT FOOD"9:5)"(3) EDIT KEYS"QD5)"(4) EDIT GEMS"lN5)"(5) EDIT TORCHES"X5)"(6) EDIT GRAPPLING HOOK"b5)"(7) EDIT FLYING CARPETS"l:5)"(8) RETURN TO MAIN MENU"v16368,0K(16384):K128ī640 16368,0^K177LB(33154):HB(33155):MX9999:Q$"GOLD":80:33154,LB:33155,HB:550K178LB(33152):HB(33153):MX9999:Q$"FOOD":80:33152,LB:33153,HB:550K179LB(33156):MX99:Q$"KEYS":80:33156,LB:550$K180LB(33157):MX99:Q$"GEMS":80:33157,LB:550aK181LB(33158):MX99:Q$"TORCHES":80:33158,LB:550pK182750K183LB(33160):MX99:Q$"CARPETS":80:33160,LB:550K184ī320630LB(33159):A$"(NO)":LB1A$"(YES)"`:C$""::Q$"GRAPPLING HOOK? "A$:20(Q$)2:Q$::14:"CHANGE TO (Y/N):";:C$::C$(13)C$(A$,2,1)yC$"Y"C$"N"760 LB0:C$"Y"LB133159,LB:520 * * Max Out Party *4>:::5:"MAXING OUT CHARACTER (00)";"HX116:X$("0"(X),2):(8)(8)(8)X$")";5RY32880(16X)Z\Y4,48:Y5,48:Y6,48:Y7,153fY8,153:Y9,153:Y10,153:Y11,153pY12,153:Y13,153:Y14,9zX7:"DONE":320A98:B31:160:A$,B$::     . ULTIMA V MUSIC PATCH FOR THE APPLE IIGSLI768802:A:I,A::76824,251,194,48,244,11,0,162,3,35,34,0,0,225,244,4,0(244,0,0,244,0,3,162,3,16,34,0,0,225,56,251,226,48,96! DR(14),SL(14):N(48945)1mX1N:C(X48945):I(C128):DR1:DR(X)CRI:CC128I:SL(X)(C16):C1N:"SLOT "SL(C)", DRIVE "DR(C): K* (48640)76ĺ"PRODOS INSTALLED":30C"DOS 3.3 INSTALLED"I 5 I2094520941:I,234:C20969,14:21084,44:20931,44j21049,142:21048,253:21079,88(21078,252:17159,142:17158,2532I2103120995:X:I,X:3 <48,31,189,200,180,41,127,160,7,10,10,176,3,136,208,250,185,167,179,72,189,200,180,16,3,104,208,7,104,208,6,234,169,35,41,63  KA T06:(49420(T256))32(49659(T256))214MT1:M:I: 4!! DR(14),SL(14):N(48945)1mX1N:C(X48945):I(C128):DR1:DR(X)CRI:CC128I:SL(X)(C16):C1N:"SLOT "SL(C)", DRIVE "DR(C): "