[comp.sys.atari.st] shar.prg

RDROYA01@ULKYVX.BITNET.UUCP (02/02/87)

 
This is a repost of the shar.prg I posted last week.  That program
will break after 1987 because of an error in the date function.
I posted the source code diffs earlier on friday.  I've tested
this version with the clock set to dates from 1985 to 2000.  That
ought to be enough.  This is part one part two follows
 
------------------------ cut and save ------------------------
table
 !"#$%&'()*+
,-./0123456
789:;<=>?@A
BCDEFGHIJKL
MNOPQRSTUVW
XYZ[\]^_
----------------------- cut and save -------------------------
begin 777 SHAR.PRG
M8!H  #>(   *?   );8                  ")/(&\ !"/(  !""" H !C0a
MJ  <(\   $(,(GP  #?&9P  #B(1:P  %-* 8   $B(\   0 -* 8   !M*Ha
M  0N02( TKP  !  O\%B   $+D$D*  $E+P   ( O\)E   *+D*T@64  $(Ba
M#\*\_____BY!DH@O 2\(0F<_/ !*3D'?_     P@>0  0@A%Z " $!I(@#\ a
M+PJ=SDZY   4"$J?/SP 3$Y!+DE(>0  -ZP_/  )3D%<CS\\_]E.N0   **_a
M^0  0@QE  !X(&\ !" (T?P   $ O\AE   ,(\   $(,0H!.=7#_3G5.5O_\a
M#&X "0 (9P  ( QN  ( "&<  !8,;@ !  AG   ,#&X &@ (9@  %"ZN  H_a
M+@ (80  -E2/8   %B(N  HP+@ (3D*_^0  0@QE   &3EY.=2\\   WB#\\a
M  E.03\\  $P/ !,3D$CWP  0@1.02\Y  !"!$YU(]\  $($3DTO.0  0@1.a
M=2/?  !"!$Y.+SD  $($3G4@;P $,B\ "# O  I(P%. ;P  "!#!4<C__$* a
M3G4@;P $(F\ "# O  Q30!+84<C__$YU( ].=2!O  0P+P (2A!F   &0H!.a
M=; 89O(@"%. 3G5.5OO\2.<' $'N_  M2/O\0D9@  "J, =@  ",4GD  #?0a
M8   FE)Y   WU&   )!2>0  -])@  "&(_D  $0P   WUF   '@C_   .H\ a
M $0P4GD  #?04GD  #?44GD  #?2(#D  $0P(\   #@^+H O/   .I(O/   a
M-]I.N0  (.Q0CV   #92>0  .$(NN0  1#!.N0  "59@   @4D9@   :D'P a
M8;!\ !5B\.5 ,$#1_   .A@@4$[0+KP  #J$+RX "C\N  A.N0  !SA<CSX a
MOGS__V8 _SI*>0  .$)G   *0E=.N0  '6HNK@ */RX "$ZY   )$%2//@!*a
M1F8   J^?/__9@  4KY\__]F   6+KP  #J@+SP  #^N3KD  !4H6(\NO   a
M.9(O/   .0@O/   .$0O/   .K8O/   /ZY.N0  %2C?_    ! ^O  !3KD a
M !UJ0GD  $*>+KD  $0P3KD   :H2D!G   ,/KP  DZY   =:BZN  H_+@ (a
M3KD   D05(\^ +Y\__]FS#!Y  !"GM'(T<C1_   0J!"D"Z\  !"H$ZY   #a
MY"U\  !"H/O\8   $B!N^_PND$ZY   %SEBN^_P@;OO\2I!FZ"Z\   ZO4ZYa
M   52"Z\   ZU$ZY   52$)73KD  !UJ2I],WP# 3EY.=4Y6_]!(YP<$0D8Na
MO   .MM.N0  #>@M0/_4+KP  #KH3KD   WH+4#_T"Z\   Z[4ZY   52"Z\a
M   ["$ZY   52"Z\   [/DZY   52"Z\   [:DZY   52"Z\   [I$ZY   5a
M2"Z\   [KDZY   52"Z\   [Q4ZY   52"IN  A@   4+I4O/   ._9.N0  a
M%098CUB-2I5FZBZ.!I?____83KD  !#.+HX&E____]@O/   ._Q.N0  %098a
MCTJN_]!G   8+J[_U"\N_] O/   /!=.N0  %090CT) 8    DJ?3-\@P$Y>a
M3G5.5OX 2.<!!"Z\   \)B\N  A.N0  $WY8CRI ( UG  "T+JX #"\Y   Wa
MUB\\   WVB\\   \*$ZY   5!M_\    #&   %9*N0  .#YG   6+KP  #^@a
M+SD  #@^3KD  !/(6(\NO   /Z O#@:7___^ $ZY   3R%B/2GD  #?49P  a
M&"Z.!I?___X 3KD  #5B2,#1N0  0I8NC3\\ @ O#@:7___^ $ZY   2%ER/a
M2D!FDBZY   WUDZY   52"Z-3KD  !VT0D!@   D8   ("ZN  @O/   /#@Oa
M/   /ZY.N0  %2A0CW !8    DJ?3-\@ $Y>3G5.5@  2.<!!"IN  @NO   a
M/$\O+@ (3KD  #2\6(]*0&<  *Y"N0  0I9*>0  -])G   B8   !%*-2A5Fa
M^F    13C;ON  AC   *#"T +___9NY*>0  -]!G   2+HTO/   /%%.N0  a
M%098CRZ-+RX "$ZY   $TEB/2D!G   ,/KP 0DZY   =:DIY   WU&<  #PNa
MC2\Y  !"EB\\   \:TZY   5!E"/+HTO/   /(E.N0  %098CRZY  !"EB\\a
M   \L$ZY   5!EB/2I],WR  3EY.=4Y6__Y(YP$$*FX ""Z-3KD  #5B/H!2a
M5TZY   H4"\ ,'D  $*>T<C1R-'\  !"H""?+HTP>0  0I[1R-'((CP  $*@a
M+S 8 $ZY   U0%B/4GD  $*>/KP !"\-3KD  !&L6(]*0&<  !@NC2\\   \a
MV$ZY   5!EB/</]@   (0D!@   "2I],WR  3EY.=4Y6  !(YP$$('D  #IPa
M2A!F  !B,#D  #?.L&X "&P  #0@;@ *,GD  #?.T\G3R2!PF  CR   .G ,a
M$  M9@  %%*Y   Z<"!Y   Z<$H09@  "'#_8  !=B!Y   Z< P0 "UF   .a
M4GD  #?.</]@  %<('D  #IP$!!(@#/   !"FK!\ #I P%*Y   Z<$3 9P  a
M'#ZY  !"FB\N  Y.N0   <)8CRI ( UF  !.('D  #IP2A!F   (4GD  #?.a
M+KP  #^N(&X "B\03KD  !/(6(\NO   /ZXO/   //9.N0  $\A8CRZ\   _a
MKC\\  I.N0  )D!4CR -9P  Q%*-($T,$  Z9P  'D*Y  !$,"!Y   Z<$H0a
M9@  "%)Y   WSF   )P@>0  .G!*$&<  ! C^0  .G   $0P8   <E)Y   Wa
MSC Y   WSK!N  AM  !*(_P  #T'   Z<"Z\   _KB!N  HO$$ZY   3R%B/a
M+KP  #^N+SP  #T(3KD  !/(6(\NO   /ZX_/  *3KD  "9 5(]@   6,'D a
M #?.T<C1R-'N  HCT   1# C_   /28  #IP4GD  #?.,#D  $*:8    DJ?a
M3-\@ $Y>3G5.5O_\,"X "+!Y   WSFX  !)"N0  1#!P_V   "9@   B,'D a
M #?.T<C1R-'N  HCT   1#!2>0  -\Y"0&    ).7DYU3E;\"$CG!PP]?/__a
M_?Y";OW\+KP  #TG+RX "$ZY   3?EB/*D @#68  !XNK@ (+SP  #TI+SP a
M #^N3KD  !4H4(]@  -F8  #/CZ\  0O/   /4@O#@:7___^ $ZY   T_E"/a
M2D!F  !80F[]_#Z\ "\O#@:7___^ $ZY   !PEB/+4#\"&<  %Q2KOP((&[\a
M" P0 %YF   &4J[\"&    92;OW\(&[\" P0 "] P%*N_ A$P&;J8   *F  a
M L@^O  $+SP  #U-+PX&E____@!.N0  -/Y0CTI 9@ !@$)N_?Q"+ORT0D=@a
M   Z, ?!_  HT(XN@ :7___]-"\.!I?___RT3KD  #226(\NO   /5(O#@:7a
M___\M$ZY   TDEB/4D>^;OW^;\(NC@:7___\#"\\   ]5"\.!I?___X 3KD a
M  T,4(\NC@:7___\#"\.!I?___RT3KD  #226(\NC@:7___\C"\\   ]5B\.a
M!I?___X 3KD   T,4(\NC@:7___\M"\\   ]62\\   _KDZY   5*%"/+KP a
M #UI+PX&E____+1.N0  $WY8CRA 8   4"Z.!I?___R,3KD  #5B/H O#@:7a
M___\C"\.!I?___X 3KD  #3^4(]*0&<  #P@#&<  !PNC# N_?Q(P-".+P &a
ME____@!.N0  $\A8CRZ-/SP" "\.!I?___X 3KD  !(67(]*0&:8( QG   Ba
M+HQ.N0  ';0NO   /6LO/   /ZY.N0  %2A8CV   !8NO   /70O/   /ZY.a
MN0  %2A8CV   2H^O  &+SP  #V/+PX&E____@!.N0  -/Y0CTI 9@  (BZ.a
M!I?___X&+SP  #V6+SP  #^N3KD  "#L4(]@  #J/KP !B\\   ]LB\.!I?_a
M__X 3KD  #3^4(]*0&8  %@,+@ N_@9F   4#"X +OX'9@  "E-N_?Y@   Ha
M+HX&E____@92;OW^,"[]_L'\ "C0CB\ !I?___TT3KD  #5 6(\,;O___?YLa
M   (/7S___W^8   =#Z\  ,O/   /;DO#@:7___^ $ZY   T_E"/2D!F  !4a
M#"X +OX#9@  % PN "[^!&8   I3;OW^8   *"Z.!I?___X#4F[]_C N_?[!a
M_  HT(XO  :7___]-$ZY   U0%B/#&[___W^;   "#U\___]_BZ-/SP" "\.a
M!I?___X 3KD  !(67(]*0&8 _*HNC4ZY   =M$J?3-\PP$Y>3G5.5@  2.</a
M#&   +@J;@ (*&X #&    92C5*,2A5G   02A1G   *$!5(@+ 49^A*%&8 a
M (I*%68   P@;@ 00A!@  ".8   !%*-#!4 (&?X#!4 "6?R#!4 7&?L#!4 a
M)V?F#!4 (F?@8   #"!N ! 0G5*N !!*%6<  #@,%0 @9P  , P5  EG   Ha
M#!4 7&<  " ,%0 G9P  & P5 ")G   0#!4 "F<   @,%0 -9KH@;@ 00A!@a
M   64JX ""!N  A*$&8 _T(@;@ 00A!*GTS?,.!.7DYU3E;__$CG 1PJ;@ (a
M+KP  #W$+SP  #V]3KD  !-^6(\M0/_\9@  #" Y   WRF   /1@  #*/KP a
M("\\  !"$DZY   !PEB/*$ @#&<   1"%#Z\  HO/   0A).N0   <)8CRA a
M( QG   $0A0^O  )+SP  $(23KD   '"6(\H0" ,9P  !$(4/KP /2\\  !"a
M$DZY   !PEB/*$ @#&<   A"%&    9@  !24HPNC2\\  !"$DZY   TO%B/a
M2D!F   L+HQ.N0  -6(^@%)73KD  "A0)D NC"\+3KD  #5 6(\@"V   #I@a
M   0(&[__ @H  4  V8  !XNKO_\/SP 4"\\  !"$DZY   2%ER/2D!F /\>a
M(#D  #?*8    DJ?3-\X $Y>3G5.5@  2.<? #XN  @\+@ *.BX ## %2,"!a
M_  $2$!*0&8  !(P!4C @?P 9$A 2D!F   8, 5(P('\ 9!(0$I 9P  "$) a
M8   !' !.  P!,'\ !@R!DC!XX'0@2! (CP  #W&,# 8 -!'8    DJ?3-\ a
M\$Y>3G5.5@  2.</ #XN  @\+@ *OGP'O&P   A"0&   #J>? >\,$?1R-'\a
M   ^1CH0, 701CP 4T:\?  ';   ## &8   %&   ! P!DC @?P !TA 8   a
M DJ?3-\ X$Y>3G5.5O_\/KP *DZY   !6C/   !$-#Z\ "Q.N0   5HSP   a
M0IPP.0  0IS ?  ?XT SP   0F0P.0  0ISJ0,!\ #\SP   0F8P.0  0IQRa
M"^)@P'P 'S/   !":# Y  !$-,!\ !\SP   0FHP.0  1#3J0,!\  ]30#/ a
M  !";# Y  !$-'()XF# ?  ?T'P'O#/   !";CZY  !";C\Y  !";#\Y  !"a
M:DZY   /%EB/,\   $)R/KD  $)R/SD  $)N3KD   ^.5(\SP   0G @/   a
M0F1@   "3EY.=4Y6  !(YP$$+KP  #[ 3KD   WH(\   #Y"3KD   _N*D ^a
MK0 *+SD  #Y"/Q4_+0 "/RT !#\M  8P;0 (T<C1R"(\   ]]B\P&  P;0 ,a
MT<C1R"(\   ^)B\P&  O/   /LDO+@ (3KD  "#LW_P    <( Y0@&    )*a
MGTS?( !.7DYU3E;__$Y>3G5.5O_\+KD  #[H3KD  !2@3EY.=4Y6__PNN0  a
M/NA.N0  %*!.7DYU3E;__"ZY   ^Z$ZY   4H$Y>3G5.5O_\+KD  #[H3KD a
M !2@3EY.=4Y6  !(YP, 0E<O+@ (3KD  " P6(\^ &T,/H=.N0  '@Q"0& 4a
M,_P  @  07PS^0  0A   $%^</]*GTS? (!.7DYU3E;__#ZN  PO+@ (8:Y8a
MCTY>3G5.5O_\0E<O+@ (89Q8CTY>3G5.5@  2.<''"IN  @^+@ ,*&X #B9-a
M8 @:QKQ\  IG%%-';Q NC$ZY   5E#P O'S__V;D0A6\?/__9@1"@& "( M*a
MGTS?.,!.7DYU3E8  $CG!QPJ;@ (*&X #$)'8 B^?  0;!I21S 'P?P #B9 a
MU_P  #^2,"L  L!\  -FX+Y\ !!M!D* 8   U P4 '=G!@P4 %=F&#ZN ! _a
M/  !+PU.N0  '&I<CSP 8   < P4 &%G!@P4 $%F/CZN ! _/  !+PU.N0  a
M'S9<CSP ;!8^K@ 0/SP  2\-3KD  !QJ7(\\ & 0/KP  D*G/P9.N0  ('I<a
MCV D#!0 <F<&#!0 4F84/JX $$)G+PU.N0  'S9<CSP 8 1"@&! 2D9L!$* a
M8#A":P ,-H9"@"=   @G0  $#!0 <F<&#!0 4F8(-WP  0 "8 8W?  "  )*a
M;@ 09@8 :P$   (@"TJ?3-\XP$Y>3G5.5O_\0E<O+@ ,+RX "&$ _M10CTY>a
M3G5.5O_\0E<O+@ ,+RX "&$ _KQ0CTY>3G5.5O_\/KP  2\N  PO+@ (80#^a
MHE"/3EY.=4Y6  !(YP,,*FX ""AN  Q"1V <+HP0'4B /P!.N0  )D!4CSX a
MOGS__V8$</]@!DH59N P!TJ?3-\P@$Y>3G5.5@  2.<!!$ZY   N;D)7+SP a
M #>A3KD  " P6(\^O  !+SP  #>A3KD  " P6(\^O  !+SP  #>A3KD  " Pa
M6(\@;@ (,FX #-')0A J;@ (8"80%4B 2,#0O   08 @0 @0  -G"A 52(#0a
M?  @8 00%4B &H!2C4H59M8^K@ ,+RX "$ZY   8VEB/2I],WR  3EY.=4Y6a
M_S0NO   /OPO#@:7____.$ZY   U0%B/+JX ""\.!I?___\X3KD  #226(\Na
MO   /QPO#@:7____.$ZY   TDEB/+HX&E____S@_/  )3KD   #N5(\^O/__a
M3KD   "B3EY.=4Y6__PNC@:7    #"\N  @O/   /Z!.N0  (410CTY>3G5.a
M5O_\+HX&EP   ! O+@ ,+RX "$ZY   A1%"/3EY.=4Y6  !(YP$$*FX "& >a
M+KP  #^@$!U(@#\ 3KD  "9 5(^P?/__9@1P_V 62A5FWBZ\   _H#\\  I.a
MN0  )D!4CTJ?3-\@ $Y>3G5.5@  2.<!!"IN  A3;0 ,;10@;0 ($!!(@,!\a
M /]2K0 (8 I@""Z-3KD  !7,2I],WR  3EY.=4Y6  !(YP$$*FX " @M    a
M V8&</]@  #4""T !P #9PP ;0 @  )P_V   ,!*K0 $9B8(+0 #  -F$#Z\a
M @!.N0  *% K0  $9@@ ;0 (  )@!@!M  0  @@M  ,  V<.,!5(P-"\  !"a
M="M   2[_   /Y)F%@@Y  8  #^C9PPNO   /Z!.N0  'IP(+0 #  -G!CZ\a
M  %@!#Z\ @ O+0 $/Q5.N0  %L)<CSM   Q*;0 ,;AH,;?__  QF" !M #  a
M F & &T (  "</]@&E-M  PK;0 $  @@;0 ($!!(@,!\ /]2K0 (2I],WR  a
M3EY.=4Y6  !(YP$$/JX "$ZY   N_BI ( UF!'#_8&((+0 %  %G!$) 8%8(a
M+0 "  %G%C/\  D  $%\,_D  $(0  !!?G#_8#@(+0 $  %G&D* ,"X #BZ a
M+RX "B\-3KD  !=*4(]@&& 60H P+@ .+H O+@ *+PU.N0  &&Q0CTJ?3-\@a
M $Y>3G5.5O_X2.<##"IN  @H;@ ,+BX $"U'__Q@  "6/KP  2 '/P O#"\Ma
M  8O#0:7    $DZY   VK-_\    #CU __I";O_X8!0@3)/),F[_^-')#!  a
M&F<04F[_^$) ,"[_^+!N__IEX$IN__IG$"!,D\DR;O_XT<D,$  :9@H];O_Xa
M__H 50 @/J[_^B\,85!8CSU __A"@# N__K1K0 &0H P+O_XV<!"@# N__B>a
M@$J';PH(+0 %  %G /]@GZ[__" M  :PK0 .;P8K;0 &  X@+O_\2I],WS" a
M3EY.=4Y6__A(YP$,*FX ""U-__P@#4*!,BX #-"!+4#_^"A-8 H,%  -9P(:a
MU%*,N>[_^&7P( V0KO_\2I],WS  3EY.=4Y6__Y(YP,,*FX ""AN  PN+@ 0a
M/KP  2 '/P O#"\M  8O#0:7    $DZY   VK-_\    #CU __Y*;O_^9@0 a
M50 @0H P+O_^T:T !B M  :PK0 .;P8K;0 &  Y"0# N__Y*GTS?,(!.7DYUa
M3E;_WDCG!PQ"5TZY   M B/   !"AB/   !"BD)Y  !"A"Z\   WF6$  Q8Ja
M;@ (8  "3F "4HU*%6<4$!5(@$C T+P  $& ($ ($  %9N9*%6<  C(,%0 Ba
M9P8,%0 G9D8<%1 &2( ^@"\-4I=.N0   <)8CRA ( QF#BZ\   _-B\-80 "a
M5EB/( Q(P)"-/@ @33)'T<E"$%)'+HU2EV$  IY@  '80D=@ E)'($TR1]')a
M2A!G%A U< !(@$C T+P  $& ($ ($  %9]Y*-7  9PH@33)'T<E"$%)'$!5(a
M@&   89"5TZY   >#$)7+PU2ETZY   @2%B/2D!G$"Z-4I<O/   /TAA  '0a
M6(]@  %L/KP  4ZY   ># PM #X  69 /KP  2\-5)=.N0  ($A8C[!\  %Fa
M&#Z\  )"IS\\  %.N0  ('I<C[!\__]F$"Z-4I<O/   /U5A  %\6(]@)$)7a
M+PU2ETZY   =.%B/L'P  6<0+HU2ER\\   _9&$  598CV   /(^O  _+PU.a
MN0   <)8CTJ 9A0^O  J+PU.N0   <)8CTJ 9P  L"U\  !*WO_\+J[__ :7a
M    .#\\ !I.N0   .Y4CSZ\ !$O#3\\  -.N0  ,TY<CQP O#P _V8.+KP a
M #]S+PUA  #F6(]@7BZ.!I?____>$ 9(@#\ +R[__&$  5I<CRZ.!I?____>a
M3KD  #5B/H!25TZY   V BA +HX&E____]XO#$ZY   U0%B/+HQA  #\/KP a
M$B\-/SP  TZY   S3ER/' "\/ #_9IQ@!BZ-80  VF 4L'P /&< _G:P?  ^a
M9P#^G&  _Q+:QTH59@#]L$*780  ME-Y  !"A"ZY  !"BDZY    Q+!\__]Fa
M$"Z\   _C2\\   _?F$J6(]"ER\Y  !"AC\Y  !"A$ZY   !WER//H!.N0  a
M'6I*GTS?,,!.7DYU3E;_?"ZN  @O#@:7____@$ZY   U0%B/+JX #"\.!I?_a
M__^ 3KD  #226(\NO   /XXO#@:7____@$ZY   TDEB/+HX&E____X _/  )a
M3KD   #N5(\^O/__3KD  !UJ3EY.=4Y6  !(YP$$*FX ""!Y  !"BB"-6+D a
M $**4GD  $*$2I],WR  3EY.=4Y6  !(YP,<*FX "!XN  TH;@ .1^T 5AC;a
M9OQ*GTS?.(!.7DYU3E8  $CG P1.N0  +@@^ +Y\__]F!G#_8   DCZ'3KD a
M "Z0, ?!_ (X*D#;_   1#9*;@ .9@0 50 0+KP  #>A+RX "$ZY   UD%B/a
M2D!F"@!5  ,P!V!28!XNO   -Z8O+@ (3KD  #606(]*0&8( %4 !3 '8#(^a
MO  6+RX "#\'3KD  #-.7(]*0&<6,_P (P  07PS^0  0A   $%^</]@!@!5a
M  $P!TJ?3-\@@$Y>3G5.5O_\0E<_+@ ,+RX "&$ _SI<CTY>3G5.5O_\0E<_a
M+@ ,+RX "&$ _R)<CTY>3G5.5O_\/KP  3\N  PO+@ (80#_"%R/3EY.=4Y6a
M__Q.N0  '8(^K@ (3KD   "B3EY.=4Y6  !(YP, 0D=@%C 'P?P #M"\   _a
MDBZ 3KD  !VT4D>^?  0;>1*GTS? (!.7DYU3E8  $CG 00J;@ (,"T  L!\a
M  -G*BZ-3KD  !Z<""T  @ #9PHNK0 $3KD  "G>0D!(P"M   @K0  $0FT a
M# )M_X   CZ53KD  !X,2I],WR  3EY.=4Y6  !(YP\$/BX "#Z'3KD  "[^a
M*D @#686,_P "0  07PS^0  0A   $%^</]@3D)&,!7 ?  &9A8^K0 $/SP a
M/DZY   W)%2// !L GS_/H=.N0  +I ^ATZY   N4DI&9@8P!F 68!0S_  %a
M  !!?#/Y  !"$   07YP_TJ?3-\@X$Y>3G5.5O_\3EY.=4Y6  !(YP<$*FX a
M"# M  + ?  *L'P  F8L("T ")"M  0\ &\@/H8O+0 $/Q5.N0  +6Q<CSX a
MO$=G"@!M !   G#_8$H(+0 !  -G'DJM  1G%@@M  ,  V<(.WP  0 ,8 8[a
M? '_  Q@'#Z\  $P+0 ,1$!(P"\ /Q5.N0  ('I<CT)M  PK;0 $  A"0$J?a
M3-\@P$Y>3G5.5@  2.<#!$ZY   N"#X OGS__V8&</]@  #6/H=.N0  +I Pa
M!\'\ C@J0-O\  !$-DIN  QF! !5  A*;@ .9@0 50 0+KP  #>A+RX "$ZYa
M   UD%B/2D!F$@!5  ,[;@ ,  0P!V   (9@'BZ\   WIB\N  A.N0  -9!8a
MCTI 9@@ 50 %, =@9#Z\  \O+@ (/P=.N0  ,TY<CTI 9QX^ATZY   N4C/\a
M  (  $%\,_D  $(0  !!?G#_8#  50 !/KP  D*G$"T  TB /P!.N0  ('I<a
MCT)70J<0+0 #2( _ $ZY   @>ER/, =*GTS?((!.7DYU3E;__$)7/RX #"\Na
M  AA /[V7(].7DYU3E;__$)7/RX #"\N  AA /[>7(].7DYU3E;__#Z\  $_a
M+@ ,+RX "&$ _L1<CTY>3G5.5@  2.<!!#ZN  A.N0  +OXJ0" -9A8S_  )a
M  !!?#/Y  !"$   07YP_V D/JX #C\M  0O+@ */SP 0DZY   W)%"/*T  a
M!@)5_]\@+0 &2I],WR  3EY.=4Y6__P^O  !0J<_+@ (891<CTY>3G5.5O_Ra
M2.<#!$ON__([?'__  P@+@ (*T  !"M   @[? ""  (ZO/__+HX&EP   ! Oa
M+@ ,+PU.N0  (410CSX +HU"9TZY   F0%2/, =*GTS?((!.7DYU3E;]Y$CGa
M#P0J;@ 00F[][$JN  QG  1H8  $8$)%+6X #/_R8 92KO_R4D4@;O_R2A!Ga
M"B!N__(,$  E9NA*16\<+JX "#\%+RX #$ZY   ET%R/+6[_\@ ,VV[]["!Na
M  P,$  E0,!2K@ ,1,!F  0.0F[]ZB!N  P0$$B '@"P?  M0,!2K@ ,1,!Fa
M#B!N  P>$%*N  Q2;OWJ'7P (/_VOCP ,&8.'4?_]B!N  P>$%*N  P]?/__a
M_?"^/  J9AHM3?_X(&[_^#U0_?!4C2!N  P>$%*N  Q@.& J2F[]\&P$0F[]a
M\! '2( R+OWPP_P "M!!T'S_T#U _? @;@ ,'A!2K@ ,OCP ,&T&OCP .6_*a
M?/^^/  N9@Q"1B!N  P>$%*N  R^/  J9A@M3?_X(&[_^#P05(T@;@ ,'A!2a
MK@ ,8"I@'! '2( R!L/\  K003P W'S_T"!N  P>$%*N  R^/  P;0:^/  Ya
M;]A";OWHOCP ;&<&OCP 3&8.4F[]Z"!N  P>$%*N  Q![OWR+4C_\A '2(!@a
M  (,4F[]Z$IN_>AG"" \   KWF &(#P  "R4(\   $*.+KD  $*./SP  3\\a
M  HO#@:7___]\B\-3KD  "MLW_P    ,2F[]Z&<$< 1@ G "2,#;P&   <Y2a
M;OWH2F[]Z&<((#P  "O>8 8@/   +)0CP   0HXNN0  0HY"9S\\  HO#@:7a
M___]\B\-3KD  "MLW_P    ,2F[]Z&<$< 1@ G "2,#;P&   7I2;OWH2F[]a
MZ&<((#P  "O>8 8@/   +)0CP   0HXNN0  0HY"9S\\  @O#@:7___]\B\-a
M3KD  "MLW_P    ,2F[]Z&<$< 1@ G "2,#;P&   292;OWH2F[]Z&<((#P a
M "O>8 8@/   +)0CP   0HXNN0  0HY"9S\\ ! O#@:7___]\B\-3KD  "MLa
MW_P    ,2F[]Z&<$< 1@ G "2,#;P&   -(M3?_\(&[__"U0__)8C6   , Ma
M3?_X(&[_^# 0P'P _QU _?)"+OWS5(U@  "D$ =(@#Z /P8O#@:7___]\B\-a
M3KD  !%<W_P    *6(U\_V   'X0!TB /H _!B\.!I?___WR+PU.N0  $7#?a
M_     I8C7S_8%@0!TB /H _!B\.!I?___WR+PU.N0  $83?_     I8C7S_a
M8#0NK@ ($ =(@#\ 3KD  "9 5(]2;OWL8   UF 8D'P 0[!\ #5BVN5 ,$#1a
M_   0'(@4$[0+J[_\DZY   U8CH O$5L!DI&;0(Z!C N_?"013U _>Y*;OWJa
M9E@,+@ P__9F*B!N__(,$  M9B!312ZN  @@;O_R$!!(@#\ 3KD  "9 5(]2a
MKO_R4F[][& 8+JX "! N__9(@#\ 3KD  "9 5(]2;OWL,"[][E-N_>Y*0&[<a
M+JX "#\%+R[_\DZY   ET%R/VV[][& 8+JX "! N__9(@#\ 3KD  "9 5(]2a
M;OWL,"[][E-N_>Y*0&[<8 #[H# N_>Q*GTS?(.!.7DYU3E8  $CG PPJ;@ (a
M/BX #"AN  X(+  #  -G)$)L  P^AR\-/Q1.N0  +6Q<C[!'9PH ;  0  )Pa
M_V J0D!@)F :+HP0'4B /P!.N0  )D!4C[!\__]F!'#_8 HP!U-'2D!FWD) a
M2I],WS" 3EY.=4Y6  !(YP,$'BX "2IN  I3;0 ,;180!TB (FT "!* P'P a
M_U*M  A@$F 0+HT0!TB /P!.N0  )H94CTJ?3-\@@$Y>3G5.5O_^2.</!!XNa
M  DJ;@ *0D8Z!@@M  $  V8&</]@  $D2JT !&96""T  P #9DX^O ( 3KD a
M "A0*T  !"M   AF" !M  @  F R &T !  "/I5.N0  )]1*0&<( &T 0  "a
M8!@[? '^  P0!TB (FT "!* 4JT "&   ,@(+0 #  -G#D'N__XK2  $( @Ka
M0  ((&T "!"'4JT " @M  ,  V<:>@$^A2\M  0_%4ZY   M;%R// !";0 ,a
M8&X(+0 &  -G/KX\  IG$" M  30O    @"PK0 (8B(@+0 (D*T !#H /H4Oa
M+0 $/Q5.N0  +6Q<CSP *VT !  (0FT #& H("T ")"M  0Z #Z%+RT !#\5a
M3KD  "UL7(\\ #M\ ?\ #"MM  0 "+I&9PH ;0 0  )P_V ($ =(@,!\ /]*a
MGTS?(.!.7DYU3E8  $CG 00^K@ (3KD  "[^*D @#68$0D!@#@@M  $  68$a
M0D!@ G !2I],WR  3EY.=4Y6  !(YP$$/JX "$ZY   N_BI ( UF!$) 8 8Pa
M%<!\ 09*GTS?( !.7DYU3E;__#ZN  AAEDI 9P@@/   -Z%@ D* 3EY.=4Y6a
M  !(YP,$/BX "%Y'YD]21SZ'81XJ0" -9@1"@& */H<O#6$  (98CTJ?3-\@a
M@$Y>3G5.5@  2.<!#"AY  !!4BI48%I"0# M  1"03(M  :S0$9 2D!G#CZ\a
M  %.N0  *V1"@& Z0D P+0 $L&X "&4$( Q@*KOY  !!4F8</JX "&$  *8Ja
M0" -9@X^O  "3KD  "MD0H!@!BA-*E5@I$J?3-\P $Y>3G5.5@  2.<!#"!Na
M  @J4$) ,"X #%A L&T !&4((&X """58$8H34) ,"X #.=(2$!"0$A V<!"a
M0# M  20;@ ,.4  !$) ,"P !$9 .4  !BB5(&X """,.VX #  $0D P+0 $a
M1D [0  &(^X "   05(@#5" 2I],WS  3EY.=4Y6  !(YP,,/BX "-Y\ #_La
M1^U', ?G0#Z 3KD  "T"*D"[_/____]F!$* 8"H@#5* P+S____^*D H33E'a
M  1"0# L  1&0#E   8NC%"781 @.0  05)*GTS?,(!.7DYU3E8  $CG 0PJa
M;@ (48U"0# M  1"03(M  :S0$9 2D!G$#Z\  -.N0  *V1P_V   ,0H>0  a
M05*[S&4$N]1E$+G490B[U&,(N\QD!"A48.B[S&4R( U"03(M  3G24A!0D%(a
M0="!(@Q"0C0L  3G2DA"0D)(0M*"L(%B"B/,  !!4D) 8&X@#4)!,BT !.=)a
M2$%"04A!T(&PE&8<(%0P*  $T6T !$) ,"T !$9 .T  !B!4*I!@ BJ4( Q"a
M03(L  3G24A!0D%(0="!N\!F&D) ,"T !-%L  1"0# L  1&0#E   8HE6 "a
M*(TCS   05)"0$J?3-\P $Y>3G5.5O_\2.<##"IN  @NC6$ _O(^+@ ,7D?Fa
M3U)'/H=A /V(+4#__&8$0H!@2B!N__PH4%",N\QG,KG-9!!@!AC=4VX #$INa
M  QF]& >0H P+@ ,V<!"@# N  S;P& &&253;@ ,2FX #&;T/H<O+O_\80#]a
MKEB/2I],WS" 3EY.=4Y6__Q.7DYU3E;__$Y>3G5.5O_P2.<##"\.!I?____Pa
M/RX $C\N ! O#@:7    #"\N  @@;@ 43I#?_    ! J0" .T+S____PN\!Fa
M D(=*&X #& 2'B5(A]Y\ #"^?  Y;P)>1QC'( [0O/____"[P&;B0A0@#$J?a
M3-\P@$Y>3G5.5O_\2.</!"U\  !" /_\*FX %#PN !!(QB!N  @N$ QN !  a
M$&8:>@A@#" 'P'P #QK Z(=314J'9P1*16;L8&@,;@ ( !!F)'H+8 P@!\!\a
M  <:P.:'4T5*AV<$2D5F[$I%9@8"+0 #__]@/$IN !)G&DJ';!8@;@ ,(% 0a
MO  M(FX #%*1( =$@"X 8!8NAB\'3KD  #8P6(\N "!N__P:Z  #2H=FYB -a
M2I],WR#@3EY.=4Y6__Q(YP<$(&X "# 02, M0/_\("[__,"\  #__SX *FX a
M%#PN !!*;@ 29QQ*1VP80D P!T1 /@ @;@ ,(% 0O  M(FX #%*18!)"@# 'a
M@,9(0!K 0H P!X#&/@!*1V;J( U*GTS?(,!.7DYU3E8  $CG PP^+@ (2,?.a
MO   __\(!P  9P)2ARIY  !"#"A'V?D  $(,+HQ.N0   ,2P?/__9A8S_  ,a
M  !!?#/Y  !"$   07YP_V 2/JX "$)G+PU.N0   8I<CR -2I],WS" 3EY.a
M=4Y6  !(YP$$/JX "$ZY   N_BI ( UF!G#_8   =DIN  YF!$) 8&H(+0 #a
M  %G%C/\  D  $%\,_D  $(0  !!?G#_8$PP%<!\ @1G%#ZN  XO+@ *+PU.a
MN0  ,.I0CV P""T !  !9Q8^K@ .+RX "B\-3KD  "]@4(]@%& 2/JX #B\Na
M  HO#4ZY   P<%"/2I],WR  3EY.=4Y6  !(YP< ? %"1V 8( ; N0  059Fa
M"HVY  !!5C '8![CAE)'OGP $&WB,_P &   07PS^0  0A   $%^</]*GTS?a
M ,!.7DYU3E;__' !,BX ".-@1D!(P,&Y  !!5D) 3EY.=4Y6  !(YP, 0D=@a
M!CZ'81)21[Y\ !!M]$J?3-\ @$Y>3G5.5@  2.<!## N  C!_ (X*D#;_   a
M1#8P+@ (&T   T)50BT  BM\_____P *0JT !D*M  X^O  @0F<O#0:7    a
M$DZY   !BER//KP "S\\ " O#0:7    $TZY   !BER/2I],WS  3EY.=4Y6a
M  !(YP,$/BX "+Y\ !!E%C/\  D  $%\,_D  $(0  !!?D* 8#!"0# 'P/P"a
M."I V_P  $0V""T    !9A8S_  )  !!?#/Y  !"$   07Y"@& "( U*GTS?a
M((!.7DYU3E;_^DCG PPJ;@ (*&X ##XN !!"0#U __H]0/_\8   R& $4F[_a
M^KYN__IC$"!,D\DR;O_ZT<D,$  *9N9"0# N__J0;O_\8V8^O  !/R[_^D) a
M,"[__)%7( Q"@3(N__S0@2\ +RT !B\-!I<    23KD  #;HW_P    ./4#_a
M_D* ,"[__M&M  9*;O_^9A8S_  %  !!?#/Y  !"$   07YP_V!>/6[_^O_\a
M8#A2;O_Z/KP  3\\  $O/   05HO+0 &+PT&EP   !).N0  -NC?_     X]a
M0/_^0H P+O_^T:T !KYN__QB /\T("T !K"M  YO!BMM  8 #D) ,"[__$J?a
M3-\P@$Y>3G5.5O_^2.<!!"IN  @^O  !/RX $"\N  PO+0 &+PT&EP   !).a
MN0  -NC?_     X]0/_^2F[__F86,_P !0  07PS^0  0A   $%^</]@($* a
M,"[__M&M  8@+0 &L*T #F\&*VT !@ .0D P+O_^2I],WR  3EY.=4Y6_>@]a
M?  !_?)";OWP(&X " @H  $  6<*+7P  #*L_?1@%"!N  @(*  "  %G""U\a
M   R5/WT(&X " @H  <  6<>("X "-"\    $BU _>P@;OWL,"@ !,!\#  ]a
M0/WP0F[]^CUN !#__F   .H]?  !__Q@  "V(&X # P0  IF+CU\___]^DINa
M_?)G(# N__Q20+!\ @!L  "B($XR;O_\T<D1?  -_?Q2;O_\8%P@;@ ,#!  a
M"6922F[]\&=,< @R+OWZPGP !Y!!/4#]^# N__S0;OWXL'P" &Q>,"[]^-%Na
M_?I@$B!.,F[__-')$7P (/W\4F[__# N_?A3;OWX2D!FXE*N  Q@("!.,F[_a
M_-')(FX #!%1_?Q2K@ ,4F[__%-N__Y2;OWZ#&X" /_\; A*;O_^9@#_/C Na
M__Q30!U _?PO#@:7___]_"!N_?1.D%B/2F[__F8 _Q)"0# N !!.7DYU3E;_a
M_DCG P0J;@ ('AU(A\Y\ /\]1__^8! 0'4B /H!"9S\\  -A'%B/, =31TI a
M;N@P+O_^2I],WR" 3EY.=4Y6__PCWP  9[9.32\Y  !GMDYU3EY.=4Y6__I(a
MYP,$*FX "! =2( ]0/_^($TR;O_^T<D0O  D0D<M3?_Z8$@@33)'T<D,$  Da
M9CH@;O_Z#!  )&<0+J[_^C\\  E.N0   .Y4CRZ\    )#\\  ).N0   .Y4a
MCR -,@=(P="!4H M0/_Z4D>^;O_^;;(@#3('2,'0@;"N__IG$"ZN__H_/  )a
M3KD   #N5(\P+O_^2I],WR" 3EY.=4Y6__I(YP,<*FX "C N  C!_ (XT+P a
M $0V+4#__'[_+HUA  #L)DU@ E*+2A-G!@P3 #IF]$H39QP=8__Z#"X 0?_Za
M;0P,+@!/__IN!"I+8 1+ZP ","X #F   )!"5R\-/SP /$ZY   W)%R//@!Oa
include SHAB.UUE

RDROYA01@ULKYVX.BITNET.UUCP (02/02/87)

 
Shar.prg part b (repost and bug fix)
 
table
 !"#$%&'()*+
,-./0123456
789:;<=>?@A
BCDEFGHIJKL
MNOPQRSTUVW
XYZ[\]^_
begin part b
M"B!N__PQ1P $0D=@  "&0E<O#3\\ $Y.N0  -R1<CTJ 9@1"0& $,#P _SX b
M8&0^O !/3KD  #<D2H!F!$) 8 0P/ #_/@!@2BZ-/SP /4ZY   W)%2//@!Ob
M"B!N__PQ1P $0D=@+"Z-/SP 04ZY   W)%2//@!@&F 8D'P #[!\  =B#N5 b
M,$#1_   05P@4$[0, =*GTS?.(!.7DYU3E;__"!N  @,$ !A;1(@;@ (#!  b
M>FX((&X " 00 " @;@ ($!!(@%*N  A* &;43EY.=4Y6  !(YP$,*FX #"ANb
M  A@ E*,2A1F^AC=9OP@+@ (2I],WS  3EY.=4Y6  !(YP<,*FX ""AN  Q@b
M%!X='!R^!F\$< %@&KX&; 1P_V 22A5G!$H49N00%4B $A1(@9!!2I],WS# b
M3EY.=4Y6  !(YP,,*FX ""AN  P^+@ 08 Q*%68$0D!@&E*-4HQ31V\($!5(b
M@+ 49^@0%4B $A1(@9!!2I],WS" 3EY.=4Y6  !(YP$,*FX #"AN  @8W6;\b
M("X "$J?3-\P $Y>3G5.5@  2.<!#"IN  @H36 "4HQ*%&;Z( Q(P)"-2I],b
MWS  3EY.=4Y6__Q.7DYU3E8  $CG!PPJ;@ (*&X #& D$!U(@#Z 83 > ! <b
M2( ^@&$F' "^!F\$< %@$KX&; 1P_V *2A5FV$H49M1"0$J?3-\PP$Y>3G5.b
M5@  2.<# #XN  B^? !A;0J^? !Z;@3>?/_@, =*GTS? (!.7DYU(%]"@# ?b
M6H (@   (GD  $(,0^D! $/Q" "_R6(&3OD   %$G\!#[P $( E.T$Y6  !(b
MYQ\ +BX ""PN  Q*AF86(_R       !" " \@    (#\  !@2+R'8PHCQP  b
M0@!"@& ZOH9F!GH!0H=@*'@!OH9E#B &XX"\@&(&XX;CA&#N0H5*A&<.OH9Eb
M!(J$GH;BC.*.8.XCQP  0@ @!4J?3-\ \$Y>3G5.5O_Z(&X "#UH__+__BZNb
M ! P;@ 6+P@P;@ 4+PA.N0  -S10CR\ /R[__C\\ #].N0  -R10CTY>3G5.b
M5O_Z(&X "#UH__+__BZN ! P;@ 6+P@P;@ 4+PA.N0  -S10CR\ /R[__C\\b
M $!.N0  -R10CTY>3G4CWP  0I).02\Y  !"DDYU3E;__$)"2JX "&P&1*X b
M"%)"2JX #&P&1*X #%)","X "L#N  XM0/_\,"X ",#N  XR+@ ,PNX "M!!b
MT&[__#U __P@+O_\" (  &<"1(!.7DYU4W1A8VL@3W9E<F9L;W<-"@!R=6YTb
M:6UE $-/3CH 3%-4.@ :0V%N;F]T(&EN:71I86QI>F4@<W1A8VL-"@   $  b
M   Z=  !           Z>V-A=                                   b
M                                                            b
M                                           *4TA!4CH@0W)E871Eb
M+V5X=')A8W0@9FEL92!A<F-H:79E(&9O<B!E>'1R86-T:6]N(&)Y("]B:6XOb
M<V@@*&YO<FUA;&QY*2X*"G5S86=E.B!S:&%R(%LM=2!A<F-H:79E72!;6RUAb
M72!;+7 @<')E9FEX72!;+60@9&5L:6U=(%LM8F-V72!F:6QE<R ^(&%R8VAIb
M=F5="@H)=VAE<F4Z"2UA("!A;&P@=&AE(&]P=&EO;G,@*'8L8RQB+"UP6%@Ib
M"@  "0DM8B @97AT<F%C="!A8G-O;'5T92!P871H<R!I;G1O(&-U<G)E;G0@b
M9&ER96-T;W)Y"@D)+6,@(&-H96-K(&9I;&5S:7IE<R!O;B!E>'1R86-T:6]Nb
M"@D)+60@('5S92!T:&ES($5/1B!D96QI;6ET97(@:6YS=&5A9"!O9B!32$%2b
M7T5/1@H "0DM<" @=7-E('1H:7,@87,@<')E9FEX('1O(&5A8V@@;&EN92!Ib
M;B!A<F-H:79E9"!F:6QE<PH)"2UU("!U;G-H87(@/&%R8VAI=F4^"@D)+78@b
M('9E<F)O<V4@;VX@97AT<F%C=&EO;BP@:6YC;"X@96-H;VEN9R!F:6QE<VEZb
M97,*      (F   "#@   @0   (8   "?@   GX   )^   "?@   GX   )^b
M   "?@   GX   )^   "?@   GX   )"   "?@   GX   )^   "?@   F@ b
M  'Z   \]45.3T5.5@!32$%27T5/1@!U.F%P.F0Z8F-V %A8 '-E9" G<R]>b
M)7,O+R< <VAA<CH@3F\@:6YP=70@9FEL97,* "5S)7,E<P C"45N9"!O9B!Sb
M:&5L;"!A<F-H:79E &5X:70@, !O<F=A;FEZ871I;VX ;F%M90 C"51H:7,@b
M:7,@82!S:&5L;"!A<F-H:79E+@ C"5)E;6]V92!E=F5R>71H:6YG(&%B;W9Eb
M(&%N9"!I;F-L=61I;F<@=&AE(&-U="!L:6YE+@ C"51H96X@<G5N('1H92!Rb
M97-T(&]F('1H92!F:6QE('1H<F]U9V@@<V@N ",M+2TM8W5T(&AE<F4M+2TMb
M+6-U="!H97)E+2TM+2UC=70@:&5R92TM+2TM8W5T(&AE<F4M+2TM(P C(2]Bb
M:6XO<V@ (R!S:&%R.@E3:&5L;"!!<F-H:79E<@ C"5)U;B!T:&4@9F]L;&]Wb
M:6YG('1E>'0@=VET:" O8FEN+W-H('1O(&-R96%T93H (PDE<PH (R!4:&ESb
M(&%R8VAI=F4@8W)E871E9#H@)7, (R!">3H))7,@*"5S*0H <@ E<R \/"!<b
M)7,@/B E<PH <VAA<CH@0V%N)W0@;W!E;B G)7,G"@ N &5C:&\@<VAA<CH@b
M97AT<F%C=&EN9R E<PH :68@=&5S=" E;&0@+6YE(")@=V,@+6,@)7-@(@H b
M=&AE;@IE8VAO('-H87(Z(&5R<F]R('1R86YS;6ET=&EN9R E<R  )RAS:&]Ub
M;&0@:&%V92!B965N("5L9"!C:&%R86-T97)S*2<*9FD* $YO(')E860@86-Cb
M97-S(&9O<B!F:6QE.B E<PH  #H@:6QL96=A;"!O<'1I;VX  #H@;W!T:6]Nb
M(')E<75I<F5S(&%N(&%R9W5M96YT  !R '-H87(Z($-A;B=T(&]P96X@87)Cb
M:&EV92 G)7,G"@!S960@ &-A="  +P ^ #P\ $-R96%T:6YG("5S("XN+@!Wb
M "XN+F1O;F4* "XN+F5R<F]R(&EN(&-R96%T:6YG(&9I;&4* &UK9&ER( !.b
M965D('1O(&UA:V4@9&ER96-T;W)Y.B E<PH 8VAD:7(@ &-D( !C8RYI;FD b
M<@     ? #L 6@!X )< M0#4 /,!$0$P 4X    ? #P 6P!Y )@ M@#5 /0!b
M$@$Q 4\  #YP   ^=   /G@  #Y\   ^@   /H0  #Z(   ^C   /I   #Z4b
M   ^F   /IP  #Z@   ^I   /J@  #ZL   ^L   /K0  #ZX   ^O  "  0 b
M!0 &     @ #  0 !0    $  @ #  4 !@    $  P $  4 !DIA;@!&96( b
M36%R $%P<@!-87D 2G5N $IU; !!=6< 4V5P $]C= !.;W8 1&5C %-U;@!-b
M;VX 5'5E %=E9 !4:'4 1G)I %-A= !%4U0 =&EM97IO;F4 )7,@)7,@)3 Rb
M9" E9#HE,#)D.B4P,F0@)7,@)60*    /NQF;&]A=&EN9R!P;VEN=   0R!2b
M5$P@+2!P<F]G<F%M(&YO="!L:6YK960@9F]R(  -"E!R;V=R86T@=&5R;6ENb
M871I;F<-"B0  #H@=6YM871C:&5D('%U;W1E $-A;FYO="!O<&5N( !#86YNb
M;W0@87!P96YD( !#86YN;W0@8W)E871E(  Z($YO(&UA=&-H %-T86-K($]Vb
M97)F;&]W   -"B0      0               0 *               "  H b
M              ,                 !                  %        b
M          8                 !P                 (            b
M      D                 "@                 +                b
M  P                 #0                 .                  \ b
M                 "1&   BX@  )&(  "2(   DK   )-   "30   DT   b
M)-   "30   DT   )-   ".,   DT   )-   "30   D-   )-   ",X   Db
MT   )-   "/@   DT   )-   "30   DT   )-   "30   DT   )-   "30b
M   DT   )$8  "+F   D8@  )(@  "2L   DT   )-   "30   DT   )-  b
M "30   DT   (Y   "30   DT   )-   "0T   DT   (SP  "30   DT   b
M(^0  $%*  #__P  04H     #0   #0(   T4@  ,\X  #/N   T)@  -%( b
M #12   SK      ! 0$! 0$! 0$A(0$A(0$! 0$! 0$! 0$! 0$! 0$! 2("b
M @(" @(" @(" @(" @($! 0$! 0$! 0$ @(" @(" @@(" @(" @(" @(" @(b
M" @(" @(" @(" @( @(" @("$! 0$! 0$! 0$! 0$! 0$! 0$! 0$! 0$! "b
M @(" 0         (#@9N%! 2!AQ6#A8(" @("'@*"@H$"@0&!@8&!@@&!@P&b
M!AX*#A(,#B &!@@&!@8&!A &!@80#A *" 8&$A(&!@8(&@8*!@H&!@8&!@8&b
M!@8&!@8&$ 86#@88!B *% 8&!A *!@8(#@@2"!0,!@@4!@8D"@X&*@P&#A(&b
M# 8&"@8(!@8@"@@*"@H*" P0!B8,$@X.!A(.# H,# H0# 8," 8&" H:!@P*b
M# 0*!@X$!@P(!@8("@P.!@0&!AP*$ X&(@H4!@84#AY*#C0(#A@.&! .$ 8&b
M" X6&"86% 8&!@P&!A .%@8&$ Y(( Y()A#X!@80$@86!A8&%@8>!A *#"@&b
M#G) 0@8*!@8,!@P&#@8*!@X&$@8&!@8(!@8&" 86!@8&#!P2"@HJ!@X&#@8.b
M!A@.# 8$7DHR)!84'L L" 8,!@P&("P6#A0(#A0,&@8@&@P6"CI0)@H*" 8>b
M7"8&!" :1 $<3@8&!@8@+ Y$* P0%!88$A02%A(.%A(0, H2&#P&!@P&# 8&b
M"B 4" X4#!8(!CX6#A *%@H>#@8$: H<"# 2'AX.!@0<$ @2!@1(3B86#AH*b
M'@H>#@@&!!P4:@X&!!IJ#F !7@@&!A@J" 8&%BH(!@86*@@&!A9@)B0<( Y$b
M'B(:4"1:1B!<0"A"-"Y*(AH:ABXX-@Q*< $>C*P(" X&!!(@)@8$'!P6(@@6b
M!@0B0#(8)@8$%! &!(@B!@0>$F88!@1.%@& "%(2-"I2(AP<'AP!R!(H%CPPb
M$BH2# B<# $!1@0$! 0$! 0$! 0$! 0$! 0$! 0$! 0! 0&,! 0$! 0$! 0$b
M! 0$! 0$! 0$!*8!C 0$! 0$! 0$! 0$! 0$! 0$! 0$! 0$! 0$! 0$! 0$b
@! 0$! 0$! 0$! 0$! 0$! 0$! 0$! @*! 0$! 0$!  $b
 b
end