' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6L:5 & "L}"BB5L&]66 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`7`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"_*]6` L/5553L3  !"#$%&'()*+,-./0123456789:;<=>?80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L6 i:5`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n555m5555m555`"L? 585H ~.(3` d ֠169,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 ^: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,DE$(C))160Ĺ36,39:(DE$(C),161,40):LCLC1`,(DE$(C))200Ĺ36,39:(DE$(C),201,40):LCLC1f6s@"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)1640LC2C1X'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,"(X0300::"HARD COPY VIA PARALLEL CARD IN SLOT #1":o"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$:" ":LC ANY OTHER KEY WILL REVERSE STATUS ? ";:16368,0:A$:A$(13)1370`<CG1{FSN(C)1SN(C)2:1370PSN(C)1Z:_ED11390d::"THATS ALL - HIT ";::16368,0:"";A$nCG0260x870CG0260D1:1290DN$(C)D$:CG1Z 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."W2:" IF CORRECT,IN NEW CHARECTERS FOR PARTS YOUWANT TO CHANGE OR ADD.(6 LINES MAXIMUM)"bED0:CG0:XNX:C1XN{14:958:ED11290FT$(C);" ";T$(C):15:DE$(C)15:"";D$:D$""DN$(C)DE$(C):1290D$"R"260D$"E"CG0260 D$"E"E:" GIVES NO CHANGE TO DESCRIPTION":"'E' & ENDS CHANGES.""'R' & RETURN TO MENU WITHOUT MAKING ANY CHANGES TO FILE."G"OR YOU MAY USE THE CURSOR MOVE KEYS TO COPY PARTS THAT YOU DO NOT WANT CHANGED AND TYPE ALOG 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."K.LIST">L::16368,0:"INSERT NEW DISK & HIT ";A$LVDF1: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 'CAT 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*  5TA0A94060-^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:433F   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<;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ıI1000F1. ALTHOUGH IT IS EASIEST TO":"COPY USING TWO DISK DRIVES, FID WORKS"::"FINE WITH JUST ONE."::" USE THE WILDCARD CHARACTER THE SAME"::"WAY WITH "Q$"<1> COPY FILES"Q$" AS YOU DO":"WITH ANY OF THE OTHER FILE-ORIENTED"::"OPTIONS."::AVE) IS PRONE TO ERROR; AND TEXT":t"FILE TRANSFER CANNOT BE DONE WITHOUT"::"HELP OF A PROGRAM LIKE FID.":::" USING FID, YOU CAN COPY VIRTUALLY"::"ANY FILES FROM ONE DISK TO ANOTHER."::"IF YOU CAN VERIFY THE FILE, YOU CAN"::"COPY ITES, VIA THE "Q$"LOAD"Q$::"AND "Q$"SAVE"Q$" COMMANDS, AND BINARY"::"FILES, WITH "Q$"BLOAD"Q$" AND "Q$"BSAVE"Q$"."::#" BUT LOADING AND SAVING FILES IS A"::"CUMBERSOME PROCESS; BLOADING AND"::"BSAVING (USUALLY PRONOUNCED BEE-LOAD &"::"BEE-SOCK,"A:"UNLOCK, VERIFY, DELETE, AND COPY"::"FILES.":::" WHICH BRINGS US TO COPY:":::"WITHOUT FID, OR SOME SIMILAR UTILITY, "::"THE ONLY KINDS OF FILES YOU COULD"::"EASILY MOVE FROM ONE DISK TO ANOTHER"x:"WOULD BE PROGRAM FIL΁êŦƥ堠ѥԀհť՞ŠÊĨȘƸآa` ꩍ`+QQàҠ蟠ՙ蠌â蠹鰠ѠMŠ𻩠éȰ堤ȠzȥŃ蠠栠Ϡ砠Ū𠠺蠉ʱ̠ŲŅӬƠŠ蠠ƠϠ堠𠁠ɍӠčϠՠȠϠŠԠٿŠōȠĠՠſĠĠ٠ӍŠӍǍˠӍԠԠōŠΠˍˠӍ٠ӍԍԠΠ͠ԠŠҠƠŠǠӍӠ٠٠ϠŠԠōӠ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, FROM FID'S MENU, AND"::" ENTERING "Q$"SOFTDISK="Q$" AS THE FILE"::" NAME."::" IF YOU USE "Q$"="Q$" AS THE ENTIRE"::" FILE NAME, FID WILL SELECT ALL THE"::" FILES ON THE DISK.":::" THE WILDCARD CAN BE USED TO LBY ENTERING "Q$"Q"Q$"). FID":L" WILL REJECT ANY OTHER RESPONSE."::" OF COURSE, THE WILD CARD IS MOST"::" USEFUL IF YOU WANT TO ACT ON A GROUP"::" OF FILES. YOU COULD LOCK ALL FILES"::" BEGINNING WITH "Q$"SOFTDISK"Q$" BY":fWER "Q$"Y"Q$"."::" THEN IT WILL DISPLAY EACH FILE NAME"::" THAT MATCHES YOUR WILDCARD SETUP AND":" GIVE YOU A CHANCE TO SELECT IT (BY"::" ENTERING "Q$"Y"Q$"), OR BYPASS IT (BY"::" ENTERING "Q$"N"Q$"), OR JUMP BACK TO"::" FID'S MENU (Q$"FLICK MY BIC"Q$", OR "Q$"RIBBON"Q$""::" ON THE DISK, IT COULD BE DELETED":" ALONG WITH RUBICON, DEPENDING ON"::" WHERE YOU PUT YOUR WILDCARD"::" CHARACTER."::h" THE SOLUTION ? WHEN FID ASKS IF"::" YOU WANT PROMPTING, ANSBIC="Q$", OR "Q$"R=B=N"Q$""::" FOR THE FILE NAME, AND THE FILE"::" NAMED RUBICON WOULD SURELY BE"::" DELETED (UNLESS IT WAS LOCKED).":Q" BUT WAIT! IF THERE WAS A FILE"::" NAMED "Q$"RUBIC'S CUBE"Q$", OR "Q$"XCON"Q$","::" OR "CE ANY":Qx"PART, OR PARTS, OR ALL OF A FILE NAME"::"WITH "Q$"="Q$". "::~" THIS IS HOW THE WILDCARD CAN BE"::"USED:"::" USING THE "Q$"RUBICON"Q$" EXAMPLE, YOU"::" COULD SIMPLY ENTER "Q$"RUB="Q$", OR":" "Q$"=CON"Q$", OR "Q$"=NYTHING, THOUGH. THE ADVANTAGE"::"OF USING FID COMES FROM THE FACT THAT"::"YOU ARE ABLE TO USE "Q$"WILDCARD"Q$"": p"CHARACTERS WHEN YOU INPUT THE FILE'S"::"NAME."::" THE WILDCARD CHARACTER IS THE "Q$"="Q$""::"(EQUALS SIGN). YOU CAN REPLADELETE THE FILE "Q$"RUBICON"Q$"":^"FROM THE CATALOG, YOU WOULD SELECT <6>"::"AND WHEN PROMPTED FOR THE FILE NAME"::"YOU COULD ENTER "Q$"RUBICON"Q$", AND THE"::"FILE WOULD BE DELETED.":fwh" THAT PROCESS REALLY DOESN'T GAIN"::"YOU AO"::"BY YOURSELF, BUT WITH FID'S HELP, YOU"::"CAN DO IT MUCH FASTER, AND WITH VERY":tR"FEW KEYPRESSES."::"V" THESE BENEFITS COME FROM FID'S"::"ABILITY TO ACT ON GROUPS OF FILES, AS"::"WELL AS ONE FILE AT A TIME. IF YOU"::"WANTED TO SING": >"SOME OF THE OTHER FUNCTIONS AND WISH"::"TO LOOK AT THE CATALOG TO SEE WHAT"::"PROGRESS YOU HAVE MADE, OR WHAT STILL"::"NEEDS TO BE DONE.": F::YJ"VERIFY, LOCK, UNLOCK, & DELETE FILES:"::" THIS, AGAIN IS NOTHING YOU CAN'T D, & DELETE":" 4) CATALOG DISKS":::"LET'S LOOK AT EACH OF THESE CATEGORIES"p /:"INDIVIDUALLY.":::: 6"CATALOG DISKS:"::" THIS FUNCTION DOES NOTHING YOU"::"CAN'T DO BY TYPING IN "Q$"CATALOG"Q$"."::"IT IS MAINLY USEFUL WHEN YOU ARE U PRESS RETURN. OTHERWISE...":: " THIS DISCUSSION IS FOR THOSE OF YOU":S0::"WHO HAVE NOT YET DISCOVERED JUST HOW"::"VERSATILE FID IS."::" FID CAN:"Q ':" 1) COPY FILES":" 2) REPORT UNUSED DISK SPACE":" 3) VERIFY, LOCK, UNLOCKSYSTEM MASTER"::"DISKETTE IS A FILE CALLED "Q$"FID"Q$"."::"IT IS PERHAPS THE MOST VERSATILE OF" :"ALL THOSE UTILIIES, YET IS ONLY GIVEN"::"SIX PAGES OF DESCRIPTION IN THE DOS"::"MANUAL."::" IF YOU ALREADY KNOW ALL ABOUT FID,"! :"THEN66:481:287:481:306:481:322:481:336:481 350:481:370:481:380:481:397:481:418::481:430:481:448:481:462:A$"PRESS ANY KEY TO QUIT":483:: (4);"RUN HELLO"c "AMONG THE HALF-DOZEN UTILITY PROGRAMS":S1::"INCLUDED ON YOUR #r:" F I D APPLE II FILE DEVELOPER":"---=--=--=-----=====-==-====-=========--":34,3::S1:Q$(34)/ 10:481:31:481:54:481:74:481:86:481:104:481:126:481:144:481:160:481:180:481:196:481:212:481:229:481:243:481:2                     ˠϠӠćˠ̍ˠŠčĮɯϠҍĠԠ٠ϠΠ͍Š۠ŠҠנŠŠҠŠ٠ҍξϠŠǠŠҍ̭þξϠٍ̠ҮŽĠՠŠϠŠҠٿԠŠˠĠӠԠΠˠĠӠ٠ϠՠԠK$:GRc*1DNSjwŠԿſΠԿſſԠӮӠþϠΠϠΠՠҠ٠Ҡ٠Ϡ΍٠ӮŠΠ L   LϠ젃Š𠁠Ƞɠź̪ӯؠԉȠҠńϠ̠̠ΒȤŠ͠㠩υe h QQQQQ<JWdv&cr.М 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. ` % fUɽQ ʎ`8`HH Uɽ"̦̦88hh` ȹHH`%) ` f `,%0 f `,% f ` f` `  f `hh" XL  ̅ r$T+  # ?  hh` %)`ʽQ08`  `  ?,06 /,0&莤 ,0欧ȌP8``ȈQ`  UɽQ 莣Ȍ`8`  $'   hhh`, `Hhݯ`h`# q  ` Y  # LK ` RRSS`R S8`RSDE  `iiiQLk RLk H m hLk S%RQU o00Щ莢ɽదɬUɽ̢ʎ! o : Lm  ɛhhL%H% h% ` ` `HHH  hhh`HHH : 7 , ͭ) ; # ͭ  ; ` o ɱɸ" L; )  o ɱɳ# L_ )`  o ɱɸ" L ) o ɱɳ# L ) ##` L u S D   , b Y L> b @   Lvم380` X L !   - `" X    i( ! o , и` X$i( " X ,           "::B"INSIDE THE VTOC IS A CHART (UPDATED"::"EVERY TIME YOU CHANGE ANY FILE) THAT"::"KEEPS TRACK OF WHICH PARTS OF THE"::"DISK HAVE BEEN USED FOR STORAGE AND": J"WHICH ARE EMPTY. FID READS THE VTOC"::"AND DISPLAYS THE RESULT OF ITS COUN:"::"NORMALLY, ON A FRESHLY INITIALIZED"::"DISK, THERE ARE JUST UNDER 500 USABLE"::"SECTORS FOR YOUR FILES TO FILL UP."::"64 SECTORS ARE USED TO HOLD THE DISK"::"OPERATING SYSTEM, CATALOG, AND THE"::"VOLUME-TABLE-OF-CONTENTS ("Q$"VTOC"Q$").SED PART OF THE DISK"::"OR IN THE DISK OPERATING SYSTEM (THE":'"OUTERMOST THREE DISK TRACKS). IF THAT"::"IS THE CASE, THE FID DESTINATION DISK"::"SHOULD BE AS GOOD AS THE ORIGINAL WAS"::"WHEN IT WAS INTACT.":/:2" SPACE ON DISK SELECT ALL"::"FILES ("Q$"="Q$").) THOSE THAT HAVE I/O"::"ERRORS WILL BE UN-COPIABLE. ALL THE":"REST CAN BE TRANSFERRED TO A FRESH"::A"PREVIOUSLY INITIALIZED DISK USING"::"FID'S COPY COMMAND. SOMETIMES THE BAD"::"SPOT WAS ON AN UNU :" FID'S COPY OPTION CAN BE USED WHEN"::"COPYA FAILS: THE USUAL REASON COPYA"::"WILL FAIL IS A BAD SPOT ON THE SOURCE"::"DISK. USING FID, YOU CAN VERIFY ALL"d:"THE FILES ON THE SOURCE DISK (SELECT"::"FUNCTION "Q$"<8> VERIFY"Q$", ANDSB6822:I,0:+zCM%2:RWTS:ER%09405CM%1F"DONE...":"PRESS TO CONTINUE, TO EXIT ";:A$:A$(13)ė:240(7);"I/O ERROR - UNABLE TO WRITE..."::920"PATCHING BOOT2...":/ CM%1:BU%SB:SE%1E*RWTS:ER%0940]4SB72,0:SB73,155m>CM%2:RWTS}HER%0940R"UPDATING VTOC...":\CM%1:TR%17:SE%0fRWTS:ER%0940pISB68SB6811:I,0:uBZ$"BOTH"ĺ:ISB6812NTBASIC...":BU%INBAS$NV39BZ$"BOTH"NV6NTNVNV2:TR%T`S015:SE%SjRWTSBU%BU%PAGE:S,TER%0940"WRITING LOADER...":BZ$"BOTH"Ĺ16968,08BU%LBASTR%0:SE%10RWTS ER%0940:CM%20O12:"WHICH BASIC DO YOU WISH LOADED"KS"(INT/FP/BOTH)? ";BZ$^UBZ$"INT"670zX"WRITING FPBASIC...":bBU%FPBASlT35:TR%TvS015:SE%SRWTSER%0940BU%BU%PAGE:S,TBZ$"BOTH"740 "WRITING IDS1DS7420 DS% 20:868B "DESTINATION DRIVE: 1";Z (36):A$:DD(A$)i DD0DD1| DD1DD2480 DD 22 &"PRESS TO CONTINUE, TO EXIT "; 0A$:A$:A$(13)ė: :PATCH DISK D:NSL%DS:DR%DDTO INITIALIZE IT."@ |"DO NOT ATTEMPT TO RECONSTRUCT THE VTOC"n "OR THE TRACKS CONTAINING BASIC WILL BE" "MARKED FREE AND HENCE OVERWRITTEN." SLOT & DRIVE 18:868 "DESTINATION SLOT: 6"; (36):A$:DS(A$) DS0DS6 S 3.3 48K SLAVE DISK IN SUCH A WAY"P J"THAT IT WILL LOAD A LANGUAGE CARD (IF"| T"ONE IS PRESENT) WITH THE APPROPRIATE" ^"BASIC AS PART OF THE BOOTING PROCESS." h"THE DISK MUST BE ";::"BLANK";::" EXCEPT FOR THE" r"'HELLO' PROGRAM USED ;"BLOAD INTBASIC,A";INBAS* FPBAS12288< INTRODUCTIONB I 2d 12:"FAST BOOT MAKER" 12:"---- ---- -----" 5:10 ""BY J. MATTHEWS, M.D." $12:"AND J.E. HOPPER" ,9 6"THIS PROGRAM WILL MODIFY AN INITIALIZED"# @"DOPAGE256 D$(4)/ D$;"BLOAD FAST.RWTS"@ SBRWTSPAGEQ LBASSBPAGEt D$;"BLOAD FAST.LOADER,A";LBAS INBASLBASPAGE :"ENSURE THAT A COPY OF 'INTBASIC' FROM DOS 3.3 SYSTEM MASTER IS IN DRIVE":"THEN HIT A KEY *";(8);:A$::D$ FAST-BOOT,BY JOHN MATTHEWS, M.D.AAND J.E. HOPPERUCOPYRIGHT 1981uCOMMERCIAL RIGHTS RESERVEDNON-COMMERCIALDISTRIBUTION ENCOURAGEDdLOAD REQUISITE FILESnx10:11:"ONE MOMENT PLEASE"RWTS16384:RWTS     PPEARS. ?@80'##(#80)'1'807*?*80E.M.80S2`2 PAGE M2:A$"ACKNOWLEDGEMENT":70:2"THIS PROGRAM IS BASED ON A SIMILAR ONE"2"BY MARC CAPPELLA WHICH APPEARED IN"2"THE WINTER, 1980-81 APPLE ORCH-b"WHEN LISTING ON A PRINTER AN AUTOMATIC"Xg"PAGE EJECT OCCURS ABOUT 1 INCH FROM"l"THE BOTTOM OF THE PAGE. THE USER MAY"q"FORCE A PAGE EJECT AT ANY POINT IN THE"v"PROGRAM BY INCLUDING A REM STATEMENT"{"IN WHICH A ^ (SHIFT-N) A24:21(A$)2:A$;:K$:S1K$(13)ġ:SS::7:+:+9:PIANO KEY,FLORIDA KEYS,FRANCIS SCOTT KEY,AS-CII,KEYSTONE COPS,FRONT DOOR KEY,CHURCH KEY,CAR KEYS,KEYHOLEEED TO"*:"PRESS ONE KEY TO VERIFY THAT YOU WANT"::"TO PERFORM A TRANSACTION: THE RETURN"::"KEY IS SUPERFLUOUS."::" TRY IT, YOU'LL LIKE IT."*::22)"JIM WEILER":*:K:A1(1)K1:A$::SA$"SPACE KEY"*A$"PRESS THE "A$2+OK IN THE DISKETTE"W):"CATALOG YOU SHOULD FIND A NEW FILE:"::""Q$"FIDGET"Q$".":*:" FIDGET WORKS THE SAME AS FID, WITH"::"THIS EXCEPTION: WHEN YOU USE THE"::"WILDCARD CHARACTER, AND ANSWER "Q$"YES"Q$""::"YOU WANT PROMPTING, YOU ONLY NID.TO.FIDGET.PATCH"Q$::" THAT'S ALL.":Y(:"DON'T BOTHER. I ALREADY DID IT - TOM":_():" THEN THE DISK DRIVE WILL WHIR FOR A"::"MINUTE, SOME PROMPTS ("Q$"]"Q$") WILL BE"::"PRINTED, AND THE DISK DRIVE WILL STOP"::"SPINNING. IF YOU LO MASTER DISKETTE)"::" 2: COPY THESE FILES TO A DISKETTE":" WITH AT LEAST 50 FREE SECTORS:")(" FID (FROM SYSTEM MASTER)":" FID.TO.FIDGET.PATCH (FROM THIS":31)"DISK)":" 3: RESET THE COMPUTER"::" 4: TYPE "Q$"EXEC F"Q$"."::&::" WISH #3 (SINGLE KEYPRESS FILE"::"SELECTION) IS A BIT MORE COMPLICATED,"::"BUT MUCH MORE SATISFYING IN THE LONG":&"RUN THAN WISH #1 OR #2."::g':" HERE'S WHAT TO DO:"::" 1: BRUN FID (FOUND ON YOUR SYSTEM":" HE HOUSEKEEPING COMMANDS HAVE ANY"::"EFFECT ON THAT AREA."%:" HOWEVER, IF YOU SHOULD ACCIDENTALLY"::"(OR DELIBERATELY) ENTER A NUMBER, OR A"::"PROGRAM LINE, FID WOULD BE BLOWN AWAY,"::"AND YOU COULD NOT INVOKE IT BY A" &:""Q$"CALL 2051VERIFY, LOCK,":$"UNLOCK, & DELETE) IN THEIR NORMAL"::"MANNER. WHEN YOU HAVE FINISHED, TYPE"::""Q$"CALL 2051"Q$". FID WILL START RUNNING"::"AGAIN.":<%:" THAT'S BECAUSE FID IS BLOADED INTO"::"MEMORY AT ADDRESS 2051, AND NONE OF"::"TBEEN"::"GRANTED!"::" WISH #1 & #2 (INITIALIZE & RENAME)"::"BOTH WORK THE SAME WAY:":c#z$|" EXIT FID BY SELECTING "Q$"<9> QUIT"Q$" "::"FROM THE MENU, OR BY RESETTING. THEN"::"USE ANY OF THE DOS HOUSEKEEPING"::"COMMANDS (INIT, RENAME, " USING FID?"::" -- THAT WHEN YOU USED THE WILDCARD":" CHARACTER, YOU COULD RESPOND WITH":" SINGLE KEY-PRESSES INSTEAD OF":" "Q$"Y-RETURN"Q$", "Q$"N-RETURN"Q$", OR""n" "Q$"Q-RETURN"Q$"?"::]#r" AT LAST YOUR WISHES HAVE RDING."::!^"":" GREETINGS, EXPERT FID USER."::"HOW OFTEN HAVE YOU WISHED...."::" -- THAT YOU COULD INITIALIZE A FRESH":" DISK WITHOUT LEAVING FID AND THEN":" HAVING TO BRUN IT AGAIN?""f:" -- THAT YOU COULD RENAME FILES WHILE":T.":: P" THAT'S FID. IF YOU'VE NEVER USED IT"::"AT ALL, PERHAPS YOU SHOULD EXPERIMENT"::"WITH IT FOR A WHILE. GET A COUPLE OF"::"DISKS WITH UNIMPORTANT FILES ON THEM": !X"AND PRACTICE ALL THE COMMANDS. THE"::"EXPERIENCE CHOULD BE REWA@ HI y@ H @HH @H @H @H H @' H @   HHHHH` @SL% @DR% @TR% @SE% @BU% @CM% @ER%hh ߠ`  -  +  +b + + +b LD @+ - L\ Z  + -  +  + + + L  + + +L + L  + + + + + +g + +  + + + LYL: 8   + + ++ ꥝L + + + L +g + + + + + L + L + + +  + + ++ L  @` + LiL'@" + + + + Li` + + + w+ 0  s + + +L< + + L, , , +C + L+ + +Lf+ ꥝L ++ + LOL :   + + + + +Lf + Le+ +` + + Lf + + + +` + L0+b + + +b + +b + + + +b ۠+ Ld+ + + + + LL +g + +  + L  + LLLET |   + + ++ ꥝L + + + + ++ + + ++ + +  + +l L%  + + . + + + + + +L ,+ L L! + LLh + + L  + ++g + + + + + L@ + LS+ + + + ++ + + + L' L!+v + +v L}+q + + ,+ L L+l L L2 + L +l + + +l L +l +++L+ , , + ` + + + + + + + + + + + + + + + + ,+ + + ,L + + + + ,+ + + , + + + ++{ L4PRESS ESC TO TERMINATE, ANY OTHER KEY TOCONTINUE   ڠ,; qLPXK 0 ,; Ln _L' S + + + Lo _` + +  + + + L + ++ + + 2   L S + +  w+ .LVQ + .Lr`m + + . s + L S L~+ + + L _`L   ꥝L^ + + C + + + L^,8   + + +` + + + + + L,  LPR#  + . ڠ 0 L80N   + L+ `  L  + + +` + + + LA@< 0 + -.   Lto +  LPAGE   + . ڠ+ ,   ,   +  ,   L  , ++ARD." 6690:!:90'>/>905gB=hB90COFKPF90Q7JY8J90_Ng N90mRuR90{UU90YY90]]90aa90ee90wi P XLk gWJN L췩귍`鷍뷩0ᷭ HILéʮө $ ϛǠŠĠ`hh LڛlLѠ  ӠƠՠȠϠĠŨٯΩŠŠŠՠԠٍŠΠҠˠŠǠŠ̠ŠŠŠΠٍՠŠΠŠ٠ϠōΧĠΠϠŠΠծӭŠԠϠ˧ͮѭˠŠԧӠԍƠŠ٠ĠĠΠӠҠŠŠ٠ӍخϮƠ̠ӍĮҭĠԠ͠˧ӠǠƍŠˠĠҠίƧӠԠҍӮҠӠĠϠŠ΍ԠƠҠҠĠӠԠ΍ԠҠҠҠӠԭ̠ӠϠŠԠōӠΠҠΩΠҠƩΠŠԧӠ΍ԠˠϠŠŠΠٮέҠ٧ӠŠԠōԠ͠ٮϭǧӠӠǧ΍ŠŠ٠ΠҠŮЭ NOT,STEP,+,-,*,/,^,AND,OR,>LH* =,<,SGN,INT,ABS,USR,FRE,SCRN(,PDL,POSLv* SQR,RND,LOG,EXP,COS,SIN,TAN,ATN,PEEK,LENL* STR$,VAL,ASC,CHR$,LEFT$,RIGHT$,MID$Lv((( )b)))) *K*y*F NOT,STEP,+,-,*,/,^,AND,OR,>L+ =,<,SGN,INT,ABS,USR,FRE,SCRN(,PDL=,SHLOAD,TRACE,NOTRACE,NORMALL_)INVERSE,FLASH,COLOR=,POP,VTAB,HIMEM,LOMEM,ONERR,RESUME,RECALL L) STORE,SPEED=,LET,GOTO,RUN,IF,RESTORE,&,GOSUB,RETURNL) REM,STOP,ON,WAIT,LOAD,SAVE,DEF,POKE,PRINT,CONTL) LIST,CLEAR,GET,NEW,TAB(,TO,FN,SPC(,THEN,ATL*OF '    + . ڠC   sLR(8(M + ꥝Lp( _ !L!L( END,FOR,NEXT,DATA,INPUT,DEL,DIM,READ,GR,TEXTL( PR#,IN#,CALL,PLOT,HLIN,VLIN,HGR2,HGR,HCOLOR=,HPLOTL)DRAW,XDRAW,HTAB,HOME,ROT=,SCALE +L '/' S L'0+ +' S  +b ++ +b + + ++ + + + L' X L'NOTHING TO LIST.'    X wL( PRESS ANY KEY TO HALT LISTING. LINES=0 STATE.=0 BYTES=0  Q +g ++ ꥝L& XL,&TITLE : &"  -. @ ^ LQ&NAME : &G  , @ ^ Lv&DATE : &l  , @ ^   + + + + +l +L&N& S L&P+ +& S  + + ,; @ ^ ,;  Q +v +LI%LINES TO SKIP BETWEEN PROGRAM LINES%%   Lo% (RETURN FOR 0) : %Y  ,; @ ^ ,;  Q +q +L%LINES TO SKIP BETWEEN STATEMENTS%   L% (RETURN FOR 0) : %  ,; @ ^ ,; + + + # +b + +LI$START AFTER WHICH LINE NUMBER$+   L~$ (RETURN FOR START OF PROGRAM) ? $Y  ,; @ ^ ,;  Q +{ +L$END AFTER WHICH LINE NUMBER$   L$ (RETURN FOR END OF PROGRAM) ? $ + +L(#INDENTATION FOR LEFT MARGIN#   LN# (RETURN FOR 0) : #8  ,; @ ^ ,;  Q + + + L($L#RIGHT MARGIN#   L# (RETURN FOR 80) : #  ,; @ ^ ,;  Q L# +b +,;  Q  - +b 1L"HIMEM:" +b +Y  - +b 1LJ"LOMEM:"C +b    L"ENTER PRINTER SLOT OR CALL NUMBER"y   L" (RETURN FOR NO PRINTER) : "  ,; @ ^ ,;  Q + +L""+ L! + +L#!L! + LF! + +Lf X Lv!PROGRAM LISTING FORMATTER!\   ڠ + +L!V! +] + # + - +b 1+b = ^ 2 +]+L! +[ ' +Y '+[     H0P<0=>0?L: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 TWHERE THE LETTER OCCURED TO FINAL RESULT;AAJ16(I1)C:I1(J$):410 CHARACTER IS HEX LETTER. CONVERT TO EQUIVALENT DECIMAL BY SUBTRACTING 55 FROM THE ASCII VALUE OF THE LETTER. ASCII VALUE OF 'A'=65. 65-55=10 - DECIMAL EQUIV. OF 'A'J(J$)55( ADD VALUE TIMES 16 ^ OF THE PLACE F HEX STRING IS 4. TRUNCATE FROM THE RIGHT IF GREATER;{S|(A$)4A$(A$,4)Z  LOOP THROUGH HEX STRING TESTING EACH CHARACTER. IF CHARACTER < 'A' THEN MUST BE A NUMBER - USE DIRECTLY I1(A$):K(A$)I1:J$(A$,K,1):J$"A"JӠŠӠōĮŠˠӠŠɭĠ͠ŠŠĠϠˮՍ̠ŠӠŠΠǠŠŮźΠŠӠŠčԠӠƠŠŠ̍נˠƠԠҠŠŠԠӮڭľźΠŠӠŠčԠӠƠŠŠ̍נˠӠƠΠ٧٠өӠĮحԧӠՠΠԠî٭٠ӧӠŠԠ΍٠ĠӠӠ΍ŠΠĠ٠ƍŠҠϧŠč٠Ԡ̍Ӯ׭ŠŠӧ̠ԠˍՠƠէŠŠĠƠՠŠ̍Š̠ŠҧӮōԠŠŠҧӠōĠŠŮՠ٠ҍŠҠ̠ŮŠҍ̠Ԡ٠ŠǠȠōŠՠҠŠԠŠĠˠƍՠԠϠŠԮŠōΠӠŠŠϧƍϧӠĠ̠ӍǠȠ̠΍ՠԠϠŠҠԮԠōӠΠϠŠ̠ŠӠ΍ŠˠՠԠϠŠΠԍŠԠˠĠ٠ΠĠ˩֭Š٠ŠŧӠҍů͠ΠĠΠӠ̠ӍΠ٠ȠŠΠčȠԠŠήխŠ٠ˠŧӠҠˍŠĠΠӠ̠Ӡ΍٠ǠŠˠŠՍĮӠΠӠՠӠՠϠōŠԠΠ٠ϠˮŠ̍Ҡˠ̠ŠԠƠՠΧԍŠҠԠŠҠӠȍŠŠ٠̠ԠՍҠӠήԭŠ٠ŧӠҠō`0@ ɖP``ܰӠ)Г԰ԯ ...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 jh2J,((HD$,J,1))64# J:2752:- JO12i JO0ĭ(HD$,JO,1)(32)Ĺ4618612JO,160:JOJO1:2755o LCOUNT1114D$"3"( COUNT1538D$"4"? COUNT1962D$"5"V COUNT2386D$"6"m COUNT2810D$"7" COUNT3234D$"8" COUNT3658D$"9" COUNTTLV1D$"0"  (3)(4)256 500( T1::D$;:< TT1:T36150J T35190[ Q11000:Q ,:22:1::"CARE TO SCAN ANOTHER DISK ? (Y/N)";:A$ 6A$"Y"ė:20 @:: T1:"E";: 24:1: COUNTTLVD$"1" COUNT690D$"2" ."2 :"INSERT DISK THEN HIT ";:"";ZZ$ 998:958:"NO. DATA TOLERANCE LEVEL? DEF:300";:Q114:(8);:Q:"";T$:T$""T$"300" TLV(T$) T0:COUNT0 2,T:7:T1::"R":768 7:T1:"S";: SCAN COUNTй34,8 n12:"CODE SUMMARY:":H s14::"0-9";::" - AMOUNT OF DATA"n }14::"R";::" - READING TRACK" ~14::"S";::" - SCANNING DATA" 14::"E";::" - READ ERROR,SKIPPED" :"HIGH NUMBERS ON TRACK 35 COULD INDICATE TRACK NOT IN USE==================";:J 24:"000000000011111111112222222222333333-DEC";: <5:"012345678901234567890123456789012345-TRK";: F6:"========================================";: P7:37:":CDE" Z8:"========================================"; dA(875):875,96Y(4);"BLOAD DISKSCAN.OBJ1,A$6000":(4);"BLOAD DISKSCAN.OBJ2"hSCAN24576r400~TLV267 DISK SCANNER BY DAVID CREEMER, MODIFIED BY PHIL FAULCONER::"DISKETTE SCANNER" (3:"======================     z # ѠԠѠӠѮؠĠԢ٠РӠϠԠΠ٠Р󮍠ՠŠ٩󮍠ŠҠӠ䮠򮠠̠٠Р宍ԠЍԧРԠӠРҮРàԍРԧϠ箍ԠЮԠԍ宍 ȠԠŠ뮠򍴸ˠ󮍠 ԠĮԠӠԮԠРԠà󮠠荧§ ήʱή ήʲή ԮҠԍō ԮӠˠŠŮ§ˠЮԠЮԮ ԮؠԠ宍Π􍪠Š󠦠뮍 ˠРήˠРͮˠР͠ ŠӠ ٠٠ " ؠĠҠ ؠŠǮԠԠԠРԠ נ̠"Š ٠Р ٠РӠϠԠΠ ՠŠ٩ ŠҠ Ѡ  ѠӠ ؠĠ Ԡ ԠӠ%РԠРԠӠ РҮР$ ЮԠȠ "ԮؠΠήʱήʲ ԮҠ ԮӠ ԠŠ  ˠҮРAˠˠˠˠӠˠŠŠˠР ˠР͠!Ԡ*Ϡ ΠŠԠǠҠǠԠԠǠĠˠҠˠҠӠ宠箍ؠĠҠؠĮؠŠԠǮԠǍJ(16384)127ıT320RE THE ";::"ESCAPE";::" KEY."]:"TO RUN HIT THE ";::"RETURN";::" KEY."k16368,0{22:20:A$A$(27)ĉ::A$(13)ĉ:::R$:A120:Z(16336)::250"16368,0,6A0:16368,0@AA1:AWı IN THIS PROGRAM":310:"YOU MAY HAVE TO BOOT THIS DISK FIRST TO WORK CORRECTLY":310 :"IF THIS PROGRAM IS NOT ON THE DISK YOUWISH TO RETRIVE FILE FROM FIRST LOAD THIS PROGRAM THEN REPLACE WITH PROPER DISK NOW TYPE RUN":310 :"TO EXIT NOW TYPTHE DISK WILL START TO SPIN IN A SECOND OR TWO. IF THE PROGRAM CANNOT FIND YOUR FILE, IT WILL TELL YOU.":310 :"IF IT FINDS YOUR PROGRAM, IT WILL REVIVE IT AND ALSO LOCK IT TO PREVENT ANY FURTHER MISHAPS.":310V :"BECAUSE OF POKES USEDJUST MIGHT WORK.)"# W400:310:+ : "THE PROGRAM WILL PROMPT YOU FOR A FILE NAME. THIS NAME MUST BE LESS THAN 28 CHARACTERS LONG. IF YOUR FILE HAS A LONGER NAME, JUST TYPE" "27 CHARACTERS OF THE NAME." W200:310s :"S SHOULD BE PERFORMED ON THE DISK.":310 :"IF YOU HAVE SAVED A FILE SINCE YOU HAVE DELETED ONE, THE CHANCES THAT THE ORIGINAL CAN BE RECOVERED ARE VERY";:W125:310 ", VERY SLIM."::310:"(IT IS POSSIBLE, SO TRY THE PROGRAM-- IT ST":W50:310 Z16368,0 d:" I N S T R U C T I O N S"::"THIS PROGRAM CAN RETRIEVE A FILE OR PROGRAM THAT HAS BEEN DELETED FROM A INITIALIZED DOS 3.3 DISK" nW200:310- x:"THE DISK SHOULD BE UNALTERED--";:W100:310:" NO SAVE R$"RUNUNDELETE"C:10:0,470:0,4739:0,390:0,3946r24:8:" HIT ANY KEY TO CONTINUE ";:3:2(32,1:33,38:34,1:35,232<12:" <<< U N D E L E T E >>>"FW100:310:16368,0 P912:13:" BY L. GU :" ANOTHER ";Q$:Q$"Y"ĀM >" INSERT ANOTHER DISK & HIT RETURN ";Q$:m ` COPYRIGHT BY T.G.STUMFALL ((A$(U),T,1)) /X,I /X /Y 03094,2:3072 2TK(8193):SK(8194) ,3TK0ĭSK015000 3(A$(U))0ī15000 63000 (U)A$(U)(Z):X pYF dD17:W2(A$(D)):J$(D)(A$(D),(W2W1))M Db ,D17:A$(D):Dn AW17 (A$(AW))0ī7100 XD$;"RENAME";A$(AW)","J$(AW) AW 2TK(8193):SK(8194) ,3TK0ĭSK015000 3(A$(U))0ī15000 63000o  D$(4)# D$;"BLOAD RDWRT"R " HOW MANY CHARACTERS IN YOUR PREFIX ";W1\TK17fSK15s 3086,TK 3094,1 3087,SK 3072 A8192 U0YA14A25535(Y3)255ī6000UU1:A$(U)"" XYY29:Z(X):A$   ԺԢŠӠ͠ΠٮԠԢԢŠĠԠĠΠקĮԍO FORCE LOADING OF NORMAL";G"APPLESOFT PROGRAMS ABOVE THIS POINT."M~"IF EXEC SET FP LIST IS DONE FROM INTEGER";"BASIC A SYNTAX ERROR WILL OCCUR BUT IT""WILL STILL EXECUTE PROPERLY."WX PAGE G]:A$"PAGE EJECT":70:TTE DELIBERATELY ELIMINATES";N"FP LIST AS THEY HAVE INCOMPATIBLE MEMORY";z"USAGE. THIS ARISES BECAUSE THEY ARE""BOTH COMPILED (EXPEDITER II) BASIC""PROGRAMS.""FP LIST OCCUPIES $800 THROUGH $31FF AND""SETS POINTERS T:"ONCE THIS PROGRAM IS SET IT CAN"Oz"BE USED WHENEVER NEEDED. IT IS ONLY""LOST ON RESET, FP, A SHIFT TO INTEGER";"BASIC BY THE USER OR DOS, OR A RE-BOOT""OF DOS.":"EXCEPTION - THE DISK ARRANGER PROGRAM""ON THIS DISKE EXEC SET FP LIST"?"AND THEN LOAD YOUR PROGRAM. YOU MAY"l"NOW DO NORMAL CHANGES, RUN-S, LIST-S,""ETC., OF YOUR PROGRAM. TO GET A""FORMATTED LISTING ENTER":" CALL 4352":12:"--CONTINUED--";op PAGE F#u LIST":4"THIS PROCEEDURE WILL EXECUTE ONLY IF"b"THERE IS NO PROGRAM IN MEMORY. IF THE""PROGRAM YOU WISH TO LIST IS IN MEMORY""YOU MUST FIRST SAVE IT TO DISK AND THEN""CLEAR MEMORY WITH NEW OR FP .""THEN YOU MAY DO THELIST (TEXT)"3" FP ABORT (TEXT)"9F PAGE Ed:A$"INSTRUCTIONS":70:"IN ORDER TO MAKE FORMATTED LISTINGS""THE LISTING PROGRAM MUST BE SET IN""PLACE. THIS IS DONE WITH THE COMMAND:":" EXEC SET FPPPENDED TO ALL ASSIGNMENT"2 " STATEMENTS."8E PAGE De:A$"REQUIRED FILES":70:"THREE FILES MUST BE PRESENT ON THE DISK""TO IMPLEMENT THIS PROGRAM. THEY ARE:"" FP LISTER.EXP (PROGRAM)"" SET FP  " PRINTED LISTINGS."@ " 5. USER SPECIFIED MARGINS."o " 6. SEPARATE LINES FOR EACH STATEMENT." " 7. BREAK CHARACTERS INDICATING" " EXACTLY WHERE STRINGS ARE BROKEN" " FOR CONTINUATION ON A NEW LINE" " 8. LET AN-"+ "CLUDES THE FOLLOWING FEATURES.":S " 1. GROUPING OF REM STATEMENTS."| " 2. LOCAL INDENTATION OF IF-THEN" " STATEMENTS." " 3. GLOBAL INDENTATION OF FOR-NEXT" " LOOPS." " 4. PAGE HEADING AND PAGE EJECT FOR".......................E"H "PAGE EJECT............................G"w "ACKNOWLEDGEMENT.......................M"} PAGE C :A$"INTRODUCTION":70: "THIS PROGRAM PROVIDES A FORMATTED LIST-" "ING OF AN APPLESOFT PROGRAM. IT I L. DEEVER"( )10:"OTTERBEIN COLLEGE"E .10:"WESTERVILLE, OHIO"K X  PAGE B{ :A$"TABLE OF CONTENTS":70: 37:"PAGE"; "INTRODUCTION..........................C" "REQUIRED FILES........................D" "INSTRUCTIONS...H"3 "LETTERS. TO MOVE FORWARD ONE PAGE PRESS";a "-> , 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:"DAVID00,10000,11000,12000,13000,14000,15000,16000,17000,18000,19000,20000,21000,22000,23000,24000,25000,26000q 100~  PAGE A :"THIS IS THE DOCUMENTATION FOR THE" ::A$"APPLESOFT LIST FORMATTER":70:: "PROGRAM. PAGES ARE 'NUMBERED' WITC> ==> ";(8);# nZ$:CH(Z$)64F xCH56PP1(P1):"<";:200j CH43PP1(P26):">";:200| CH37ĉ:: CH0CH27PCH:Z$;:200 1059:100 1:35::"PAGE ";(P64);::h P1000,2000,3000,4000,5000,6000,7000,8000,90 DOCUMENTATION PROGRAM\:::"----------------------------------------";:34,2:i<P1:200F21(A$)2:A$:P12:" THIS PAGE INTENTIONALLY LEFT BLANK":Z12:" PAGE M IS THE LAST PAGE": d1:1:"LETTER, <-, ->, TO RETURN TO ORIGINAL PROGRAM_  ,; @ ^   + L?L   L L`+ , +LI! L , , +`+ S + + + + + + + + + L}`L + L'L~ L~ Lz L  L@ LNO LINES   # Y+111V*,AL% # -. W L8 6 , W LK I , W L^ \ ,; W Lt8o 0  W o 0 , W  ,  ,8 W LP 0 L W  0 , W  ,  , W Lp LFORWARD REFERENCES:MENTS: *>EMSROW ePeQP&Q`^$^ II__ &_&^_`L Q+Ɂ')0)#&*&Q$IQQIQPQ`*۠R{i{ȱ{ȱ{k}ȱl~L`e<<==LLg ꠰4 + {g ꠰ +LhJ ꠰% h= < ȱ< ة$l<1 CQ}%,`}~h?L+>q?r SՍȄB` CL CLvu X$# \ۦuv $LWۢ \` CLPQF Cee`   f`  j %_`CCh C > <=Chhl<`>?L >?^ C^ LHH , hh C , qL> jL _L_^L % L L NL EL $L`h<kl`?>R  kl>`{|{}kȱ{~lL}R `<=hh` CPL> RLܠk{lȑ{` C L6 C LE,,-`~L LW L LW ~}L: Cצ}~` La L C` 0` ꤄klR ` L Z ZL {|    {Lj  ,C 4,<" C湱C :,>목>"ȱR :, eL  Lv$Lhh Z l  #  )!,E -+.е J?> R,Л hL L C}~`8L C}` C L( CLhL> 4L CBC`L F LJrqB 嘑q`=<?><>``` h L h L h L h L h L h L  CJ` BBB` B8塐L BB`  CH S C " 4352 >?>ȱ>` L >? CL5>?P>ȥQ>`>?LW>? C &$>?Lu>? C & &e몘e쨊e>Pe?QP` `L ` ` ` ` ` `о <= >? I < ` C                    :D$(4)5A$"SOFTWARE TO-GO/ABILENE"?B$""W(C$"ABILENE, TEXAS"a2E$""wd34,7:35,7:32,7i210:7nA1(A$)x(A$,A)A:25035,23:32,10B218134,B:936B$:C$Z190:Z  ŠǧǧîՠҮ̭ԠŠŧƭٮͭĠŠԧӠǧƠŠŠ٠΍ҠˠŠĠӠՠύĠ٠ƠŠȠЧʭԠ٠ˠŧ̠Ԡ̠ӍΠ٠ȠŠĠӠǍΠŠˠŠĮ˭Ԡ٠Šŧ̠Ԡ̍ӯӠȠŠΠčȠŠŧŠٍǠŠ͠Π٠ҠӮɭԠ٠ŠŧӠҠů͠Ůՠ٠ҠŠҍ̠ŮƠՠҠ̍ŠȠӠЧŠҠ̠Ԡ٠ŠǠٮƭԠ٠ˠŧƠٮǭԠ٠ŠŧƠٮȭР٠ӠŮӠŠŠӠĠύŠԧ͠ҠǠ٠ŽǧǠΠˢĭŠ͠˧̠ŠĠͯŠҠčҠĩ͠ҠˮŠٍ̠ȠӠšŭԠ٠ŠŧƭՠϠĠҍŠҮŠŠ΍ϠҠӮԠĠӠ΍ŠĠ٠ҠҠՠ٠ҍҠΠҮήĠŠϮǧӠԍƠĠħϠǠĠӍҠҠΠĠŠŧӠՠϠŠ΍ŠŠŠӠˠŠčŠŠϠԠՠΠōĠӠҠӠȠέĠӠҠŠŠҠӍҠӠîíĠŠŧӠǧӠՠҍŠˠŠŠҠӠҮҠՠϠԠŠˠԠӍŠŠ٠ƠŠˠύŠŠΠٮϠĠӠ΍٠ϠנŠӧǍΠȠˮ­ŠӠ͠ҠŠҠçŠҠҠϠîƠԠ٠ԠΠŠ͠ՍԠŠǠΠξ̍٠ŠՠˠϠŠΠծӠĠˠîĠ٠ҮؠύŠҠĠŠƠŠˮŠԧӠŠŠҠōƠŠŠ§ɧԧҠҧŠ͠Š٠ŠȠЍϠӮŧӠՍϠŠҠŠ٠ĠŠԧԍӠĠϮԧӠŠĠӍӭΠԠ͠ŠŧŠΧӠԠŠˠōȠӠĠ٠ŠҮՍԠŠҠˠōΧӧȧ̢РԧӠĠϠĠōˠӠ٠͠ŠˍϠŠȠ٠ŠčΠҠƠӮҠӠƍӠ٠ŠĠĠčƠŠӠŠč        󮍠ŠӠԠ٠箍РԠנ̠ǮŠ􍪠䠧ŧ謠ΧĮԠԠРԠàԠЍԧ䮠̠䮍箍ɧЍҮЬ. Do you want the catalog sorted? N ɍ  Disk Slot? JJJJ Drive Number? Lh":(37):1/ A$(I):(A$(I))17ė:110Y A$(I)""A$(I)"B"(B$,2,8)A$:190o (A$(I))17İ270 A$(I)B$"= "A$(I)" =" : A$(7)"B"(B$,2,8)A$ ::"WRITING CATALOG HEADER TO DISK":34,23 B1I (4);"OPEN"A$(BNUMBER OF LINES IS 5."x F:"========================================":17:"========================================" P19:"PRESS TO WRITE HEADER OF LESS THAN 5 LINES." Z34,13:35,16: dI26 n"LINE "I1 xJ118:(95);:: CATALOG HEADER FORMAT PROGRAM >< BY: RUDY A. GUY >< 2-SEPT-80 ><<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>> <9:"ENTER HEADER MESSAGE FOR DISK CATALOG. MAXIMUM NUMBER OF CHARACTERS IS 17, MAXIMUM <<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>< CATALOG HEADER FORMAT PROGRAM >< BY: RUDY A. GUY >< 2-SEPT-80 ><<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>> 7500::"<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>< *********************7* CATALOG HEADER *R* PROGRAM *m* BY: RUDY A. GUY ** CALL -APPLE ********************** B$"A"I18:B$B$(8):A$"=====================":A$(1)B$A$(: 2"     TRUCTIONS 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 PROG180811:216,00"CLOSE PROG.LIST"I"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 INS ";A$"f:10:15::"WORKING":-p1020Dz"OPEN PROG.LIST"]"DELETE PROG.LIST"t"OPEN PROG.LIST""WRITE PROG.LIST"XNC1XNTN$(C)F2$(C):DN$(C):SN(C)"CLOSE PROG.LIST"216,0DF1112030u4: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 ESCRIPTIONS AS NEEDED. DO NOT EXCEED 6 LINES OF DESCRIPTION."KC1XN]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"8T$(C)730ATN$(XN)(CA$(CA),8,30):F2$(XN)(CA$(CA),7)UCACA1:XNXN1rCA$(CA)""XNXN1:740{660TN$(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 D(108)256(107)7+EN(252)(253)256BLE38:AL57:AH138K&IN3V0PO,LEc:PO1,ALpDPO2,AH}NPOPOINXALALLEbAL255AHAH1:ALAL256lAH256ALEN1640v560821XN1:CA0C1X (CA$(CA),8,30)"CLOSE PROG.LIST"&216,0:4811:ER1L"CLOSE PROG.LIST"Y216,0:{::8:"UPDATE PROGRAM LIST"10:15::"WORKING":252,0:253,13854,0:55,3:56,40:57,3:1002"CATALOG""PR#0""IN#0"POPROGRAMS IN PROGRAM LIST AT THIS TIME":l,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)TEM MUST HAVE 48K AND DOS 3.2 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 WISH TO USE (OR ARE CURRENTLY USING) THE 'CATALOG MANAGEMENT' PROGRAM ON. THEN HIT -OR- TYPE 'Q' & TO QUIT ";A$ A$"Q"1650 320f ::"CATALOG MANAGEMENT - EDIT MENU "::"SYSLABLE ON THE DISK, AND ALSOPROVIDE A EASY WAY TO RUN OR LOAD A"b "PROGRAM BY NUMBER SELECTION" :"SYSTEM MUST HAVE AT LEAST 48K MEMORY AND DOS 3.3 LOADED. PROGRAM WILL ONLY HOLD 70 PROGRAMS PER DISK. :16368,0:" INSERT THE DISK YOUt "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          D$;  `;` `\N$L: LENGTH OF RECORDU $B: NUMBER OF FIELDSu J: POINTER TO NEXT RECORD} P4 P P4 POINTER TO FIRST RECORD D$;"CLOSE POINTER" A$(B),D(B),H$(B),A(50),B$(50),V$(50),M$(50),T(B),P(B) |KJ (A$)4A$(A$,4)P I1(A$):K(A$)I1:J$(A$,K,1):J$"A"J(J$):1010_ J(J$)55r AAJ16(I1)z : 70:PF0:20. C(A):C127C160ĺ(C64);:E C32:(C64);:R (C);:x ,STRO,0:X$(X128):X$"E"ġ:20 6X$"P"FL1400 @X$"S"FL1:400 X(KBD):X128400 STRO,0:X$(X128):X$"E"ġ:20 X$"S"ı FL0: 22 #PF1ĊSL:(28);(24)c (ASAEA:H(A256):LAH256:AL,L:AH,H:MN:PO(0):MS35PO~ F(H3)160ĺMS);:80 H(H2)160ĺMS);:90 JMS);:100 P200:AA1 Z200:AA1 d200 nFL1İ400 xX(KBD):X127İ300 :P AL58:AH59:MN63696:QM1892:H21883:H31886:KBD16384:STRO16368:35,23YSL21:24:"START ADDRESS>";SA$:SA$"X"ĉ:SA$"P"PF1:24:20:"PRINTER ON":20"END ADDRESS >";EA$A0:A$SA$:1000:SAA:A0:A$EA$:1000:EAA DE$(C):SP(C)&:570&0768:ER1>:"CLOSE PROG.LIST"KD216,0:IQĺ:16:"LAST ENTRY"jTvX17:CEb(F2$(A),2,1)"T"650v" LOAD THIS PROGRAM RUN THIS PROGRAM":900CN(A)2ĺ" EXEC THIS FILE":9"2"440 A$"3"150- SS1:SX11506 320o (FT$(S),1)"B"(FT$(S),2,1)"B"CMD$"BLOAD":460 CMD$"LOAD" D$;CMD$;T$(S)  560 ER0 "OPEN PROG.LIST" "READ PROG.LIST" X C1X T$(C):FT$(C):S)2 ^(FT$(S),1)"T"(FT$(S),2,1)"T"Ģ20:370_ c17:"PROGRAM MARKED ( * ) NOT TO BE RUN 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$150 S$"C"CXė:- (S$,1)"D"290G S(S$):S1S70200Y 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$()2Ė4:"*"; 5:T$(C)- (37)172003 20:958:"'#' OF SELECTION TO RUN (* WILL NOT RUN)'C' TO CONTINUE LIST 'R' TO RESTART LIST 'E' TO END 'D'+ # FOR PROGRAM DESCRIPTION ? ";S$ S$"E"ė: S$"R"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(CL ***********************< * AUTHOR- JIM PFEIFFERX * NORTHWEST SUBURBANs( * APPLE USERS GROUP2 * (NSAUG) --PERMISSION< * GRANTED FOR FREEF * REPRODUCTION & USE.P ************************Z:J d768,104:76     = 1, SO ROUTINE WILL RETURN TO ABOVE PAUSE LOOP WHEN DONEGhX$"S"ıMop SOME KEY WAS PRESSED AND WAS NOT = E,P OR S. SET FL=0, RETURN TO MAIN PRINT LOOPqrFL0:wx CONVERT HEX STRING TO DECIMAL INTEGERy5z MAX LENGTH OSTX(KBD):X128340"[x\ RESET STROBE, REDUCE X BY 128. TEST FOR = 'E'. IF EQUAL, GET NEXT START ADDRESS~]^STRO,0:X$(X128):X$"E"ġ:120e9f IF KEY WAS = 'S' THEN RETURN TO MAIN PRINT LOOP TO PRINT NEXT INSTRUCTION. FL PAUSE UNTIL ANOTHER KEY IS PRESSED(?=@X$"P"FL1340CGH IF KEY WAS = "S" THEN SINGLE STEP OPTION INVOKED. SET FL = 1 SO MAIN ROUTINE WILL RETURN HERE AFTER PRINTING ONE INSTRUCTIONIJX$"S"FL1:340QR PAUSE ROUTINE SSED ROUTINE3z4 RESET STROBE, REDUCE VALUE FROM KEYBOARD BY 128, TEST FOR = 'E'. IF EQUAL, GET NEXT START ADDRESS56STRO,0:X$(X128):X$"E"ġ:120= "> IF KEY WAS = 'P' THEN PAUSE. IF FL = 1, THEN SINGLE STEP OPTION IS ACTIVE, ASCII CHARACTER AT LOCATION 'A'.& IF 127 < C < 160 OR C < 32 THEN CHARACTER IS CONTROL CHARACTER. SUBTRACT OR ADD VALUE TO FORCE CHARACTER TO PRINTC(A):C127C160ĺ(C64);:"C32:(C64);:,(C);:1 2 KEY PREFL1İ340k TEST TO SEE IF KEY WAS PRESSED. IF SO, GOSUB TEST FOR EXIT, PAUSE OR SINGLE STEPqX(KBD):X127İ310   WHEN LOOP IS DONE, DEACTIVATE PRINTER, GET NEXT START ADDRESS :0:PF0:120  PRINT 0ĺMS);:230MS);:240#W 280 PRINTS ASCII VALUE OF MEMORY LOCATION 'A']l280:AA1{280:AA1280 FL IS USED BY SINGLE STEP ROUTINE TO CAUSE PROGRAM FLOW TO RETURN TO THE ROUTINE AFTER 1 LINE IS PRINTED(A256):LAH256:AL,L:AH,H:MN:PO(0):MS35PO9 PEEK(H3) DETERMINES IF INSTRUCTION USED 3 HEX DIGITS IE. LDA $3050 = A9 50 30 (H3)160ĺMS);:220 PEEK(H2) DETERMINES IF INSTRUCTION USED 2 HEX DIGITS (H2)16INCE PROGRAM WILL READ SCREEN 9 PF1ĊSL:(28);(24)? PRINT LOOP BEGINS HERE. POKES AND CALL EXECUTE MONITER DISASSEMBLE ROUTINE FOR LINE. PO IS CURSOR POSITION AFTER LINE IS PRINTED, MS IS FOR FORMATTING ASCII OUTPUT 3 ASAEA:HSA$"X"ĉ:8 SA$"P"PF1:24:20:"PRINTER ON":120R "END ADDRESS >";EA$X 380 CONVERTS HEX STRING TO DECIMAL INTEGER. SEND A$ RETURNS A A0:A$SA$:380:SAA:A0:A$EA$:380:EAA 22: POSITION CURSOR ON SCREEN. REQUIRED SP Z ************************************************************************ dAL58:AH59:MN63696:QM1892:H21883:H31886:KBD16384:STRO16368:35,23 nSL2 u v INPUT START AND END ADDRESS IN HEX w x1:24:"START ADDRESS>";SA$:C  OPTIONAL PRINTER OUTPUT AVAILABLE - SLOT NUMBER AT LINE 110  PRINTER INITILIZATION AT LINE 170 - CURRENTLY SET FOR SLOT 2, MPI 88T PRINTER   REMOVE REMARKS BEFORE RUNNING PROGRAM TO INCREASE AVAILABLE MEMORY AND EXECUTION SPEED. JP ************************************************************************W  HEX, ASCII, AND DISASSEMBLED MEMORY DISPLAY PROGRAM BY ART BLUMBERG, MARYLAND APPLE CORPS REQUIRES APPLESOFT IN ROM OR LANGUAGE CARD     c START DISK ARANGERb103,1:104,8:2048,0:2049,0:2050,0:(4);"RUN DISK ARRANGER.EXP"1 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 `                     )(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    jHHH ȩ  ȥ   H  #hhh`wO"2 J1126< 4618612J,((HD$,J,1))128?F J:KZ J112_ ((HD$,J,1))63Ĺ4618612J,((HD$,J,1))64:2670d 4618612J,((HD$,J,1))n J:2752: J112 ((HD$,J,1))63Ĺ4618612J,((HD$,J,1)):2750 461861DOES NOT WORK ON SOMEOF YOUR DISKS BECAUSE IT WRONGLY THINKS THAT THEY ARE NOT STANDARD DOS 3.3, THENDELETE LINE 395 TO MAKE IT WORK."*::" HIT TO BEGIN... ";Z$4A$:A$"Y"A$"N"ĺ(7);:2200A$"Y"ĺ"YES"A$"N"ĺ"NTITLE YOU WISH."+::14:"** NOTES **"v :"1. THIS PROGRAM REQUIRES 48K AND ONLY WORKS WITH DOS 3.3 DISKS.":"2. YOU MUST REBOOT YOUR DISKETTE AFTER RUNNING THIS PROGRAM IN ORDER TO SEE THE RETITLED HEADING. :"3. IF THIS PROGRAM 9:"CATALOG NAME CHANGER":11:19:"BY":13:14:"JOHN CHIANG"MI12500SY" NAME CHANGER WILL ALLOW YOU TO GIVE A NAME TO EACH OF YOUR DOS DISKS. YOU CAN NOW CHANGE THE NORMAL CATALOG HEADING OF 'DISK VOLUME 254' TO ANY SEC,2"HBUF,179,RWTS%\12:4:"RENAME ANOTHER DISKETTE? (Y/N) : ";:2200nA$"Y"Ľ:3020:"TO SEE CHANGES ON YOUR DISK":"BOOT DISK":"NOW RETURNING YOU TO THE MENU":I11000:(4);" RUN MENU"::255?8:"DISPLAY THE VOLUME NUMBER? (Y/N) : ";:2200X A$"Y"Ĺ46459,32:46460,66:46461,174 A$"N"Ĺ46459,234:46460,234:46461,234 18:"IS THIS CORRECT? (Y/N) : ";:2200 *A$"N"Ģ12:958:560  * WRITE * CMD,2 RWTS TRK,2LH12Ģ14:(7);"HEADING CANNOT EXCEED 12 CHARACTERS.":560m b14:868:"N)ORMAL, I)NVERSE, F)LASHING : "; lA$:A$"N"A$"I"A$"F"ĺ(7);:620 vA$"N"ĺ"NORMAL":2610 A$"I"ĺ"INVERSE":2650 A$"F"ĺ"FLASHING":2700- 16:868:TURN> TO MAINTAIN OLD HEADING"2 J140:"*";:T &10:3:"CURRENT HEADING : ";s +(46459)32Ė33:(46204) 012:868:7:"NEW HEADING : ------------" :12:21:"";HD$ ?HD$""ī1690 DLH(HD$) NLH12āX112LH:HD$HD$" ":; XRWTS  DOS(46201){ (DOS3)(DOS4)ĺ:" I CANNOT WORK WITH THIS DISKETTE. IT IS NOT DOS 3.3.":1700 X46197461861 1212NU,(X) NUNU1  :8:"CATALOG HEADING CHANGER" :" 12 CHARACTERS MAXIMUM":" =i?C ,% $ ɍ% ' 9 7  "#! X /췩뷩 % 0#:% $ + ) + ʩ% $ + ) + SC TO END";:%zA$:(A$)27ė::611:1:958< A"'X' IS PRINTED. OTHERWISE, A SPACE IS"7"PRINTED."=n"IF YOU WISH TO PRINT THE FREE SPACE OF A";"DIFFERENT DISK, INSERT THE DISK AND " "ANSWER 'N' TO THE NEXT QUESTION."6000o p24:1::"PRESS ANY KEY TO CONTINUE OR E TABLE OF";"CONTENTS (VTOC) OF THE DISK, AND FORMATS";h"THE FREE SPACE BIT MAP ON THE SCREEN."n"THE PROGRAM DISPLAYS EACH TRACK (FROM 0""TO 34) AND THE SECTORS ON THAT TRACK""(FROM F TO 0). IF THE SECTOR IS FREE, AN";'82,0:36883,145:36884,0736885,0:36886,1:36887,0W36888,0:36889,96:36890,1v36891,0:36892,0:36893,036894,0:36895,0:36896,036897,1:36898,239:36899,216h INSTRUCTIONS11:1 "THIS PROGRAM READS THE VOLUMEVERSION-& 0,1,1,2,1,2,2,3,1,2,2,3,2,3,3,4R36864,169:36865,144:36866,160u36867,10:36868,32:36869,21736870,3:36871,96:36872,036873,0:36874,1:36875,9636876,1:36877,0:36878,1736879,0:36880,32:36881,144368TA FOR TRANSLATE TABLE9> " "," X"," X "," XX" \H " X "," X X"," XX "," XXX" ~R "X ","X X","X X ","X XX"\ "XX ","XX X","XXX ","XXXX" NUMERIC CONVERSION TBL NN(15) I015:NN(I):I  DATA FOR NUMERIC CON" DISK FREE SPACE -- EACH 'X' IS UNUSED"0N" T T"}" R -----SECTOR----- R -----SECTOR-----"" K FEDCBA9876543210 K FEDCBA9876543210" LOAD TRANSLATE TABLETT$(15)I015:TT$(I):I4 DA(X)X016:X2((X1)16):X3(X1)X216W <I;"-";TT$(X0);TT$(X1);TT$(X2);TT$(X3);} DFSFSNN(X0)NN(X1)NN(X2)NN(X3) NI X24:1:"---"FS" FREE SECTORS"; b24:25::"ANOTHER ? (Y/N)";: lA$:A$"Y"Ľ:100 vA$"N"610 :* 2000: LOAD TRANSLATE TABLEI 3000: LOAD NUMERIC CONVERSION TABLEd 1000: PRINT HEADINGSp &I034 +(I12)2:1:((I2)2)((I2)2)1Ė21 0I10ĺ" "; 5XVTC56I4: ADDRESS OF BIT MAP FOR TRACK I 7 46067+ :X0((X)16):X1 36864: CALL RWTS. 72,0: RESET P REGS RC(IOB13): CHECK RETURN CODEl RC0VTC37120:500 20:5:"AN ERROR HAS OCCURRED WHILE" 21:5:"READING THE DISKETTE" 22:5:"THE RETURN CODE IS "RC   PRINT VTOC $:A$:S(A$):S1S7ī170W 18:5:"DRIVE NUMBER? ";:A$:A$:D(A$):D1D2ī180 ,4000: LOAD RWTS JUMP INSTRUCTION, IOB, AND DCT AT $9000 6IOB36874 JIOB1,S16: SLOT # TIOB2,D: DRIVE ^IOB4,17: TRACK hIOB5,0: SECTOROU WANT INSTRUCTIONS? (Y/N) ";= A$:A$:A$"Y"İ5000:150N A$"N"130z 13:"DO YOU WISH TO USE THE LAST DISK" 14:"WHICH WAS READ BY DOS? (Y/N) "; A$:A$"Y"VTC46011:500: VTC = VTOC ADDRESS  16:5:" SLOT NUMBER? ";:A>  DISKETTE FREE SPACE 3 BY JOHN MATUSHEK;d:`i5:10::" "n6:10:" DISK FREE SPACE "s7:10:" "x8:10:" BY: JOHN MATUSHEK "}9:10:" ": 11:1:"DO Y     ˠҮ ˠˠħ젷󮠠󮍠ˠˠӠˠˮˠŠ箍렪堣ˠҮР뮍ˠҠӠˠҮРɠ箍ǠĠ砧ԧ宠易뮠ǮԠ䮍ˠҠ箠ǠԠԠǠĮǠĠǮԮ뮠䬠뮠䠠Ӡ󍭠占ˠŠǠҠǠ뮠󮠍 ԺԠ̠ӠԢԍƠ˨˨ΠԠҤàРԢĠРҮЍŠŠŠŠŠ˨˨Š˨˨Š˨˨Š˨˨L NOT". P"COPY PASCAL OR APPLE CP/M DISKS."N Z:"TWO DRIVES ARE NEEDED."w _"DESTINATION DISK MUST BE FORMATED" 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  ӠĠȠŠӠ`$% "! f ` H@A$Lk!% "LI!H@Ah % Ls!%L.! L2!%$ "! %% $ " " @A $`ˠРˠҠҰȠĠҠ  X 1 J   c   & L!% $ "! `%$ "! `%$ "  %$ "  ` `! `%$ " Ӣ Lޢ L`$% "! f    D$"RUN MENU (ONE KEY)" ;D$"READ"F$9 250K C$:C$;:180\ D$"CLOSE"F$i "PR#0"o  , M BOB SANDER-CEDERLOF 6 REVISED BY DAVID SPRUNGO! ::12dD$(13)(4)%yVz:"DO YOU WANT A PRINTOUT OF 'SUMMARY'?";P$t~P$"Y"P$"YES"ĺ"PR#1"D$"MONI"D$"OPEN SUMMARY";D$"READ SUMMARY"250C$:C$;:180D$"CLOSE SUMMARY""PR#0"PAUSE15000:  Š䠧ŧ謠Χ󮍍ŠӠˠ̠B :210:34,11 11' E107 E38131C E1E11T E114E114m 11:E:(E$,E1);" "t E} ,250 Z11000:Z ::D$;"RUN RUN ME FIRST" R1000:Z ::D$;"RUN RUN ME FIRST" D 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 :" ANOTHER ";Q$:Q$"Y"ĀJ >" INSERT ANOTHER DISK & HIT RETURN ";Q$: K COPYRIGHT BY T.G.STUMFALL L.YA14A25535 .UU13 D/(Y3)255ī12200I ]/A$(U)(A$(U),30)Q b/T0a v/XY(Y29)k }/TT1 ~/I((A$(U),T,1)) /X,I /X /Y 03094,2:3072 2TK(8193):SK(8194) ,3TK0ĭSK015000 3(A$(U))0ī15000 63000 U)A$(U)(Z):X pY4 dD17:(A$(D))0ī6600@ h:::l i"PROGRAM NAME : ";A$(D):"PREFACE ";X$v nG$"" x(X$)Wī6500 }W11W WQ((X$,W1,1)):WQWQ128:G$G$(WQ):W1 A$(D)G$A$(D) D ,D17:A$(D):D |.U0 L  D$(4)# D$;"BLOAD RDWRT"Q " HOW MANY CHARACTERS IN YOUR PREFIX ";W[TK17eSK15r 3086,TK~ 3094,1 3087,SK 3072 A8192 U0YA14A25535(Y3)255ī6000UU1:A$(U)"" XYY29:Z(X):A$(  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  O 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:"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' TNGUAGE (A,I,B,T,R,%) ? ";LL$:LL$"A"LL$"I"LL$"B"LL$"R"LL$"T"LL$"%"3100\ 3080x VI$DD$" "LL$" "VI$& 15:868:VI$;" OK ? ";:A$:A$"Y"NN1:NA$(N)VI$:10000 A$"N"ī3020: 3110 ADD FILE TYPE -C-303004:FILE NAME -B-E N0ė:12:11::"NO FILES IN MEMORY":I11000:IM :{ 3:"PROGRAM NAME ? ";VI$:(VI$)0ī1000 7:"DISK NAME (1-6 CHARS.) ? ";DD$:DD$""3040 (DD$)63040 (DD$)6DD$DD$(" ",6(DD$))R 11:868:"LAS):DF$(FS4):(FS$)3FS$(" ",3(FS$))FS$h. NA$(N)VI$" FREE SECTORS = "FS$" ("DF$"K)"r8 2150B 37894:LOOK FOR MORE L 2150V 2370` 216,0::12::"YOU HAVE EXCEEDED MY MAXIMUM MEMORY !!!!":X12500:X:1000  ADD A " TY16NA$(N)NA$(N)" R "8L(TN$)3:I1L3m(TN$,I,3)" "NA$(N)NA$(N)(TN$,I1):2290tINA$(N)NA$(N)(TN$,29) READ CATALOG 1ST SECTOR  37891 NN1::"ADDING DISK:1$ FS(29)(30)256:FS$(FVE NAMEp(28)02190,z(28)255ġ:W::"DISK ERROR"::I12500:I:1000lNN1:NA$(N)VI$TY(27):TY5TYTY128TY0NA$(N)NA$(N)" T "TY1NA$(N)NA$(N)" I "TY2NA$(N)NA$(N)" A "TY4NA$(N)NA$(N)" B 2010/(VI$)6VI$VI$(" ",6(VI$))_"TITLE FOR THIS DISK ";NA$:(NA$)0ī2060NN1:NA$(N)VI$" ""%"" "NA$ " INSERT DISKETTE"" AND HIT " A$%2400*(28),042300: READ CATALOGH1000f MOOP2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000,14000,15000,16000,17000,18000,19000,20000,21000,22000,23000,24000,25000,26000Z1300ADD A DISK DIRECTORY -A-:"ENTER DISK NAME (1-6 CHARS.) ? ";VI$:VI$""1000(VI$)6:( 1::"Q";::" CHECK SPACE LEFT"Q 1::"R";::" READ LIST FROM DISK"y 1::"S";::" SAVE LIST TO DISK"; 24:1:"OPTION? "; OP$:OP$;:OP$"0"1000 ((OP$)0ĺ(8):912:1300 2OP(OP$)64 <OP1OP251300 FP::"K";::" LIST BY FILE TYPE"F j1::"L";::" LIST ENTIRE FILE"n t1::"M";::" APPEND A FILE LIST" ~1::"N";::" CLEAR MEMORY" 1::"O";::" 'CATALOG'" 1::"P";::" PRINTER ";:PRĞ:"ON";::"/OFF":1180 "ON/";::"OFF"TORS'"E .1::"F";::" SORT BY DISK NAME";:22::"X";::" EXIT" 81::"G";::" SORT BY FILE TYPE";:22::"Y";::" SUMMARY STATS" B1::"H";::" HELP !!!" L1::"I";::" LIST BY FILE NAME" V1::"J";::" LIST BY DISK NAME" `1:"B";::" ADD A FILE NAME";:22::"U";::" REMOVE BY D.NAME" 1::"C";::" ADD FILE TYPE";:22::"V";::" REMOVE BY F.NAME" 1::"D";::" DELETE FROM DISK";:22::"W";::" REMOVE " $1::"E";::" SORT BY FILE NAME";:25:"'FREE SECD$"BLOADDISKCAT.X,A$90D0":37888< n(28)1ĺ"TN$ ERROR":Z xN1:NA$(1500):PR0:TB1 ::11:"DISKETTE CATALOGUER":2:6:N1;" FILES CURRENTLY IN MEMORY":I140:"=";: 1::"A";::" ADD A DISK";:22::"T";::" REMOVE BY TYPE"@ 1:(2 BASED ON 'THE CAT'-DISKETTE #1 OF THE S.A.GGS.H.M. 03-11-83T37072:1013,76:1014,208:1015,144: SET UP '&' HOOK. $3F5:JMP $90D0(TN$ MUST BE 1ST VAR & LENGTH 30 2TN$" ":D$(4):D$"NOMONC,I,O":!! ! ! ! ! !!!!!!!!!          ROTECTED ****":, "* FILE RECOVERED *":@ L8192819228P V:L,V:: 169,32,160,8,32,217,3,96,1,96,1,0,0,0,25,32,0,64,0,0,1,0,0,96,1,0,1,239,216 **************** F O U N D I T ****************************************"q ^G(AL32) hFT255380 r:"* I DON'T THINK IT IS DELETED... *": |LA,G:LA32,160:CS20,2:CS21,0 CS (CS21)16ĺ"**** WRITE P---------------------------":"IS THIS IT?";:A$::A$"Y"340D W LT0LS0300t "CS12,LT:CS13,LS:150 ,:"*** CANNOT FIND NAME ON DISKETTE***" 6:"TRY A DIFFERENT NAME? (Y/N)";:A$ @A$"Y"110 Ja T"************************(CS21):ER128ĺ"READ ERROR... TRY AGAIN? (Y/N)";:A$:A$"Y"140Q ER128Āw ER64ĺ:"*** DRIVE ERROR ***": A1122135 FT(LA) FS(LA1):N$"" B332:N$N$((ABL)) (N$,1)(160)270> N$:"-------------  90(T2" UNDELETE BY LAWRENCE GUSTZ<`FfPoZ420dL16384:CS8192:ALL256:A,0:nxCS12,17:CS13,15:CS20,1CS20,1:CS21,0CSLT(L1):LS(L2)C ER""""" ,~H ^~"USE ONLY ALPHA CHARACTERS AS THE FIRST SYMBOL OF A PREFACE." ~ OF A PREFACE."s c~D$"": CTRL D h~D$;"BLOAD RDWRT" ,KS WITH THE NEW CATALOG'S CAN NOW BE USED WITH THE 'FID' PROGRAM TO WRITE THE NOW CATAGORIZED PROGRAMS TO ANOTHER DISK." }"AFTER 'FIDDING' YOUR PROGRAMS YOU CAN REMOVE THE PREFACES BY USING THE 'REMOVE PREFACE' PROGRAM." } }"*****WARNING*****"J}"THIS PROGRAM ALLOWS YOU TO ADD A PREFACEOF ANY LENGTH OF ALPHA CHARACTERS TO EACH PROGRAM ON YOUR DISKS TO AID IN CATAGORIZING."}2}"AFTER THE PREFACE'S HAVE BEEN ADDED TO THE CATALOG THE NEW CATALOG IS REWRITTEN TO THE DISK."x d}"THE DIS"""ȭ  hh`ɺɠ @)`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"" " " "