%]L (c)1983 Action Computer Services  B JKIHiDiELV`L=% =% BLV`[L%%l L% &` Fj`8冨凪` %EӅӥ %`ʆǪƩ Ɛee` %ƦʆǢ &Ɛeǐ & &L% %'&&&8儨児祂*L%&&*ń8&&L% [&`hihiHHȱȱL%c !#3`L%JJJJ`H %h`Hȩh r%L& {%L& %%L& -%L& 3%H8`HhHh _'L& BHI V䅠L& L' =%L&Ԇ ؠPIPP` 'P -%L& 'L' 'L' (L'H- '8塪墨hL( (L' &(L' 'ȹP`텠8堨塪 '芨Oȩ-`PP 'P棩 Ѥģ0-ģ6000:,80H & &ehe&eģ0ʥ 8堅塅`$ '&*i0:0i 'Ʀ`¢ 护°ڱ%ȱ%E 'L`)担CS R'L`)I (L`)H )L`) 'L`) &B V &NLMȑ` MLN%B VL&S:*E:*H L' * * ' L'h)0I**L'[\ZUVT` @***` G*L' :*L' @*L') ` G*L' &&` 0d %ҥ `2)2ҩ`p`0)9+`@0)ӈJJJJ)`Ѕ`ȱ`` 5+ȥ`HhƣĢ`ƥĤ`Ѣ +`ȱѢĦ`膡``ťƤe8夰L+ Ƥ8`ŦeѠe桊L+0 lmarg=0D]0 Graphics(0)D]0He t,e Break KeyD]0t,pdD,2 irqen=1,0D]x0; Se4\[6.T^LsD]\L, &,,,,,L,,,`L,,,`L- :*( &&XeYe( && H+`(1LN-J-I-( &&XeYe( && H+ :*J-I- ?'`,7)D]|d -L- &--ͩ-L.- m-*(m---ͪ--Lz.-m--i,e,e-e,d, [&i--- [&- &&8-嬍--孍-L.-m--i,e,e-L-`L.L. . K-L.#You must have entered some programs. ?'L/ to do this.. ?' ,,, ?' 's,r,`zL,/(/ ,LB/ Disk Error #/5 R'(/ ' 'Lv/ Check the drive and press a key./U ?' 's,r,`L/R *ppҠJ, J,L/ ' 'J,L/ 'L/ / R' 'L/ / R' '} '0i 1i 5+0i 1i 5+¢ 5+Ƣ 5+ 5+L|0(0S R'L0(| Written in ACTION! by Mike Stortz |0 R'L0(| G.R.A.S.P. of Richmond, Va. ֠ |0 R'L1(0 R'RLL1( NO EMPTY SECTORS 1# ?'Lw1 Portions of this program are1V ?'L1$ copyright Action Computing Services1 ?' ',, ?' 'L1 Thanks to Frank Leveque for1 ?'L2 fool-proofing1 ?' ',, ?' 'L?2#This program may be downloaded from2 ?' 'Lq2$2L ?'L2$| The Bt Factry (804) 262-9289 |2{ ?'L2$2 ?' ',, ?' 's,r,( &&XeYe( && H+ :*L`3$ This program reads in the contents3; ?'L3$of your binary file disks, remembers3j ?'L3 their lengths, and sorts them to3 ?'L3%occupy the least number of diskettes.3 ?'L4ZEROFREE will hold about 10003 ?'L84programs and their lengths.4 ?' 'Lj4$ A disk has 707 free sectors if you4E ?'L4%use a boot menu like QuikLoad, or 6684t ?'L4%sectors minus the length of your menu4 ?'L4 if using DOS.4 ?' 'L5% A '' will appear before a filename4 ?'LC5#if it is a duplicate, or a '' will5 ?'Ln5 appear if it is of equal length.5M ?' ',, ?' 's,r,c,b, ,L5!How many free sectors available? 5 R' (c,b,b,c,L5N, ,L 6Maximum files per disk? 5 R' (N,N,L5`L,6 ,LE6 Now up to 62 R'_,^, 'Lc6 programs.6X ?'P, L'L}6D:*.*6w 'U,Lt6,x ',, q+,L6SYS6, +s,r,x,L7r, s,L7P, P, &&,e,eii, { q+ P, &&,e,e P, m,*(m,HH, (hhP,IL7L7L6 L'`1L7L7 7 K-P,L9L7 7 R'J,P,88J,L9^,_,LU9[,ȌZ,^,68_,7868Z,78[,LU9)>J, &&,e,eii , q+ ,[,Z, &&t,eu,eii , q+ ,,, +s,r,r, s,L.9J, m,*(m,Z, m,[,*(m,QQL.9s, r,r, s,r,I  s,ILJ9LU9Z,[,L%8r, s,Lh97L9r,I  s,IL97L9 7L9 %C -%C%S%C mJ,7J, &&,e,e9 C)J,L7 '`L9t,i u,i _,^, &&ee,i ,i P, && q+,i,i_,^, &&ee,i,iP, && q+^,mP,^,_,i_,`L: , , N+L:Enter filename to add: ?'L;(11 characters, no '.', please): ?' , ',L6;`,i , , ,La;Enter length of ;P R', ?' (o,n,n, o,n,o,L;`P, P, &&,e,e, q+P, m,*(m,o,n,`L;8J,@J,J,MP,L< J, &&,e,eJ,i &&,e,e8P,J, && q+J, &&,e,eJ,i &&,e,e8P,J, && q+P,L=8P,P,`L =^,_,L=L> 7 ,LF= Insert next disk to be cataloged=% ?'La=and press ,=P ?'L= LETTER to delete,=k ?'L= + to add, or= ?'L=  for menu= ?' 'J,J,I L= 9 )6L>@J,L=AmP,J,ŮL= ;L>J,I+L > :L>J,IL> 9`L =`L> Y,X, &&t,eu,e R'LQ> >O R'K,K,IK,IL|>S,L|>K, '`L>L> 's,r,r,I s,IL>Q,`L>L> > K-L>%S%U%EL>Programs left - >_,^,> C)L?%S%U%EL+?Sectors wasted - ?a,`,? C)LL?%S%U%ELb?Allowable waste - ?m,l,O?E C) 'L?Press  to abort? ?' 'L?Checking >>>> Printing >>>>? ?' 'L? Down to this many free sectors :? ?'`L?^, *iV,W,^, *iX,Y,V, m,W,*(m,[,Z,V, m,W,*(m,X, m,Y,*(m,ȱX, m,Y,*(m,[,ȑZ,`L@S,S,L@ ' 'K,W,ȌV,L,@@V,W,LAFV, m,W,*(m,Y,X, >V,W,L@K,L A '8b,\,c,], 'L,A FREEA& ?'`,mb,a,mc,8\,`,],a,S,LsA ',, ?' 'J,`L{AL,iV,W,^,A_,AAV,AW,LAtE8V,L,W, m,*(m,V, m,W,*(m,V,ХW,LA8^,L,^,_,_,^, _,L B L' ,Q,`L$B],\,N,_,^, ,g,f,W,ȌV,f,lBg,mBlBV,mBW,LCV,L,],[,\,Z,V, m,W,*(m,Y,X,X, m,Y,*(m,\,q\,],q],b,\,c,],LB[,],Z,\,8L,L,LC8b,\,h,c,],i,V,W,L[B`LCW,ȌV,^,:C_,;C:CV,;CW,LiC V, m,W,*(m,W,V,V,W,L)C >Mk,j,e,Ȍd,d,'e,LD8d,'e,𦡥 -Q,ILCLD }> ? !Bh,j,i,k,L Di,k,h,j,i,h, 'LC C R'e,Ȍd,h, i,L DLDd,e,LCk,m,j,l,e,Ȍd,d,'e,LD8d,'e, -Q,ILcDLD }> ? !Bj,h,k,i,LDe,Ȍd, @ xA >d,Зe,L+DQ,ILDLDLlC`LD L'^, _,LD .L$FO,LD D K- ,LEOutput to D:PRINTOUT,D ?'LE screen,E ?'L*E or printerE ?'L@E (//)? E4 R' 'O,O,IDO,IP O,ISLDO,IDLE ,LEInsert disk to hold D:PRINTOUTEy ?'LE and press any keyE ?' 'J,LE D:PRINTOUTEʩ 'S,LFO,ISLFS,LFLFP:F 'S, C`L(FLAF F+ K-^, _,LYF .LnGL}F Insert disk to save D:LIBRARY toF\ ?'LFand press ΠF ?' 's,r, L'LF D:LIBRARYF '_,^, (e,Ȍd,^,G_,GGd,Ge,LiGRN e,d, &&t,eu,e F'd, m,e,*(m, (d,Аe,LF L'`LrGLG Gu K-LG"Insert disk to load D:LIBRARY fromG ?'LGand press ΠG ?' 's,r, L'LG D:LIBRARYG ' (_,^,e,Ȍd,^,CH_,DHCHd,DHe,LHE( e,d, &&t,eu,e z'd, m,e,*(m,HH (hhd,Јe,L2H L'`LHLH  H K-LI$H ?'L0I$| Press the letter of your choice |I ?',, ?'LhI$| þ atalog Disks |IC ?',, ?'LI$| Ӿ ave Library |I{ ?',, ?'LI$| ̾ oad Library |I ?',, ?'LJ$| Ͼ utput Data |I ?',, ?'LHJ$| ž mpty Buffer |J# ?',, ?'LJ$| Ѿ uit |J[ ?',, ?'LJ$J ?'`LJ L' L'LJK:JЩ 'Y,X,%q,%p,+/%*/%@_,^,,, H+LIK#-----------------------------------K,%,LzK# 堾K,V, /LK$| |K,,Q,W,V,S,P, H 'R,R,ICLK =L7LR,ISLK %FL7LR,ILLL oGL7LR,IOL%La,`,m,l, DL7LR,IEL7L_,^,R,IQLK L' L'q,%p,% *``J