[comp.binaries.atari.st] v12i018: format -- Versatile floppy formatter

koreth@panarthea.ebay.sun.com (Steven Grimm) (09/18/90)

Submitted-by: jeroen@phil.ruu.nl (Jeroen Scheerder)
Posting-number: Volume 12, Issue 18
Archive-name: format

Subject: nice formatter

This is a formatter that
	- works in the background
	- formats 2 disks at once
	- makes any bootsector you wish
	- is small
	- works as a prg and acc
	- etc. etc.

Anyone that wants the sources can mail me:
	jeroen@phil.ruu.nl
Enjoy!

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 format.zoo
M6D]/(#(N,# @07)C:&EV92X:  #<I\3]*@   -;___\"  $        !W*?$z
M_0(!1A$  '$   "0% !Q3:>H%@  G1    $           !F;W)M870N<')Gy
M    "@!_F?4             0"DC*   P6@  ."!"8(&\!%D(86@0P @'CH$x
MHX"@!18$(Q(\HL^?O!'++'I0L@H "2O D ": <RB"!!K #"(M@X !9H .$#Cw
M%P# "&0648!8  T1,!X ^+D  HD7P0\^6P*P0**I0WU'DXH @B()B9@L1"A3v
MHL$,/[%DS=@3$NH%@A<+?B %(!> $B=!GKR3Z2070058@M0$9 -I  D0D 0:u
M @]" "$1A)P"8X-!!  AU$" K"0%@ !G$"!)\UG*$# @+ ,084:#!*< IB11t
M+>)*LG_XE 19XV!TZ2&0IR2*<MM8Y\]G#/@.8!I)'H<*2#R!,0"$$A%,^A(<s
M .8'Q!P$'Z X0P $$">00( OR(*\>?3: 2@043=[$"3G./CH\@3)&P $^ < r
M D/LA4 0>RG@A"X+8 +%$T( $40^X<%P!(4 0& *:C0 4(X20ZSS#P@RQ! 1q
M#0%\:(.'2X3XCP<CP!(1# !( 8020+3!380NBI#$.@,0  8%=#A0## E@B" p
M'08<$\P(M, @0$0VXM@&.A$6(2(-8'C0X8=+B"B###5$9 <)3BXA#XU-B A#o
M"XU0>6..WD0(!@YTD'#DF$K2( ,(!IQY## VR "# G@8D$PP>I"P## ET *$n
M %  D&@RPD0Z*10$T## AR7("  4"%29(S$1_O@/%F"H0 <'1]I @Y+E+)$"m
M+#1&)"N@M=Z:*P&[*M KKA"5"@0L? !@0!O0V$D0/'1@L.<,(#A@ [4&6))Ll
M!;8DNX 89E@SA T[P&" $_M("0 &ZP*@ @!<P N $_+2RRZ[2#GQ:C'!+$&/k
MF1@,>D(C,#  A@Q%\KM$/  +3+#!(.2IL#P- S-PP6 X@.*'=@1LL:@%1QLKj
MM1 8D^P_Q^PE  XD(\/'/P" PX0U1-PP" @0L R"!"X#\$\RU^A K03*O!QSi
M$]@4<0,A.U\+ @4F^YPR  ((_731,(/3A#5*WTR!SA;T_'/0U%J ]=%)+PV"h
M!38B"U$;/C.0*I  @&'!ETK(,.N2 0<3Q#PTIH"(G&X'T 8Y(##!Q1-,?,,'g
M#D[4@1\'/.CUCSM"#+$@ B;@8%>.GRE2!(86$+%@/Z)4!0%2_U0 ! $&N$Y f
M 4>H(P !2>P%P80$48!%A L>P(4. +R! 0A+B#"7 //J<H %L,#&O!D$P!$ e
M& )$B ,@2Z@#((YG@ !# <$K $)#: PH@##G Y ^ @)HT_[[ L@#!A1T!"#'d
M '! U$3P>,C?_OJ'O."Q00-. <,&DN6Y "QP7@#0P0/K ( =" $ &P!" /Z1c
MP0#XPP).6<<%&/B9$0( $E2;G_HD 8<!7  (4\G@5!84 %5, 0AF0( *$0  b
M-<!@/180P1EFA3[U3:F(\-/ #@4@@T@@ WBZ0( =P' N70! $2L"T1GL$3P'a
MV D.O+.)&&! @,V1@'@"2LQ_*" @# B( P("@1#.,,<ZTO&.=LSC':WG'>P@z
M"  NZ) <!  '""S( -+0"R 9< 4 H, ,MM#%?Q!@!EADCHH+FDH6A[!%,(""y
MC(J40.-X +DZ_&  +U! %)Z026_@R R[PQ %YF"]X"D"# 0!QN@L0@0D7$% x
MROD/ PH$  F<+WA&4"0#?G"!'[P 0,X<4#3EAD<A""$(4#2 /93)S&@2()H(w
MH,$S&2 '!$3HF+HP "D6=TXI'-(7*S+9'_[1S6=^\YD(F&8>K1F$%A[2%<J$v
M P:",8SS$?(?_I"/# 8@B61A(#E3",(9(-"E,%(@%[5,IS; 4$8KVN"'+B&/u
MG0@9@ >1X LV^$#D7C" 'Q# B0LB #X.@@,<$, 4(-"<+@C #C+BX ,F4*GDt
MSO&!RKWC&VL90A'>H:0P3@ 6(E""!+ QU:IB(PFD(\(1V'&[)6!H KRP'@BHs
M (ST2>$,&G.*_@(@C/2IX0PBH(A8R>K6T-0@63T10,:"T(X V""C!O !+@?@r
MA;F6%0"R( \>KB< /)!TK&75WQD$H <4&!8- 5#$9/4 A<L&0!2;C8)G=;%9q
M*7A6&IN=@F<E$)H/)"L!($  %5TKG]A>5@ :^ $0 &6]LL9/MQ$!GP&V"B".p
M;O5V? V &N @@ 45 !4W- /5C &#%P JATYDKG.Q(8<-:%<7 U"''++PW0&(o
M0PX@**\VY("&\DHCN:58T !((00C<*  4S "+@'@C.H"Z@P*N"8,>%  ;L24n
M"-TM+RK&6UY0H+>\F)"#&\H+"1DH)QB#X(=\I)$L&)37#Q9& H8UK  D!('#m
M /!P<\&K!B$< 0QF@,$!H $$&,B (&?0PAQ?P(-#E&$((> C .;X P-8DP+6l
MI8 ,#O!'!O1/OG!0YB;-X )<($4 9D#!CGO\XR 'P#M@-K(0D/RT)3?YR>#Uk
M@91K= 1?)$L ;"" %B&17R48H0T&T*+/6*!%!TSA"$NF#@U9@<L H"'!*Q8 j
M-!B<:&0\.-' D(,9OBL 7"1W%0L2@"+J>]\(0<"Z"&@&,#Q- %$CP1@0,$!6i
M_O%" $Q ! 8 1R"$P;H+!,$FND *"L9@ 2M_)H<F5$@%P, !$U)HV!3P=0" h
MG2P-#]L )NP' "IP@3?$=ET7( ( -.!? )S!",FR$P:N*8$9$"0<23BRN0$@g
M#2&(F!N!L%';^,"\-HACP!*@ 22,( $ T-IGMO9@A\ A!&+46@@;S$!,*D  f
M KAXOX*0,8UMC&,Z9-H,&)&  ?[-ZELC !R 6'6K$T""0$' '*(P., OB*@Oe
M._R.R.O?DFG0T0 88W%"MB,=F,AD=C0<S0%P!<Z_/.1J4F %4Z&"$,SL\^HUd
M+P"06)P4VOQFN/U##XBFH1H834,Q/)J&6I#T=YF37%O0D 3^-0!VGW@>\(I c
M+R!0P"CQ$;E3VB  ':)&LAHP66*#$1K5>8ZK:1$!&%H !(*? "TR*@!":^#Ob
M@2?(!'!1>$<B7O*X8#PD4KK2!5S((A08"EKA8H(IU"4)>%D<&-SQ^:D<;P&Ca
M7T#I3Y_Z)ZS>!%]8:8GU   OU$4 =2%?$Q[T3"3P/K=(,8$3G+"XWP??"<-_z
MPDDC!X(G* $/^@#"#/@!"$!8A ,QT/  ]"$$!N !?MDW S["CT)]*,'\E2! y
M^O'1OQ  0Q]0B)P+D+!] #3@^ROU%D17%S^ %\I4=W2!%#Z %UC 2G7@%G61x
M +47@'4! A-H2@  @4C1 WCQ(+KW P.(% , ?8LS?0^H -.4@N/T \ 7 ,^Dw
M@0 @@4Z@2!1@@JD431+P L\$ 3C8@\\D 2P(@B^83TBA(#.X%QI@@RC8@D-8v
M%Q*P?(KD $I8%Q&P?%0@?;E7!W"@ (7&!G P 85F!F'$ ?X  \   X$@4(5Fu
M!3^1$5CP @DPAF5XAL$  \(  P:"A_*AAPR@APZ@AQ"@AQ*@AQ2@AQ:@AQB@t
MA]RV%QR@AQX  Z\ $7"0 6'P&0@@ E\@ Y@@ O_A 9K(B:OQB?]A J+H+J7Hs
M IH8.6T($8&!(61HAC!0AW>X%P2@AP:@AP@ !RJP7\"PBB" !2Q!$&0(!S*Pr
M7Z[@BZTHC',8BW:HA[6X%[>8APG"AY (  X !S.P7WX A\@(!S90B0  !YA8q
MB@10B@A0B@R0BG6 C,&8$_X !UQ"$$;0CF38C2.P7^*4 &X!!TT CBHPCIN8p
MB9OX'^4XD .BCNPH%</H!/LE /2(!#1&8T&P#Q Q!*ZH!)Z& 3( #!"@D1SIo
MD1VYD0,& ,B@/ 31  MX31CB 66( 9$CC$@@C%Z@C 3!DFY($"* !9]!$ (0n
M 'GEDP0!E#W9$S[9$Q)QE$'I$$8Y  5 $ 70E$'YDP0! 0<@E4AYE$5)-4*Ym
ME409 ,R3E5=YE4/Y&4!I $!) $ 9  /PDSU! #TY($!YE5F9 &E9EPY1 #TQl
M &M)-6\9EG[YEX#IEP0P  2! (2I+$:) (EIE&B9EW$)E6 )E609E8%9F4@Ik
M ,Q#-8=IF9R)ETYIE'$9EP( E6;)DZ!IE 8@F0\1FJ;Y&6,)EIRYFLRSEE]9j
MEZ<9E)OIEV E><+ FY(W#))G#)*7#+[I:KWI:M @>=(@>=10G!-PG!/0#9+Wi
M#9(G#LX)G=[C:NT@>? @>?,@>?8@>5\%G<=) 0?0.PO0.P[0.Q/0.P-A$U!Ah
M$S1BG,5) 7-! 480F_JYGW]IE%0# (1I  01 =[G,S!SGOXIF0)*$.<9H -:g
MH/]PH#OY%PZ1G@3!  "J+ ]*$!$:@Q-:$ X! 0YQ&0X*  3*H3##0_YY 0[!f
M+@21 1FZH"=JH-;XH1J!&0XA C&ZH32*H1L$,SW! 381HE1S&3)A ,R#=.O9e
ME,Q# $/Z$/\ FCN)H;,9H1U: 6'IGP+:EE8*,P-!E Y!F#Q$$$Y*E%VZ;1]*d
MI@.RDV7JH0+*0Q0@$5$:'E/ZGP=PIEB*E1^ZI0-RI@-AI [!0V,*(#M9 'YJc
MHA^: &O:ECOY?Q6!H7$*I48II#VQGLRS 'AZF1^JHC)QJ(!ZDO+A$&V: )[Zb
MH>M9$8S:$W&ZGNT9J0X1I6#JI.M)F ^0J4=)F/[)J1!0J@_1;Q6Q'3L9 ;SJa
M$.V95QG:$Q(PK+U#J+.YDQ-0JOZ)I>?9K#W1 ,HZ%:%*K>V"I2SJJAQJE"+Jz
MI /!/!9@JQ+1IJ#:$Q=PK0,AHDZYDQ0 K0ZQ =-VESN9 8=ZG@]!J0"0GO_'y
M/!IPJ*H) !T HO[ZGQL@L!+A 03;K_[WGQQPID)ZE% Q$ (JHOY9L%#AK3XCx
MI3SD&3WA >;Z$ .;GCWQ =<Z C(!'3L9L5:*IC'PH20  "Q*$/WFGX%9 7U w
M$!4@#0B6!G90!L03!,0C!,0S!6E !F4P!\03LS<V!64P!G3P!G+ M   'C% v
M(U0@!V$P!FM@M31 (S@@MC&+ S?&,@#0!'7 !G20!G00!G.P!FG@!F= /%FPu
MM//R'TG@!F;P'T9 M6T0!G0  $6 !VX+ ,DD!4T0!%3@ D) !2#0M6T;M$/Vt
M!F] !W,0M5,K!T<+N4G0!FU0!VY0!FD[!2U !$\P!3GU!FT !X*;!F+ !J2;s
MN(O;N(\+$7(D!V] !DK+!G\K!X%+![\  %L0 UVP!51@;6)0!I$;N\P[M2#0r
MM\ KN'S0!E3[O&@0!FX@/B! !G( M$L+ J$[!W3 !\L+ F/P!FXPNE);!F00q
M L=;N&[;!<0[ \=;'2! NXP+ B!@!S+@ C P*R!0'B#  1W ![V0N[O;NU/Pp
M!F8@O" 0 SF0 S# OQ[P <?[!$M O\5[O% @NW#+O)DKNU(;N=W[O4'+!] Ko
MO<%KPF20!G$+ G/K AF\P<1KO%NPMYDK!W30O3"\!B@P!RD0,=;&PM0[M^B+n
M!F^0N=OKO> [!S2\!1K,!T.@O6-0!FQ OUO;M3$A!)@;M2[P D; N+C+OV9Lm
MQC=\O%2 !LS[PC&,Q$X<M" P CH@PW,  G?PO710!BW !W"@NWO<ON\+ DWPl
M!G*<QV[+QW]\N9JKPF$@!I'K!F0  G)0!G0@!WD0Q1K,P3C\N\';MG0+ F4@k
M![K+N1'#QGS@QFL@PTV,PLQ+Q^(;!GE@OLPKNG4P!X\LNYILPW[Y?SP) 0Y@j
M 1:  V3@  C   R@ F;I5R#@"SR "!  "A(@!!"@ $7)"PH@ =F, 8T+#A" i
M &I@ !Y@  Q@ "Q0<N7, N3L !R   C0</ < .  S_1<S_9\S_@<SSZI#TX:h
M$-RGQ/T"                                                    g
M             /R#W*?$_0(!I!0  (T1   7%:IU/%[%!   WP(   $     f
M      !F;W)M870N='AT    "@!_Y!\             0"DC*   00@<2+"@e
MP8,($RH<6(6.G#)CT-!A 2(('#EIV("(D2,'#!<-%(2D@B;-'!!F,I8!$6;,d
MF#=MX(1QDZ;,22-/I#0)0@6$'1 R7,"@ 5*D IPZ>8) $^8D'30KS;QAP^;-c
MG31NSJ L$X9.G8=S=(1$V +$Q3=GY(1IP](-&98N;<YY(R</"*P@WK@ILV/Lb
MP;)VPF!\4^>D5#EMNH;UNW!@V3E8S[ I\X(,83&304 F4X8,X\8@RM* \0('a
M:1PQ2LLH/0.$PY9KYGQN7#;'BQ@P-$.D0U>V K(L3\Z$.T8N7;MIZ( 8,_QPz
M8N5D3,:^Z\8U5!!B8*<E[+;O[[_+AX]YV'5EDRDMB#R9LARF3#II,*^,/B>Vy
M=^#,JX_G2F=EFC9MU+$7""C8D88<A8%E$ATST9$""/39-YMCX557V$K#E8%'x
M?W*X$89&8KSQ!AUS[$872BH%9Y8<(XZ8!QPKA3ABB6/P)L=]X#FG&'4@/&1'w
M&7*4^!9=G-TXH4!EY8<27<^Y=L<;$$HGG')Z%5=42$:HM-AW!I6%U$Y4N "%v
M%$?D908(7_+D0A!##'%D:"!,$80510CQQ!-ACGG$FU[F!*8+5&!!14A8'CB'u
M<D]%AJ:?2EEF$PAW0%6=AA#5T=];)KE6EVM0DO?64U&EF&:80H094A)GAA%8t
M1F'(1U&BAJ68Z85O-<72BBW2\6)4)X*Z''GPZ64F=B*2:&*01:$*@ALCLK0Js
M&ZUFYNN%<E2X'!HBEHA=&73<4489U9V7WGIMO34%%2TD :" ,19+HXUS7*D r
M$5*R]!!+;-P11AY.8=09I]LNB5A7EX(@KGKL>1KM2BB4\6-U:9P)JEV6N7&"q
M<F=P&Y*O!Y,KH[$UTI5"422M9&E&R=EU5EIKQ3EGG7?VI.0<JK8[X[%.03FJp
M"Z7N ((:A2D74;9EA!0&A!C]*&\38634EETO 0@NHE"J >0;X (!1TELN(!@o
M'2ZXP49( 0'<I\3] @                                          n
M                      #\@]RGQ/T" 888  #K%   B!21G:8 6P4  )L#m
M   !            <V%V96)O;W0N<')G  H ?PFG             $ I(R@ l
M ,%H  " @!N" ' 1-.$"(4(0#A&" 4,08L2(/C*"H%)%BI G+8: X$&2!P@0k
M9M[( 1&$2A I25I,H7*RII0R;,J$F5,&1 P7,6J>[ 4"1PX00E2R">.&S,DDj
M;NB4D>,F#)TT;ZJR.4GPB#Y_G$8L(UC A))5 $A8 88$T Q@9%6 6 . 0;1Ui
M "C<!< !&K\  $ L@(8(& \ _%P >8'@Q8(?AP% !J#$29 G[^K""2 D2!"\h
M@&A H,4'C(<S($B#<7%&@P0,9RS0"$!%"#$^#_QY$B;BR>PI0B1@BZ+L'S\Ag
MI^B F!*D# =:(<C@$Y("0 #F91A +X,/21KK4H" (?<B07@D>OZ1$4&7!8@Gf
M3G(1# #C1^ <! G .4, !! GD(" 7T%TG*& ?P#&-Y\LDS%AV0\#O*  9OX e
M4$0^^>$!@A*;.:$+ /38 , 40]C"!P "G('%9O8)<8:+-  @PP!!9&8 ' !Xd
M"  L7#PA!!!!J , $3I:(J(20+QA0A#7B!"9 #E^* <LO! $I8%!YMCAAZ3 c
M,(".3H"A0)9[; F ))A!2<(7-GS@1!V.'8$A  5X(-@9#CAFPA23)6%9CV"Xb
M(R=9(MR9YP)[]OGG$X&:\,6;]DWF@V58P =G8P%$>MA_EV7& *0 ,#89#Y9!a
M8:F$/[Q05ZJKJLK #P+\$("JHAZ&@!-.8);7FF^.@ Q!"?#P%EGBP$$#12@.z
M2R<+T #1;!#[!#;$G 6X\",$&,@ #+;:<KMMML# <!@R3EIIB!.=S7F .#!@y
M\"99+) E!+$$K0ML9 L<!AB* 0 F0+_S^0MPO_M>=%'!^PY0 %D+!\PO01 <x
M(+#!!A/,K\ 86Q< E!933/&_@%EL , $##Q Q@3\"P " %-L<0(#QXQ0 8 -w
M<#***GNL\\X\ZTS   0A #0 (P>]+\OY 7SRO@UWW+#&#O<L]44"0(GBT%-Gv
M33-9^[;<L@ -%_TPU$0_[9#75H8,LL8%9XW0Q@"<S'',77>--<5;R-#%%E>@u
MD<88:( @QAMOT,'3&'2H!,(<:+Q1!QMD\"%&3W.$84<93J7A!@@B&/&$%$VTt
M9"T5(ORP=Q Z\"%$ZD,P-09.70#@.>BB"T$% %O$L'<558F1$PB)@W"''&E(s
MQ4?PG7\>.A6CB^#"WJV[\3H;L>>^>^^_!S^&'#H9GSSMS-ON//2NP\XS&@Y r
M@@ ##%# !P9L&,"  QP@@  !^.,/0$#<I\3] @                      q
B                                          #\@P  p
 o
end