' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>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 ͠٠ˠ@跻~!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 ֠z# u` 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) ((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:     ,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,426,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":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,: 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(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":3008 * 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.      &HP""@"" @ @""  ""  "%"  " @@"@@"!!""D8C" 0!0`X@8` &"@ @"!?!" 0"""`xH` F8"!" `""  15:I2015:I210ĹNDI22I132,I248:5080GNDI22I132,I255oI110ĹNDI221I132,I148:5100NDI221I132,I155I2:I1175,(175)1:176,(176)2  D1(175)256(176)512175)256(176)1II1015:I2015:I210ĹNDI22I132,I248:5080bNDI22I132,I255I110ĹNDI221I132,I148:5100NDI221I132,I155I2:I1175,(175)1:176,(176)2 D1(175)256(176)51203I1T1CO0::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(VING 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:COT0$"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 SA (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:11PACES?":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) 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 SPAIT":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::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 WALO)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 |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((LEL133 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 , 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 #8     LK`# B### m#K%m#LK8X L # 8 ei*iݩ08 0%L K` Ќ  eiȐ PICLOINCBLOSETCLC ADCBLOSETBLOCKOFFSET+1.STAPICLOLATERREDUCEDBY"BLOCKOFFSET"LDAPICHI ADC#$00STAPICHIDECBLOSETCLCBCCSHUNT1GETNEXT88SAVEHTALVERT.SOURCEPPICLO BNEHOK3INCPICHI"HOK3LDA#$08SETBYTECOUNTERSTABYTENOCLCBCCSHUNT1**GETNEXTLINE*&NEXT88LDA#$08RESETBYTECOUNTERSTABYTENO.LDAHOZBYTERESETNO.OFHORIZONTALBYTESSTAWIDTHLDAAND"LNGTHLO"BNENOENDLDASTORLOCMPLNGTHLOBNENOENDRTSPROGRAMENDSHUNT1CLCBCCBYTESNOENDLDABYTENOBNEBYTESNEXT11DECWIDTHBEQNEXT88INCPICLO-LDA#$00INCREMENTHORIZ'ALBYTEADDRESSCMTEDBITSSTAVBYTEFROMEACHBYTESTORELDAVBYTE)STA(STORLO),YSTORENEWLYMADEBYTEINCSTORLO'LDA#$00INCREMENTSTORAGEADDRESSCMPSTORLO BNEHOK2INCSTORHI!HOK2LDASTORHICHECKFOREND+CMPLNGTHHIAT"LNGTHHI"LOBITTOAVOID)uBMILASTSENDINGI&QvASLVBYTETOTHEEPSONwLASTLDASTORLO xSECAREWEINTHELASTROW?ySBCLASTLOzLDASTORHI{SBCLASTHI|BMISTOREIFNOSTOREBYTE}LDAVBYTE(~ANDMASKIFYESCLEARUNWANdFIRSTASLVBYTEeLDA(PICLO),YfCLCgROLPOPMSBINTO"VBYTE" hSTA(PICLO),YVIATHECARRYiLDAVBYTE jADC#$00kSTAVBYTElDEX mBNEBITSo*p*STOREMADEBYTEq*$sCLLOBITLDA#$06IFBITNO<7THEN$tCMPBITNOCLEAROUNTERSLDA#$00CLEAR"VBYTE" TSTAVBYTEINCLUDINGHIBITSV*W*MAKEAVERT.BYTEX* ZBITSTXA[CMPBITNO\BEQFIRST]LDAPICLO^CLC)_ADCHOZBYTE11BYTESONISNEXTBYTE`STAPICLOaLDAPICHI bADC#$00cSTAPICHIYTECOUNTERBSTABYTENOCLDY#$00ZEROPOSTINDEXE*F*NEXTHOZ.BYTEG*IBYTESDECBYTENOJLDAPICLOKSEC*LSBCBLOSETGOBACKBLOCKOFFSETBYTESMSTAPICLONLDAPICHI OSBC#$00PSTAPICHIQLDABITNORTAXSETBITCTALNGTHHI6LDALNGTHLO7SEC'8SBC#$58BEGINNINGOFTHELASTROW9STALASTLO:LDALNGTHHI ;SBC#$00<STALASTHI =LDADATA+5SETUPMASKBYTE >STAMASK.?LDAHOZBYTESETNO.OFBYTESHORIZONTALLY@STAWIDTHALDA#$08SETBETSTARTADDRESS+BLOCKOFFSET*+LDA#$20(PICLO)=$2000+BLOCKOFFSET),STAPICHILATERDECREMENTEDTO$2000 -LDA#$00.STASTORLO/CLC0ADCDATA+31STALNGTHLO'2LDA#$25SETSTORAGEADDRESS$25003STASTORHI4ADCDATA+45S,.HSC0LOWBYTESTORAGELENGTH(D.8966)!.HS02HIBYTEDITO(D.8966)-.HSF0MASKBYTETURNSOFFUNWANTEDBITS *!*INITIALIZE"*$INITLDADATA%STABITNO&LDADATA+1'STAHOZBYTE(LDADATA+2)STABLOSET/*STAPICLOSLASTLO+1LNGTHLO.EQ$4BLNGTHHI.EQLNGTHLO+1STORLO.EQ$EBSTORHI.EQSTORLO+1WIDTH.EQ$ED* STARTCLC BCCINIT*DATA.HS07BITCOUNTER(DECIMAL8963)'.HS0BBYTESHORIZONTALLY(D.8964)!.HS42BLOCKOFFSET(D.8965) *"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.EQ     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)"EA+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""400DATMAL:?"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$"THENPOKC)="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$";:NORAB5:?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$(IFPEEK(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:HTY."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"1906: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 KEALL 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,9A(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 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: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 C:"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) 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)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     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$:BTKLT1020" L:"COPY DONE":W '(4)"BLOAD RWTS.PSAT WORD ATTACK SKILLS,A$1900"$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  TKLT1020! L:"COPY DONE":F '(4)"BLOAD RWTS.ALGEBRA,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 B ("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$::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$):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$""::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(33157DIT 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 T 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) EGOLD/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 OU16384)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/ 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 ,(RRENT "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)) 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$"CU ! "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     . 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 9,200,180,16,3,104,208,7,104,208,6,234,169,35,41,63 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,18  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): "