Article View: comp.sys.atari.st
Article #24699shar.prg (uuencode correction) 1 of 2
From: RDROYA01
Date: Sun, 01 Feb 1987 22:13
Date: Sun, 01 Feb 1987 22:13
314 lines
20012 bytes
20012 bytes
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
Technical Details
Message-ID:
<8702012318.AA17895@ucbvax.Berkeley.EDU>Path:
arc1-ca.pugleaf.net!utzoo!watmath!clyde!rutgers!sri-spam!sri-unix!hplabs!ucbvax!ULKYVX.BITNET!RDROYA01Show Full Headers
Complete Article Headers
Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: arc1-ca.pugleaf.net!utzoo!watmath!clyde!rutgers!sri-spam!sri-unix!hplabs!ucbvax!ULKYVX.BITNET!RDROYA01 From: RDROYA01@ULKYVX.BITNET.UUCP Newsgroups: comp.sys.atari.st Subject: shar.prg (uuencode correction) 1 of 2 Message-ID: <8702012318.AA17895@ucbvax.Berkeley.EDU> Date: Sun, 1-Feb-87 17:13:00 EST Article-I.D.: ucbvax.8702012318.AA17895 Posted: Sun Feb 1 17:13:00 1987 Date-Received: Tue, 3-Feb-87 01:38:45 EST Sender: daemon@ucbvax.BERKELEY.EDU Organization: University of Louisville Lines: 314