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` K + P +? U +?  +?  +LO@J ~ +Le` ~ +~ K j~ 1L ~  2 ~~Ls` ~ +? ~} +? ~x +LENTER LINE   L==> + ~ ~ + ~ f #~ +~  ~ ~ + ~ ~ +~ N ~ +~ ) ! ~ +~ F ~ ~ +? ~ + ~ +~ ~ ~ K  2 ~~L`L~ +~ N ~ +~ ) ! ~ +~ F ~ ~ +? ~ + ~ +~ ~ ~ K  2 ~~Lo`~ ~ L~ ~ +~ ~ + ~ + ~ +  ~ ~ #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+"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 NBLANK 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 LIE 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.";} + } +  ~ +` 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&& } ~ ~ $ | +~ } 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 } +L9"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*  PZP%(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)2551390PNN1F   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<;+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:433 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:X0XX128ӠƠՠȠϠĠŨٯΩŠŠŠՠԠٍŠΠҠˠŠǠŠ̠ŠŠŠΠٍՠŠΠŠ٠ϠōΧĠΠϠŠΠծӭŠԠϠ˧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:133E()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$:1030LLêŦƥ堠ѥԀհť՞ŠÊĨȘƸ+QQàҠ蟠ՙ蠌â蠹鰠ѠMŠ𻩠éȰ堤ȠzȥŃ蠠栠Ϡ砠Ū𠠺蠉ʱ̠ŲŅӬƠŠ蠠ƠϠ堠𠁠Ʌ΁ӠčϠՠȠϠŠԠٿŠōȠĠՠſĠĠ٠ӍŠӍǍˠӍԠԠōŠΠˍˠӍ٠ӍԍĠΠ͠ԠŠҠƠŠǠӍӠ٠٠ϠŠčӠōӠŠӠōĮŠˠӠŠɭĠ͠ŠŠĠϠˮՍ̠ŠӠŠΠǠŠŮźΠŠӠŠčԠӠƠŠŠ̍נˠƠԠҠŠŠԠӮڭľźΠŠӠŠčԠӠƠŠŠ̍נˠӠƠΠ٧٠өӠĮحԧӠՠΠԠî٭٠ӧӠŠԠ΍٠ĠӠӠ΍ŠΠĠ٠ƍŠҠϧŠč٠Ԡ̍Ӯ׭ŠŠӧ̠ԠˍՠƠէŠŠĠƠՠŠ̍Š̠ŠҧӮōԠŠŠҧӠōĠŠŮՠ٠ҍŠҠ̠ŮŠҍ̠Ԡ٠ŠǠȠōŠՠҠŠԠŠĠˠƍՠԠϠŠԮŠōΠӠŠŠϧƍϧӠĠ̠ӍǠȠ̠΍ՠԠϠŠҠԮԠōӠΠϠŠ̠ŠӠ΍ŠˠՠԠϠŠΠԍŠԠˠĠ٠ΠĠ˩֭Š٠ŠŧӠҍů͠ΠĠΠӠ̠ӍΠ٠ȠŠΠčȠԠŠήխŠ٠ˠŧӠҠˍŠĠΠӠ̠Ӡ΍٠ǠŠˠŠՍĮӠΠӠՠӠՠϠōŠԠΠ٠ϠˮŠ̍Ҡˠ̠ŠԠƠՠΧԍŠҠԠŠҠӠȍŠŠ٠̠ԠՍҠӠήԭŠ٠ŧӠҠōO ";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          Ǡ)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(Π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  (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$(.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:NX͠Ƞ̠נՠϠŠŠӠ΍٠ĠҮκŠ͠ԧӠǠӠƮԠӠԍŠĠТƠՠԠԠ٠ϠңǠҍҠŠӠΠԠԠͬҍĠ٠̠ҠԠӍΠĠϠٮˠԭҠӠŠǍΠҠˠϠ̠ҮŠŠҠ̠ӭɠΠĠˠҮōŠӠ-]ˠ].]ӠӠà']ͮ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`$ >  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  0 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))) `)L­ LM`st`ɩsx sɰ$0 $` d' LDȑD D D   `DȑD` D .ɀA (DRIVE ERROR) ` (WRITE PROTECTED) ` (VOLUME MISMATCH) ` (READ ERROR) `  +  + ݍ` ENTER PRINTER SLOT OR HIT RETURNFOR DRIVER AT $300 3 jɍ`hh L HH`, PRESS RETURN TO CONTINUE% ɍ` `$ Ld  L+$  LL+, ,ɛL $ 0  ! `$ 0 PT LEN START BLEN NAME  L  P L+ ȱ ȱ eiɠ$ 0!8i Lw   ɠ $ 0 @ɀ@@ iL iH)`hIHh и #L  &L %(!" L,,,DȑD eL  L! ȱȱ0 L< )   P L<  IN SUB DIRECTORY  L  ȱ ȱ  Y  P L<  BAD POINTER L   IN DATA SECTORD DDD D   IN VTOC L 8 Đ$ 0 X"Lf !! VOLUME=D + P FREE SECTORS= + (effff + K)0 $   IN DIRECTORY  L = ACTUAL BINARY LENGTH NAME = FILE NAME ( = ABBREVIATED) PRESS "ESC" TO STOP TO RESTART, TYPE: CALL 2051 & DECIMAL OR HEX BASE? ע CRT OR PRINTER?   L { DL DE  X IMPROVED CATALOG LAWRENCE HALL OF SCIENCEABBREVIATIONS USED: P = PROTECTION T = TYPE (EG: A=APPLESOFT) ? = DELETED FILE LEN = SECTORS USED ON DISKSTART = BINARY STARTING ADDRESS BLEN   t "THIS PROGRAM IS ONE OF A PAIR. IT WILL CREATE A TEXT FILE FOR USE WITH THE 'CATALOG MANAGEMENT' PROGRAM"? "'CATALOG MANAGEMENT' IS INTENDED TO BE USED AS A HELLO PROGRAM WHICH WILL ALLOWTHE USER TO READ A DESCRIPTION OF THE PROGRAMS AVAI:IN0:AL0:AH0:LE0! nCA$(70)8 xD$"": CONTROL DK "NOMONI,C,O"d X768863:V:X,V:p X0:: T$(70),FT$(70),DE$(70),BA(70),BL(70),SP(70) TN$(70),F2$(70),DN$(70),BN(70),B2(70),SN(70) :"CATALOG MANAGEMENT - EDIT PROGRAM": ***********************< * AUTHOR- JIM PFEIFFERX * NORTHWEST SUBURBANs( * APPLE USERS GROUP2 * (NSAUG) --PERMISSION< * GRANTED FOR FREEF * REPRODUCTION & USE.P ************************Z35327 dPO0:EN0     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:HH>67 `ɍ9 L3 L͠ōϠӠćˠ̍ˠŠčŠčɯϠҍĠԠ٠ϠΠ͍Š۠ŠҠנŠŠҠŠ٠ҍξϠŠǠŠҍ̭þξϠٍ̠ҮŽĠՠŠϠŠҠٿԠŠˠĠӠԠΠˠĠӠ٠ϠՠԠǿ$: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 ,          ͮѭˠŠԧӠԍƠŠ٠ĠĠΠӠҠŠŠ٠ӍخϮƠ̠ӍĮҭĠԠ͠˧ӠǠƍŠˠĠҠίƧӠԠҍӮҠӠĠϠŠ΍ԠƠҠҠĠӠԠ΍ԠҠҠҠӠԭ̠ӠϠŠԠōӠΠҠΩΠҠƩΠŠԧӠ΍ԠˠϠŠŠΠٮέҠ٧ӠŠԠōԠ͠ٮϭǧӠӠǧ΍ŠŠ٠ΠҠŮЭŠǧǧîՠҮ̭ԠŠŧƭٮͭĠŠԧӠǧƠŠŠ٠΍ҠˠŠĠӠՠύĠ٠ƠŠȠЧʭԠ٠ˠŧ̠Ԡ̠ӍΠ٠ȠŠĠӠǍΠŠˠŠĮ˭Ԡ٠Šŧ̠Ԡ̍ӯӠȠŠΠčȠŠŧŠٍǠŠ͠Π٠ҠӮɭԠ٠ŠŧӠҠů͠Ůՠ٠ҠŠҍ̠ŮƠՠҠ̍ŠȠӠЧŠҠ̠Ԡ٠ŠǠٮƭԠ٠ˠŧƠٮǭԠ٠ŠŧƠٮȭР٠ӠŮӠŠŠӠĠύŠԧ͠ҠǠ٠ŽǧǠΠˢĭŠ͠˧̠ŠĠͯŠҠčҠĩ͠ҠˮŠٍ̠ȠӠšŭԠ٠ŠŧƭՠϠĠҍŠҮŠŠ΍ϠҠӮԠĠӠ΍ŠĠ٠ҠҠՠ٠ҍҠΠҮήĠŠϮǧӠԍƠĠħϠǠĠӍҠҠΠĠŠŧӠՠϠŠ΍ŠŠŠӠˠŠčŠŠϠԠՠΠōĠӠҠӠȠέĠӠҠŠŠҠӍҠӠîíĠŠŧӠǧӠՠҍŠˠŠŠҠӠҮҠՠϠԠŠˠԠӍŠŠ٠ƠŠˠύŠŠΠٮϠĠӠ΍٠ϠנŠӧǍΠȠˮ­ŠӠ͠ҠŠҠçŠҠҠϠîƠԠ٠ԠΠŠ͠ՍԠŠǠΠξ̍٠ŠՠˠϠŠΠծӠĠˠîĠ٠ҮؠύŠҠĠŠƠŠˮŠԧӠŠŠҠōƠŠŠ§ɧԧҠҧŠ͠Š٠ŠȠЍϠӮŧӠՍϠŠҠŠ٠ĠŠԧԍӠĠϮԧӠŠĠӍӭΠԠ͠ŠŧŠΧӠԠŠˠōȠӠĠ٠ŠҮՍԠŠҠˠōΧӧȧ̢РԧӠĠϠĠōˠӠ٠͠ŠˍϠŠȠ٠ŠčΠҠƠӮҠӠƍӠ٠ŠĠĠčƠŠӠŠč        z#1,Xհ"ՠ   נ̠ Ҡ  Ҡ̠Ҡɠ" ˠŠŠ٠ǠҠΠР  ΠԠ ΠŠӠΠŠ ҮɮԮҮɮԮ ҮɮԮǮԠ  ӠǠ ՠҮЩ ՠŮЩ ՠҮЩ ՠҮԩ ѠӠѠ  ˠР ˠԭҠ!Ԡ*"ԮؠЮԠĠŠӠ İ ˠҠӠˠҠˠҮРAˠˠӠˠˠˠР͠Xհİ]٠İǠԠ̠Ԡ ٮʰ180811:216,0."CLOSE PROG.LIST"G"DELETE PROG.LIST":::12:"THE DISK IS FULL"::6:"FOLLOW DIRECTIONS CAREFULLY":$:"IF YOU DO NOT FOLLOW DIRECTIONS YOU WILLLOSE THE PROG.LIST FILE"}.:"BE ADVISED TO WRITE THESE INSTR;A$ f:10:15::"WORKING":+p1020Bz"OPEN PROG.LIST"["DELETE PROG.LIST"r"OPEN PROG.LIST""WRITE PROG.LIST"XNC1XNTN$(C)F2$(C):DN$(C):SN(C)"CLOSE PROG.LIST"216,0DF11120s4:16368,0:"SHOULD USER BE ABLE TO RUN THIS PROGRAM FROM SELECTION LIST ? Y/N ";A$:(A$,1)"Y"SN(C)2:840>SN(C)1HR:"EITHER THERE ARE NO NEW FILES OR YOU HAVE JUST ENTERED THE LAST DESCRIPTION."\:16368,0:" HIT "CRIPTIONS AS NEEDED. DO NOT EXCEED 6 LINES OF DESCRIPTION."IC1XN[SN(C)0840|5:958:F2$(C);" ";TN$(C) "DESCRIPTION FOR THIS FILE--":16368,0:"";DN$(C) DN$(C)""DN$(C)"--"*(F2$(C),1)"T"(F2$(C),2,1)"T"830$(C)730?TN$(XN)(CA$(CA),8,30):F2$(XN)(CA$(CA),7)SCACA1:XNXN1pCA$(CA)""XNXN1:740y660TN$(XN)(CA$(CA),8,30):F2$(XN)FT$(C):DN$(XN)DE$(C):SN(XN)SP(C):700=:"NEW FILES WILL BE DISPLAYED ONE BY ONE, INSERT DES08)256(107)7)EN(252)(253)256@LE38:AL57:AH138I&IN3T0PO,LEa:PO1,ALnDPO2,AH{NPOPOINXALALLEbAL255AHAH1:ALAL256lAH256ALEN1640v560821XN1:CA0C1X(CA$(CA),8,30)T"CLOSE PROG.LIST"$216,0:2811:ER1J"CLOSE PROG.LIST"W216,0:y::8:"UPDATE PROGRAM LIST"10:15::"WORKING":252,0:253,13854,0:55,3:56,40:57,3:1002"CATALOG""PR#0""IN#0"PO(1OGRAMS IN PROGRAM LIST AT THIS TIME":j,20:16368,0:"SELECTION BY NUMBER ? ";A$:A(A$):A1A43006A450,1150,1420,1650@420JER0T"OPEN PROG.LIST"^"READ PROG.LIST"hXrC1X|T$(C):FT$(C):DE$(C):SP(C) MUST HAVE 48K AND DOS 3.3 BOOTED. IF YOUR DISK HAS MORE THAN 70 FILES DO NOT USE THIS PROGRAM." 9:"<1> UPDATE PROGRAM LIST."::"<2> CHANGE OR ADD DESCRIPTIONS."::"<3> PRINT HARDCOPY CATALOG." :"<4> EXIT PROGRAM."&"ER1Ģ18::"NO PRISH TO USE (OR ARE CURRENTLY USING) THE 'CATALOG MANAGEMENT' PROGRAM ON. THEN HIT -OR- TYPE 'Q' & TO QUIT ";A$ A$"Q"1650 320d ::"CATALOG MANAGEMENT - EDIT MENU "::"SYSTEMLABLE ON THE DISK, AND ALSOPROVIDE A EASY WAY TO RUN OR LOAD A"b "PROGRAM BY NUMBER SELECTION" :"SYSTEM MUST HAVE 48K AND DOS 3.2 BOOTED.PROGRAM ALLOWS ONLY UP TO 70 PROGRAMS PER DISK TO BE ENTERED." :16368,0:" INSERT THE DISK YOU WL 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  R :410:5:"STANDBY WHILE I DO MY THING!":P (4);"BRUN MENU" ܰӠ)Г԰ԯ ...WRITINGL&_*_* ^*ɠ )] 3ɱɸ); `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#:% $ + ) + ʩ% $ + ) +   "D216,0: (FT$(S),1)"B"(FT$(S),2,1)"B"CMD$"BLOAD":460B CMD$"LOAD"U D$;CMD$;T$(S)[ e 560n ER0 "OPEN PROG.LIST" "READ PROG.LIST" X C1X T$(C):FT$(C):DE$(C):SP(C) &:570 0768:ER1:"CLOSE PROG.LIST,1)"T"(FT$(S),2,1)"T"Ģ20:370[ h18:"'1' RUN THIS PROGRAM":"'2' LOAD THIS PROGRAM" r"'3' RETURN TO LIST":"'ANY OTHER KEY' .. NEXT ENTRY"; |16368,0:A$: A$"1"260 A$"2"440 A$"3"150 SS1:SX1150 3202 CXė: (S$,1)"D"2907 S(S$):S1S70200I SP(S)2200 (FT$(S),1)"B"(FT$(S),2,1)"B"CMD$"BRUN":280 CMD$"RUN" D$;CMD$;T$(S) "S((S$,2,2)) ,S1SX200 @ JFT$(S);" ";T$(S) T:DE$(S)" ^(FT$(S))2Ė4:"*"; 5:T$(C)- (37)172003 20:958:"'#' OF SELECTION TO RUN (* WILL NOT RUN)'C' TO CONTINUE LIST 'R' TO RESTART LIST 'D' + '#' FOR PROGRAM DESCRIPTION ? ";S$ S$"R"150 S$"C"9,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96a nD$"": CONTROL Dt x"NOMONI,C,O" T$(70),FT$(70),DE$(70),SP(70) 480 :ER1Ģ10::"NO PROGRAMS LISTED IN FILE AT THIS TIME"::: C1X C;".";:SP(C ***********************< * AUTHOR- JIM PFEIFFERX * NORTHWEST SUBURBANs( * APPLE USERS GROUP2 * (NSAUG) --PERMISSION< * GRANTED FOR FREEF * REPRODUCTION & USE.P ************************Z:J d768,104:76     ^:180 h:320:1420$ r38400* | 56,72,132,251,160,0,201,32,176,2,105,192,201,96,176,2,105,128,201,128,176,2,105,64,145,252,230 !252,208,2,230,253,104,164,251,96,0,0,0,0,169,160,96,104,168,104,166,223,154,72,152,72,96,72,138,72,152,72,16$(C))160Ĺ36,39:(DE$(C),161,40):LCLC1^,(DE$(C))200Ĺ36,39:(DE$(C),201,40):LCLC1d6q@"PR#0"}J" 40N"T::"IF MORE, INSERT NEW DISK AND HIT RETURN."::"-OR- HIT ANY OTHER KEY TO RETURN TO MENU";:16368,0:A$:A$(13)1640 C2C1X%LC55ĺ(12):LC0=T$(C);" ";FT$(C);^36,39:(DE$(C),40):LCLC1(DE$(C))40Ĺ36,39:(DE$(C),41,40):LCLC1(DE$(C))80Ĺ36,39:(DE$(C),81,40):LCLC1(DE$(C))120Ĺ36,39:(DE$(C),121,40):LCLC1*"(DE03008:"HARD COPY VIA PARALLEL CARD IN SLOT #1":m"TYPE ANY COMMENTS FOR TOP LINE OF PAGE ? ";CO$3:958:"TURN ON PRINTER AND SET TO TOP OF PAGE THEN HIT ";:"";A$"PR#1"" 80N"LC0CO$:" ":LCL ANY OTHER KEY WILL REVERSE STATUS ? ";:16368,0:A$:A$(13)1370^<CG1yFSN(C)1SN(C)2:1370PSN(C)1Z:_ED11390d::"THATS ALL - HIT ";::16368,0:"";A$nCG0260x870CG0260X1:1290DN$(C)D$:CG1X 958:TN$(C)T$(C):F2$(C)FT$(C):SN(C)SP(C)::ED11370(F2$(C),1)"T"(F2$(C),2,1)"T"1370SN(C)1ĺ"WILL NOT RUN FROM SELECTION LIST.":1330("WILL RUN FROM SELECTION LIST."U2:" IF CORRECT, NEW CHARECTERS FOR PARTS YOUWANT TO CHANGE OR ADD.(6 LINES MAXIMUM)"`ED0:CG0:XNX:C1XNy14:958:ED11290FT$(C);" ";T$(C):15:DE$(C)15:"";D$:D$""DN$(C)DE$(C):1290D$"R"260D$"E"CG0260D$"E"ED" GIVES NO CHANGE TO DESCRIPTION":"'E' & ENDS CHANGES.""'R' & RETURN TO MENU WITHOUT MAKING ANY CHANGES TO FILE."E"OR YOU MAY USE THE CURSOR MOVE KEYS TO COPY PARTS THAT YOU DO NOT WANT CHANGED AND TYPE INOG MANAGEMENT - EDIT' PROGRAM. INSERT THE DISK THAT THE PROG.LIST HAS BEEN SAVED ON AND THEN 'RUN'. WHEN THE MENU APPEARS, CHANGE THE DISK BACK AND ANSWER '1'"t38400:~X0300:"PROGRAMS WILL BE DISPLAYED ONE BY ONE."I:IST"<L::16368,0:"INSERT NEW DISK & HIT ";A$JVDF1:880`:"2. TRANSFER ONE OF YOUR PROGRAMS FROM THE DISK THAT IS FULL TO ANOTHER DISK THEN DELETE THAT PROGRAM TO MAKE ROOM FOR THE PROG.LIST FILE"j:"3. LOAD THE 'CATALUCTIONS DOWN IF YOU CANNOT REMEMBER THEM, FOR AFTER THE FIRST STEP YOU MAY NO LONGER HAVE INSTRUCTIONS TO FOLLOW."8::8:"HIT TO CONTINUE ";A$:B:"1. INSERT A DISK THAT IS NOT FULL AND HAS ROOM FOR THE FILE NAMED PROG.L2 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  T144:92806 "PRETTY BELL" @HEX$"03A0: A9 AC 85 36 A9 03 85 37 20 EA 03 60 C9 87 F0 03 4C F0 FD 20 4A FF A0 80 98 20 C8 03 49 FF 20 C8 03 88 D0 F4 20 3F FF 60 AA CA D0 FD 2C 30 C0 60" JHEX$HEX$" N D823G":I1(HEX$):511I,((HEX$,I,1))128::72,0 ҮɮԮ ؍ҮɮԮ ؍ҮɮԮ ؍ǮԠԠ؍נ̠؍Ҡԩɠ؍ѠӠ؍Ѡ ؍ΠԠ؍ΠŠӠ؍ΠŠ ؍ӠĠōŠӠ ؍ӠǠ ؍ՠҮЩ؍ՠŮЩ؍ՠҮЩ؍ՠҮԠӠҠǠˠǍԮؠ ĠȠӠ͍ЮԠԠĠȠӠ͍Ġ ̍ ӠˠҠĠӍˠР͠ӠҠĠӍˠР ĠȠӠ͍ˠԭҠ٠ҠǠˠӍ͠ˍˠҠĠȠӠ͍ˠҮРĠȠӠ͍ˠˠӠӠҠˠˠ͍ˠˠϠҍӠĠōٮʰ ĠȠİԠ؍ˠҠӠӠҠϠŠҠŠӠƳǠԠՠҠӠˠǠРϠӠϠŠĠ̠͠ϠŠŠ̠ŠŠԍԠӠŠǠԠ9,0,133,254!169,138,133,255,162,150,160,0,177,254,42,24,106,145,254,230,254,208,6,230,255,228,255,240,3,76,70,3,104,168,104,170,104,96P 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 CLEAR  ER DISK (Y/N)?":Y$:Y$"Y"80/ Y$"N"1305 dD7& CATALOG PRINTER VER.1,8/25/822FD$(4)GKD$"NOMON,C,I,O"QP:12zZ"INSERT DISK TO BE CATALOGED":::d"TITLE OF DISK?"iA$:A$""105nD$;"PR#1":I140:"-";:Is:A$xD$;"CATALOG"}:: D$;"PR#0":"ANOTH ҩŠ׭̍Šՠ٠ŠӮŠӭŠǠӍΠҠǠϠՠ΍ӠӮҮРӠŠōĠȠŠϠΠӠˮҭԠӠՠנӍŭӠӠϠŠҩΠŬϠ٠ŠĮӠǺΠĠǍȬǠҠӬŠŬĠŠӠĠȠƠٍӮŠӠΠӠˠӍŠŠ٠ŠՠϠԭǮՠΠͮՠĠϠŠŠŠƠōŠ٠٠ǠōƠӮĺҠĠŠ͠ŠͭҬî٬ɠō٠۫ҠˠԮŠӺӠ̠ŠӍΠ̩͠΍ŭΠήӠ͠ӠҠĠԠŠčЮРΠŠĠȠ٠čǠ͠ԠӠԍӭɠĠҠۮԍŠҠŠĠ̠ԠЧԠΠϠŠĠ͠؍Ҡ̠Ҡɠ؍ˠŠŠ٠؍ǠҠ؍Pa X "2 5ݤ% Ld% [ :L̤İ?$;" DISK AND PRESS RETURN";:" ";DK$-936316368,0:K141340:KK176:KLKH330:NKDO16368,0:K141340]PKK176:KLKH330eQNKT20:N;" ":^:22:"DEFAULT = ";:((41)256(40)14),96:hMSSSırMDSDıw:(DK$,1)"D"ĺ#|"INSERT ";DK$16368,0::"DO YOU WISH TO MAKE ANOTHER COPY?";I$:(I$)0300U '(I$,1)"Y"160k ,(I$,1)"N"290s 1: 6:350:N;::1:I$;" SLOT: ";:L1:H7:330:A,N16: @350:N;::4:" DRIVE: ";:L1:H2:330:+JK(16384):K128330:"DUPLICATE":360: GET DUP DISKC 8:24::"WRITING";::" "\ 710: WRITE A HUNKr 8:24:" " (713)2190 (222)255ij 18::"****** UNABLE TO WRITE ******":290 18::"****** UNABLE TO READ ******"@ "19:: ERROR!+ 5:24:" ":(713)1290F FT255: NOT FIRST RDn DK$"DUPLICATE":360: GET DUP DISKx 275 8:24::"FORMATTING": "INIT XXX,S";SS;",D";SD;",V";(714):FT1 8:24:" " 216,0:222,0 256 DK$ "2 704:717,SS16:718,MS16:719,SD:720,MDG 17:34,16:936T :222,0 "-- PRESS 'RETURN' KEY TO BEGIN COPY --";:" ";I$ DK$" ORIGINAL":360: GET ORIG DISK 5:24::"READING": 707: READ A HUNK (713)2280:ON PROGRAM"::% Z704:CS(718)16A d715,(110)1:BUFSTART[ n716,(112)1:BUFEND I$" ORIGINAL":NCS:A718:310:MSN:N(720):320:MDN:A717 I$"DUPLICATE":NMS:310:SSN:N3MD:320:SDN FT0 5:24:" ":8:24:" 4% ************************C* DISK COPY *a* COPYRIGHT 1980 BY *(* APPLE COMPUTER INC. *2* *<************************F"BLOAD COPY.OBJ0": A$2C0 P:" APPLE DISKETTE DUPLICATI     ԠԠҠ٠ӬȠɍΠΠĠӍҠ̠ҠɺӠŠӍ٠ҠŠΠĠӍŠƠŠӠƠԍҮӠƠӮͧӠˠҺĠˠЍҠŠԮΠԺԠӠĠčĠǠΠŠנ̺Ӡ̠íӠΠŮ̠ҠǍŠŠӠΠŠǮҺĠϠōΠӠӬɠĠٍˮΠŠӠՠϠϭŠԠӠȠΠŠٍĮ٠ŠՠԠԍΠΠΠͮōӠĠΠŠΠ΍ŠӠĠŠčҮɮ٠čӠҠՠϠήԍŠŠŠԠƠĭ٠ӠԠ٠ĮҭԠŠƠӠϠōĠΠ٠Ů٠ƠŠΠŠĠϠĠԍӠŠϠ͠ΠҠA"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#ՠΠΠ̠ŠΠȠҭ̭ɠԠ ӮӬĠŠŠâҠέ̭ΠԠ̠Ӯ̠ӠԠҠΩ̭ Ԡ̮Ԡ۩`̭ƠԠFLASHINGӮ̭֠ԠŠߩ 6ĠΠŠ/̠ӠΩҠŠŠϠŠ̠Ӯ̭ԠȠܩ`ӠŠҬҠάL   2ӠΠ٠ǠҠŠ͠ҠάîŠέĠӠŠ   `饠6 LLL˹Ɂ <ȱ<L4 0#( 8<  8  `<#`<ȑ<<ȑ<Ƚȑ<Ƚ< <   `LH =<` ΠάŠҠ̠ŠԠŠ͠ƠŠήՠΠΠŬŠΠϠˬѧΠ̠ŠĠӠ٠ΠŠӮ`Ů 8̠͠ŮՠΠϠҠӠŠӠϠӭŠ͠   2Š/ŠΠ٠Ǡ̭ĠΠŠ͠ŮŠŠӠנϠ٠Š`ŠŠΠŠϠˠ٠ЭΠŠĠ٠ǠŠ͠LΠŠԠŠӠΠĬŠǠŠ ĠΠǠŠ  Ӡ͠ϠӠ栧姮΍뮠󮠨쮩ˠŠŠٍ箠ﮱנ̍ҠҠ̠ҠɍᠠΠԍΠŠӠ ΠŠ ҮɮԮ ҮɮԮ ҮɮԮΠŠ䮠ՠҮЩՠŮЩՠҮЩɠՠҮԩѠӠ э͠ﮍ ӠǍӠǠﬠӠ󮍍ˠԭҠԠ ԮؠԠЮԍԠЍ ŠӍ婮ˠˠӠ ˠˍˠˠ䮍ˠР͠ ˠЍ찰ˠҠˠҮЍ箠笠젨ˠŠύ̍宠ԍԠ򮍍ˠҠӠ      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 O....F"5 "PRINT.................................G"d "MODIFY................................H" "DELETE................................I" "'HOLE' INSERTION......................J" "MOVE..................................K" "INSERT T:"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, <-, ->, 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 `                     VENTION 80 L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT SP(PAGE ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- $% 0nmooة$eeVLԒؠ 58nnooؠ o 0n)JJJJ 0șn) 0șVJJJJ 0``i% $ BU ڑV V Hi&eh L`$V  ɍ ` X0 ` APPLE-)N*m+Jn)m)eeU`8VUU ڑ` :` ^6789 Q@ q . @^`6798 Q`H h``noVVi@iA)moo g p g) pmn/5 qs r ; qa ` `$$(ɠ$C q$W ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\@  UmU+&*Y Y P ,X B АX   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   92D 24:8:"CATALOG ANOTHER DISK ? Y";(8);:A$:1:A$"N"ī150Q 23:1:TUTINE 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  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 * *               ӠĠȠŠӠ`$% "! f ` H@A$Lk!% "LI!H@Ah % Ls!%L.! L2!%$ "! %% $ " " @A $`ˠРˠҠҰȠĠҠ  X 1 J   c   & L!% $ "! `%$ "! `%$ "  %$ "  ` `! `%$ " Ӣ Lޢ L`