2IMGCdrP@B@0' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `BB`>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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./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#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!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`   *LDcpq` [` ~  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õ`  \ 濭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-( `B @跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` d¶РBz# Bu`p?~p?~~sgp|~ U*U*U*U*U*U*U*U*U*U*U*UpP*U*U*U*U `psgsgGqsg3ds~sg@~``sg|~xsg?~?ss`@*U*U*U*U*U*U*U*U*U*U*px;~c?~c?~ssgc|Ъժժժժժժժժժժժp?~xsg?~sg?x`xժժժժ~p~`sgx`s`sssgxxx`x?~@?~sx`@sgss~`?~?rs`P*U*U*U*U*U*U*U*U*U*U*pxsgx@`sgx|~g?~g?~ssgg~@ժժժժժժժժժժժx|psg|sgp`p(U*U*U*U*|x`sgx`sacssg`pp`p|@?|sp`sgss3|`?~?psgժժժժժժժժժժ`psgp@`ccp|~sg?~sg?~ssgsg@(U*U*U*U*U*U*U*U*U*U*U*@|xxscsgxsgcssc(U*U*U*U*x@sgsg|sgscGgssg@ccscsscx?~?xscc`~sgsssxsg?~?>psg(U*U*U*U*U*U*U*U*U*U*U;`ccsgcc?~sCacc|~cc?~cc?~ssgccp*U*U*U*U*U*U*U*U*U*U*U*`x|GqsgsgGqcgGgssgԪժժժՊp~sgsc|sgsgcssc@~sgsgssgGq?~?pssg`~ccsssqsg?~?~pcg U*U*U*U*U*U*U*U*U*U*U@sgccsg?~s`sg|~p?~p?~`sgpxժժժժժժժժժժժ`p~ccsgccccCgcssgԪժժժՂp|sgp?~sgsgp`pp|sgsgssgcc?~?pss@|ps`scsg?~?~q`ժժժժժժժժժժ+@sGqs?~sdsx~x?~x?~`sgx~U*U*U*U*U*U*U*U*U*U*U*Up`sgsgccsggsssg`psgx?~sgsg?x`x|xsgscsscsg?~?bss@|xs`sgsg?~?~s`Ъժժժժժժժժժժ;cxc?~s3fcx~~U*U*U*U*U*U*U*U*U*U*U*UpP*U*U*U*U@@sgsgGqsgfs~sg@psgp~psg?~?Fssxp;x|x?~~sgxxŭӠӠҠΠ٠Π̮ԠԠ٠ĠǠӠ̠ӠĠBz#     ŠӠ  ˠҠˠ٠ŠàӠ ԠàӠ ԠРŠԠ  ! ˠ!Π!Ԡˠˠ ̠Ӡ ˠР  Ġ٠ ҠӠ " " ŠӠ " Ԡ " Ӡ " "ŠӠ! ŠŭӠӠҠΠ٠Π̮ԠԠ٠ĠǠӠ̠ӠĠ0 R340LE AIDS,D1". ER(222):EL(218)(219)2568%A$""V*ER6A$"FILE NOT FOUND"z/ER4A$"DISK WRITE PROTECTED"4ER8A$"I/O ERROR"9ER9A$"DISK FULL">ER13A$"IMPROPER FILE TYPE"H:(7);"** ERR -> ";A$;(7):MEL45052R60R6R61R710$R7R7R65N(T)N(T)R7FP1P1(ER6)U(P1)0ı^660P:JR601=0R7(P1(EJ)):R7$(R7):R79R7$(R755)d:N$(3)N$(3)R7$:P1P1(R7(EJ)):mD590sNX"BINARY: ";N$(1)b"OCTAL: ";N$(2)l"DECIMAL: ";Pv"HEX: ";N$(3)N(1)0:N(2)0:N(3)0160R6((P1)(E)) ((N$(2),J,1)):T1:P10A$"0":4808 660:A$(N(T))L A$("00"A$,3)h N$(T)N$(T)A$:N(T)0: B$"H"N$(3)N$:590 R60:P1P:E16:N$(3)"":P2P1 P2(ER6)550 R6R61:R7(P1(ER6)):R7E530 P2P1(R7(ER6)):520 &P1 hP110P115B$"Q":3408 rB$"O"P17B$"Q":340U |B$"B"P11B$"Q":340l PP(P1(E(LX)))r  B$"O"N$(2)N$:460 E8:P1P:T2:P10440 660 N$(T)(N(T)) B$"B"N$(1)N$:500$ N$(1)"":J1(N$(2)):E2:P1160 (N$)2160$ N$(N$,2)8 E2:B$"O"E8I B$"D"E10Z B$"H"E16j "P0:L(N$)x ,XL11 6P$(N$,X,1) @P1(P$) J(P$)47(P$)58370 TB$"H"ĺ:"INVALID CHARACTER....REENTER NUMBER":160 ^P1(P$)55 :"(B,O,D,H) NUMBER: ";N$4 N$"QUIT"230> 200X "RUN APPLE AIDS,D1" :"PLEASE INSERT YOUR APPLE AIDS DISK IN DRIVE ONE THEN PRESS ...."; CH$:CH$(13)210 :190 B$(N$,1):B$"B"B$"O"B$"D"B$"H"UMBER FROM BINARY, OCTAL, DECIMAL OR HEXADECIMAL" "TO BINARY, OCTAL, DECIMAL & HEXADECIMAL.JUST ENTER B,O,D, OR H AND THEN THE NUMBER. FOR EXAMPLE, DECIMAL 123 WOULD BE ENTERED AS 'D123'." :"ENTER 'QUIT' AS THE NUMBER TO END THIS PROGRAM."_ 640 * BASE CONVERT0H( WRITTEN BYb2 ALLEN L. WYATTh<F COPYRIGHT 1981P AOSZ ALL RIGHTS RESERVED.dnx14);"BASE CONVERT"::1 "THIS PROGRAM WILL CONVERT A N      250 280g :8:"PLEASE INSERT YOUR APPLE AIDS DISK IN DRIVE ONE THEN PRESS ..."; CH$:CH$(13)260  "RUN APPLE AIDS,D1"H$):CH1CH7120 CH$) CH192CHE 876,CH:893,CH:903,CHY (828)72190b 806 :"YOU MAY DUMP ANY TEXT AT ANY TIME BY SIMPLY PRESSING 'CTRL-P'.":: 10:1:"PRESS 'RETURN' TO CONTINUE...."; CH$:CH$(13)210  110 ( TEXT DUMP.F( WRITTEN BY`2 ALLEN L. WYATTf<F COPYRIGHT 1981P AOSZ ALL RIGHTS RESERVED.dn:15);"TEXT DUMP"::x"PRINTER SLOT (1-7): "; CH$:CH(CE MOMENT !" ]D$;"UNLOCK";FI$GbD$;"DELETE";FI$:OP$;FI$:WR$;FI$RlJ1QdvI$(J)""650oI$(J)u~CL$34,0::8:"INSERT THE PROGRAM DISK IN DRIVE ONE THEN PRESS RETURN.....";I$:I$(13)680I$ :"RUN APP:I$(J):I:"LINE NUMBER TO EDIT (1-";Q1;"): ";:UL4:140:CH(I$)\&I$"QUIT"600q0CH1CHQ1540:CHQ1Ğ:"NEW LINE:":QQ1D::CH;::I$(CH)::"TO WHAT: ";:UL255:140:I$(CH)I$N510 X:8:"WRITING CORRECTED FILE - OND";DR" OP$;FI$;",S";SL;",D";DR, 500^ :8:"READING IN FILE - ONE MOMENT PLEASE !"v Q0:UL255:RD$;FI$ 10:16:"LINE: ";Q1:140:QQ1:I$(Q)I$:490 CL$ 800  "PRESS CTRL-S TO STOP/START OUTPUT": J1Q::J;:670 hFI$I$:2 r"SLOT (DEFAULT=";SL;"): ";V |SL$:S1(SL$):SL$(13)S1SLi S11S17380w SLS1:SL :"DRIVE (DEFAULT=";DR;"): "; DR$:D1(DR$):DR$(13)D1DR D11D12420 DRD1:DR D$;"UNLOCK";FI$;",S";SL;",ILE THAT HAS UP TO 255 LINES OF TEXT.": @"ENTER 'QUIT' AS THE LINE NUMBER IN ORDERTO QUIT PROGRAM. THE CORRECTED FILE WILL THEN BE SAVED TO DISK.": T"WHAT IS THE NAME OF THE FILE TO BE EDIT-ED: ";:UL29:140 ^I$""680 cI$"QUIT");:II1:160" IULĺ"";:160. A$(I);= II1:160` :I$"":J80I:I$I$A$(J8):t I$(13)I$""z " ,:13);"EDIT EXEC FILES"::, 6"THIS PROGRAM WILL ALLOW YOU TO EDIT A CURRENTLY EXISTING EXEC FILE. THIS WILLWORK ON ANY FD":CL$D$"CLOSE" xSL6:DR1( 3002 868: I0G I0I0R A$(I)m A$(I)(3)ĺ"";:170 A$(I)(21)ĺ"";:170 A$(I)(24)ĺ"";:170 A$(I)(13)II1:270 A$(I)(8)I0ĺ"";:160 A$(I)(8)ĺA$(I);" ";A$(I 800 + EDIT EXEC FILES1I( WRITTEN BYc2 ALLEN L. WYATTi<F COPYRIGHT 1981P AOSZ ALL RIGHTS RESERVED.d nA$(255),I$(255):D$(4):OP$D$"OPEN":WR$D$"WRITE":RD$D$"REA   "RUN APPLE AIDS,D1"7XER(222):EL(218)(219)256AbA$""`gER4A$"WRITE PROTECTED"ylER8A$"I/O ERROR"qER9A$"DISK FULL"vER13A$"IMPROPER FILE TYPE":(7);"** ERR -> ";A$;(7):EL450510350DD12420 DRD1:DR3 OP$;FI$;",S";SL;",D";DRK :"!";:UL255:140^ I$"QUIT"510s WR$;FI$:I$:D$| 470 :CL$ 34,0::8:"INSERT THE PROGRAM DISK IN DRIVE ONE THEN PRESS RETURN....."; I$:I$(13)530 I$&:":"(29 CHARACTERS MAXIMUM)":UL29:1404 hFI$I$:G mI$"QUIT"520h r"SLOT (DEFAULT=";SL;"): "; |SL$:S1(SL$):SL$(13)S1SL S11S17380 SLS1:SL :"DRIVE (DEFAULT=";DR;"): "; DR$:D1(DR$):DR$(13)D1DR D11ROMPT. JUST ENTER WHAT YOU WANT TO BE IN THE FILE JUST AS YOU WOULD AT BASIC COMMAND LEVEL.": J"WHEN YOU ARE THROUGH ENTERING ITEMS INTOTHE FILE, SIMPLY ENTER 'QUIT' AS YOUR ONLY COMMAND ON THAT LINE.":' ^"WHAT NAME FOR THIS NEW EXEC FILEULĺ"";:160 A$(I);) II1:160L :I$"":J80I:I$I$A$(J8):` I$(13)I$""f " ,:12);"CREATE EXEC FILES":: 6"THIS PROGRAM WILL ALLOW YOU TO CREATE EXEC FILES SIMPLY AND ACCURATELY.":e @"YOU WILL BE GIVEN '!' AS A PxSL6:DR1 300 868& I03 I0I0> A$(I)Y A$(I)(3)ĺ"";:170u A$(I)(21)ĺ"";:170 A$(I)(24)ĺ"";:170 A$(I)(13)II1:270 A$(I)(8)I0ĺ"";:160 A$(I)(8)ĺA$(I);" ";A$(I);:II1:160 I 600 - CREATE EXEC FILES 3K( WRITTEN BYe2 ALLEN L. WYATTk<F COPYRIGHT 1981P AOSZ ALL RIGHTS RESERVED.dnA$(255):D$(4):OP$D$"OPEN":WR$D$"WRITE":CL$D$"CLOSE"   :(BL12),1:768$(970)010305VO(DB6):J@D1D2S1S2ı[J12:1:868T14:1:"INSERT THE ";A$;" IN DRIVE ";A;" THEN":"PRESS RETURN....";^1130h14:1:958: ";EC:A$%VA$"":(BL13),0:970,0.`920<j16368,0DtI$~I$(27)ġ::12:1:958:"COPY ABORTED ON TRACK ";J::920I$(13)1140:(BL15),(BL1):(BL16),(BL2):(BL1),S116:(BL2),D1:(BL3),0:(BL4),17:(BL5),0I$"RUN APPLE AIDS,D1"2EC(BL13)16SEC.5A$"INIT ERROR":EC16vEC1A$"WRITE PROTECT ERROR"$EC8A$"READ ERROR".EC2A$"VOLUME MISMATCH ERROR"8EC4A$"DRIVE ERROR"BA$A$": PLEASE RETRY" L16:"ERROR CODEA155Ģ12:1:868914:1:"ANOTHER COPY (Y/N): ";VI$:I$"N"I$"Y"930jI$:I$"N"960{34,0::260DB99034,0::8:"INSERT THE PROGRAM DISK IN DRIVE ONE THEN PRESS RETURN.....";I$:I$(13)1000D1:(BL1),S216:(BL2),D2:(BL12),22>K015\H(BL8),DL(K):(BL9),DH(K):(BL5),KeR768y\(970)01030fp10:(J4):"*"zA(16384):A127Ĺ16368,0:A155Ģ12:1:868:"COPY ABORTED AFTER WRITING TRACK ";J:J34J12:9::"READING"::12:25:"WRITING"3K015S(BL8),DL(K):(BL9),DH(K)a(BL5),Kj768~(970)0103010:(J4):"-"A$"DUPLICATE":AD2:1600*12:9:"READING":12:25::"WRITING":&4(BL15),S116:(BL16),TRACK COPIED.":5:7);"PRESS TO ABORT COPY"c&9:" 0.........1.........2.........3...."o0J034|1J0650:A$"MASTER":AD1:1600(BL15),S216:(BL16),D2(BL1),S116:(BL2),D1(BL4),J:(BL12),1(BL3),0'RESS RETURN....."; 1130) 1500:G A$"DUPLICATE":AD2:1600m 8:10::"FORMATTING DISKETTE":| (BL3),VO (BL1),S216:(BL2),D2:(BL12),4:768 (970)01030  A$"MASTER":AD1:160027:"EACH '*' REPRESENTS ONE D2 DR1DR2410# D2DR:D2\ ::" ORIGINAL:";::" SLOT ";S1;" DRIVE ";D1 :"DUPLICATE:";::" SLOT ";S2;" DRIVE ";D2 15::34,3:: A$"MASTER":AD1:1600:D1D2S1S2490 ::"INSERT THE PROPER DISKETTES THEN P(13)DRD1 JDR1DR2320- TD1DR:D1A ^D23D1:S2S1:l h"DUPLICATE SLOT (DEFAULT=";S2;"): "; rSL$:SL(SL$):SL$(13)SLS2 |SL1SL7370 S2SL:S2 :" DRIVE (DEFAULT=";D2;"): "; DR$:DR(DR$):DR$(13)DRS1(BL1)16:D1(BL2):(BL15),S116:(BL16),D1:(BL3),254K ::v " ORIGINAL SLOT (DEFAULT=";S1;"): "; SL$:SL(SL$):SL$(13)SLS1 "SL1SL7280 ,S1SL:SL 6:" DRIVE (DEFAULT=";D1;"): "; @DR$:DR(DR$):DR$960 DH(15),DL(15)% K015N DH(K)(DL256):DL(K)DL(DH(K)256)\ DLDL256b h 16);"DISK COPY":: "THIS PROGRAM WILL COPY A NORMALLY FOR- MATTED DISKETTE TRACK BY TRACK. EITHER ONE OR TWO DRIVES MAY BE SPECIFIED."A 120 ( DISK COPY.F( WRITTEN BY`2 ALLEN L. WYATTf<F COPYRIGHT 1981P AOSZ ALL RIGHTS RESERVED.dnxBL(769)256(771)DBBL8680DLDB4096DL      99:!BB,0:EB,255:PB,PS:CD>1:26:"PRESS ANY KEY";N CH$:CH$:` MO$"A"1100r MO$"H"1980|$ 1140. ::02)602240ER7:1510922:1:868:"DRIVE: ";\DR$:DR(DR$):DR1DR22250eDR$(BL1),SL16:(BL2),DR:1440:330:1:1::"S";::(BL1)16;" ";::"D";::(BL2);" TRK: ";:973,(BL4):799:" SEC: ";:973,(BL5):734,2:8:1:35,19:RAWDBF\972,AW256:971,AW(972)256:783mfAW(58)(59)256:AWDB2562140vpFH1z34,0:35,24:33022:1:868:"SLOT: ";SL$:SL(SL$):SL1SL7ER7:1510SL$L0SL25649157 (L0)3(L0 1520FHFH0:/MO$"H":1440:3EBB,B1:EB,B2:HDN330^PS02090o23:1:868"PRINTER SLOT: ";PS$:PS(PS$):PS1PS7PS0:ER4:1510 PS$"PR#";PS 330*PS0:"PR#0"41380>330HBB,B1:EB,B2DMO$"A"ČAD/NMO$"D"ČDD@XMO$"H"ČHDFbYlEC(BL13)16|vEC1A$"WRITE PROTECT ERROR"EC8A$"READ ERROR"EC2A$"VOLUME MISMATCH ERROR"EC4A$"DRIVE ERROR"A$(EC)": "A$(BL13),0:970,","C = SHOW CONDENSED HEX/ASCII SCREEN"R"I = DISASSEMBLE CURRENT SECTOR"s"P = TOGGLE PRINTER ON/OFF""* = RESET SLOT/DRIVE PARAMATERS""? = SHOW THIS HELP SECTION OF PROGRAM"&"X = EXIT PROGRAM TO MAIN MENU"0340 :3:1:" F: FILL DESIRED BYTE RANGE"M"+ = INCREMENT ONE SECTOR AND LOAD"v"- = DECREMENT ONE SECTOR AND LOAD""S = SWITCH DISPLAY PAGE""A = SHOW ALL OUTPUT IN ASCII""D = SHOW ALL OUTPUT IN DECIMAL""H = SHOW ALL OUTPUT IN HEX)h"W = WRITE SECTOR IN BUFFER TO DISK"Jr"E = EDIT SECTOR IN BUFFER"e|" EDIT TYPES ARE:"" D: ONE BYTE DECIMAL CHANGE"" H: ONE BYTE HEX CHANGE"" A: STRING ASCII CHANGE"" E: STRING ASCII CHANGE, HIGH BIT ON"$- COMMAND ABORTED":1850:L"A$"NO SECTOR IN BUFFER - IMPROPER COMMAND":n,A$""::FH0:MO$"A"ġ:11006MO$"H"ġ:1980@:1140JA$"INVALID SLOT ("(SL)") - PLEASE REENTER":T:1:FH1^"L = LOAD SECTOR FROM DISK INTO BUFFER"0ER1530,1540,1550,1560,1570,1580,1610J23:1:868:A$:340~A$"EDIT MODE ABORTED - NO CHANGE MADE":1850:A$"IMPROPER EDIT TYPE - EDIT MODE ABORTED":1850:A$"IMPROPER COMMAND - PLEASE REENTER":A$"VALUE OUT OF BOUNDS xMO$"H"ġ:19801440;3:1:BB,B1:EB,B2:DDA1:1:868:"SLOT: ";(BL1)16;" DRIVE: ";(BL2);" TRACK: ";MO$"H"Ĺ973,(BL4):799:1470(BL4);" SECTOR: ";MO$"H"Ĺ973,(BL5):799:1500(BL5)90TK(TK$)% TK0TK341230Z22:1:868:"SECTOR (0-";:MO$"H"ĺ"F";:1320e"15";u("): ";SK$2SK$""ER4::1510<MO$"H"HE$SK$:240:SKH:1360FSK(SK$)PSK0SK151300ZdFHFH0:nMO$"A"ġ:1100EASE INSERT YOUR APPLE AIDS DISK IN DRIVE ONE AND THEN PRESS ...";fCH$:CH$(13)1210t::119022:1:868:"TRACK (0-";:MO$"H"ĺ"22";:1250"34";"): ";TK$TK$""ER4::1510MO$"H"HE$TK$:240:TKH:1212),1FL0:FHė:FHFL#460>$B1B1128:B1128B10L.B2B1127V81380_B330nLFHFH8:VMO$"A":1440:3`BB,B1:EB,B2:ADj330tMO$"D"~1380340::384001200"RUN APPLE AIDS"L:8:"PL(CH$,J,1))!TY$"E"CHCH1285(DBBYJ1),CHF:1380:330V(DBBY),CH`1850i340SKSK1:SK15SK0:TKTK1TK34TK0(BL12),1FL0:FHė:FHFL460SKSK1:SK0SK15:TKTK1TK0TK34(BLCH$""ER1:1510<>TY$"F"FT$"H"HE$CH$:240:CH$(H)gHTY$"H"HE$CH$:240:TY$"D":CH$(H)RTY$"F"TY$"D"CH((CH$)):CH0CH255ER4:1510\TY$"F"āJ(DBBY)(DBBE):J,CH::1380:330fTY$"D"930pJ1(CH$) zCH(Y$"F"810222:1:868:"ENDING BYTE: ";EB$VMO$"H"HE$EB$:240:BEH:780dBE(EB$) BEBYBE255ER4:151022:1:868:"FILL TYPE (D,H): "; FT$:FT$"D"FT$"H"ER2:1510*22:1:868:"CHANGE TO WHAT: ";CH$4(R32)(R127R160)RR64+" ";(R)NMO$"D"ĺ(SP$((DBBY)),4)uMO$"H"ĺ" ";:973,(DBBY):799{22:1:868:"TYPE OF CHANGE (D,H,A,E,F): ";TY$:TY$TY$"D"TY$"E"TY$"A"TY$"F"TY$"H"ER2:1510 TMO$"H"ĺ"FF";:560 &"255";/ 0"): ";BY$F :BY$""ER1:1510j DMO$"H"HE$BY$:240:BYH:600x NBY(BY$) XBYB1BYB2ER4:1510 bQ(BY8)3 lQ1BY(Q3)8:Q18QQ16 vQ1Q146 Q:Q1: MO$"A"680R(DBBY):0,1980,1620,1170,2020,2120,2180,22803 (BL12),1= 1230L FL0:FHėV FHFLp (BL4),TK:(BL5),SK 768:(970)01900 CH$"W"330 23:1:868 1380 330 (BL12),2 430 22:1:868:"BYTE TO CHANGE (0-";:":# T22:1:868:"COMMAND: ";D ^CH$:X1NC:CH$NC$(X)370U h:ER3:1510c rCH$:COXt |23:1:868 FL1ĭCO2CO3CO6CO7CO8CO9CO13CO15ER5:1510 FH1ĭCO3CO13ER6:1510$ CO420,520,540,960,1010,1060,1100,114""ER1::1510 JK11^ H1((HE$,J,1)):H10((HE$,J,1))48H1((HE$,J,1))55{ H10H115ER4::1510 "HH(H1(E(KJ))) ,: 6:FL1:MO$"D" @1440 J:20:1:868:3::">";::" L,W,E,+,-,S,A,D,H,C,I,P,*,?,X ";::"<(771) DBBL8680" (BL3),0: XDBDB255:X,0:{ BB37888:EBBB2:PBEB1:HD37904:AD37978:DD38038:CD38098 L,W,E,+,-,S,A,D,H,?,X,P,I,*,C NC15:NC$(NC) X1NC:NC$(X): B10:B2127 310 H0:K(HE$):E16 HE$Ї 2350 * DISK EDITOR0H( WRITTEN BYb2 ALLEN L. WYATTh<F COPYRIGHT 1981P AOSZ ALL RIGHTS RESERVED.dn37888x"BLOAD SCREEN,D1"SP$" " BL(769)256       EC1A$"WRITE PROTECT ERROR"7>EC8A$"READ ERROR"\HEC2A$"VOLUME MISMATCH ERROR"wREC4A$"DRIVE ERROR"\14:1:958f16:"ERROR CODE ";EC:A$pA$"":(BL13),0:970,0z750N10N20760'(BL4),N1:(BL5),N20370p:"PLEASE INSERT YOUR APPLE AIDS DISK IN DRIVE ONE.....":"ANOTHER DISK (Y/N): ";CH$:CH$"Y"CH$"N"770 CH$CH$"N"200 :"RUN APPLE AIDS,D1"*EC(BL13)164Y,2)7Y1Y11:A%(Y,2)A%(Y,2)8GY2(DBY1)(2A%(Y,2)):Y20Y20W(DBY1),Y2^Y}(BL12),2:768:(BL12),1C122A%(0,1)0A%(0,2)0Ĺ(BL4),A%(0,1):(BL5),A%(0,2):510(BL4),O1:(BL5),O2768:(970)0810X (BL4):A%(0,2)(BL5)C04Y122542:CC1N&J(DBY):K(DBY1)f0J0K0Y254:580~:A%(C,1)J:A%(C,2)KDYNA%(C,1)(BL4):A%(C,2)(BL5)X(BL4),17:(BL5),0:768b(970)0810lY1C vY157(A%(Y,1)4):A%( (CH$,1)"N"710+ (CH$,1)"Y"430i (DB11(X1)35),(DB43(X1)35):(DB43(X1)35),160 (BL12),2:768:(BL12),1 O1(BL4):O2(BL5) (BL4),(DB11(X1)35):(BL5),(DB12(X1)35) 768:(970)0810A%(0,1)68:(970)0810+ |N1(DB1):N2(DB2)6 X17b (DB15(X1)35)0N10:N20:X7:710 (DB11(X1)35)255710 AW$"":K129:AW$AW$((DB13K(X1)35)): ::"FILE: ";AW$::"UNDELETE FILE (Y/N): ";CH$ (CH$)1430(DR$) DR1DR2270" "DRR ,:"PRESS 'RETURN' WHEN READY TO BEGIN...";k 6CH$:CH$(13)310q @ J(BL1),SL16:(BL2),DR:(BL3),VN:(BL4),17:(BL5),0 T(BL12),1:768 ^(970)0810 h(BL4),(DB1):(BL5),(DB2) r7E SPACE PREVIOUSLY OCCUPIED BY THE FILE."1 :i SL(BL1)16:DR(BL2):(BL15),SL16:(BL16),DR "SLOT (DEFAULT=";SL;"): "; SL$:SL$(13)SL(SL$) SL1SL7230 SL :"DRIVE (DEFAULT=";DR;"): "; DR$:DR$(13)DRL9),(DB256):(BL8),DB(BL9)256= XDBDB255:X,0:\ 13);"UNDELETE FILES":: "THIS PROGRAM WILL REACTIVATE ANY FILES IN THE DIRECTORY THAT SHOW DELETED.") :"THIS WILL ONLY BE MEANINGFUL IF THERE HAS BEEN NOTHING WRITTEN INTO TH 750 , UNDELETE FILES 2J( WRITTEN BYd2 ALLEN L. WYATTj<F COPYRIGHT 1981P AOSZ ALL RIGHTS RESERVED.dnxA%(125,2)BL(769)256(771)DBBL8680% (B   OR"EC8A$"READ ERROR"B EC2A$"VOLUME MISMATCH ERROR"]EC4A$"DRIVE ERROR"k 15:958*16:"ERROR CODE ";EC:A$4A$"":(BL13),0:970,0>630),N1:(BL5),N2370Y:"PLEASE INSERT YOUR APPLE AIDS DISK IN DRIVE ONE......"y:"ANOTHER DISK (Y/N): ";CH$:CH$"Y"CH$"N"710CH$CH$"N"200:"RUN APPLE AIDS"EC(BL13)16EC1A$"WRITE PROTECT ERR"(";J;"-";K;")";0/:J(DB1):K(DB2)WDJ0K0Ĺ(BL4),J:(BL5),K:510]NX(BL4),O1:(BL5),O2:768:(970)0750blXv:"PRESS 'RETURN' TO CONTINUE....";CH$:CH$(13)640:N10N20700(BL4:590 N13N32% N27NN646 N$N$(N):G "FILE: ";N$ (BL4),(DB11(X1)35):(BL5),(DB12(X1)35) 768:(970)0750 :"(";(BL4);"-";(BL5);")";: Y122542:J(DBY):K(DBY1) J0K0Y254:560&:768 ^(970)0750< h(BL4),(DB1):(BL5),(DB2)T r768:(970)0750Z |t N1(DB1):N2(DB2) X17 O1(BL4):O2(BL5) N$"" (DB11(X1)35)255620 Y129:N(DB13Y(X1)35) N0Y30:X7:N10:N20 SL+ :"DRIVE (DEFAULT=";DR;"): ";J DR$:DR$(13)DR(DR$)] DR1DR2270e "DR ,:"PRESS 'RETURN' WHEN READY TO BEGIN..."; 6CH$:CH$(13)310 @ J(BL1),SL16:(BL2),DR:(BL3),VN:(BL4),17:(BL5),0 T(BL12),1OWN IN THE NOTATION (TT-SS), WITH THE TRACK AND SECTOR OF THE TRACK/SECTOR LIST SHOWN ININVERSE PRINT."t : SL(BL1)16:DR(BL2):(BL15),SL16:(BL16),DR "SLOT (DEFAULT=";SL;"): "; SL$:SL$(13)SL(SL$) SL1SL723056(771) DBBL8680E (BL9),(DB256):(BL8),DB(BL9)256] XDBDB255:X,0:} 12);"SECTOR LISTINGS":: "THIS PROGRAM WILL ALLOW YOU TO SEE THE SECTORS USED BY THE FILES CONTAINED ON A DISK."l :"THE TRACK AND SECTOR ARE SH 690 + SECTOR LISTINGS1I( WRITTEN BYc2 ALLEN L. WYATTi<F COPYRIGHT 1981P AOSZ ALL RIGHTS RESERVED.dnxTY$(0)"T":TY$(1)"I":TY$(2)"A":TY$(4)"B" BL(769)2     "WRITE PROTECT ERROR"04EC8A$"READ ERROR"U>EC2A$"VOLUME MISMATCH ERROR"pHEC4A$"DRIVE ERROR"~R15:958\16:"ERROR CODE ";EC:A$fA$"":(BL13),0:970,0p7400750 (BL4),N1:(BL5),N2)400l:"PLEASE INSERT YOUR APPLE AIDS DISK IN DRIVE ONE......"::"ANOTHER DISK (Y/N): ";CH$:CH$"Y"CH$"N"760CH$ CH$"N"230:"RUN APPLE AIDS" EC(BL13)16*EC1A$(DB2) b(BL4),O1:(BL5),O28l768:(970)0800ev"NAME: ";N$;" TYPE: ";T$;" CODE: ";C$vT$"B"660" START: ";SA;" LEN: ";LEX:"PRESS 'RETURN' TO CONTINUE....";CH$:CH$(13)690:N10N211(X1)35)255C$"$":630.T$"B"630H&O1(BL4):O2(BL5)0(BL4),(DB11(X1)35):(BL5),(DB12(X1)35):768:(970)0800D(BL4),(DB12):(BL5),(DB13):768:(970)0800NSA(DB1)256(DB)XLE(DB3)256LOCKED $ = DELETED":& X17F C$"":T$"":N$"":SA0:LE0h Y110:N(DB13Y(X1)35) N0Y11:X7:N10:N20:660 N13N32 N27NN64 N$N$(N): T(DB13(X1)35):T127TT128:C$"*" T$TY$(T)(DB1),SL16:(BL2),DR:(BL3),VN:(BL4),17:(BL5),0H r(BL12),1:768[ |(970)0800 (BL4),(DB1):(BL5),(DB2) 768:(970)0800 :"DISK DIRECTORY - TRK: ";(BL4);" SECT: ";(BL5) N1(DB1):N2(DB2) "CODES: *=ULT=";SL;"): ";/ SL$:SL$(13)SL(SL$)B SL1SL7260J SLn ":"DRIVE (DEFAULT=";DR;"): "; ,DR$:DR$(13)DR(DR$) 6DR1DR2300 @DR J:"PRESS 'RETURN' WHEN READY TO BEGIN..."; TCH$:CH$(13)340 ^4 h(BL TO SEE A BETTER DIRECTORY THAN THE ONE CURRENTLY OFFERED BY DOS.": "IF A FILE NAME IS OVER 10 CHARACTERS LONG, IT WILL BE TRUNCATED WITH THE TENTH CHARACTER." : SL(BL1)16:DR(BL2):(BL15),SL16:(BL16),DR "SLOT (DEFA)"I":TY$(2)"A":TY$(4)"B"N TY$(8)"S":TY$(16)"R":TY$(32)"A":TY$(64)"B"g BL(769)256(771)v DBBL8680 (BL9),(DB256):(BL8),DB(BL9)256 XDBDB255:X,0: 11);"IMPROVED DIRECTORY"::G "THIS PROGRAM WILL ALLOW YOU 740 . IMPROVED DIRECTORY 4L( WRITTEN BYf2 ALLEN L. WYATTl<F COPYRIGHT 1981P AOSZ ALL RIGHTS RESERVED.dnxTY$(127)J3127:TY$(J)"?": TY$(0)"T":TY$(1  \14:958,f16:"ERROR CODE ";EC:A$HpA$"":(BL13),0:970,0Qz650 L$L$"0"&L(DB57T4)1X07VLE(X)LLE(X):L$L$"1":790d L$L$"0"jp *EC(BL13)164EC1A$"WRITE PROTECT ERROR">EC8A$"READ ERROR"HEC2A$"VOLUME MISMATCH ERROR"REC4A$"DRIVE ERROR":8:"PLEASE INSERT YOUR APPLE AIDS DISK IN DRIVE ONE......"d23:"ANOTHER DISK (Y/N): ";CH$:CH$"Y"CH$"N"670CH$:CH$"Y"170:"RUN APPLE AIDS,D1"L$"":L(DB56T4)X07LE(X)LLE(X):L$L$"1":740),Y,1)"0"560 "*";% TUTU1. &570@ 0" ";:TNTN1F :L Dc N34,0:32,0:33,40k X20 b"--------------------------------------" l"SECTORS USED: ";TU;22);"UNUSED: ";TN v22:"DISKETTE VOLUME NUMBER: ";(BL14) 660BCKS ---->"8 " 01234567890123456789012345678901234"f "--------------------------------------"p 33,2 " 0 1 2S3E4C5T6O7R8S9 0 1 2 3 4 5" 33,40 8:10 33,35:32,3:34,3  TU0:TN0 Y1611 X034 (T$(X( ,:"PRESS 'RETURN' TO CONTINUE...";? 6I$:I$(13)310E @ J(BL1),SL16:(BL2),DR:(BL3),0:(BL4),17:(BL5),0:(BL12),1 T768 ^(970)0810 h r12:16::"MAPPING": |T034:700:T$(T)L$:  11);"<---- TRA(BL1)16:DR(BL2):(BL15),SL16:(BL16),DRR "SLOT (DEFAULT=";SL;"): ";v SL$:S1(SL$):SL$(13)S1SL S11S17230 SLS1:SL :"DRIVE (DEFAULT=";DR;"): "; DR$:D1(DR$):DR$(13)D1DR D11D12270 "DRD1:DRX701:E(7X)2X:$ T$(34)* C 16);"DISK MAP":: "THIS PROGRAM WILL SHOW YOU A GRAPHIC CHART OF WHICH SECTORS ARE IN USE ON ANY NORMALLY FORMATTED DISK.": "ON THE MAP, AN ASTERISK (*) DENOTES A SECTOR IN USE.":1 SLR 650 ( DISK MAP.F( WRITTEN BY`2 ALLEN L. WYATTf<F COPYRIGHT 1981P AOSZ ALL RIGHTS RESERVED.dnxBL(769)256(771)DBBL8680XDBDB255:X,0:        16% EC1A$"WRITE PROTECT ERROR"? EC8A$"READ ERROR"d EC2A$"VOLUME MISMATCH ERROR" EC4A$"DRIVE ERROR" 16:"ERROR CODE ";EC:A$ &A$"":(BL13),0:970,0 0440dBL9),149:(BL5),1:7682 (BL8),DL:(BL9),DH; 450~ :"PLEASE INSERT THE APPLE AIDS DISK IN DRIVE ONE......": :"ANOTHER DISK (Y/N): "; CH$:CH$"Y"CH$"N"460 CH$:CH$"N"140 "RUN APPLE AIDS,D1" EC(BL13)R:(BL3),0:(BL4),17:(BL5),0:(BL12),14 6768G @(970)0490V J(BL12),2k TXDB56DB644 ^X,255:X1,255 h r768 |(970)0490 DL(BL8):DH(BL9):(BL8),0:(BL9),148 (BL12),2:(BL4),0:(BL5),0:768 (SL$:SL$(13)SL(SL$)/ SL1SL72007 SL[ :"DRIVE (DEFAULT=";DR;"): ";z DR$:DR$(13)DR(DR$) DR1DR2240 DR :"PRESS 'RETURN' WHEN READY TO BEGIN..."; CH$:CH$(13)280 "+ ,(BL1),SL16:(BL2),D 16);"KILL DOS":: "THIS PROGRAM WILL REMOVE DOS FROM ANY NORMALLY FORMATTED DISKETTE, THEREBY FREEING 32 SECTORS FOR DATA OR PROGRAM USAGE.": SL(BL1)16:DR(BL2):(BL15),SL40:(BL16),DR "SLOT (DEFAULT=";SL;"): ";  440 ( KILL DOS.F( WRITTEN BY`2 ALLEN L. WYATTf<F COPYRIGHT 1981P AOSZ ALL RIGHTS RESERVED.dnxBL(769)256(771)DBBL8680XDBDB255:X,0:    D ERROR"-EC2A$"VOLUME MISMATCH ERROR"HEC4A$"DRIVE ERROR"Y14:1:958w16:"ERROR CODE ";EC:A$A$"":(BL13),0:970,0540540AIDS DISK IN DRIVE ONE"::222,0@&:"ANOTHER DISK (Y/N): ";`0CH$:CH$"Y"CH$"N"560i:CH${DCH$"N"190N:"RUN APPLE AIDS,D1"XEC(BL13)16bEC.5A$"INIT ERROR":EC16lEC1A$"WRITE PROTECT ERROR"vEC8A$"REA12),2:768 (970)0600$ L (BL4),0:(BL5),1:(BL12),1:768| DL(BL8):DH(BL9):(BL8),0:(BL9),148 (BL12),2:(BL4),0:(BL5),0:768 (BL9),149:(BL5),1:768 (BL8),DL:(BL9),DH 550 :"INSERT THE APPLE DB48,0:DB49,0:DB52,35:DB53,16:DB55,1I rX(DB56)(DB192)4] |X,255:X1,255w XDB124ĹX,0:X1,0}  (BL12),2:768 (970)0600 XDBDB255:X,0: X1521 (BL4),17:(BL5),X:(DB1),17:(DB2),X1:(BL"";VN$:VN(VN$):VN0VN255270R ":"PRESS 'RETURN' WHEN READY TO BEGIN...";k ,CH$:CH$(13)300q 6 @(BL1),SL16:(BL2),DR:(BL3),VN:(BL4),17:(BL5),0 J(BL12),4:768 T(970)0600 ^DB,2:DB1,17:DB2,15:DB39,122/ h:(BL15),SL16:(BL16),DR< "SLOT (DEFAULT=";SL;"): ";[ SL$:SL$(13)SL(SL$)n SL1SL7200v SL :"DRIVE (DEFAULT=";DR;"): "; DR$:DR$(13)DR(DR$) DR1DR2240 DR :"VOLUME NUMBER (DEFAULT=0): ";" # 12);"FORMAT BLANK DISK":: "THIS PROGRAM WILL INITIALIZE ANY DISK. IT WILL NOT WRITE DOS TO THE DISK, SO YOU WILL HAVE 32 ADDITIONAL SECTORS FOR" "DATA STORAGE (TRACK 0 IS NOT ACCESSABLE AT ANY TIME).":: SL(BL1)16:DR(BL2) 540 , FORMAT BLANK DISK2J( WRITTEN BYd2 ALLEN L. WYATTj<F COPYRIGHT 1981P AOSZ ALL RIGHTS RESERVED.dnxBL(769)256(771)DBBL8680 XDBDB255:X,0:!!!!!   L J M   Lߔ `ɀɠ)`?2DE s2 `HD٤DEEhiHLxh ۠ɰ `?2 2 J J  ` Y H M  J `` Y D s `?2 2   詠!!!  X+ 1ʚh=*<< L٬ŠӠϠӠΠӠˮ474 74 7474 74 7474 74 7474 43 4343 ' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `! ! ! `<= ^` `<89S6T7 `H$(&h' ɐп( ) ! ɠi@ ( i0ѩi(Lo ) & '(`! ! 37,V1::36,H $ XER(222)7 bER6ER8100 l:"PLEASE INSERT THE APPLE AIDS DISK IN DRIVE ONE, AND PRESS RETURN....."; vCH$:CH$(13)630 :FL15 160160OR,DISK COPY,CREATE EXEC FILESK  EDIT EXEC FILES,TEXT DUMP,BASE CONVERT]  EXIT SYSTEMu ST1:CPXX5ST1 H(36):V(37) CPXX5ı JCPXX5ST J:8:">"; S(16336) JXX5510 J:8:" ";  CPXX5 22:8684 @A$"RUNNING "NP$(CH):(20(A$)2):A$C JCHNP360f TCH1CH2ĺ"BLOAD DATA DISK"z ^"RUN";NP$(CH) h1012,56:: r FORMAT BLANK DISK,KILL DOS |DISK MAP,IMPROVED DIRECTORY SECTOR LISTINGS,UNDELETE FILES DISK EDIT";NP$(X): 32,0::N 22:8:">CHOICE: (RETURN TO RUN)":22:17:"";a CH$:C1(CH$)o C11230~ XXC1:430 CH$:CH$(13)300 (CH$)48(CH$)57260 C2(CH$):C3C110C2:C3NPC1C2:240 "C1C3:250 ,:CHC1 630 n"BLOAD CODE" x970,03 NP13:NP$(NP)I X1NP:NP$(X):T FL0:` CP22: 5);"APPLE AIDS / PROGRAMMING HELPS":12);"BY ALLEN L. WYATT":" (C) 1981 BY ADVANCED OPERATING SYSTEMS": 32,8: X1NP:X10ĺ" "; X;")  600FL1  1012,0&> APPLE AIDST( DOS 3.3Z2r4 WRITTEN BY6 ALLEN L. WYATT8< COPYRIGHT 1981F AOSP ALL RIGHTS RESERVED.Z d(768)169(775)1441""""!!!  ""  ""  " "  " " ХLPLPL-zsmfc`[VSQNLJHD@<9521/,*)('%$#!( `$$Ltʆ8 :'% P'Щ%카QQ PІL`ۆ0LP`) i )8JJJJe ) i' i'e䨩e`  Ȍ#,8$%O()  ')% $% (105)256(106)640(1012,0?"RUN APPLE AIDS"gH Xʚhi0hiPL Q8j ᘑPSTWɡR P0i P'$0 8""" "