[net.micro.atari16] fast formatter for ROM TOS ONLY!

ACS19@UHUPVM1.BITNET (Mike Vederman) (10/16/86)

Here is a formatting program that will allow you to format disks using the dead
sector formatting routine which has been used on mainframes for a long time.
Otherwise known on the ST as FORMAT+.  This is an executable program which ONLY
works with TOS in ROM!

The uuencoded files of format.prg and format.rsc are included.
After uudecoding, you should have:

format.rsc ---- 2470  bytes
format.prg ---- 10226 bytes

---------------------------- cut here -----------------------------
begin 644 format.prg
M8!H  ">N    (@  .3(                  $[Y    #$[Y   G)"I/*FT x
M!" M  S0K0 4T*T '-"\   A "( THW"O/____XN02\ +PU"9S\\ $I.0=_\x
M    #"!M !@B;0 8T^T '" M !13@&\&$R!1R/_\(&T $" M !Q3@$(84<C_x
M_"AM !#9[0 <*4W__"IM  A.K0 &(&S__$AH (!.NAFP6(\O+/_V/RS_^DZZx
M&$!<CS\\  !.NA]F/SP 03\\  ).05B/3G5.5@  +P="IS\\ "!.05R/('P x
M  2Z+A O #\\ "!.05R/( =@   "+A].7DYU3E;_[$AN__1"9R\N  A.N@#0x
MWOP "B N  @R+@ ,P_P &$C!T('0O     H@0# 0/4#__C N__XV/  !MT ]x
M0/_\/SP  3\N__P_+O_Z/R[_^#\N__8_+O_T0F<_+@ ,+RX "$ZZ',;>_  4x
M3EY.=4Y6   @+@ (,BX #,/\ !A(P="!T+P    *($ P$,!\  %F   0/RX x
M#"\N  A.NO]@7(].7DYU3E8  " N  @R+@ ,P_P &$C!T('0O     H@0# 0x
MP'P  6<  ! _+@ ,+RX "$ZZ_RA<CTY>3G5.5@  (&X #D'H  (O""!N  Y!x
MT"\(/RX #"\N  A.NAN\WOP #B N  @R+@ ,P_P &$C!T('0O    !0@0# 0x
M(&X #C%   0@+@ (,BX #,/\ !A(P="!T+P    6($ P$"!N  XQ0  &3EY.x
M=4Y6__X];@ ,__Y@  "L("X "#(N  S#_  82,'0@5B ($ P$+!N__YG  !Jx
M/6X #/_^/7S__P ,/R[__B\N  @@;@ 03I!<CTI 9P  '" N  @R+O_^P_P x
M&$C!T(%4@"! ,! ]0  ,#&[__P ,9@  (" N  @R+O_^P_P &$C!T('0O   x
M   @0# 0/4  #&   "8];@ ,__X@+@ (,B[__L/\ !A(P="!T+P     ($ Px
M$#U   PP+@ ,L&X #F<   P,;O__  QF /]"3EY.=4Y6__X,;O__  QF   *x
M,#S__V   '@@+@ (,BX #,/\ !A(P="!T+P     ($ P$#U __X,;O____YGx
M  !(8   )CUN__X #" N  @R+@ ,P_P &$C!T('0O      @0# 0/4#__B Nx
M  @R+O_^P_P &$C!T(%8@"! ,!"P;@ ,9@#_P# N__Y@   "3EY.=4Y6__8Px
M+@ ((&X #+!0;0  7# N  H@;@ ,L&@  FT  $P@;@ ,,! @;@ ,T&@ !#U x
M__8P+@ (L&[_]FP  "X@;@ ,,"@  B!N  S0:  &/4#_]C N  JP;O_V;   x
M#C \  %@   .8   "C \  !@   "3EY.=4Y6__@@;@ (,! @;@ (T&@ !#\ x
M(&X ## 0(&X #-!H  0_ $ZZ'"!8CSU __H@;@ (,"@  B!N  C0:  &/P @x
M;@ ,,"@  B!N  S0:  &/P!.NAOR6(\]0/_X(&X "#\0(&X ##\03KH;^%B/x
M/4#__B!N  @_*  "(&X ##\H  ).NAO>6(\]0/_\(&X ##"N__X@;@ ,,6[_x
M_  ","[_^I!N__X@;@ ,,4  !# N__B0;O_\(&X ##%   8P+O_ZL&[__E[ x
M2@!G   .,"[_^+!N__Q>P$H P'P  6    ).7DYU3E8  "!N  @P$"!N  PPx
M@"!N  @P*  "(&X ##%   (@;@ (,"@ !"!N  PQ0  $(&X "# H  8@;@ ,x
M,4  !DY>3G5.5@  ,"S_["!N  BP4&P  !@@;@ (,!"0;/_N.4#_\C \  %@x
M  !","S_["!N  BP:  $;P  *C L_^X@;@ (D&@ !%- T6S_\B!N  @P*  $x
M4D Y0/_N,#P  6    HP/   8    DY>3G5.5@  ,"S_ZB!N  BP:  ";   x
M&B!N  @P*  "D&S_\#E __0P/  !8   @# L_^H@;@ (L&@ !F\  "HP+/_Px
M(&X ")!H  930-%L__0@;@ (,"@ !E) .4#_\# \  %@  !(,"S_["!N  BPx
M4&T  #(P+/_L(&X "+!H  )N   B.6S_[/_N.6S_ZO_P,#P  3E __0Y0/_Rx
M,#P  6    HP/   8    DY>3G5.5@  (&X "# 0(&X #%2N  PP@"!N  @Px
M*  "(&X #%2N  PP@"!N  @P$"!N  C0:  $4T @;@ ,5*X ##" (&X "# Hx
M  (@;@ (T&@ !E- (&X ##" 3EY.=4Y6_^Q(;O_X/RX #"\N  A.NOL&WOP x
M"DAN_^Q(;O_X3KK_@E"/2&[_^$AL_^Y.NOTP4(]*0&8   HP/   8   O" Nx
M  @R+@ ,P_P &$C!T(%0@"! ,! ]0/_V,"[_]L!\ (!G   *,#P  &   (XPx
M+O_VP'P  68   HP/  !8   >B N  @R+@ ,P_P &$C!T('0O     H@0# 0x
MP'P "&<   HP/  !8   4$)N__1@   X,"S_Z&<  !1(;O_L3KK]QEB//4#_x
M]&   !!(;O_L3KK^(%B//4#_]# L_^A7P,!\  $Y0/_H,"[_]&< _\0P/  !x
M8    DY>3G5.5O_V2&[_^$)G+RX "$ZZ^@C>_  *#&[__P ,9P  $#\N  POx
M+@ (3KKY#ER/2&[_^#\N ! _+@ .3KK[K%"/2D!F   >(&X %D)0+RX $DANx
M__A.NOSP4(\P//__8  !+C\N ! _+@ ./SP "$)G+RX "$ZZ%4[>_  ,/4  x
M#" N  @R+@ ,P_P &$C!T('0O     H@0# 0/4#_]B N  @R+@ ,P_P &$C!x
MT(%0@"! ,!# ?  !9P  @C N__; ?  (9@  =B!N !8PO  !+RX $C\N  POx
M+@ (3KKY.M[\  HP+O_VP'P  6<   XP//__8   F&   $(_/  !/SP  2!Nx
M !(_*  &(&X $C\H  0@;@ 2/R@  B!N !(_$$)G/RX #"\N  A.NA4VWOP x
M%# N  Q@  !42&S_[DAN__A.NOP 4(\Y;@ ._^PY;@ 0_^I";/_H2'K]I#\\x
M__]"9R\N  A.NOD<WOP #"\N !)(;/_N3KK[S%"/(&X %C"\  $P//__8   x
M DY>3G5.5O_V(BX "# N  S!_  82,#2@%"!($$R$# \ (# 06<   HP/   x
M8   6" N  @R+@ ,P_P &$C!T(%0@"! ,!# ?  "9P  ,B N  @R+@ ,P_P x
M&$C!T('0O     H@0# 0/4#_]C \  C ;O_V9@  "#EN  S_YC \  %@   "x
M3EY.=4Y6__8B+@ (,"X #,'\ !A(P-* 4($@03(0,#P @,!!9P  "C \  !@x
M  !R("X "#(N  S#_  82,'0@5" ($ P$#U __8P/  (P&[_]F8   HP/  !x
M8   1# L_^!G   4,"S_XK!L_^1F   (.6X #/_F,"S_X&8  !0P+@ ,L&S_x
MY&8   @Y;/_B_^8Y;@ ,_^(P/  !8    DY>3G5.5@  ,"X $$H 9P  $# Nx
M ! 90,[J FX _P 00FS_X# N !!@   "L'P #6<   9@  !0(&X %D)0.7S_x
M___F2'K^F#\\__]"9R\N  A.NO=^WOP # QL____YF<  " _+/_F+RX "$ZZx
M]H9<CR!N !(PK/_F,#P  &   ,!@   :L'P "6<  !)@   "L'Q0 &<   9@x
M   ,.7P  ?_@8   &K!\#P!G   28    K!\2 !G   &8   =B!N !9"4#ENx
M  S_Y# \__\Y0/_F.4#_XDAZ_HH_//__0F<O+@ (3KKVZM[\  P,;/___^9Fx
M   82'K^:C\\__]"9R\N  A.NO;*WOP # QL____YF<   H@;@ 2,*S_YF  x
M !9@   ",#P  6   !)@   &8 #_\C \  %@   "3EY.=4Y6__)(;O_X0F<Ox
M+@ (3KKV$-[\  H_+@ ,+RX "$ZZ]T!<CSU __8@+@ (,B[_]L/\ !A(P="!x
M5( @0# 0/4#_]&   #HP+O_TL&X #&<  ! _+O_T+RX "$ZZ]8Q<CR N  @Rx
M+O_TP_P &$C!T('0O      @0# 0/4#_]# N__2P;O_V9@#_OC\N  PO+@ (x
M3KKU'%R/3EY.=4Y6_^X@+@ (,BX #,/\ !A(P="!4( @0# 0/4#__B N  @Rx
M+@ ,P_P &$C!T('0O     H@0# 0/4#__# N__[ ? ! /4#_^# N__[ ?  !x
M/4#_]C N__S ?  (/4#_]# N__[ ?  (/4#_\C N__AF   H,"[_]F<   HPx
M+O_T9P  &# N__)F   0(&X $$)0,#P  6   3(P+O_X9P  %@QN  ( #F8 x
M  P]?(  __I@   &0F[_^C N__9G  "P,"[_]&8  *@P+O_^P'P $&<  !0_x
M+@ ,+RX "$ZZ_H1<CV   (HP+O_X9@  9C N  P@;@ 4L%!F   *,"[__&  x
M  PP+O_\-CP  ;= /4#_[C N_^XV/  !MT _ #\N_^X_+@ ,+RX "$ZZ$6[>x
M_  *2D!F   8(&X $$)0(&X %#"\__\P/  !8   ?&   !XP+@ ,(&X %+!0x
M9P  $#\N  PO+@ (3KKS.%R/,"X #"!N !2P4&8   H@;@ 4,+S__S N__AFx
M   .,"[__L!\  1G   <,"X #(!N__H@;@ 0,( P/   8   '&   ! P+O_Rx
M9@  ""!N !!"4# \  %@   "3EY.=4Y6_\)(YP< +BX "$)LSK @;@ ,/5#_x
M_D)&/7S____\0F[_^DAN_^!"9R\'3KKSB-[\  H]?  !__9@  ,*, :P;O_^x
M9P  *# N__YG   @/"[__D)N__X_/  !2&[_]$)G/P8O!TZZ#US>_  .2&S.x
MQ$ALSL9(;/;P/RSW-$ZZ%@#>_  .2&[_Z$AN_^I(;O_L2&[_[DAN__!(;O_Rx
M0F="9TALSKA"9T)G0F="9T)G/R[_YC\N_^0_+O_B/R[_X#\N__H_/  !/SP x
M S\\  $_/  E3KH-I-[\ #P]0/_X,"SV\&<  "0P+O_69@  '$ZZ\;;0O   x
M #PI0,[,/7P  ?_6.6SV\,ZN,"SV\&<  $8P+O_69P  /A LSLAG   V3KKQx
MA"U _\P@+,[,L*[_S&\  "( ;@ "__@]?  "_^@0/   &4#.R$B /4#_UDC x
M*4#.S# N_]9G  !8,"SV\&8  !@9?  !SL@Y;,ZN]O ]?  !_^A@   Z3KKQx
M*BU _\(@+,[,L*[_PFP  !H0/   &4#.R$B /4#_UDC *4#.S&    X ;@ "x
M__@]?  !_^@0+,[H9P  ' QL  +V\&8   Y";/;P,"SW,&   ;1@  %R,"[_x
M^,!\  =G  %F,"[_^,!\  1G   D2&[_^DAN_^ _+,[$/RS.QC\N__PO!TZZx
M]YC>_  2/4#__# N__C ?  !9P  2$AN_^I(;O_^/R[_ZC\N__X_!B\'3KKZx
M)-[\ !(]0/_V,"[_ZF<  " P!F<  !H_/  "2&[_]#\N_^H_!B\'3KH-:-[\x
M  XP+O_XP'P  F<  *0_+,[$/RS.QC\\  A"9R\'3KH,XM[\  P]0/_^#&P x
M O;P9@  .# \  %G   D2&[__$AN__X_+O_H/R[__B\'3KK[@M[\ ! ]0/_Vx
M8   "B!N  P]4/_^8   2 QL  'V\&8  #8,;O____YF   *0F[__F   "!(x
M;O_\2&[__C\N_^@_+O_^+P=.NOLXWOP $#U __9@   *(&X ##U0__XP+O_Vx
M9P  %# N__ZP1F<  "8P+O_^9P  'C &9P  &#\\  -(;O_T0F<_!B\'3KH,x
MA-[\  XP+O_V9@#\\C N__PR+O_^PGQ__[!!9P  & QN_____&<   X_+O_\x
M+P=.NN]D7(\@;@ ,,(8P+O_^8    DS? .!.7DYU3E;_]D)N__8O+/;L+RSWx
M C\\ ,@_/  \3KH QM[\  Q(;/;Z/RX "$)G3KH-OE"/2&[_^$AN__I(;O_\x
M2&[__B\L]OI.N@S WOP %#\N__@_+O_Z/R[__#\N__Y"9T)G0F="9T)G3KH,x
M5M[\ !)"9T)G0F="9S\\  %"9R\L]OI.N@L8WOP $!E\  '.Z$AN__8O+/;Zx
M3KK[W%"/0BS.Z#\N__@_+O_Z/R[__#\N__Y"9T)G0F="9S\\  -.N@P WOP x
M$B\L]NPO+/<"/SP R#\\ #Q.N@!HWOP #$Y>3G5.5@  2.<',#XN  @F;@ 0x
M2&SW,#\\ 0!.N@RH7(\Z+@ */ <D;@ ,)MI1SO_\!JX   "@  Q1S?_J2&SWx
M,#\\  -.N@Q^7(](;/<P/SP! 4ZZ#'!<CTS?#.!.7DYU3E8  $CG!S ^+@ (x
M)FX $$AL]S _/ $ 3KH,2ER/.BX "CP')&X #"3;4<[__ :N    H  ,4<W_x
MZDAL]S _/  #3KH,(%R/2&SW,#\\ 0%.N@P27(],WPS@3EY.=4Y6  !!^ "Xx
M(! I0,[0($!"@2(0PKP  /__T($D -"\    +"E SM0@ M"\    )"E SM @x
M;,[0(A I0<[0(&S.U" 0*4#.U" LSM0B+,[0D($B+/;VT($I0,[4(#P   \ x
M(&S.T")L]O834!  $MA1R/_X#&P  ,[>9P  .B!LSM01?  B /DA?&$ #W@!x
M$C%\ A@!&!%\  $0MQ%\ &\0Y1%\ "(0^2%\#$0 #!$&,7Q.=1$,3EY.=4Y6x
M   @;,[4/SSEY2\\AV5#(3\\  $_+,[D/RS.XC\LSN _+,[<0J<O+/;R3I Yx
M0,[:3EY.=4Y6_^H_!T)N__Y";O_N2&[_ZC\\ !Q"9TZZ"T10CTAN__!(;O_Rx
M2&[_]$AN__8O+O_J3KH*1M[\ !0_+O_P/R[_\C\N__0_+O_V0F="9T)G0F="x
M9TZZ"=S>_  2/R[_\#\N__(_+O_T/R[_]D)G0F="9T)G/SP  4ZZ";C>_  2x
M0F="9T)G0F<_/  #0F<O+O_J3KH(>M[\ ! _/  6+R[_ZDZZ[(I<CS\\  ,Ox
M+O_J3KKL?%R//SP ""\N_^I.NNQN7(\_/  ++R[_ZDZZ[&!<CS\\  \O+O_Jx
M3KKL4ER/,#P  #E SMP]0/_^0F[__#E\  '.WCE\ %+.YCE\  G.X&   UI(x
M;O_N+R[_ZDZZ^-A0CSU __@P+O_X8    K!\ !9G   &8   %C \   Y0,[<x
M/4#__F   R1@   .L'P %V<   9@   6,#P  3E SMP]0/_^8  #!&    ZPx
M?  ,9P  !F   ! Y? !0SN9@  +J8   #K!\  MG   &8   $#E\ %+.YF  x
M M!@   .L'P #V<   9@   0.7P "<[@8  "MF    ZP?  .9P  !F   ! Yx
M?  *SN!@  *<8   #K!\  -G   &8   #D)N__Q@  *$8   #K!\  )G   &x
M8   $#U\  '__&   FI@   .L'P !V<   9@   .0FS.WF   E)@   .L'P x
M"&<   9@   0.7P  <[>8  ".&    ZP?  49P  !F   BA(>OS6/SP )DZZx
M#+Q<CS\\Y>4O/(=E0R$_/  !0F="9S\\  D_+O_^0J=(;,[L/SP "DZZ#)+>x
M_  :0FS.XF   $Q";,[D2'K]2C\\ "9.N@QV7(\Y?  !SN0P+O_\9P  &@QLx
M  #.VFT  !!(>OTD/SP )DZZ#%!<CPQL  #.VFP   9@   24FS.XC LSN*Px
M;,[F;0#_K# LSN*P;,[F;   *D)G3KKZE%2/2&SW,#\\  -.N@@H7(\_/  4x
M+R[_ZDZZZFI<CV   5A"1V    XP!U)'0>S.[-# 0A P!S(LSN##_ ( L$%Mx
M /_F/RS.X$)G0F<_/  !/RS.W$*G2&S.[#\\  E.N@N\WOP %#U __H,;@  x
M__IM   J/RS.X$)G/SP  3\\  $_+,[<0J=(;,[L/SP "4ZZ"XK>_  4/4#_x
M^D)G,"[__%1 /P O/ $   !(;,[L/SP $DZZ"V;>_  ./BS.X,_LSN8P+O_\x
M9P  "# 'XT ^ # 'P'P _QE SO\P!^! &4#/ # LSN# ? #_&4#/! QN  #_x
M^FT  "@_/  !0F="9S\\  $_+,[<0J=(;,[L/SP "4ZZ"P;>_  4/4#_^@QNx
M  #_^FT  "P_/  :3KKY8E2//SP %"\N_^I.NNE&7(](;/<P/SP  TZZ!NA<x
MCV   "9"9TZZ^3I4CS\\ !0O+O_J3KKI'ER/2&SW,#\\  -.N@; 7(]@   "x
M#&X $?_X9@#\H#\N__ _+O_R/R[_]#\N__9"9T)G0F="9S\\  -.N@6LWOP x
M$C\N__ _+O_R/R[_]#\N__9"9T)G0F="9S\\  ).N@6(WOP $CX?3EY.=4Y6x
M  !.N@,\2&SW'$AL]QY(;/<@2&SW(DZZ!A#>_  0.4#W-$AL]S _/  #3KH&x
M,ER/2&SYR$AL]S1(;/W(3KH*[-[\  Q(;   3KH&,EB/+SP  'T /SP 2$ZZx
M"@A<CRE ]NP_/  #3KH)WE2/*4#W"B L]PK0O   !D#0O    " I0/<"+SP x
M 'T /SP 2$ZZ"=)<CRE ]O8O/   5K@_/ !(3KH)OER/*4#V\C \  %G  "*x
M/SP 1S\\  (_/  '3KH)A%R/2&SW,#\\ 0!.N@6.7(\_/  "/RSW-$ZZ"<A8x
MCS\\  @_+/<T3KH)YEB//SP  S\L]S1.N@H$6(]";/<V0FSW.#E\ G_W.CE\x
M ,?W/$AL]S8_+/<T3KH*S%R/2&SW,#\\ 0%.N@4T7(\_/  ;3KKWB%2/3KKZx
M#DZZ!58_+/<T3KH*2E2/+RSV[#\\ $E.N@D.7(].N@(Z3EY.=4YU*4G&ZBE*x
MQN8B+P $,#P R$Y"(FS&ZB1LQN9.=0 !  (! 0(! 0 ! 0(! 0$! 0      x
M       !   !  ,%  4%   ! 0(! ! ' 0(!              $! 0(! 0(!x
M 0(! 0$! @$! 0                (! 0$! 08! 00! 0$# 0(! 00" 0@!x
M 0        $! 0D! 0$! 0$!   % 0,# 0(" 0                      x
M                              0#  @#  8!  @!  @!  0! 0,! 0 %x
M  $! 0 %   ! 0 ! 0                                 " @      x
M                              4!  4!  $!  $!  (%  8!  (!  $!x
M  8%       ! 0 !  (!  (! 0$! 0                     ! @,! @$!x
M 0$! 0 ! 0 ! DY6__HY;@ (SJ0P+@ (D'P "L'\  -!^OZ,(@@@0=# 0= Mx
M2/_Z/7P  ?_^8!X@;O_Z4J[_^A 0,B[__N.!0>S.I-#!2( P@%)N__X,;@ $x
M__YMVB\LSB).NOXN6(\P+,Y23EY.=4Y6__Y![,ZD*4C.)D'LSH0I2,XJ0>S.x
M8BE(SBY![,Y2*4C.,D'LSD8I2,XV0>S./BE(SCI![,XF*4C.(C\\  I.NO]8x
M5(\Y;,Y2SB P/  !3EY.=4Y6   _/  33KK_/%2/,#P  4Y>3G5.5@  .6X x
M",YB.6X "LYD.6X #,YF.6X #LYH.6X $,YJ.6X $LYL.6X %,YN.6X %LYPx
M.6X &,YR.6X &LYT.6X ',YV.6X 'LYX.6X (,YZ.6X (LY\*6X ),Y&.6X x
M*,Y^.6X *LZ /SP &4ZZ_L!4CR!N "PPK,Y4(&X ,#"LSE8@;@ T,*S.6"!Nx
M #@PK,Y:(&X /#"LSEP@;@! ,*S.7C LSE).7DYU3E8  "EN  C.1CEN  S.x
M8CEN  [.9#EN !#.9CEN !+.:#EN !3.:CEN !;.;#\\ "I.NOY05(].7DYUx
M3E8  "EN  C.1CEN  S.8CEN  [.9#EN !#.9CEN !+.:#\\ "M.NOX@5(].x
M7DYU3E8  "EN  C.1CEN  S.8C\\ "Q.NOX"5(\@;@ .,*S.5"!N !(PK,Y6x
M,"S.4DY>3G5.5@  *6X ",Y&.6X #,YB.6X #LYD(&X $#E0SF8Y;@ 4SF@_x
M/  N3KK]O%2/(&X $#"LSE0P+,Y23EY.=4Y6   I;@ (SD8Y;@ ,SF(Y;@ .x
MSF0Y;@ 0SF8Y;@ 2SF@Y;@ 4SFHY;@ 6SFPY;@ 8SFXY;@ :SG _/  O3KK]x
M:%2/3EY.=4Y6   Y;@ (SF(Y;@ *SF0Y;@ ,SF8Y;@ .SF@Y;@ 0SFHY;@ 2x
MSFPY;@ 4SFXY;@ 6SG Y;@ 8SG(_/  S3KK](%2/3EY.=4Y6   I;@ (SD8_x
M/  V3KK]"%2/(&X ##"LSE0@;@ 0,*S.5B!N !0PK,Y8(&X &#"LSEHP+,Y2x
M3EY.=4Y6   I;@ (SD8Y;@ ,SF0Y;@ .SF8Y;@ 0SF@_/ !+3KK\NE2/3EY.x
M=4Y6   _/ !-3KK\J%2/(&X "#"LSE0@;@ ,,*S.5B!N ! PK,Y8(&X %#"Lx
MSEHP+,Y23EY.=4Y6   Y;@ (SF(I;@ *SD8_/ !.3KK\9E2/3EY.=4Y6   Ix
M;@ (SD8_/ !N3KK\3E2/3EY.=4Y6   _/ !O3KK\/%2/3EY.=4Y6   Y;@ (x
MSF(Y;@ *SF0Y?  !SJP_/ !P3KK\&%2/0FS.K"!N  P@K,X^,"S.4DY>3G5.x
M5@  /RX "$ZZ OA4CPQN@P  "&X&,#P  & >/RX "#\\ #Y.N@-B6(\Y0,@>x
M9P8P//__8 0P/   3EY.=4Y6   _+@ (/SP 3$ZZ SQ8CTY>3G5.5O_^+PM!x
M[,AL)DA@%C K  K ?  #9P@O"TZZ &)8C];\ !0@"T'LR&PB"-*\   %M+"!x
M;=@_+@ (3KK_KE2/)E].7DYU3E8  # N  BP;@ *; 8P+@ (8 0P+@ *3EY.x
M=4Y6   P+@ (L&X "F\&,"X "& $,"X "DY>3G5.5@  +PLF;@ (+PM.N@!$x
M6(]*0&<&,#S__V P,"L "L!\ !!G"B\K  9.N@'N6(]":P */RL #$ZZ_O14x
MCTI 9P8P//__8 0P/   )E].7DYU3E;__$CG 1 F;@ (,"L "L!\  -F"# \x
M__]@  ".+A.>JP &,"L "L!\ (!G3# K  K ?  "9@8P//__8&PP*P *P'P x
M!&<0/SP  D*G/RL #$ZZ %Y0CS\'+RL !C\K  Q.N@1B4(\,0/__9@8P//__x
M8#8":_]_  HM2__\#&L    ,;Q@_/  !0J<_*P ,3KH (%"/(&[__"%   XFx
MJP &0FL !# \  !,WPB 3EY.=4Y6__(,;@    AL"B \_____V   /X_+@ .x
M/RX ""\N  H_/ !"3KH!BM[\  HM0/_\#(      ;0@@+O_\8   TC\\  $_x
M+@ (0J<_/ !"3KH!8-[\  HM0/_X/SP  C\N  A"IS\\ $).N@%&WOP "BU x
M__0,;@ !  YF#B N__C0K@ *+4  "F D#&X  @ .9@X@+O_TT*X "BU   I@x
M#C N  YG"" \_____V!B("X "K"N__1O'DAN__(@+@ *D*[_]"\ /RX "#\\x
M $!.N@#@WOP #$)G/RX ""\N  H_/ !"3KH RM[\  H,@     !=P,!\  $Yx
M0,@>9PH@//____]@"F (0FS('B N  I.7DYU3E8  "\N  @_/ !)3KH CER/x
M3EY.=4Y6__Y";O_^8"8P+O_^Y8!![,;NT, P$+!N  AF#C N__[E@$'LQN[0x
MP$)04F[__@QN $S__FW23EY.=4Y6__X_!SXN  @]? $P__Y![,;N(DC2[O_^x
MOE!G!EA(L\AF]C H  (^'TY>3G4I2<;J*4K&YBE?QN).3B)LQNHD;,;F+RS&x
MXDYU*4G&ZBE*QN8I7\;B3D$B;,;J)&S&YB\LQN).=2E)QNHI2L;F2&S_R"E?x
MQLY(;,;.(A\@/    '-.0B)LQNHD;,;F3G5.5@  .6X "OW(.7P %__(0FS_x
MRCE\  '_SCEN  C_U$ZZ_[8P+/G(3EY.=4Y6   Y;@ *_<@Y?  8_\A";/_*x
M.7P  ?_..6X "/_43KK_BC L^<A.7DYU3E8  #EN  K]R#E\ !G_R$)L_\HYx
M?  !_\XY;@ (_]1.NO]>,"SYR$Y>3G5.5@  *6X ",;2*6X $,;:("X $-"\x
M    6BE QMXY? !D_\A";/_*.7P "__.(&X ##E0_]1.NO\<(&X ##"L_]1!x
M[/W(*4C&TD'L^<@I2,;:0>SWR"E(QMY![/O(*4C&UDY>3G5.5@  .7P 9?_(x
M0FS_RD)L_\XY;@ (_]1.NO[43EY.=4Y6   Y? !\_\A";/_*0FS_SCEN  C_x
MU$ZZ_K0@;@ *,*SYR"!N  XPK/?((&X $C"L]\I.7DYU3E8  "EN  K&UCE\x
M  O_R#E\  +_RD)L_\XY?  !_](Y;@ (_]1.NOYN0>S[R"E(QM9.7DYU3E8 x
M # N  Q3;@ ,2D!G-B!N  @0$$B L'P "F8./SP #3\\  ).NOX<6(\@;@ (x
M4JX "! 02( _ #\\  ).NOX$6(]@ODY>3G5.5@  ,"X #%-N  Q*0&<:(&X x
M"%*N  @0$$B /P _/  $3KK]UEB/8-I.7DYU3E8  # N  Q3;@ ,2D!G&B!Nx
M  A2K@ ($!!(@#\ /SP !4ZZ_:A8CV#:3EY.=4Y6__)(YP P)FX "B1+0>P x
M'BU(__8,;H,   AF%C\N  XO"TZZ_S1<CSUN  [__F   4@,;H+_  AF%C\Nx
M  XO"TZZ_V!<CSUN  [__F   2H,;H+^  AF%C\N  XO"TZZ_W!<CSUN  [_x
M_F   0PM2__Z0F[__C\N  A.NOS65(]*0&8  *8@"I"+L&X #F0  )@0$DB x
ML'P "F8  (8@"I"N__JP?   ;T @"I"N__I(P"U __(O+O_Z+R[_\C\N  @_x
M/ ! 3KK\U-[\  PY0,@>2,"PKO_R9P@P//__8   G# LR![1;O_^+R[_]B\\x
M     C\N  @_/ ! 3KK\GM[\  PY0,@>#$   F<&,#S__V!H4F[__E**( HMx
M0/_Z8 )2BF  _V!@$" +-BX #L:\  #__]"#)$ @"I"N__I(P"U __(O+O_Zx
M+R[_\C\N  @_/ ! 3KK\1-[\  P]0/_^.4#('DC L*[_\F<&,#S__V (0FS(x
M'C N__Y,WPP 3EY.=3E\  #W)"E\   $NO<&&7P  ,[H0^S(;"+\     #+\x
M   B_      R_  ),OR# "+\     #+\   B_      R_   (OP     ,OP!x
M C+\@P B_      R_ ( (OP     ,OP  "+\     #+\ 0(R_(, (OP     x
M,OP" -+\!7@Y? ( R&I.=49/4DU!5"Y24T,  $-/3CH  $%56#H  %!25#H x
+  T*       "!@                                              x
 x
end

-------------------------- cut here --------------------------------
begin 644 format.rsc
M   %B@/* V0!6 %8 "0!6 -D"3( )P = !   P        FF1&]U8FQE  !#x
M;&EC:P  4V]F='=A<F4  %!215-%3E13("XN+@  4'5B;&EC($1O;6%I;B!3x
M;V9T=V%R92X  %1H92!&;W)M871T97(  $1O=6)L92!#;&EC:P!#;W!Y<FEGx
M:'0@,3DX-BP@1$-3+@  ,@ Q $9O<FUA="!S:61E<SH  %)E860@1F]R;6%Tx
M.@  3F]R;6%L $9A<W0 1F]R;6%T('1R86-K<SH  #@R #@P #$P #D 4V5Cx
M=&]R<R!P97(@5')A8VLZ  !&;W)M871T:6YG.@  .3D 7U\ 6%@ 1F]R;6%Tx
M($]P=&EO;G,@  !%>&ET $9O<FUA= !!.@!".@!%<G)O<B!D=7)I;F<@9F]Rx
M;6%T(0   $9O<FUA="!S=6-C97-S9G5L+@    #\  '   #^  /@  #_  ?Px
M  #_@ _[  #_P!__  #_X#__  #_\']_  #_^/X_  #]_?Q_  #\__A_  #\x
M?_    #\/^    #\'\    #\/^    #\?_    #\__A_  #]_?Q_  #_^/X_x
M  #_\']_  #_X#__  #_P!__  #_@ _[  #_  ?P  #^  /@  #\  '     x
M      !\  '   !^  /@  !_  ?P  !_@ _Z  !_P!]^  ![X#X^  !Y\'P>x
M  !X^/@^  !X??    !X.^    !X%\    !X#X    !X'T    !X/N    !Xx
M??    !X^/@^  !Y\'P>  ![X#X^  !_P!]^  !_@ _Z  !_  ?P  !^  /@x
M  !\  '            ? X  'X?P !_/^  ?_O@ 'OWX !YY^  >_?@ '_[Xx
M !_/^  ?A_  'P.                        / X  #8;0  S,<  ,6/  x
M##    QH\  ,S'  #8;0  \#@                       'P.  !^'\  ?x
MS_@ '_[X ![]^  >>?@ 'OWX !_^^  ?S_@ 'X?P !\#@               x
M        #P.   V&T  ,S'  #%CP  PP   ,:/  #,QP  V&T  / X      x
M                     5@   'N    <Q            $ ,  9 !< %P "x
M  (   *$   "O    4$0             "  #@ 2  8  @ "   "]    RP x
M  %6$              @  X $@ &  (  @   "0         *P #  8  !  x
M    _P '  $    L         #(  P &   0     /\ !@ !    ,P      x
M   \  , !@  $     #_  D  0   #T         2@ #  8  !      _P -x
M  $   !+         &, !0 &  (0     /\ &  !    9         !R  , x
M!@ "$     #_  X  0   (          E0 %  8  A      _P 5  $   ":x
M         *@ !0 &  (0     /\ #@ !    J0        "V  4 !@ "$   x
M  #_  T  0   ,,         T@ %  8  A      _P /  $   #>        x
M /$ !0 &  (0     /\ $P !    \@        #^  , !@  $     #_  P x
M 0   /\   $"   !!0 #  8  !      _P #  ,   $(         1@  P &x
M  (0     /\ $  !   !*P        %   , !@  $ ,   #_ !4  0   4( x
M       !50 #  8  ! #    _P 3  '__P !  @ %    !   A%R      $@x
M!0@  O____\ %0        /*!@4%   &  $  _____\ %0        /F!04&x
M 0 %  $ !/____\ %0        0"!04' @ (  $ !?____\ %0        0>x
M !(& 0 ,  $ !O____\ %0        0Z 0 &!0 @  $ !_____\ %0      x
M  16 @ "! <? 0$ "/____\ 'P        -D  $$   & @,  /____\ %0 @x
M      1R @ "!P<? @'__P ! !< %    !   A%R       D!@T !0 "  0 x
M%    !   1%S! $! @ .!0,  _____\ &@ 5      "6!@<% 0<$ P$ !/__x
M__\ &@ 5      "8 @$% 0<$ P$  ?____\ %0        2.   #  <-!@  x
M"0 &  @ %    !   1%S!1$! @<0!0, !_____\ %0        2J   "  <0x
M!P  "/____\ &@ 5      "W!P % 0 ' P$ !?____\ &@ 5      "^!@@%x
M 0$' P$ #0 *  P %    !   1%S! $&!@ .!0, "_____\ %0        3&x
M   "   .!P  #/____\ &@ 5      #3!@<% 0<$ P$ "?____\ &@ 5    x
M  #6 @$% 0<$ P$ $@ . !  %    !   1%S!1$&!@<0!0, #_____\ &@ 5x
M      #9! D% 0 % P$ $/____\ &@ 5      #< P(% 0 % P$ #?____\ x
M%0        3B 0 "  80!P  %/____\ &@ '      $9! $#"P (! $ $___x
M__\ %0"       3^ 0L$"P +  $ %?____\ '0"       4: A<$"P "  $ x
M%O____\ &@ %      $>!AH#"P<'! $ $?____\ %0        4V   #   Dx
M 0$ %_____\ &@ 5      $E @X$"P<" @$  /____\ &@ U      $H!A,$x
M"P<" @'__P !  ( %    !   A%S       > 0,  O____\ %0        52x
M P8! 0 4  $  /____\ 'P @      .&!P$'   $!@'__P !  ( %    !  x
M A%S      09 0,  O____\ %0        5N P8! 0 2  $  /____\ 'P @x
M      .H!P$'   $!@$   BB   (H@  "*(   BB   (H@  "*(   BB   (x
MH@  "*(   BB   (H@  "*(   BB   (H@  "*(   BB   (H@  "*(   BBx
H   (H@  "*(   BB   (H@  "*(   BB   (H@  ".H   6*   &8J(     x
 x
end
-------------------------------- cut here ---------------------------
Hope you enjoy using this program we have written.  The actual fact that makes
this formatting work faster is that it writes bad sectors at the end of the
regular sectors.  The WD1772 can reset faster to read the next track after
an error than when it has to wait for the next revolution to read timing marks.
Please send any comments, bugs to me ACS19@UHUPVM1.  (Note this has not been
tested on monochrome, so I expect that the resource will be messed up.)
We will get the resource correct for a mono version soon, and send it out.
The program, however, will work just fine regardless.

Regards,
Mike Vederman

paone@elbereth.RUTGERS.EDU (Phil Paone) (10/17/86)

We got it truncated here. Could someone try a re-post?

		Phil Paone
		paone@topaz.rutgers.edu