L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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- ( t Ϡ@跻~!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`BLANK NAMES.";)'"SINCE DOS ENTERS NEW FILES IN PLACE OF"h.'"DELETED DIRECTORY ENTRIES THESE SERVE"3'"TO HOLD PLACES IN THE CATALOG FOR FUTURE";8'"ENTRIES."** PAGE K*:A$"MOVE":70:+"MOVE MOVES A CATALOG LINE FROM ONE"'KING THE FILE"8s#"INACCESSIBLE BUT NOT RELEASING THE"Vx#"ASSOCIATED DISK SPACE."\'i' PAGE J':A$"HOLE INSERTION":70:'"'HOLE' INSERTION PLACES ONE OR MORE"'"ENTRIES IN THE CATALOG THAT LOOK LIKE" $'"DELETED TEXT FILES WITH G CATALOG "<P#"ENTRIES FOR DELETED FILES NEW FILES WILL";eU#"ALWAYS BE ADDED AT THE END OF THE"vZ#"CATALOG.)"|_#d#"ONE SHOULD ";::"NOT";::" DELETE A LINE REPRE-"i#"SENTING AN ACTIVE FILE. THIS WILL DO"n#"THE DOUBLE DAMAGE OF MATION" '#(# PAGE I0-#:A$"DELETE":70:_2#"DELETE REMOVES A LINE FROM THE CATALOG."7#"IT IS REASONABLE TO DELETE A TITLE LINE,";<#"A 'HOLE' LINE, OR A LINE FROM A DELETED"A#"FILE (MARKED WITH =).F# K#"(BY CONSISTENTLY DELETINNE" w)|" (T)ITLE LINE INSERTION"/^"POSITIONS ARE SPECIFIED BY THE SEQUENCE""NUMBER IN THE LISTING. (NOTE THAT THE""OPERATION MAY CHANGE SOME OF THESE.)""PRESSING WHEN ASKED FOR A""POSITION ABORTS THE FUNC?@ PAGE H*E:A$"MODIFY":70:XJ"MODIFY ALLOWS THE USER TO MAKE CHANGES"O"IN THE MEMORY VERSION OF THE CATALOG"T"AS FOLLOWS."Y^" (D)ELETE A CATALOG LINE"ch" (H)OLE INSERTION"mr" (M)OVE A CATALOG LI92D 24:8:"CATALOG ANOTHER DISK ? Y";(8);:A$:1:A$"N"ī150Q 23:1:TӠŠӠōĮŠˠӠŠɭĠ͠ŠŠĠϠˮՍ̠ŠӠŠΠǠŠŮźΠŠӠŠčԠӠƠŠŠ̍נˠƠԠҠŠŠԠӮڭľźΠŠӠŠčԠӠƠŠŠ̍נˠӠƠΠ٧٠өӠĮحԧӠՠΠԠî٭٠ӧӠŠԠ΍٠ĠӠӠ΍ŠΠĠ٠ƍŠҠϧŠč٠Ԡ̍Ӯ׭ŠŠӧ̠ԠˍՠƠէŠŠĠƠՠŠ̍Š̠ŠҧӮōԠŠŠҧӠōĠŠŮՠ٠ҍŠҠ̠ŮŠҍ̠Ԡ٠ŠǠȠōŠՠҠŠԠŠĠˠƍՠԠϠŠԮŠōΠӠŠŠϧƍϧӠĠ̠ӍǠȠ̠΍ՠԠϠŠҠԮԠōӠΠϠŠ̠ŠӠ΍ŠˠՠԠϠŠΠԍŠԠˠĠ٠ΠĠ˩֭Š٠ŠŧӠҍů͠ΠĠΠӠ̠ӍΠ٠ȠŠΠčȠԠŠήխŠ٠ˠŧӠҠˍŠĠΠӠ̠Ӡ΍٠ǠŠˠŠՍĮӠΠӠՠӠՠϠōŠԠΠ٠ϠˮŠ̍Ҡˠ̠ŠԠƠՠΧԍŠҠԠŠҠӠȍŠŠ٠̠ԠՍҠӠήԭŠ٠ŧӠҠōӠƠՠȠϠĠŨٯΩŠŠŠՠԠٍŠΠҠˠŠǠŠ̠ŠŠŠΠٍՠŠΠŠ٠ϠōΧĠΠϠŠΠծӭŠԠϠ˧E CURRENT MEMORY"=g"VERSION OF THE CATALOG ON A PRINTER."jl"THE FORMAT IS THE SAME AS FOR LISTING"~q"EXCEPT THAT:"v{" 1. CONTROL CHARACTERS ARE SHOWN IN"" LOWER CASE."" 2. NO TRUNCATION OF FILE NAMES OCCURS."; RE-"," PLACED ARE PRECEEDED BY AN"H" EQUAL (=) SIGN."Ny" 4. FILE NAMES ARE TRUNCATED TO 27"" CHARACTERS. ALL 30 ARE RETAINED"" INTERNALLY."WX PAGE G]:A$"PRINT":70:b"PRINTING SHOWS THN THIS LISTING";/"AND A NORMAL CATALOG.":]" 1. LINES ARE NUMBERED SEQUENTIALLLY."c" 2. CONTROL CHARACTERS ARE SHOWN IN"" FLASHING."" 3. CATALOG ENTRIES FOR FILES WHICH"" HAVE BEEN DELETED BUT NOT YETVERSION BACK TO THE DISK. UNTIL THIS IS";T"DONE NO CHANGE OCCURS ON THE DISK."Zogp PAGE F}u:A$"LIST":70:z"LISTING SHOWS THE CURRENT MEMORY VERSION";"OF THE CATALOG ON THE SCREEN. THERE ARE";"SEVERAL DIFFERENCES BETWEETALOG FROM THE DISK PUTS"J"THE CATALOG IN THE COMPUTERS RAM MEMORY.";{"THIS MUST BE DONE FIRST. ALL OPERATIONS";"EXCEPT WRITE OPERATE ON THE MEMORY""VERSION, NOT ON THE DISK.":"WRITING THE CATALOG TRANSFERS THE MEMORY";*" CATALOG FROM THE DISK"<" (W)RITE CATALOG TO THE DISK"h" (L)IST THE CATALOG (ON THE SCREEN)"" (P)RINT THE CATALOG (ON A PRINTER)"" (M)ODIFY THE CATALOG" PAGE F:A$"READING AND WRITING":70:"READING THE CA&" (1) INSERTION OF TITLE LINES"H" (2) INSERTION OF 'HOLES'"g" (3) DELETION OF LINES"" (4) REARRANGE THE ORDER OF LINES":"IN ORDER TO ACCOMPLISH THIS THE MAIN""MENU PROVIDES THE FOLLOWING OPTIONS."" (R)EAD ENTRIES IN YOUR"> "CATALOG TO PROVIDE 'HOLES' FOR FUTURE"O "ADDITIONS.x :"THE PROGRAM IS DESIGNED TO WORK" "WITH STANDARD DOS 3.3 DISKETTES." :A$"--CONTINUED--":70 PAGE D"FOUR BASIC FUNCTIONS ARE PROVIDED:"RDER OF"4 "LINES IN YOUR CATALOG AS YOU CHOOSE,"c "YOU CAN DELETE ENTRIES CORRESPONDING TO" "DELETED FILES (WHICH DON'T SHOW IN A" "NORMAL CATALOG) SO THAT ADDITIONS WILL" "COME AT THE END, OR YOU CAN INSERT" "DUMMY DELETED FILEITLE LINE.....................L"& 3 PAGE CS :A$"INTRODUCTION":70:: "THE PURPOSE OF THIS PROGRAM IS TO ALLOW" "YOU TO CUSTOMIZE YOUR DISK CATALOG." "YOU CAN INSERT TITLE LINES INTO YOUR" "CATALOG, YOU CAN REARRANGE THE OF   L5G THEY HOLD PLACES IN THE CATALOGG   LjG IN WHICH NEWLY ADDED FILES WILLGE   LG APPEAR.Gz   ڠ?, LGPRESS SPACE BAR TO CONTINUE... G  ~' q`LL9z999   L2F THROUGH ALL PROCESSING INCLUDINGF   LPF PRINTING.FB   ڠ?, LFPRESS SPACE BAR TO CONTINUE... Fm  ~' q XLF(10) 'HOLE' LINES ARE LINES REPRESENT-F   LG ING NON-EXISTENT DELETED FILES.ST AND BACKD   L?E UP ANY CRITICAL DISKETTE BEFOREE   LZE USING.EO   LE(9) ONLY 27 CHARACTERS OF A FILE NAMEEm   LE ARE SHOWN ON THE SCREEN. THE RE-E   LE MAINING 3 ARE NOT LOST AND CARRYE CATALOGS.C   L"D(8) D   wL;DWARNING!D2   sL`D THIS PROGRAM COULD DK   wLxDDESTROYDp   sLD A DISKETTE. IT IS D   wLDNOTD   sLD GUARANTEEDD   L E FAIL SAFE. PRACTICE FIR%C IN FLASHING MODE AND PRINTED INC   LEC LOWER CASE.C5   LC(7) TITLES ARE AUTOMATICALLY PRECEEDEDCX   LC BY 7 CTRL-H CHARACTERS. THISC   LC CREATES PROPER ALIGNMENT ON NORMALC   L D DOS FILES.A   LBB(5) NO CHANGES ARE MADE ON THE DISKETTEB   L{B UNTIL THE WRITE COMMAND IS EXECUTED.BR   ڠ: LBPRESS SPACE BAR TO CONTINUE... B  ~' q XLB(6) CONTROL CHARACTERS ARE DISPLAYEDB   LS@   L5A NOT YET OVERWRITTEN APPEAR WITHA   L[A AN = AT THE LEFT.AE   LA(4) YOU PROBABLY An   wLADON'TA   sLA WANT TO DELETEA   LA DIRECTORY ENTRIES FOR NON-DELETEDA   LB ROM SLOT 6,?   L(@ DRIVE 1.@   L`@(2) ON TITLE ENTRY CTRL-Z SHIFTS THE@;   L@ NEXT CHARACTER TO INVERSE. CTRL-A@p   L@ LOCKS IN AND OUT OF INVERSE.@   LA(3) CATALOG ENTRIES FOR DELETED FILEMBERS>   L?OFTEN.?   L1?@?, L^?PRESS SPACE BAR TO CONTINUE... ?>  ~' q XL?SPECIAL NOTES?u   L?(1) THIS PROGRAM MUST BE ENTERED AND?   L? OPERATE ?   wL?ONLY?   sL @ F   L4>THIS LIST NUMBERS THE DIRECTORY ENTRIES>   Lf>AND ALL OPERATIONS REFER TO THESE>D   L>NUMBERS. ANY OF THE ABOVE OPERATIONS>v   L>MAY CAUSE THE RENUMBERING OF MANY>   L?ENTRIES. YOU SHOULD CHECK THE NUT TITLE LINES<   L7= (2) INSERT 'HOLE' LINES=   LZ= (3) DELETE LINES=G   L= (4) RE-ARRANGE THE ORDER OF LINES=j   L=A LISTING OF THE MODIFIED CATALOG MAY=   L=BE DISPLAYED OR PRINTED AT ANY TIME.=ڠ; L< <   s ~ +LD<;9"99 `Lw924,169,128,160,13,32,217,3,106,133,0,96,0 L9 1,96,1,0,0,0,30,128,0,0,0,0,0,0,0,96,1 L9 0,1,239,216L9 32,227,3,132,0,133,1,162,3,160,14,177,0,153,13,128,200,202,208,247,96L~{L7L6L 8W8 ~' L(8 &)Lj5L-8L8+ ~' Ld8? } + } + Lj5Li8P8g ~' L8 ڠ } + } + Lj5L8M8 ~' L8 Q*Lj5 0  L6? ~ +L8X8 { + $ " L7WHICH? 7  ~' qL37Q71 ~' LN7 LS7D7Q ~' Ln7 9Lj5Ls7R7q ~' L7 (Lj5? ~ L8 ڠ 0 L7CATALOG NOT READ YET7   ~ +L7z7 { + 2  L&6 (L)IST CURRENT CATALOG6   LV6 (P)RINT CURRENT CATALOG69   L6 (M)ODIFY CURRENT CATALOG6i   L6 (D)RIVE SET6   L6 (Q)UIT6   ڠ $  ,z ~ ~ m  2 ~{L5!7 ~ ?   ~ ?  2 ~{L3` XL5 DISK ARRANGER -- MAIN MENU5s   L5 (R)EAD CATALOG FROM DISK5   L5 (W)RITE CATALOG TO DISK5   + ~ f #~ +~  ~ ~ + ~ ~ +~ N ~ +~ ) ! ~ +~ F ~ ~ +~ !   ~   ! ~ ?  J ~ + { + +~ ~ ~ ~ + ~ ~ ~ +~ ~ LP3R~ +3K ~ ~ L3 0 L 2~ ~ +~ ~ + ~ + ~ ~ ~ +~ ~ + ~ ~ { + ~ ~ ~ +`  ,z   LT2INSERT HOLES AT: 2B  |) @ ^ |)  Q ~ +|)   ? L2`L2 HOW MANY HOLES? 2  { @ ^ {  Q ~ +{   ? L2` ~ ~͹ +  ~ ~ + ~ f #~ +~  ~ ~ + ~ ~ +~ N ~ +~ ) ! ~ +~ F ~ ~ +? ~ + { +~ ~ ?  2 ~{L1 ~} +} N } +? } + } + LE0TYPE 0?   wL\0DELETE0U   sL{0 TO DELETE. 0l  L00  ~' @ ^ L0DELETE0 ~' L0` ~ ~ +~ ~ + ~ + ~TRY .  ~' @ ^ ~'  Q ~ +~'   ? LF/` ~ ~ +~ ~ ~ L/ 0 L. L/ENTRY IS:/   ڠ ~ ~ + ~ f #} +}  ~ ~ + ~   L*.INSERT AT .  ~' @ ^ ~'  Q ~ +~'   ? Ll.` ~ ~ + ~ ~ ~ L. 0 L- `  ,z   L/DELETE WHICH EN TO: ,  { @ ^ {  Q ~ +{   ? LN-` ~ ~ +~ ~ ~ ~ + ~ ~ ~ +~ ~ ~ ~ +~ ~ ~ L- 0 Lc, `  ,z ~' L, c,LQ*L,T, ~' L8, -LQ*L=,X,; ~' LS,` 0 L_+  L,o,z   L,MOVE ENTRY FROM: ,  |) @ ^ |)  Q ~ +|)   ? L,`L -  L!+ (T)ITLE INSERTION+   LO+ (X) EXIT TO MAIN MENU+4   ڠN  L{+V+v N " L+WHICH? +  ~' qL+H+ ~' L+ 2LQ*L+D+ ~' L+ .LQ*L+M+~' @ ^ L*WRITE* ~' L(*`! | +L?*WRITE*9 |z W #'` XL\*P*W Lu*MODIFY MENU*i   L* (D)ELETE A CATALOG ENTRY*   L* (H)OLE INSERTION*   L* (M)OVE ENTRY*  } + } +  ~ +` X  Lg)YOU ARE ABOUT TO RE-WRITE THE CATALOG!)@   L)ARE YOU SURE THAT YOU WANT TO?)w   L)TYPE )   wL)WRITE)   sL) TO DO SO. )  L))  S | +!j | LS( 2 |||LU'L4(X(/ ?  `U L[(0(V   0 L(UNABLE TO (  |z  L( TRACK 17, SECTOR (  | .  | +L(READ( |z W #'? S ~ +? ~ L"' ` I(N | + | + | +L]''X   Ly''t |  L'' ?  L'' |   L'' |  L'' ?  | | +| 0  sL& | LT& | | +L& | L& | L& | | +L&m | L& | | +L& | | +| 0  2 ~|L'%L&& "READ HELP" P#830$ Z#A$:13320. d#9040A %"CLOSE HELP"P &%216,0::l 4(37)21SLOT013370r 4 4"'RETURN' FOR MORE. 'ESC' TO END" &416368,0:16384,128:A$((16384)128):16368,0:A$(27)ĺ"CLOSEHELP"::1000 04: :4 A$A$%(J830852:I:J,I:JY2 162,0,32,117,253,160,2,138,145,105,200,169,0< 145,105,200,169,2,145,105,76,57,213F LINES 20-40 POKE THE INPUT ROUTINE INTO MEMORY AT $300(# HELP !!! -H-2#95007#<#"OPEN HELP" F#  ͮѭˠŠԧӠԍƠŠ٠ĠĠΠӠҠŠŠ٠ӍخϮƠ̠ӍĮҭĠԠ͠˧ӠǠƍŠˠĠҠίƧӠԠҍӮҠӠĠϠŠ΍ԠƠҠҠĠӠԠ΍ԠҠҠҠӠԭ̠ӠϠŠԠōӠΠҠΩΠҠƩΠŠԧӠ΍ԠˠϠŠŠΠٮέҠ٧ӠŠԠōԠ͠ٮϭǧӠӠǧ΍ŠŠ٠ΠҠŮЭŠǧǧîՠҮ̭ԠŠŧƭٮͭĠŠԧӠǧƠŠŠ٠΍ҠˠŠĠӠՠύĠ٠ƠŠȠЧʭԠ٠ˠŧ̠Ԡ̠ӍΠ٠ȠŠĠӠǍΠŠˠŠĮ˭Ԡ٠Šŧ̠Ԡ̍ӯӠȠŠΠčȠŠŧŠٍǠŠ͠Π٠ҠӮɭԠ٠ŠŧӠҠů͠Ůՠ٠ҠŠҍ̠ŮƠՠҠ̍ŠȠӠЧŠҠ̠Ԡ٠ŠǠٮƭԠ٠ˠŧƠٮǭԠ٠ŠŧƠٮȭР٠ӠŮӠŠŠӠĠύŠԧ͠ҠǠ٠ŽǧǠΠˢĭŠ͠˧̠ŠĠͯŠҠčҠĩ͠ҠˮŠٍ̠ȠӠšŭԠ٠ŠŧƭՠϠĠҍŠҮŠŠ΍ϠҠӮԠĠӠ΍ŠĠ٠ҠҠՠ٠ҍҠΠҮήĠŠϮǧӠԍƠĠħϠǠĠӍҠҠΠĠŠŧӠՠϠŠ΍ŠŠŠӠˠŠčŠŠϠԠՠΠōĠӠҠӠȠέĠӠҠŠŠҠӍҠӠîíĠŠŧӠǧӠՠҍŠˠŠŠҠӠҮҠՠϠԠŠˠԠӍŠŠ٠ƠŠˠύŠŠΠٮϠĠӠ΍٠ϠנŠӧǍΠȠˮ­ŠӠ͠ҠŠҠçŠҠҠϠîƠԠ٠ԠΠŠ͠ՍԠŠǠΠξ̍٠ŠՠˠϠŠΠծӠĠˠîĠ٠ҮؠύŠҠĠŠƠŠˮŠԧӠŠŠҠōƠŠŠ§ɧԧҠҧŠ͠Š٠ŠȠЍϠӮŧӠՍϠŠҠŠ٠ĠŠԧԍӠĠϮԧӠŠĠӍӭΠԠ͠ŠŧŠΧӠԠŠˠōȠӠĠ٠ŠҮՍԠŠҠˠōΧӧȧ̢РԧӠĠϠĠōˠӠ٠͠ŠˍϠŠȠ٠ŠčΠҠƠӮҠӠƍӠ٠ŠĠĠčƠŠӠŠč           } ~ ~ $ | +~ } S | +? | L&} ~ L'& | L% w | | +L& | L% wL& | L% L&m | L%  | | +L&L/$L $00$  } .L%$ $#  ` } ~ +# } ~ L$Le$0$c  } .L~$ $|  #N } L$} .L$ $  J ~ +L$h~ } J ~ +~ } ~ +!~ L #H~ +# ~ ~ LK#! } ~ .LS#F#N ~ L|#} ~ .L# #  }?  |  L# #  ? } L#L#000 #  ? } ~ +" } ~ L"L "T" | W  } L?"L1"I"/ | W ! } Lg"LY"A"W | W & } L"L"B" | W L"" } L"L"R" | W L" " ~ L"J } ~ .` ? } L!`L!! } S } +L + ~ ~ + ~ f #~ +~  ~ ~ + ~ ~ +~ N ~ +~ ) ! ~ +~ F ~ ~ +? ~ + ~ +~ ~ ~ K  2 ~~L`L~ +~ N ~ +~ ) ! ~ +~ F ~ ~ +? ~ + ~ +~ ~ ~ K  2 ~~Lo`~ ~ L~ ~ +~ ~ + ~ + ~ +  ~ ~~~L~ ~ LQ ~ + ~ ~ +~ ~ +~ ~ L ~ + ~ ~ +~ ~ + ~ +  ~ ~ + ~ f #~ +~  ~ ~ + ~ ~~~L` ~ ~ + ~ f #~ +~  ~ ~ + ~ ~ +~ N ~ +~ ) ! ~ +~ F ~ ~ +? ~ + ~ +~ K j~ 1~ ~ S ~  2 ~ + ~ ~ +LL& L.~ ) ! LK ~ +~ F ~ ~ +~ ) ! ~ +~ F ~ ~ +? ~ +L ~ +~ ~ ~ ~ S  2 ~~L 2 + ~ f #~ +~  ~ ~ + ~ ~ +LSp~ N ~ +~ ~ +~ ~ ~ ~ +L@ ~ L ~ ~ + ~ ~ +L? ~ L ~ A@ L  L*A% L<7  LNAI L`[  LrBm 7  LB@ L@  :Lj5~ ~ +~ ~ +~ ~ +L ~ L`~   # {PGE 8L+& 0 ~ W LD? ~ +LZ@U LlPg  L~@@y L(  L@ g  L@ L&  LA L_  LFORWARD REFERENCES:MENTS: *>EMSROW ePeQP&Q`^$^ II__ &_&^_`L Q+Ɂ')0)#&*&Q$IQQIQPQ`*۠{i{ȱ{ȱ{k}ȱl~L`eL`h  ȱ ة$l1 CQ}%,`}~hhHH  }ȥ}ȥ}ȩ`}` ѥLl  L[   Q CL5   Q ΤL+΅qτr SՍȄ` CL CLvu X$# \ۦuv $LWۢ \` CLPQF Cee`   f`  j %_`hh HH  C  hhl`΄L ΄φ^ C^ LHH , hh C , qL> jL _L_^L % L L NL EL $L`hkl`υΦ  kl`{|{}kȱ{~lL} `hh` CPL> Lܠk{lȑ{` C L6 C LE,,-`~L LW L LW ~}L: Cצ}~` La L C` 0` ꤄kl ` L Z ZL {|    {Lj  , 4,<" 湱 :,목"ȱ :, eL  Lv$Lhh Z l  #  )!,E -+.е JϦ ,Л hL L C}~`8L C}` C L( CLhh^ȱ ȱ _^ +ȅ`  ,el$Li)$ ơ W ơ8$cL CLL+L' CLY L } Lꅃ :L ZhhHH脁 ,թ5 L L+L>L> 4L C`L F LJrq 嘑q```` h L h L h L h L h L h L  CJ` ` 8塐L `  CH S C ? 4352 ΄ϠΪȱΨ` L ΄ CL5΄ϠPȥQ`΄ϥLW΄ C &$΄ϥLu΄ C & &e몘e쨊e΅PeυQP` `L ` ` ` ` ` `о   I `                            ܰӠ)Г԰ԯ ...WRITINGL&_*_* ^*ɠ )] L L=LiTȱiȱi`ȱiȱi ``ȑ Ŕ8 Đ0ȑ Ŕ 0/# `i!LȭLL ޘи8ޥ߰ L,L L4Hȥؑȥّڥݑօوܑօ؈ڑh`Н(kٓlړPӓ`(ٓkړlӓP`PJ TuVTvP`SRT#(VARIABLE NOT FOUNDlnLۓLKkiRliSޅP߅QTU qPХQFf N`8ޥeeЅօڥхׅۦeޅ֥e߅eڥeօȱօٱڅ݈څܠc]0 ܰ Lڒܐ@ Lڒ6 А4H +hݏ%  , ۓʽۓ$LZ ܓܓ g RPޥQ g RP8ޅQ߅Y  NLޠ ʬꓖ ꓖ D0Ȍ ),л гkۓȱkܓ+kekHȱkellhkm    AME TYPE"::,0u"FILE NAME? ";FL$B0v(FL$)0ġ:1000[0 vD$"OPEN ";FL$;",V0"a0v0\vN0ė:12:11::"NO FILES IN MEMORY":I11000:I::10000fv0vND0:FS0:TI0:TA0:TT0:TM0:TN0:TR0:0NA$(I),25,4))/e13170/eN/eTSND496:SUTSFS:UT(10000SUTS.5)100/e36,TB1:ND;:36,TB7:TS;:36,TB16:SU;:36,TB25:FS;:36,TB33:UT/e:/e13250/0uD$"CLOSE ";FL$/:u/u:PRLN5:::0u:TB)"DISK T FILE/PROGRAM N:A$::A$"Y"20000.a2.e SUMMARY STATS -Y-U.e:2:12)"SUMMARY STATISTICS"g.e30300:30400.e8:"#DISK TOTAL USED FREE % SIDES SECTORS SECTORS SECTORS USED" /eI0N:(NA$(I),11,14)"FREE SECTORS ="NDND1:FSFS((CTORS"m-]:"ARE YOU SURE YOU WANT TO REMOVE ALL 'FREE SECTOR = ' FILES (Y/N)? ";:A$:A$:A$"Y"1000-]I0N:(NA$(I),11,9)"FREE SECT"NA$(I)""-]I-]1000-a EXIT -X--aN0Ā.a:12:"DO YOU WANT TO SAVE FILE TO DISK (Y/N)?"; ,Z1000,Z216,0:10000,N:"INSERT DISKETTE W/'";FL$;"' FILE"(HN&8JREAD LIST FROM DISK -R-+&BJD$(4):?&LJD$;"CATALOG":O&QJN0ī19070}&VJ"FILE IN MEMORY WILL BE OVERWRITTEN !!!"&`J"DO YOU WANT TO ENTER A NEW FILE (Y/N) ? ";:K$:&jJK$"Y"ī1000&tJN1&~J19130&J30200&JD$;"READ ";FL$'J/%BPRTB15:LN0:D$"PR#1":(9)"80N";(17);5%B^%0CPRPR0:TB1:(12);(19):D$"PR#0"d%:C~%PFCHECK FREE SPACE -Q-%ZFLN1%dF:"COMPUTING FREE MEMORY":%nFF(0):"TOTAL NO. OF ENTRYS = ";L:"ROOM FOR APPROX. ";(F39);" MORE"&xF13300ER MERGE"$619070*$:CLEAR MEMORY -N-8$:N01000m$::"ARE YOU SURE YOU WANT TO CLEAR MEMORY ?":A$$:A$"Y"ī1000$:N1:1000$>'CATALOG' -O-$>:D$"CATALOG"::"HIT ANY KEY: ";:A$::1000$hBPRINTER ON/OFF -P-%rBPR(PR):100070# 4(37)2113370#4F#4" FOR MORE, 'ESC' TO MENU"#&416368,0:16384,128:A(16384):16368,0:A155ġ:OP8ĺD$"CLOSEHELP.CAT"#+4A1551000#04:#:4#6APPEND A LIST -M-#630300#6D$(4)::D$;"CATALOG": $6"ENTB10)"NUMBER OF PROGRAMS"J"3TB)"INT FP TEXT MACH 'R' TOTAL""3TB)TI;:36,TB5:TA;:36,TB11:TT;:36,TB18:TM;:36,TB25:TR;:36,TB32:TN"317200"3:"PRESS '0' TO GET MENU.""31300#4PRLNLN1:LN60ĺ(12);:30100:13317100:30400:30100#!T3N013250Q!^3I0N:TB)NA$(I):13170:13320::13250x!r3Q$(NA$(I),8,1):Q$"I"TITI1:!|3Q$"A"TATA1:!3Q$"T"TTTT1:!3Q$"R"TRTR1:13230!3Q$"B"TMTM1:13230!3!3TNTITATTTMTR"3:T3250! . LIST BY FILE TYPE -K-, .30300^ ."TYPE (1-4 CHARS) ? ";TP$:L(TP$):L01000r .(TP$)412020 /:17100:30100:30400 &/I0N:(NA$(I),36,L)TP$ĺTB)NA$(I):13170:13320 D/I N/13250 2LIST ENTIRE FILE -L-!6330300::00:13300'216,0:X(222)4'X5İ30000:13300:'U*LIST BY DISK NAME -J-`+30300 +"DISK NAME ? ";DN$:L(DN$):L01000+(DN$)6110204+:17100:30100:30400>+I0N:(NA$(I),1,L)DN$ĺTB)NA$(I):13170:13320\+I f+1"READHELP.CAT"P#"";A$(Z#A$:133202d#9040I%D$"CLOSEHELP.CAT"[&%216,0:13300v'LIST BY FILE NAME -I-'30300$'"PROGRAM NAME ? ";PN$:L(PN$):L0ī1000t'17100:30100:I0N~'PN$(NA$(I),10,L)ĺTB)NA$(I):13320 'I:172 BY DISK NAME -F-"b:"SORTING"+lN%NMvSRT#(NA$,0,N%,1,6,A,10,34,A)W1000t@ SORT BY FILE TYPE -G-J:"SORTING"TN%N^SRT#(NA$,0,N%,36,39,A,10,34,A,1,6,A)h1000(# HELP !!! -H-2#95007#<#D$"OPENHELP.CAT":D$"A$%A$(25)1000+65100`D$"UNLOCK";FL$;",V0":D$"DELETE";FL$j1000~216,0:X(222)X61000p SORT BY FILE NAME -E-z:"SORTING"N%NSRT#(NA$,0,N%,10,34,A,1,6,A)1000X SORT000I0N"NA$(I)""4570?(NA$(I),10,1)" "4570W(NA$(I))37İ4070hI:F0:1000 DELETE A FILE -D-:D$;"CATALOG"::"FILE NAME TO DELETE ? ";FL$:FL$""1000:"TO DELETE '";FL$;"'" "ENTER ' Y'; ELSE +:"ENTER PROGRAM NAME: ":PN$:L(PN$):L0ī1000E&I0Nc0PN$(NA$(I),10,L)İ4070t:I:F0:1000|F1:"DO YOU WANT TO REVIEW ALL FILES WITHOUT TYPE DESIGNATION (Y/N)?";:A$A$(13)ī1000A$"N"ī4360A$"Y"ī1(C$)0C$" "LA9ĺ"ENTER UP TO 4 CHARACTERS OF YOUR CHOICE":C$_(C$)4ī4250jTP$C$(NA$(I))34NA$(I)(NA$(I),34)SP35(NA$(I)):SP$"":Y1SP:SP$SP$" ":NA$(I)NA$(I)SP$TP$F1ıI1000F15TA0A94060-^A0TP$"PROG":4280GcA1TP$"EXEC":4280ahA2TP$"DATA":4280{mA3TP$"SUBR":4280rA4TP$"DEMO":4280wA5TP$"MAIN":4280|A6TP$"HEDR":4280A7TP$"FLAG":4280A8TP$"DUPL":4280 (HEADER ONLY)"/0"7. FLAG (FLAG THIS FILE)"T2"8. DUPL (DUPLICATE PROG/FILE)"{4"9. ANY 4 CHARS. OF YOUR CHOICE."6:"PRESS TO SKIP THIS RECORD":"PRESS TO RETURN TO MENU"@:A$:A(A$):A$(13)4335JA$(27)IN:433O ADD OR CHANGE:",:"0. PROG (PROGRAM)"M"1. EXEC ('EXEC' TEXTFILE)"s"2. DATA (FILE HOLDS DATA ONLY)""3. SUBR (SUBR. CALLED BY ANOTHER PROG.)"""4. DEMO (DEMONSTRATION)","5. MAIN (MAIN TITLE OF PROG/FILE SERIES)";."6. HEDR3ɱɸ); `H9 0 % $7 hH(h`ͥĪ0$ҸPDQ - QUICK DISK COPY VERSION C S O U R C EDESTINATIONSLOTDRIV ..COPY COMPLETED..ERROR. COPY ABORTED ANOTHER COPY (Y/N) PRESS TO START COPYREADING... L5  R% $ | L]L; < < < ɝ' "% % #` i8/ 1 ' 1 >/ < % 췽' < ; ' L3 - ) 鷽+ 귽' 0 5  ' i9 % i7 5 )?   `dL $=  (`; 3H3 jh X 3 <  ) F A + ΠB<> =i?C ,% $ ɍ% ' 9 7  "#! X /췩뷩 % 0#:% $ + ) + ʩ% $ + ) +        ŠҬ΍ӠŠЍ٠ŮϬɧĠ٠Ǡ͠٠Ơՠ΍٠àǠϠǠҭάȠӠנϠŠҍӠϠŬĠҭ̠ŠԍΠŠĠϠҠӍ٠ӠϠ̠ŠŠӍԠŠϠŠӠŠٍǠҠӠΠŠÍήӠ̠ŬӍҠԬĠӬîϺԬӠΠŠӍ͠Ϡ̠ȮˠŠŠٺƠՠōϠϠԠԠƠǮŠԠŠӠΠӠ˺àŠŠΠǍ΢ӠǬٍҠҠӠӠΠՠĠŮˠӠΠƠˍȠӠΠ˭ǍՠӮϠӠōƠӠĠҠŠӍƠŭĠέŠˮӠӠΠΠͭ΍ԠԠԠҠ٠ӬȠɍΠΠĠӍҠ̠ҠɺӠŠӍ٠ҠŠΠĠӍŠƠŠӠƠԍҮӠƠӮͧӠˠҺĠˠЍҠŠԮΠԺԠӠĠčĠǠΠŠנ̺Ӡ̠íӠΠŮ̠ҠǍŠŠӠΠŠǮҺĠϠōΠӠӬɠĠٍˮΠŠӠՠϠϭŠԠӠȠΠŠٍĮ٠ŠՠԠԍΠΠΠͮōӠĠΠŠΠ΍ŠӠĠŠčҮɮ٠čӠҠՠϠήԍŠŠŠԠƠĭ٠ӠԠ٠ĮҭԠŠƠӠϠōĠΠ٠Ů٠ƠŠΠŠĠϠĠԍӠŠϠ͠ΠҠҩŠ׭̍Šՠ٠ŠӮŠӭŠǠӍΠҠǠϠՠ΍ӠӮҮРӠŠōĠȠŠϠΠӠˮҭԠӠՠנӍŭӠӠϠŠҩΠŬϠ٠ŠĮӠǺΠĠǍȬǠҠӬŠŬĠŠӠĠȠƠٍӮŠӠΠӠˠӍŠŠ٠ŠՠϠԭǮՠΠͮՠĠϠŠŠŠƠōŠ٠٠ǠōƠӮĺҠĠŠ͠ŠͭҬî٬ɠō٠۫ҠˠԮŠӺӠ̠ŠӍΠ̩͠΍ŭΠήӠ͠ӠҠĠԠŠčЮРΠŠĠȠ٠čǠ͠ԠӠԍӭɠĠҠۮԍŠҠŠĠ̠ԠЧԠΠϠŠĠ͠͠Ƞ̠נՠϠŠŠӠ΍٠ĠҮκŠ͠ԧӠǠӠƮԠӠԍŠĠТƠՠԠԠ٠ϠңǠҍҠŠӠΠԠԠͬҍĠ٠̠ҠԠӍΠĠϠٮˠԭҠӠŠǍΠҠˠϠ̠ҮŠŠҠ̠ӭɠΠĠˠҮōŠӠ͠ΠƠȍҠΠȠƠ˧ӠӮƍĠҠĠŠĬԍ̠ŠĠԮˠкӠ٠͠ӍРƠŠĠĠŠӠƍӠˮӠ͠ΠōΠ͠ΠŠԠӬ٠ŠŠϠĮŠΠ̠Ҡí٬ΧԠŠĠΠҍŠӠԢ٬ӠӠĠŠҠŬ΍ԠנŮˠˠӠԠ͠ȍӠҠϠȠˠčΠΠŠϠȮέέĠӠӠΠŠ٠ĮҠŠϠΠŠ͠Ġ̭ԠТ͠ŠΠծɠōĠŠŠȠҠЧӍĭϭͧӠϠٮŠӺōĠҠ̧ŠөϠŠǠƠˮˠԺӠӠҠǍٮɠĠԠ٠̮Ԡ̠ŠŠӠƠ̍ҠӠΠԠŮŠōϠӠŠŠΠȠˮՠΠΠҠٮԺ٠ӠǠƍŠ٠ŠˠϠҠҮӠՠϠŠōǮˠҠӠ٠ȠӍՠϠŠŠҠƠӠ΍ˬĠ̠ԠՠϠҍӠΠ̮ƠՠŠ٠ƠŠӍҠנƯůĠĠӬɠŠՠ̠Š͠ȠӠ̮ŠǠӠƠΠƍŠӠĠԠ٠Ϻ̺Ӡ̭ǢȠҠĠϠϠŠŠӍɠŠĠԠ̠ӠΠϠŠˠҠҠŮ٠àΠӠ̠ŠĠŮƠōŠŠ٠٠̠̠ͭӠȠ̠͍ŠӠŠϠŠΧӠˢ͍ӠŠЮźƠՠԠĠ٠ϠңΠŭΠӠͮƠՠŠǠӠӠŠՍŠ ΠҠΠŠҧӠЮӠˠӠҠաɠŠ             D$;" SAVE ";NAME$,D1 ' 2 ( CHANGE LINE 30H ) TO LOAD, OR RUN` * A BACKSPACED FILE tbTHIS PROGRAM LETS0YOU PUT TRICK FILEHNAMES ON YOUR DISKaOF 22 CHARACTERS ORyLESS. CHANGE N$ TO YOUR OWN LIKEING.  D$(4)N$"*T 190 MAIN PROGRAM"NAME$"A"(8)(8)(8)(8)(8)(8)(8)(8)N$ ЧȠӧƠŠӠ̧ĮŠàԠˬΠӠ٠ŲàŠӠٽө  ԬԬҬҬԠ ƬĸԠƍؠؠؠؠؠĠŠȠŠг ̠ӠϠŠàϠˍ٠ҠӍĠҠԠРĠԠàҠϠ΍ϠӠΧԠРӠĠŠŠؠвŲؠԠҠҠٍҠԱԠԍ؍ؠŠȠŠвҠΠԠōР٧ӠԠӠŠĠϬԠ͠ƍؠгҫؠҫؠÍ٠ҠӍҫԠƠӠϠƠРԠЍҫôҫõР̠ϠӍ« ̠Ӎ٠ҠӍҠԠРҠӠōΠˠ«͠Ҡˮ« ̠Ӡ٠ ҠӍҠҠԠˍР̠ϠĠÍ««« ̠ӠϠĠŠӍҠŠҠ΍ҠԠ ΍ҠԠϠӮؠРЍԱŬؠԠҠ͠ŠҠԱԠԍؠؠĠƠŠŠԱҠΠҠԍΠР̍ǠΠΠӠӠˠŠҍӠՠĹӠՠİҠՠưčŠՠõŠՠƴԠՠƳƍΠՠıԱՠưԠՠĸŠԠ΍ҠՠԠҠŠ   ....F"5 "PRINT.................................G"d "MODIFY................................H" "DELETE................................I" "'HOLE' INSERTION......................J" "MOVE..................................K" "INSERT Tc START DISK ARANGERb103,1:104,8:2048,0:2049,0:2050,0:(4);"RUN DISK ARRANGER.EXP"1 J X "  #ە㕩  㕩ەܕ $4ĔŔ㕩   89 򩕠  ?HLԠˬΠӠ٠ŠӠٽө`$`RITTEN BY :":10)"HARRY OWEN JONES":10)"MEMBER #62":10)"APPLE-CAN USER'S GROUP":10)"TORONTO, ONT.":"'23:"TYPE A KEY TO CONTINUE . . .";:A$:A$::2:R WORKINGS OF DOS.":!" SOME IDEAS AND LOCATIONS WERE FOUND":"IN AN ARTICLE BY CRAIG CROSSMAN IN THE":"VOLUME 2 NO 6 OF NIBBLE MAGAZINE. AGAIN":"THIS IS A GOOD PUBLICATION TO HAVE FOR"k"."THOSE FEW WHO DO NOT YET KNOW ABOUT IT."::"PROGRAMS W10000:15)"CREDITS"::" SOME OF THE LOCATIONS USED HERE CAME":"FROM THE BOOK 'BENEATH APPLE DOS' BY"!"DON WORTH AND PIETER LECHNER. THIS IS":"PUBLISHED BY 'QUALITY SOFTWARE' AND IS":"QUITE GOOD FOR THOSE WHO WISH TO KNOW":"MORE ABOUT THE INNE). FROM NOW""ON, ALL DISKS INITIALIZED WITH THIS":"VERSION OF DOS, WILL HAVE 36 TRACKS.":" THIS IS GIVEN AS AN ALTERNATIVE TO THE":"PROGRAM DISCUSSED EARLIER. IT DOES NOT"j "FREE UP THE AREA USED BY DOS. IT JUST":"MAKES TRACK #35 AVAILABLE.":HANGE TO $24"::" THESE CHANGES AFFECT THE INITIALIZ-":"ION ROUTINE OF DOS ONLY. YOU WILL HAVE" "TO DIP INTO THE MONITOR TO MAKE THEM.":"FORMAT FOR A MEMORY CHANGE WHEN IN THE":"MONITOR IS '
:' ALL":"IN HEX (IE. AS GIVEN ABOVEARE SLAVE),"z"ARE LOST WHEN THE DISKETTE IS UPDATED.":10000:5)"INITIALIZATION CONT'D"::" THE PATCHES TO MAKE TO DOS, PRIOR TO":"INITIALIZING A DISKETTE, ARE THESE :"c6)"@ $AEB5 CHANGE TO $90":6)"@ $B3EF CHANGE TO $24":6)"@ $BEFE COCATE ITSELF.":" THE UPDATE PROGRAM WORKS BY COPYING":"THE MASTER DOS FROM THE MASTER DISK TO" f"THE SLAVE DISKETTE TO BE UPDATED. THUS":"IT OVERWRITE THE DOS RESIDENT ON THE":"DISKETTE. PATCHES MADE TO A SLAVE DISK-":"ETTE (ALL DOS'S IM MEMORY ENT THING AL-">"TOGETHER. WHEN BOOTED, IT RELOCATES A":"PORTION OF ITSELF INTO AVAILABLE MEMORY":"THE VERSION NOW IN MEMORY IS A SLAVE":"VERSION AND IS UNABLE TO FIT INTO ANY"bR"MEMORY LESS THAN THE ONE IT WAS BOOTED":"ON. IT CAN NO LONGER RELN MEMORY ONTO IT. THIS":"SAME DOS WILL BE BOOTED INTO THE SYSTEM":"WHEN THE DISKETTE IS BOOTED. THE DOS IN":"MEMORY IS A SLAVE DOS, AND MATCHES WHAT""WAS ON DISKETTE. SO FAR SO GOOD.":10000:5)"INITIALIZING, CONT'D"::"A MASTER DISK IS A DIFFERE, BUT A DISKETTE":"INITIALIZED FROM DOS BOOTED FROM THE""UPDATED DISKETTE WILL NOT HAVE THE NEW":"DOS ON IT, NOR WILL IT HAVE 36 TRACKS."::" IF THIS SOUNDS FUZZY, WE CAN PUT IT":"THIS WAY : A SLAVE DISKETTE IS MADE BY""COPYING THE DOS I FOLLOWING PATCHES TO":"DOS, A DISKETTE CAN BE SET UP WITH 35":"TRACKS FROM THE START. THIS ONLY MAKES":"A SLAVE DISKETTE; HOWEVER, SINCE THE":"UPDATE PROGRAM WILL PUT THE OLD DOS ON":"THE 36 TRACK DISKETTE. ALL 36 TRACKS":"WILL STILL BE AVAILABLSTARTS @ $9500, IS 256":"BYTES LONG AND HAS A BUFFER STARTING AT":"$$9400, ALSO 256 BYTES LONG.""THIS PUTS IT JUST BELOW DOS, SO":"BEWARE OF OVERWRITING ANYTHING ELSE":"STORED THERE !":10000:5)"INITIALIZING A NEW DISK":" BY MAKING THEl"IATE MODE (VIA DOS), EXITING THE BASIC":"PROGRAM AT THE SAME TIME. SINCE I DON'T":"THINK THAT THERE WILL BE MUCH USE FOR":"THIS ROUTINE IN THE DEFERRED MODE (IT"b"CAN BE 'EXEC'ED), THIS PROBLEM SHOULD":"NOT BE A HANDICAP."::" THE ROUTINE TRICKY. FOR THIS":"REASON, THE PROGRAM WAS TERMINATED WITH":"A 'JMP' TO THE DOS WARMSTART ROUTINE AT":"$3D0 INSTEAD OF AN 'RTS'."X10000:10)"HOW TO USE CONT'D"::" IF USED FROM WITHIN A BASIC PROGRAM":"THE ROUTINE WILL EXIT INTO THE IMMED-"FOR THE USER"&"WHO WISHES TO MAKE MODIFICATIONS AND/OR":"ENHANCEMENTS. THE THIRD VERSION IS A":"THE BINARY OBJECT FILE, AND IS INTENDED":"TO BE 'BRUN'. DOS DOES A 'JMP' WHEN A":"FILE IS 'BRUN' NOT A 'JSR' WHICH IS APT":"TO MAKE A RETURN A BIT VERSION IS THE":"ORIGINAL SOURCE CODE, COMPATIBLE WITH":"THE APPLE ASSEMBLER FOUND IN THE DOS" "TOOLKIT. A RELOCATABLE VERSION IS ALSO":"INCLUDED FOR USE WITH THE RELOCATABLE":"LOADER FOUND IN THE TOOLKIT. THIS WILL":"AFFORD MAXIMUM FLEXIBILITY " AT THIS POINT, THE VTOC IS AGAIN":"WRITTEN ONTO THE DISKETTE. THIS":"COMPLETES THE MAIN PROGRAM. THE REST OF":"THE PROGRAM JUST MAKES A NEAT EXIT.":10000:10)"HOW TO USE IT":a" SEVERAL VERSIONS ARE AVAILABLE ON":"THE DISKETTE. A TEXTBE OVERWRITTEN. IF IT IS,":"THEN THE BIT MAP FOR DOS IN THE VTOC":"(STILL RESIDENT IN MEMORY), IS ALTERED""BY WRITING $FF IN THE BIT MAP FOR THE":"DOS SECTORS, THAT AREA OF THE DISK":"APPEARS FREE TO DOS, AND WILL BE OVER-":"WRITTEN AS NEEDED."IS ALTERED TO":"INDICATED THAT THE ADDITIONAL SECTORS""ARE UNUSED ($FF IS WRITTEN INTO TRACK":"35'S BIT MAP). THIS COMPLETES THE":"RECOVERY OF TRACK 35.":10000:10)"HOW IT WORKS CONT'D":l" THE PROGRAM THEN ASKS IF THE DOS":"SPACE IS TO ACK WRITE @ $BFOD) IS CALLED TO":"FORMAT THAT TRACK.":" THE VTOC IS THEN READ FROM THE DISK-":"ETTE AND TWO MODS ARE MADE TO IT BEFORE"7r"REWRITING IT ONTO THE DISKETTE : FIRST;":"THE NUMBER OF TRACKS IS RAISED TO $24":"AND, SECOND; THE BIT MAP W RETURNS AND":"PAUSES FOR A KEY TO BE PRESSED. THIS":"ALLOWS FOR REPLACEMENT OF THE PROGRAM"J"DISKETTE WITH THE ONE TO BE PROCESSED":"(THE DATA DISKETTE).":" THE READ/WRITE HEAD IS THEN MOVED":"OVER TO TRACK 35, AND A ROUTINE IN DOS"^"(TRTA DISKETTES ON DUAL" "DRIVE SYSTEMS (USEFUL FOR ARCHIVING).":"YOU WILL BE ABLE TO BOOT FROM THE DISK-":"ETTE UNTIL THE TRACKS ARE ACTUALLY USED.":10000:10)"HOW IT WORKS":_6" THE FIRST PART OF THE PROGRAM CLEARS":"THE SCREEN, OUTPUTS A FESTED. SEE YOUR DEALER.":" THE SECOND PART OF THE PROGRAM WILL":"INQUIRE AS TO WHETHER YOU WISH TO USE" "RESERVED DOS AREA. IF YOU DO, BEWARE":"THAT YOU WILL NOT BE ABLE TO BOOT FROM":"THAT DISKETTE. THIS OPTION IS ADVISABLE":"ONLY FOR USE ON DAIED BY APPLE WERE":"ORIGINALLY UNABLE TO ACCESS TRACK 35." "FOR THIS REASON, TRACK 35 WAS NOT USED.":"IF YOU HAVE ONE OF THESE DRIVES YOU'LL":"FIND OUT QUICK ENOUGH BY AN 'I/O ERROR'"j "MESSAGE. THE DRIVE MAY, OR MAY NOT BE":"ABLE TO BE READJU ALLOWING THIS AREA TO BE USED":"AND, IMPLICITLY, OVERWRITTEN.":" THE ROUTINES/MODIFICATIONS DISCUSSED":"HERE ARE FOR A 48K SYSTEM AND WILL NOT"; "WORK WITH ANYTHING LESS, WITHOUT SOME":"ALTERATIONS.":10000:15)"CAVEAT"::" SOME DRIVES SUPPL5, (0 IS FIRST), IS NOT USED":"ALTHOUGH THE DRIVES SUPPLIED BY SHUGART" "TO APPLE CAN ACCESS IT. SECONDLY (AND":"OPTIONALLY) THE AREA ON THE DISKETTE":"NORMALLY RESERVED FOR DOS, IS RESET IN":"THE DISKETTE'S VOLUME TABLE OF CONTENTS" "(VTOC),d:2:15)"TRACK 35":14)"----------"::" A DISK EXPANSION UTILITY."::" THIS MACHINE LANGUAGE PROGRAM WILL":"INCREASE USEABLE DISK SPACE IN TWO"H "WAYS : FIRST, AN ADDITIONAL TRACK WILL":"BE CREATED ON THE DISKETTE. NORMALLY,":"TRACK 3         3:"DO YOU WANT TO REVIEW ENTIRE LIST (Y/N)? ";:A$GA$(13)1000XA$"N"4500jA$"Y"1000uI0NNA$(I)""4335(NA$(I),10,1)" "4335(NA$(I),8,1)"%"433530100:NA$(I);::868:::"SELECT 'TYPE' T-uTHE AUTHOR OF THIS PROGRAM WOULD VERY MUCH LIKETO RECEIVE A COPY OF ALL CORRECTIONS OR MODIFICATIONSMADE-uSEND TO ADDRESS AT START OF LISTING. THANK YOU-u[][][][][][][][][][][]-PÀRE USE..,{uCOMMAND 4 -- FOR FUTURE USE.U,|uCOMMAND 5 -- FOR FUTURE USE.|,}uCOMMAND 6 -- FOR FUTURE USE.,~uCOMMAND 7 -- RETURN TOORIGINAL COMMANDS.,uCOMMAND 8 -- THIS EXITS YOU FROM THE PROGRAM.,u[][][][][][][][][][][]rz#XñǠˠ ˠӠˠʠ ˠŠˠŠŠ٠ԠΠͰ ҮɮԮנ̠Ҡ Ҡ̠ҠɠͧӠˠҠ'ΠŠΠԠΠŠӠΠŠҮɮԮҮɮԮ  ՠŮЩՠҮЩՠҮԩѠ٠ѠӠ Ѡ   "ϠРŠӠӠǠ ՠӠՠҮЩ  ˠҠ"Ԡ* ԮؠЮԠΠĠ  ˠҠРˠР͠ˠРˠŠԠ ˠԭҠ  ˠҠ ˠҮРAˠҠ ˠˠӠˠˠ !̠! Ԡ! !ٮʰˠҠˠҠӠXñ]àˠƠŠȠ͠ŠӠŠӠРˠ٠ĠŠӠ YOU A SECOND MENU OF COMMANDS - SEE THE FOLLOWINGx+xuCOMMAND 1 -- THIS WILL ALLOW YOU TO DISASEMBLE THE BUFFER AREA.+yuCOMMAND 2 -- THIS WILLREAD IN THE DESIGNATED SECTOR AND VERIFY IT WITH THE PREVIOUS BUFFER.,zuCOMMAND 3 -- FOR FUTU NEXT TRACK AND SECTOR.*luCOMMAND 7 -- THIS ALLOWS YOU TO MODIFY THE BUFFER. FOLLOW THE INSTRUCTIONS. YOU MAY USE RIGHT AND LEFT ARROWS.*vuTHE ESCAPE KEY WILL SWITCH YOU TO THE ALTERNATE DUMP MODE.3+wuCOMMAND 8 -- THIS GIVESOWN ON SCREEN.)NuCOMMAND 4 -- THIS WRITES BUFFER AREA TO TRACK AND SECTOR SHOWN ON THE SCREEN. YOU MUST PUSH 4 TWICE.)XuCOMMAND 5 -- THIS ALLOWS YOU TO CHANGE THE TRACK AND SECTOR.*buCOMMAND 6 -- THIS WILL READ TO THE BUFFER THENF$"H"İ12000#(NF$"A"İ13000-(N2000s(0uCOMMAND 1 -- THIS DUMPS BUFFER AREA TO SCREEN IN HEX FORMAT.(:uCOMMAND 2 -- THIS DUMPS BUFFER AREA TO SCREEN IN ASCII FORMAT.)DuCOMMAND 3 -- THIS READS TO BUFFER THE TRACK AND SECTOR SHBAD SUBSCRIPT ERROR.">'N(222)163ĺ:"TYPE MISMATCH ERROR"z'N(222)254ĺ:"BAD RESPONSE TO INPUT STATEMENT ERROR."'N(222)255ĺ:"CTRL C INTERRUPT ATTEMPTED."'N222,0'N::"DO YOU WANT TO CONTINUE?";:E$'NE$"Y"50000'N11000(G WRITTEN ON IT, THEN A READ ERROR WILL RESULT, BECAUSE THERE IS NOTHING TO READ."_&pNERR,0&zN(222)16ĺ:"SYNTAX ERROR--ALLSO SONETIMES CONT. C OR WRONG TYPE AS RESPONCE TO INPUT."&N(222)53ĺ:"ILLEGAL QUANTITY ERROR."'N(222)107ĺ:"RS ON 13 SECTOR DOS."%\N(ERR)128ĺ:"READ ERROR. THE RWTS ROUTINE WAS, AFTER48 REPEATED ATTEMPTS, UNABLE TO READ EITHER THE ADDRESS FIELD OR THE DATA FIELD. IF THE DATA FIELD FOR THE "T&fN(ERR)128ĺ:"SPECIFIED SECTOR HAS NEVER HAD ANYTHINDIFFER-ENT THAN THE VOLUME SPECIFIED IN BYTE 4."$HN(ERR)32ĺ"THE VOLUMN FOUND WAS ";(VOLUMN);".":"THE EXPECTED VOLUMN WAS ";(RWTS13);"."%RN(ERR)64ĺ:"DRIVE ERROR. SOMETHING UNUSUAL IS HAPPENING. THIS ERROR CAN BE CAUSED BY EMPTY SECTO#B10:1:"7 MOD "*#B11:1:"8 MORE"4#B2000R# N ERROR HANDLING ROUTINESX#*N#4N(ERR)16ĺ:"DISKETTE IS WRITE-PROTECTED AND CANNOT BE WRITTEN TO."0$>N(ERR)32ĺ:" VOLUME MISMATCH ERROR. THE VOLUME NUMBER OF THE DISKETTE FOUND WAS FICATION COMPLETE ":15120K";22:10:VF;" DIFFERENCES DETECTED "`";""k";11400"hB FIRST LIST OF COMMANDS"mB4:1:"1 HEX ""rB5:1:"2 ASC ""|B6:1:"3 READ""B7:1:"4 SAVE""B8:1:"5 NEW "#B9:1:"6 NEXT"256!:RWTS19,(BUFFER256)8!:216,0:COMND,1:RWTSD!:20000|!:BUFFERBUFFER256:RWTS18,BUFFER(BUFFER256)256!:RWTS19,(BUFFER256)!:VF0!:X0255!:(BUFFERX)(BUFFER256X)15080!:VFVF1!:X":VF0Ģ22:10:"VERI,0:59,64 6418D 6::"PRESS M FOR MENU - ANY OTHER TO CONT."\ 6CT$:CT$"M"14100p 6(59)6414010{ 614030 711000 7F$"H"İ12000 (7F$"A"İ13000 2711300 : VERIFY SECTOR!:BUFFERBUFFER256:RWTS18,BUFFER(BUFFER256)DN):DN1DN82000K,DN14000,15000,11400,11400,11400,11400,17000,50000a. HEX SCREEN DUMP{.1:18:" HEX DUMP ".HEX.F$"H"/2 ASC II DUMP21:18:"ASC II DUMP"2ASSII2F$"A"26 DISASSEMBLE BUFFER 6:58DRAW MORE COMMANDS&B,4:1:"1 DASM":L,5:1:"2 VERI"NV,6:1:"3 "b`,7:1:"4 "vj,8:1:"5 "t,9:1:"6 "~,10:1:"7 MORE",11:1:"8 STOP",22:10:"ENTER COMMAND NUMBER-- ",22:32:DN:DN,DN("TRACK"f+14:" ";T(p+17:" SECT"8z+18:" ";Sj+:3:7:" 0 1 2 3 4 5 6 7 8 9 A B C D E F "+20:7:" 0 1 2 3 4 5 6 7 8 9 A B C D E F "+CV$"0123456789ABCDEF"+X116+X3:7:(CV$,X,1);40);(CV$,X,1)+X+:$, 'DN255DN0EF1'2* DRAW DISPLAY SCREEN8+T +1:1:"VOL-";(VOLUMN)h+4:1:"1 HEX "| +5:1:"2 ASC "*+6:1:"3 READ"4+7:1:"4 SAVE">+8:1:"5 NEW "H+9:1:"6 NEXT"R+10:1:"7 MOD "W+11:1:"8 MORE"\+13:000 ' CONVERT HEX TO DECIMAL)'EF0D$'CV$"0123456789ABCDEF"W.'(H$)110070j8'(H$)210080~B'(H$)2EF1:L'EF1:V'H$"0"H$`'DN0j'X116t'(H$,1)(CV$,X,1)DNDN(X1)16~'(H$,2)(CV$,X,1)DNDNX1'X20000 F$"H"İ12000+ F$"A"İ130005 2000Y SS1:SDOS0:TT1:T34T0v 14:" ";T;" ":TRACK,T 18:" ";S;" ":SECT,S COMND,1:RWTS KB(ERR):KB16KB32KB64KB12820000" F$"H"İ12000, F$"A"İ130006 2TRACK NUMBER ";:34:T5 T(T):T0T342690R 14:" ";T;" ":TRACK,T 22:10:"ENTER NEW SECTOR NUMBER ";:36:S S(S):S0SDO2693 18:" ";S;" ":SECT,S 2000 COMND,1:RWTS KB(ERR):KB16KB32KB64KB128ĭKB136KB149İ13000:25204( KB155İ12000:2140?2 NB,KBJ< 13000F NBNB1:NHNH2:NH39NH8:NVNV1:NV19NV4:NBBUFFERP 2520Z 2000d COMND,2n RWTS:KB(ERR):KB16KB32KB64KB12820000x 2000 22:10:"ENTER NEW  ASCII CHANGE, NH2(NH2)NHNH18 NV:NHI :" "::NHR 430k KB141İ13000:2000 KB136NBNB1:NHNH2:NH8NH39:NVNV1:NV4NV19:NBBUFFER255 KB149NBNB1:NHNH2:NH39NH8:NVNV1:NV19NV4:NBBUFFER 0:2160 ` KB155İ13000:21401j KB1762330It KB185KB1932330Z~ KB1982330q KB185DNKB176 KB192DNKB183 DNDN((NB)16)16 NB,DN 12000 NBNB1:NHNH1:NH39NH8:NVNV1:NV19NV4:NBBUFFER 2160NB,DN 12000  NHNH1, NV:NH=$ :" "::NHF. 430_8 KB141İ12000:2000B KB136NHNH1:NH8NH39:NVNV1:NV4NV19:NBBUFFER255L KB149NBNB1:NHNH1:NH39NH8:NVNV1:NV19NV4:NBBUFFERV KB136KB149İ1200KB149NHNH1:NH39NH8:NVNV1:NV19NV4:NBBUFFER\KB136KB149İ12000:2330uKB155İ13000:2140KB1762180KB185KB1932180KB1982180KB185DNKB176KB192DNKB183DNDN16(NB)((NB)16)16 0:NV4DN)HH$(A$,1):10000:NH82DNSR22:10:"TYPE THE CHANGES AT CURSER"d\F$"A"2510uf HEX CHANGEpNV:NHz:" "::NH430KB141İ12000:2000KB136NBNB1:NHNH1:NH8NH39:NVNV1:NV4NV19:NBBUFFER255<32:DN:DN'DN(DN):DN1DN82000XDN2040,2060,2700,2660,2690,2800,2080,11300c12000m2000x 130002000 22:10:"ENTER LOCATION(HEX)-- "*22:32:A$4H$A$:10000:A$H$:NBBUFFERDN:EF12080 >H$(A$,1):1000 DOS)--";DN)8DN(DN):DN0DNDO1050:BSDN:SECT,SGLCOMND,1{VRWTS:KB(ERR):KB16KB32KB64KB12820000`11000j1200022:10:"ENTER COMMAND NUMBER-- "22:32:DN:DNDN(DN):DN1DN82000 DN4Ģ22:ER)16368,0.KB(16384):KB128450>16368,0:Y GET TRACK AND SECTORa:"TRACK NUMBER(0-34)--";DNDN(DN):DN0DN341020TDN:TRACK,T:$"SECTOR NUMBER(0-15 FOR DOS 3.3)" ." (0-12 FOR OLD13DO16310JDODO1"T:I^"DISK CONTROLER SLOT NUMBER--";DNehDN(DN):DN1DN7340urSLOT,DN16}|:"DISK DRIVE NUMBER--";DNDN(DN):DN1DN2380DRIVE,DN1000 GET INPUT FROM KEYBOARD(KB -- KEY IN HOLD7(DRIVE)1(DRIVE)23101:"THE PRESENT SET UP IS:":"DOS - ";DO1;" SECTORS":"SLOT - ";(SLOT)16:"DRIVE - ";(DRIVE)2:"DO YOU WISH TO CHANGE ANY OF THE ABOVE?":430:KB21710006:"ARE YOU USING 13 OR 16 SECTOR DISKS";:DO@DO8,6,201,160,176,2,233,127,32,76,249d " 200,192,0,208,233,169,00,133,32,169,40,133,33,169,0,133,34} , 169,24,133,35,96,0 -DO(47465):DO200DO12 .SLOT,(47095):DRIVE,(47096):DO201DO15 /DO12DO153100(SLOT)162(SLOT)16,133,35@ 162,0,189,0,64,32,218,253,232,224,0,208,245,169,0y 133,32,169,40,133,33,169,0,133,34,169,24,133,35,96  0,0,0,169,7,133,32,169,32,133,33,169,3,133,34  169,19,133,35,32,88,252,169,20,133,35,160,0,162,2#  185,0,64,201,128,4 1,96,1,0,17,0,32,3,0,64,0,0,1,0,0,96,1,0,0,0,0,0,0,1,239,216h RWTS18,BUFFER(BUFFER256)256 RWTS19,(BUFFER256) X0121 DN HEXX,DN X 169,7,133,32,169,32,133,33,169,3,133,34,169,19,133,35 32,88,252,169,20 FHEX17000:ASSIIHEX56* PBUFFER16384 ZRWTS768:IOBRWTS10:SLOTRWTS11:DRIVERWTS12:TRACKRWTS14:SECTRWTS15:DEVRWTS16:COMNDRWTS22:VOLUMNRWTS24:ERRRWTS23 dXRWTSRWTS35 nDN xX,DN X 169,3,160,10,32,217,3,96,0,0B OM JACOBSEN []. [] 04/20/81 []K [] GREEN APPLES []h [] 4417-129 [] [] NORTH ZIRCON LANE [] [] CEDAR FALLS, IOWA [] [] 50613 [] o\o\o\o\o\o^\o\o\o\o\o\ (16384 2M(15) <20000%- DOS 3.2.1 AND 3.3 DISK MODIFIER-REV 2iFOR INSTRUCTIONS SEE REM STATEMENTS STARTING AT 30000.y:6:102033,8::33,40X11000:X o\o\o\o\o\o^\o\o\o\o\o\ []TOM'S DISK MODIFIER[] [] REV C BY [] [] T          NG ON ALL LINES? (Y/N)" $150v$p CATALOG READ ROUTINE TYPE "CAT." ON LINE 1 TO CATALOG A DISK ~$u:$zD$"CATALOG"$|:7:"* PRESS ANY KEY TO RETURN *"$AA$::$170N9) "<#EX$(8)" DOUBLE WIDTH ALL LINES? (Y/N) "r#EX$(9)" PRINT A NUMBER ON THE LABEL? (Y/N) "#EX$(10)" NUMBER OF LINES PRINTED ON LABEL (1-99)"#EX$(11)" I,J,K,M MOVE CURSOR FOR LABELS "$EX$(12)" EMPHASIZED PRINTI(3)" (0-9) JUSTIFY (L/C/R) "d"EX$(4)" NUMBER OF LINES PER BLANK LABEL (1-99) ""EX$(5)" # OF OTHER LINE FOR DOUBLE WIDTH (0-99)""EX$(6)" UNDERLINE THE FIRST LINE? (Y/N) "#EX$(7)" NUMBER OF COPIES OF A LABEL (1-9,!K1CL:CL$(K):CL$(CL$,1):CL$;::D!K2LL:K;:KLLĺJ!v!K2CL:CL$(K):CL$(CL$,1):CL$;::|!!4100:1030!|EX$(1)" MAX # OF CHARACTERS FOR LABEL (1-99) "!}EX$(2)" DOUBLE WIDTH FIRST LINE? (Y/N) "."~EX$2,136,32,44,213,173,0,2,201,3,208,3,76,99,216,169,0,133,13,133,14,169,0,160,2,32,237,227,32,61,231,32,123,218 J 165,135,164,136,133,184,132,185,32,183,0,96 T  TEST PRINTOUT ROUTINE TYPE "TEST" ON LINE 1 TO ACTIVATE !407080N"; D$"PR#0"o STRING INPUT ROUTINE - ACCEPTS COMMAS, COLONS, QUOTES, ETC "XX768838,BYTE:XX,BYTE6XXm @ 32,190,222,32,227,223,36,17,208,5,162,163,76,18,212,133,133,132,134,165,184,164,185,133,135,13LT VALUES; EPSON SLOTFINDER ROUTINE GSL17[SMSL25649152(SM)24(SM1)176(SM2)56(SM3)72SL$(SL):4060SLSL1: ACCEPT SLOT 1 IF NOT FOUNDD$;"PR#";SL: ACTIVATE PRINTER" 0:NL0:DW0:DA0 * )4 :1010D> :8:EX$(11)::6:24JH R #CH/LIN,D W 1ST,JUS LCR,#LIN/LB, D W OTH,UNL 1ST,#COPIES, D W ALL,NBR LAB,#PR LIN,CHG OR RET, EMP ALL: PARAMETER NAMES \ 40,Y,C,8,0,Y,1,N,N,4,X,Y: DEFAU13:H7İ3300:3070, HH13:(7);:3070N HXH:HH13:H40İ3300:3070f HH13:(7);:3070 NR(3V)8(H11)13:NX(3VX)8(HX11)13 VX:HX (HX9):" ";:(HX2):" "; V:H (H9):">";:(H2):"<"; 500 ER0:ULЖ(H2):" ";:3010[v DF$(NR)" "DF$(NR)::H:DF$(NR);::(H9):" ";:(H2):" ";:3010e 3070 CURSOR MOVEMENT CONTROL  VXV:VV1:V2İ3300:3070 VV1:(7);:3070 VXV:VV1:V7İ3300:3070 VV1:(7);:3070 HXH:HH0 AS773240: AS743260.D AS753280nN NR(3V)8(H11)13:NR11AS13Ė15:" ";:26:" ";:3370X AS13ĖH:" ";:H:DF$(NR):DF$(NR);:XX$b AS13ĺ(7);:3070l (XX$)13ĺXX$;:DF$(NR)DF$(NR)XX$::H:DF$(NR);::(H9):" ";:LLĞ:1:8:868:6:"ERROR -- TOO MANY PRINTED LINES";:"";s TLLLāI11500::1:868::ER1:3390:3010 VXV:HXH M(16384):M127AS(M128):16368,0:3110 MOVE CURSOR ARROWS WITH I,J,K,M  3070& AS7332202ĺ(14);$ LINE$(I)8 I9L I1LLPLULNLSK1?` Et K ] 4100::1010 ENTER THE DEFAULT BLOCK TO CHANGE THE PARAMETERS  V6:H24:V:(H9):">";:(H2):"<";:H :3390 330 ER13070@ TLPLULNL:TL0 \SK0pI1PL.JUS$"L"MG0MG1VM1:((I1DW1)(DA1)(IDO))M2~ULI2Ė3:JJ1(CL3):"=";:JJ:JUS$"C"Ĺ36,(.5(CLM(LINE$(I))))JUS$"L"Ĺ36,MGJUS$"R"Ĺ36,(CLMGM(LINE$(I)))I1NLĺ" ";  M128:16368,0:1400n1380.xAS132020::1010Z BEGIN LABEL PRINTING d4070s(27)"E"; N1NCOP NLĖ(CL((L$)1)):L$4SK(.5(LL1PLNLUL))1: SKIP SOME LINES TO 'CENTER' THE LABELHSK0āKK1SK:::216?(((I1DW1)(DA1)(IDO))(A$)((CLMG)2))İ470:1170](A$)(CLMG)İ470:1170v((A$)0LINE$(I)A$2TII<IPLILNFPTIPLBGI:1140Z8:6::(7)"'SPC' TO PRINT, 'RTN' TO CHANGE";::dM(16384):M127ASM10);:450\A1$(14)Ė1:(9(2NL)(2(I1))):868:IPLČ998:868:ILN::1370qA1$(14)ī1170768,A$:A$A1$A$: CALL 768 IS INPUT ANYTHING ROUTINEA$"TEST"ILN::5010A$"CAT."ILN::6005 (10(2NL)(2(I1)))(27)ė:30102A1$(18)Ė1:440:ILN::1370nA1$(21)A1$"": A RIGHT ARROW WILL NOT BE COUNTEDA1$(13)ĺA1$;A1$(13)(LINE$(I))0Ė3:LINE$(I)::1330A1$(14)ľDF$(10):DF$(10);:DF$(10)" "DF$(10):400:6::11:DF$(BL1$(14)İ450:10504LL1$;:"";L$:L$L1$L$?VXL$L$r`(L$)1(L$)999ĺ(7);:998:1:868:1030{jBG1tLNPL~ GET LINE LABELS OR CHECK FOR EXIT CONDITIONS IBGPL1:(9(2NL)(2(I1))):I"^";A1$:A1$ FOR EXIT CONDITIONS V1:9:868:"LBL NBR^";:L1$:L1$(13)Ė9:L$XL$:L$:1130m$L1$(27)ė:3010.L1$(18)Ė1:L$XL$:"LBL NBR^";L$::A$(18):I1:440:13708L1$(14)ľDF$(10):DF$(10);:DF$(10)" "DF$(10):400:6::11:DF$(10);:K11500::480::W:998:1:868:8:6::"ENTER LABELS OR 'ESC', ^R, ^N#"::p GIVE EXPLANATIONS 8:1::EX$(NR);:V:H: ** PROGRAM MAIN BODY ** 480LNPLNL1130 GET LABEL NUMBER OR CHECKEANEOUS SUBROUTINES ALIPL:L"^";LINE$(L):::TLPLULNL:TLLLĞ:1:8:868:6:"ERROR -- TOO MANY PRINTED LINES";:(7)(7)(7);:K11500::1:480::1:8:868:3:"ERROR -- TOO MANY CHARACTERS FOR LINE";:"";:$(6),1):UL$(DF$(6),1)M^DW$(DF$(2),1):DA$(DF$(8),1):DO((DF$(5),2))_hDW$"Y"DW1rrUL$"Y"UL1:|DA$"Y"DA1(DF$(9),1)"Y"NL1CL(DF$(1)):LL(DF$(4)):NCOP(DF$(7)):PL(DF$(10))1020  SOME MISCELL:DF$(7);:24:DF$(8);:37:DF$(9)A 11:DF$(10);:37:DF$(12)c ":3:I14:"=";:40:"=";:m ,34,7 61010: GO TO BODY OF PROGRAN @ INTERPRET THE INPUT PARAMETERS JMG((DF$(3),1)):JUS$(DF$(3),1)TUT$(DF! 3:HD$(1)6)HD$(2)6)HD$(3)B 3:HD$(4)6)HD$(5)6)HD$(6)c 3:HD$(7)6)HD$(8)6)HD$(9) 3:HD$(10)6)HD$(11)3)HD$(12) I140:"=";: 3:11:DF$(1);:24:DF$(2);:37:DF$(3) 11:DF$(4);:24:DF$(5);:37:DF$(6)" 11HD$(12),DF$(12),LINE$(100),EX$(12):D$(4)@ xI112:HD$(I):V I112:DF$(I):v I212:DF$(I)" "DF$(I): 5500 UL0:NL0:ER0:DW0:DA0: 4000:4130:330 :::" SUPER LABEL PRINTER ";: I140:"=";:  *****************0  * *I  * FOR HAAUG *b  * MEMBERS *{  * ONLY *  * *  ***************** d INITIALIZE THE VALUES AND SET UP THE PARAMETER BLOCK * n JOHNSON *6 * *S ***************** }  ***************** * *  * ALL RIGHTS *  * RESERVED *  * *  *****************  *****************5 * *O * SUPER *i * LABEL * * PRINTER * * * * BY * * * * CLARK * *           .0";6)17:34,16::*h)P1$:100:P0$2)LA8*S\+ *** DO IT AGAIN? ***Y+$,:5:"ANOTHER SET? (DEFAULT = NO) N",17:33:"";OK$,OK$""ī20000P-OK$"N"OK$"NO"ī1000 N *** END ***RNN:NXDEFAULT = NO) N"$%15:34:"";OK$7%OK$""ī10000W%OK$"N"OK$"NO"ė:9300]'yt' *** MAIN PRINTOUT ***'<(::5:"LABELS PRINTED: ( %)"(LA1N)34,13::15:22:LA;:28:(1000LAN)10;)LANĢ15:28:"100S$:P0$(4)"PR#0"!:G."13:5:" "i`"13:5:"LABELS TO PRINT: ";Nj"13:28:"SLOT: ";PS$t":15:34,14(## *** PRINT SAMPLE LABELS ***#T$P1$:100:P0$: PRINT A LABEL$:5:"ANOTHER TEST? (0"ī6200L(N$)dX1L3NA((N$,X,1))I,NA48NA57ER1PXeER1ER0:6200qXN(N$)w@ *** GET SLOT *** l 15:5:"PRINTER SLOT? ";PS$ (PS$)1ī83004!NA(PS$):NA49NA55ī8300!P1$(4)"PR#"P "J[11:5:" "Yb8:5:A1$hc9:5:A2$xd10:5:A3$e11:5:A4$l34,12:p *** GET NUMBER OF LABELS ***813:5:"NUMBER OF LABELS DESIRED? ";N$N$""N$"INES CORRECT?"017:10:"(DEFAULT = YES) Y";D17:26:"";OK$V&OK$""ī5710}DOK$("YES",(OK$))Ģ11:1:5200N32,0:8:1:33,40::X8:5:" "Y9:5:" "Z10:5:" A1$:5300 A1$X$1 "";X$: ADDRESS LINE 2N X$""Ģ12:1:A2$:5400Y A2$X$v "";X$: ADDRESS LINE 3 ,X$""Ģ13:1:A3$:5500 JA3$X$ |"";X$: ADDRESS LINE 4 X$""Ģ14:1:A4$:5600 A4$X$16:1:"ARE THE ABOVE L, 12:5:".............................."Y 13:5:".............................." 14:5:".............................." :10:5:33,31:32,4:  *** GET ADDRESS LINES ***  P"";X$: ADDRESS LINE 1 dX$""Ģ11:1:*****************************"% 86 T 34,7:35,18Y 8:"ENTER THE 4 LINE ADDRESS" 9:5:"NO COMMA BETWEEN CITY & STATE" 11:1:"#1:" 12:1:"#2:" 13:1:"#3:" 14:1:"#4:" 11:5:".............................."THE"1 4:5:"PREVENTION OF CRUELTY TO APPLES"S 22:11:"PERMISSION TO COPY"| . 23:7:"AND/OR MODIFY THIS PROGRAM" ` 24:2:"GRANTED FOR NON-PROFIT PURPOSES ONLY"; ( 6:1:"***************************************" 20:"**********L PRINTER *** n xA1$% }500. A2$7 500@ A3$I 500R A4$[ 500c :i < PRINT CHR$(10); >   l *** SET UP SCREEN ***  :: 41:8:"RETURN-ADDRESS LABEL MAKER" 3:11:"THE SOCIETY FOR !RETURN-ADDRESS LABEL MAKER;AUTHOR: ED ISENBERG SOCIETY FOR THE PREVENTION OF CRUELTY TO APPLES SOUTHEAST SAN FRANCISCO BAY AREA DATE: OCTOBER 24, 1982  1000 d *** LABE      201,141,240,21,201,1368240,17,201,128,144,13R201,160,176,9,72,132k(53,56,233,64,76,2492253,76,240,253<I76876827FV:I,V:IP54,0:55,3Z1002 SCREEN)"::"TO EXECUTE SCREEN WRITE 2":D$"FP":~ 24:"HIT ";::"RETURN";::" TO CONTINUE, ";::"ESC";::" TO EXIT"; A(49152):A1271010 :49168,0:ddxD$(4)4N13:400:1000:A155500:C500e(4)"BLOAD SCR.WRI.INST."N::8:8:"LOADING ";::"SCREEN WRITE 2":2 D$"BLOAD SCREEN WRITE 2.1":13:"ENTER 'CALL 848' (CLEARS SCREEN)"::" OR 'CALL 851' (DOESN'T CLEARPa X "2 5ݤ% Ld% [ :L̤İ?$2 PROGRAM SCREEN EDIT!<<F J.L.SHANKS 1/9/80BPHZTdD$(4)ZnzxD$"BLOAD SCREEN WRITE 2.1""INPUT NAME OF SCREEN FILE TO BE EDITED":A$:D$"BLOAD"A$854ΠƠ͠٠®ŮҬӠӠΠŠ٠ƠǠ͠ϢήŠŠҠΠȠŠΠӠ`ŠĠŮŠ   2͠ӠΠ :ŠŠŠĠ٠ǠŠԠĠΠŠϭΠ̮Ӡ/ͩ͠Ġ ӠӠͮ`٠ӬЧLΠҠϠŠŠΠŠΠԠά͠ĠӬîԠӠ٠     ΠάŠҠ̠ŠԠŠ͠ƠŠήՠΠΠŬŠΠϠˬѧΠ̠ŠĠӠ٠ΠŠӮ`Ů 8̠͠ŮՠΠϠҠӠŠӠϠӭŠ͠   2Š/ŠΠ٠Ǡ̭ĠΠŠ͠ŮŠŠӠנϠ٠Š`ŠŠΠŠϠˠ٠ЭΠŠĠ٠ǠŠ͠LΠŠԠŠӠΠĬŠǠŠ ĠΠǠŠ  Ӡ͠ϠӠՠΠΠ̠ŠΠȠҭ̭ɠԠ ӮӬĠŠŠâҠέ̭ΠԠ̠Ӯ̠ӠԠҠΩ̭ Ԡ̮Ԡ۩`̭ƠԠFLASHINGӮ̭֠ԠŠߩ 6ĠΠŠ/̠ӠΩҠŠŠϠŠ̠Ӯ̭ԠȠܩ`ӠŠҬҠάL   2ӠΠ٠ǠҠŠ͠ҠάîŠέĠӠŠ." ::"]BLOAD DISK CHECK"0 "]CALL 768": 20: T THE DRIVE."5 P:"START THE PROCESS BY 'CALL 768'"f Z:"IF THERE ANY BAD SECTORS, THE TRACK AND" d"SECTOR WILL BE PRINTED OUT (IN HEX) AS:" n" T__ S__" x:"IF THERE ARE NO BAD SECTORS, YOU WILL" "BE RETURNED TO THE CALLING PROGRAM<8 ::T$"DISK CHECK INSTRUCTIONS":21(T$)2::T$@:u"DISK CHECK";::", WRITTEN BY DAVID CUSIMANO,"("WAS CREATED TO CHECK A DISK FOR BAD"2"SECTORS."<:"SIMPLY 'BLOAD DISK CHECK' AND THEN PUT" F"THE DISK TO BE CHECKED IN   jHHH ȩ  ȥ   H  #hhh`w +"POSITION TO ANOTHER. POSITIONS ARE"R +"REFERENCED BY THE SEQUENCE NUMBERS "~+"GIVEN IN THE LISTING. LINES BETWEEN"+"THE NEW AND OLD POSITIONS SLIDE UP OR"+"DOWN AS NEEDED. NO LINES ARE ADDED OR" +"REMOVED, HOWEVER, THE SEQUENCE ND$;" SAVE ";NAME$,D1 ' 2 ( CHANGE LINE 30H ) TO LOAD, OR RUN` * A BACKSPACED FILE DbTHIS PROGRAM LETS0YOU PUT TRICK FILEHNAMES ON YOUR DISKaOF 22 CHARACTERS ORyLESS. CHANGE N$ TO YOUR OWN LIKEING.  D$(4)N$"*T 190 MAIN PROGRAM"NAME$"A"(8)(8)(8)(8)(8)(8)(8)(8)N$ ҠŠά׍ϠŠȠӬîL NOT". P"COPY PASCAL OR APPLE CP/M DISKS."N Z:"TWO DRIVES ARE NEEDED."~ d:"SIMPLY 'BRUN PDQ' TO WATCH THE ACTION!" n::" BRUN PDQ" x16:CT1 ::T$"PDQ INSTRUCTIONS":21(T$)2::T$9:j:"DPQ";::" IS A FAST COPY PROGRAM WHICH"("DISPLAYS A DISK MAP WHILE PERFORMING A"2"DISK COPY."<:"IT ONLY COPIES THOSE SECTORS WHICH ARE" F"FILLED. UNLIKE 'COPYA', IT WIL #a90#e#e90#wi TO 23 CHARACTERS ARE PERMITTED IN A"S"?/"TITLE LINE. NO MORE WILL BE ACCEPTED."Y"2a"290g"6o"690u":}":90">">90"gB"hB90"OF"PF90"7J"8J90"N" N90"R"R90"U"U90"Y"Y90"]"]90#aE." !/1!/" <- BACKSPACES THE CURSOR"T!/" ABORTS THE ENTRY"x!!/" ACCEPTS THE ENTRY"!&/" CTRL-Z SETS THE NEXT CHARACTER IN"!+/" INVERSE."!0/" CTRL-A LOCK AND UNLOCKS INVERSE MODE";!5/%":/"UP LINES BELOW"< ."THIS POINT SLIDE DOWN TO MAKE ROOM. AN"m ."INSERTED LINE IS ALWAYS A TITLE LINE; IT"; ."IS ALWAYS PRECEEDED BY 7 CTRL-H'S FOR" /"PROPER LEFT JUSTIFICATION IN THE" /"CATALOG. SEVERAL CONTROL FUNCTIONS"! /"ARE AVAILABLUMBERS"0%+"OF INTERVENING LINES WILL CHANGE."6*+d/+"PRESSING WITH NO ENTRY ABORTS"x4+"THE FUNCTION"~.. PAGE L.:A$"TITLE LINE INSERTION":70:."THIS PLACES A TITLE LINE AT A SPECIFIC" ."POINT IN THE CATALOG. ALLӠĠȠŠӠ`$% "! f ` H@A$Lk!% "LI!H@Ah % Ls!%L.! L2!%$ "! %% $ " " @A $`ˠРˠҠҰȠĠҠ  X 1 J   c   & L!% $ "! `%$ "! `%$ "  %$ "  ` `! `%$ " Ӣ Lޢ L`$% "! f    UTINE CAN ALSO BE ACCESSED BY:"1 Z"]CALL 8192"a d:"DO NOT 'BRUN' DISK MAP OR YOU WILL END"{ n"UP IN THE MONITOR." x:"PLACE A DISK WHOSE MAP YOU WISH TO VIEW" "IN THE CURRENTLY LOGGED DRIVE, AND THEN" "HIT ANY KEY...";:A$: 81S (4);"BLOAD DISK MAP"B::T$"DISK MAP":21(T$)2:T$J:y("THIS PROGRAM WILL DISPLAY THE CURRENTLY"2"USED SECTORS ON A DISK."<:"THE FIRST 3 DOS TRACKS ARE MARKED 'DOS'"F"AND THE 'CATALOG' TRACK BY '^'." P:"THIS RO-]ˠ].]ӠӠà']ͮd.?Jr.?Kre=>r=>rY7Cq.?%roPa()GPa()o[Q,]ˠǠ]']ٺΠ(]ǠPM6da()E@E(ǠˠԠçϠ)GM6*qUVWq8rI&q=>r`8 8@9()@9()rr8@9()r$D0\Ba@E@E@#D`.?6@r$Nd6?e_  NY_ AQ>BUVW$Ԡ٠)G2q.?6@r`$`%Qd6?ec_ X`%@p()`%@p()`%@p()`%@p()`$:Pa(ԠϠŠĠ)GM6dM6-q.?6@r`$d6?e`$ >Ǡ)FGPa(Ƞ)FQNPM6da(ԠΠˠΠŠ)P a(ĠԠ٠)G>q.?6@r`$`%QPo.?%rM6d6?e_a(Š)E@E()FE()Fa@E()E@E()FE()FcP a()GM6Sq.?6@r`$d6?e`$Z`$qq8r<`=>r$M6M6M6M6M6q_A\Ba@E()E@q.?r.?rq.?r.?rG`.?0r$PM6da(qqqqqq`$q6qq`.?r%q>q`=>r $qqDqq`=>r =>r $/a(ӠҧƠ٠S(ԠǠκ)&@/co.?%ra@E()E@E()E@ha@E@E@E()E@Q3PM6dd0edJe.?LrdKe.?Mr UN@"rC@"rC@"(rC@"rC@"(rC@"rC@"r@p()qhq.?Mr$6qq8r<@`=>r$JM6M6M6M6M6q_63J\BPM6da(ĠҠΠ̯ҩ)GM6>Tq.?6@r`$Td6?e`$Z`$TP^@p()`%@p()PM6dM6@p@d.?r.?r e_#Wq.?6@r`$d6?e`%Q`$Z`$ q[_P+Q;,PM6da(ӠҧƠ٠͠)GM6S6q.?6@r`$6d6?e`$Z` _@`$PM6da(Ԡ٠ҠנԠ)GM6S\`$qPa(Ժ)FE(Ԡ٠Ҡנ)GM65\`$P M6da(ź)FqZ@p(ܬ)d.?r.?r e:q.?6@r`$d6?ePM6dc`$ 6`@9()@9()@9()$a@E@E@_ a@E@E@Q7M6S(ҠנŠ)&@a@E@E@E()E@_ `$`$*`$M6d"e)%@p()P`=>r@9()%@p()\BPM6d`@:()@:()$d`7=>r@9()$`7=>r@9()$P a(Š)UVWM6Y_ @a@E()E@`@:()$P a(ԠϠ)GM6)`%@p()`%@p()kx`%@p()Pa(ӠҧՠȠϠ)GM6d`%d2ea@Gd2eM6_P`$,l`$q8r`=>r@9()%@p()`=>r@9()E@*#rG@p()"Pq.?6@r`$Pd6?egZ`$d`;@r$Fq0?r`%q`;@r%q;@r_Fdq`%Qon`$`%@p()`%@p()`%@p(d ed!e(oPfF@p(ՠĽ˽˽ŽٽŽįΠԽĽٽ)mH@B;@rrp(РƠǽŠԯŽΧԠҠ̠ˠՠ).KPa(ΠE()E@d"eqqq(2q`=>r $2qo<oPa(۠)qqf8rghf8rgh`=>r $<YAq.?%rd e'd!eM6oa(ԠàϠ)deidedeZ Kd6?e.?6?rzhN@"rC@"rC@"(rC@"rC@"rC@"rC@"(r@p()qca@E(ìɬ)!#@p(Ҡՠ)/(oM6P8*;@rra@o7-oa@     :1030D";:190:KEY("4")ī1030<?':D$;FU$;FI$:1030LL30[?':D$;FU$;FI$:1030LLO ";FU$;:868>'190:KEY65KEY(HA$)VVT:1:868:1190h$'LE$(KEY):CK1:120:CK0:OK110040z.'F1FL100108'120:DE1FU$"DELETE"='DE1ĢVT:1:868:"DELETE ";FI$:12:"HIT '4' TO DELETE";:190:KEY("4")ī1030?':D$;FU$;FI$;FU$;"ING DISK";:868:19:"HIT 'ESC' TO EXIT";:5::ZZ65(HA$):OK1LE$(ZZ):9050P#LE$(ZZ):ST1:CK1:120:F1FL9070Z#CK0:120:D$;FU$;FI$:(16384)128X(16384)128:16368,0:X27Ĭn#ZZ:'V:1:" PRESS 'LETTER' YOU WISH T)(21919)256:4!&>!BC1:8010H!1:868:" PUT DESTINATION DISK IN SAME DRIVE AND HIT ANY KEY":190:SA(21902)(21901)256:LA(21920)(21919)256:D$;"BSAVE ";FI$;",A";SA;",L";LA:(#FU010000Y-#V:1:868:" ";:""BC0:JVT:1:868:" PRESS LETTER OF BINARY PROGRAM";nT190:LE$(KEY):LE$"A"LE$HA$Ė1:868:1190^CK1:120:T$"B"8020hCK0:120::D$;"BLOAD ";FI$:BC1BC0:8520y" START : ";(21902)(21901)256;:21:"LENGTH : ";(21920&oCK1:120:T$"B"ĺ"";:7520[~CK0:120:VT:1:868:" BLOAD OR BRUN (L/R)";190:LE$(KEY):LE$"L"LE$"R"75701:868:" WHAT STARTING LOCATION:";SL$:LE$"L"FU$"BLOAD":7600FU$"BRUN"D$;FU$;FI$;SL$:@E0*lLE$(KEY):CK1:120:CK0:FL17010g120:1:VT:868:"ENTER NEW NAME : ";NN$:NN$""1030D$;"RENAME ";FI$;",";NN$:1030LVVT:1:868:" PRESS LETTER OF BINARY PROGRAM";`190:LE$(KEY):LE$"A"LE$HA$ĢVT:1:868:1190;:FU06250;190:KEY("4")ĢVT:1:868:1190WF10:FU$"DELETE":9000qjOK0:F10:DE1:10010{c6499dFU$"VERIFY":OK1:9000XVT:1:" PRESS LETTER YOU WISH TO RENAME";:868b190:KEY("A")KEY(HA$)ĢVT:1:868:119F$"LOAD":T$"B"F$T$F$DVT:2:868:F$;" ";FI$:D$;F$;FI$:JdFU$"LOCK":F10:9000j|FU$"UNLOCK":F11:9000pzVT:1:868:FU1ĺ" HIT '4' TO DELETE UNLOCKED FILES";FU0ĺ" PRESS LETTER YOU WISH TO ";::"DELETE"; 190::KEY1310301 KEY49KEY503080M& DR$",D"(KEY)::1030b::34,23:1040h1:VT:" PRESS 'LETTER' YOU WISH TO LOAD";:868:190:KEY65KEY(HA$)VVT:1:868:1190LE$(KEY):CK1:120:T$"T"4510CK0:120: ";FI$: X VT:1:O(K$)1:O4000,4500,5000,5500,6000,6500,7000,7500,8000,8500 VT:1:" HIT KEY FOR NEW SLOT NUMBER";:868 190:KEY13ĺ: KEY49KEY553040 SL$",S"(KEY):VT:1:"SLOT:";(KEY);" HIT KEY FOR NEW DRIVE"211270 1200" KEY133020E K$(KEY):K$"@"K$HA$2000] K$"/"K$":"3000 K$"!"K$"&"FU1:K$((K$)16):3000 (1200 LE$K$:120: :RU$"RUN":T$"B"RU$"B"RU$ T$"T"RU$"EXEC" 24:RU$;" ";FI$:D$;RU$;" TOP OF CATALOG=0 CHANGE SLOT/DRIVE='RETURN' SHIFT 2,3,4,5 FOR FULL DISK MENU ->":V24 V:"RUN ? ";:OK0:FU0:PL1:DE0 V:8:VTV:(MENU$,PL,31);:16368,0:190:KEY8PLPL1:PL145PLPL1 KEY21PLPL1:PL0PL1 KEY8KEY:LL4:P(L)128:P48P57ĂT[ 8TT1:BT122:VB:110:LL4:P(L)128:P47P58ĂB jVTB:V:4:(91);(VT65);(93):VZ VV1:HA$(VT65):MENU$"<- MENU LOAD=1 LOCK=2 UNLOCK=3 DELETE=4 VERIFY=5 RENAME=6 BLOAD/BRUN AT=7 BFIND=8 BCOPY=9T: ? 16384,128:KEY(16384)128:16368,0:KEY27ĀE K _ "NOMON C,I,O" :::1:5);"*** APPLE ][ PLUS SUPER MENU ***":1:D$(4) D$;"CATALOG";SL$;DR$:34,0:32,39:33,1:6:"HIT ESC TO EXIT":32,0:33,40:T022:VT:110 d1010(nV1:L(40)(41)256:HxA(LE$):AA66T:CK1130a}A1:4:"(";LE$;")"xVA:110:ST0140ST0:(L)160FL0:FL1:FL0:P(L)128:P42FL1 P(L1):T$(P128):FI$"":C738:FI$FI$((LC)128):C:V     1:21:A$:C(A$)64:(C1CPROGNUM)C3790> _C37ĉ: dP$"":P2(C4)22:C2736:P$P$(C2,P2)C2,P21)16128):::B(C1)1ĺ(4);"BRUN ";P$ nB(C1)0ĺ(4);"RUN ";P$ xB(C1)2ĺ(4);"EXEC ";P$M;P$D4:::V1:55O AA1,P2)1,P21)16128:B(PROGNUM)0:A("B")B(PROGNUM)1j KA("T")B(PROGNUM)2 PPROGNUMPROGNUM1:5);(64PROGNUM):55 U:V(37):2:868/ Z1:V1:958:"WHICH PROGRAM (A-";(64PROGNUM);")? HIT TO EXIT";:VDK$(4):DK$;"NOMONC,I,O":B(26):::34,3:DK$;"CATALOG":1012,0:1:" APPLE ][ PLUS SELECTIVE MENU PROGRAM ":PROGNUM0:24::4:868:57P2(PROGNUM4)2:7,P2)7,P21)1616085 <A0,P2)0,P21)16128:A(" ")V(37):34,V:2    1579,1707,1835,19634  1107,1235,1363,1491N & 1619,1747,1875,2003DB$"RUN"B$"BRUN"3 X194B$"LOAD"B$"BLOAD"B X212470L N$""X J433o N$N$((L(I)J))v J :D$;B$;N$ B$"EXEC"Ā 20 B$"EXEC":410  1027,1155,1283,1411  1539,1667,1795,1923  1067,1195,1323,1451K$"0"K$"4"2900 K$"@"K$(LL127)3709 240O "K$"1"B$"LOCK"g ,K$"2"B$"UNLOCK"} 6K$"3"B$"LOAD" @24:1:868 J" PRESS 'LETTER' YOU WISH TO "; ^B$;::198:BELL h240 rISL(K$)65 |X(L(I)2) X194X(L(SL))128) X("0")X("2")1106 ISL24H X(L(I))128c X("0")X("2")210} L(I),160:L(I)2,173 LLISL193 L(I)1,LL I 24:"RUN ? LOCK=1 UNLOCK=2 LOAD=3"; B$"RUN" 6 K$ K$(27)Ā O  ::0D$(4):CHR$(4) IS CTRL-DF(D$;"NOMON C,I,O"L2X71012,098);"*** APPLE ][ PLUS MENU ***":1<D$;"CATALOG"A32,39:33,1:6:"HIT ESC TO EXIT":32,0:33,40FL(24)PI124ZL(I)dInSLSL1 x   :"OTTERBEIN COLLEGE"2 )10:"WESTERVILLE, OHIO"8 E  PAGE Bh :A$"TABLE OF CONTENTS":70:y 37:"PAGE"; "INTRODUCTION..........................C" "READING AND WRITING...................E" "LIST..............................ETTERS. TO MOVE FORWARD ONE PAGE PRESS";W "-> , FOR BACKWARD <- . TO SKIP TO ANY" "PAGE JUST PRESS ITS LETTER. PRESS" " TO EXIT." :"A TABLE OF CONTENTS APPEARS ON PAGE B." :5:"AUTHOR:": 10:"DAVID L. DEEVER" $10000,10000,11000,12000,13000,14000,15000,16000,17000,18000,19000,20000,21000,22000,23000,24000,25000,26000r 100  PAGE A :"THIS IS THE DOCUMENTATION FOR THE": :A$"DISK ARRANGER":70: :"PROGRAM. PAGES ARE 'NUMBERED' WITH") "LSC> ==> ";(8);$ nZ$:CH(Z$)64G xCH56PP1(P1):"<";:200k CH43PP1(P26):">";:200} CH37ĉ:: CH0CH27PCH:Z$;:200 1059:100 1:35::"PAGE ";(P64);::i P1000,2000,3000,4000,5000,6000,7000,8000,9 DOCUMENTATION PROGRAM\:::"----------------------------------------";:34,2:i<P1:200F21(A$)2:A$:P11:" THIS PAGE INTENTIONALLY LEFT BLANK":Z11:" PAGE L IS THE LAST PAGE USED": d1:1:"LETTER, <-, ->, 67 `ɍ9 L3 L͠êŦƥ堠ѥԀհť՞ŠÊĨȘƸ+QQàҠ蟠ՙ蠌â蠹鰠ѠMŠ𻩠éȰ堤ȠzȥŃ蠠栠Ϡ砠Ū𠠺蠉ʱ̠ŲŅӬƠŠ蠠ƠϠ堠𠁠Ʌ΁ӠčϠՠȠϠŠԠٿŠōȠĠՠſĠĠ٠ӍŠӍǍˠӍԠԠōŠΠˍˠӍ٠ӍԍĠΠ͠ԠŠҠƠŠǠӍӠ٠٠ϠŠčӠōōϠӠćˠ̍ˠŠčŠčɯϠҍĠԠ٠ϠΠ͍Š۠ŠҠנŠŠҠŠ٠ҍξϠŠǠŠҍ̭þξϠٍ̠ҮŽĠՠŠϠŠҠٿԠŠˠĠӠԠΠˠĠӠ٠ϠՠԠǿ$:GRc*1DNSjwŠԿſΠԿſſԠӮӠþϠΠϠΠՠҠ٠Ҡ٠Ϡ΍٠ӮŠΠL   LϠ젃Š𠁠Ƞɠź̪ӯؠԉȠҠńϠ̠̠ΒȤŠ͠㠩υe h QQQQQ<JWdv&crK.М LHHH?!=>@AH IL=K>Lhhh`HHH ; ( L -hhh` : :  ,% f f4,$ ɀ@  RSQzmVVW` `DE]^ /].^ E̞`DE `HHH/.0+>0jj.9hhh`( 01 0㎓/%` f`RS`KȱL`KȭL`DERS ` ` I,`DE]ȹ]Ȍ  E`,0 /R.SDE$,/ ` f` : :   oOɃ  hhhhhh`+t+TPɍɬC+L,)  o : L f f`   t+L:,     `H jjH9mmL[mmhh`  # L# # 3,0ޭR S   ` .H h. ` % fɽQ ʎ`8`HH Uɽ"̦̦88hh` ȹHH`%) ` f `,%0 f `,% f ` f` `  f `hh" XL  ̅ $T+  # o? : L  hh` %)`ʽQ08`  `  ?,06 /,0&莤 ,0欧ȌP8``ȈQ`  UɽQ 莣Ȍ`8`  U$'   hhh`, `Hhݯ`h`# q  ` Y  # LK ` RRSS`R S8`RSDE  `iiiQLk RLk H m hLk S%RQrU o00Щ莢ɽదɬUɽ̢ʎ! o : Lm  ɛhhL%H% h% ` ` `HHH  hhh`HHH : 7 , ͭ) ; # ͭ  ; ` o ɱɸ" L; )  o ɱɳ# L_ )`  o ɱɸ" L ) o ɱɳ# L ) ##` L N D   , b Y L> b @   Lvم380` X L !   - `" X    i( ! o , и` X$i( " X ,       23:4K:"ESC";::" TO QUIT, ";::"SPACEBAR";::" TO CONTINUE";SC$aC$" "ırC$E$1970z:   ȥ ȩ ȥ ȥ  ȥ  ȩ    ȱ ȱ JJJJȱ `JJ%(X):J33,L%(X) &J34,E%(X)E0K130:JK2,((F$(X),K,1)):]:0,17:1,S:2,WR:RxDII1:INSS1:1890~NXbS01930g1710:XSlSX11v0,17:1,S:2,WR:B1,17:B2,S1:R:D$"CATALOGS"SL",D"DR WRITE NEW DIRECTORY IMAGE BACK TO DISK aC$"WRITING DIRECTORY":10:420iI0xSMS1112:10:"TRACK/SECTOR: 17,"S" "1710B1,17:B2,S1JB11B25535XQ%(I)J,T%(X):J1,S%(X)J2,P"XTQ%(F)I:FF1, 6*@1720FJ SECTOR SORT NTF0[^I0N1|hL%(Q%(I))L%(Q%(I1))1670rXQ%(I):Q%(I)Q%(I1):Q%(I1)X|F1F16201720 CLEAR DATA BUFFER ZBB255:Z,0::=NG DIRECTORY":420F0'I0N1=XQ%(I):YQ%(I1)TF$(X)F$(Y)1490jQ%(I)Y:Q%(I1)XrF1xF1430 TYPE SORT F0T04:T31590I0NXP%(I)128:X0XX128PZP%(N)(I1):T%(N)(I3):S%(N)(I2):L%(N)(I30):E%(N)(I31):F$(N)""tdJ029:F$(N)F$(N)((IJ)):|n:xI0N:Q%(I)I:: SIMPLE ALPABETIC BUBBLE SORT ROUTINE (SORRY IT'S SLOW!) 10:C$"SORTI0 590F  READ DIRECTORY IMAGE FROM DISK ON1s10:C$"READING DIRECTORY":420(SMS11212:10:"TRACK/SECTOR: 17,"S" "<0,17:1,S:2,RD:RFIB14B25535:(I)01400K(I3)2551390PNN1T COPYING"9"ANOTHER MACHINE LANGUAGE FILE ( AS IN"h"THE OLD VERSION). THE MACHINE LANGUAGE""ROUTINES ARE TACKED TO THE END OF THIS""PROGRAM, AND DISK SORT MAY BE COPIED BY""SIMPLY LOADING AND SAVING THROUGH BASIC.";19512"*"TO 15, THEN RESAVE DISK SORT.":Y"DISK SORT IS PUBLIC DOMAIN, AND MAY BE""COPIED AND DISTRIBUTED WITHOUT CHARGE.""HOWEVER, ALL RIGHTS ARE RESERVED, AND""DISK SORT MAY NOT BE SOLD.": "WH