Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: 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 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%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 !SA0 .$)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@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.3G5.5@ 2.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 $*>T0 0I[1R-'((CP $*@a M+S 8 $ZY U0%B/4GD $*>/KP !"\-3KD !&L6(]*0&< !@NC2\\ \a MV$ZY 5!EB/0 .G!*$&< ! C^0 .G $0P8 3G5.5O_\,"X "+!Y WSFX !)"N0 1#!P_V "9@ B,'D a M #?.T0 -\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(#D #?*8 DJ?3-\X $Y>3G5.5@ 2.3G5.5@ 2.? >\,$?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 (T3G5.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, 0E3G5.5O_\0E3G5.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 '&I3G5.5O_\0Ea M3G5.5O_\0E3G5.5O_\/KP 2\N PO+@ (80#^a MHE"/3EY.=4Y6 !(YP,,*FX ""AN Q"1V <+HP0'4B /P!.N0 )D!4CSX a MOGS__V8$3G5.5@ 2.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.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_XTa 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#$)7+PU2ETZY @2%B/2D!G$"Z-4I# PM #X 69 /KP 2\-5)=.N0 ($A8C[!\ %Fa M&#Z\ )"IS\\ %.N0 ('I$ 9(@#\ +R[__&$ 5Ia 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 $%^3G5.5O_\0E<_+@ ,+RX "&$ _SI3G5.5O_\0E<_a M+@ ,+RX "&$ _R)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 $%^3G5.5O_\3EY.=4Y6 !(YP<$*FX a M"# M + ? *L'P F8L("T ")"M 0\ &\@/H8O+0 $/Q5.N0 +6Q3G5.5@ 2.<#!$ZY N"#X OGS__V8&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 ,TYER/, =*GTS?((!.7DYU3E;__$)7/RX #"\Na M AA /[V7(].7DYU3E;__$)7/RX #"\N AA /[>7(].7DYU3E;__#Z\ $_a M+@ ,+RX "&$ _L13G5.5@ 2.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& 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 !%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&[Y*0&[<8 #[H# N_>Q*GTS?(.!.7DYU3E8 $CG PPJ;@ (a M/BX #"AN X(+ # -G)$)L P^AR\-/Q1.N0 +6Q3G5.5O_^2.@$^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 +6Q3G5.5@ 2.3G5.5@ 2.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+@ ,V3G5.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.@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 8I3G5.5@ 2./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.@]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,"[]^-%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^;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