Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: utzoo!watmath!dalcs!silvert From: silvert@dalcs.UUCP Newsgroups: comp.sys.atari.st Subject: Another date-setting program Message-ID: <2383@dalcs.UUCP> Date: Wed, 28-Jan-87 20:51:14 EST Article-I.D.: dalcs.2383 Posted: Wed Jan 28 20:51:14 1987 Date-Received: Thu, 29-Jan-87 18:44:08 EST Organization: Marine Ecology Lab. Lines: 267 Keywords: set date, auto folder DATE.PRG is another program which you can put into your AUTO folder to set the clock when you boot the system. It is mainly for use without a RAM disk, since it replaces programs like AUTODISK. It has the following features: Like BICLOCK.PRG it uses its own time stamp to simplify the process, but it lets you enter the date and time numerically. It is also pretty smart -- if the time stamp is for Jan. 24 and you enter 26 for the date it assumes that you mean Jan. 26, but if you enter 12 it will change it to Feb. 12. It also knows about the end of the year! If you just hit a carriage return, it doesn't change the entry. If the current time is legitimate, then DATE exits immediately -- this is handy if you have to reboot, since rebooting leaves the clock alone. This idea comes from Moshe Braner's AUTODISK program. The following uuencoded file contains date.prg and the TDI Modula-2 source code. begin 644 date.arc M&@A$051%+DU/1 M@< #D.&4&@^K4/ ,39X0J<*D" @B8>B4D;,# M! H5(*:D86-G(9V#"2*%"@@I9<*08?$T*IDA8>1,!7%% M3AJ%5+M^+8-5*PN>(" 5$*MP"AVO(<-Z58,KD0"9+8!10I1T1D3FL@BU#9(&K$D#$<4G$BL=,.F,$< MK7,JQT'(@$$#1W,#5*9$AS2]NF8J6: 81$@E39LR5/+ @2U;2A'34HA8A_#Q M/0@=( P11'Y).!$$8/N1D=%_ 0Y(1($'-E= $4X0D1E/5@P(@H)@@=!?&52Y M4<8=# I(H($(*I 6 7E$)0=5;;SA!AUH4*5@'E2A\48=+X+0!DA4<31&B0Y" MF.**[+E7AA!UF&$&3@ F^5Y\\S5' !)AN$$&&[ !6&!BGTEA)15ES'$1@$(\ M\5<103AQH0*_/3%$$0/9Q]5<9.*!*33D$$0@W($G"&%H MUP(9:9SQ%0A\^KF0=2O<\14:(.BQT!LK3<1&3CLI($011Q1H'0))&$%IGW^Z MQ ,(,< A5(4&C= FR5@<(),)Q0Z*Z]ED7&GK N1%4,PZH("0)%,#%%$<3B M:2RREO8H0[-I05MA9A1"UZMY/)V:JA.K?M9$:%.X<$1'""F$ H=E%'IH1'F8 M689*](+00@L@3)K&'"!P*2D=/Y"Z:JL;+N@#"#>H8-RMN3H!@KKLNO"$363F MA4(*((3;T$-#F0'"'&]0508>D[KQ!HDZI0N::.YVU-Y[*'QH+\E3Y*N02A\J MK%FWO=;54-%N-(= KV[!=08*(NR6F+\ 8UW(*$_,9BM#O5+VWW$T$6=N2C.I@I M8&X('QM&12/7D<0D*%%)& @FM2(DKEH,3)H#VP+!M>&-1K#!S4Q88A.=B12\3PAC=V%9;!?FNC6_=5O83C#W=PP.OK1Q7A$ MG)\1D0BU%I '"9/*TM_64(:_T0%4*_N*%P

>@.H/K0 M'*AB0=C("#8L<4FCQ#!"V,3,6:QRU;P!AO22D+'56JF[ABD);;"'4\*4O?BW(=4/L5K2F M%,&I 50& < MI<5H1IQ2BSUU"9N 0,53=!4BAV/ MX@T2,)5-,?TS4^RD- D;#8_2A/12>P:MJ*,9VK.*E95C550.*\ !];0S0#Q! M[05MQ).>/DJCKH[EJ]FSLM";@0KK6/1T4SFXU5Y&%E$0.!)LH) C ,-O&QE;/M!@\?]E.V?2+9'S: M( C*,",Y2+29T]VF04@&P]LE:H2,XBQYGT@^2"2@NJO%+0RP6[&A.&$(>QK1 MLO:K K*BP5XBNU( M\' 1 T<8OR12J86/22L9O$^[]PGP'9:UG0\W),$D4U08QC?BBUSUQ!->K8KW M"X)9F5C#!0+P54',4F?*,@9!A;EL M)3Q*5;%%8"P5'/M6M45VLGB)Y&7+D-F%^@=OH;3;1=" AC:T@;0)1(!IKU+5 MU%JWM5:"K6QI&^99R6 &-OCP2WB;LX7\-KA_22!U@TPBV? 7FE!V03UU:DSP M>FY4\S5O?0F@WGN^)Y^_'#664ZQE"W<9.R ,X4%LN4/JT"IB37SBA*+R"G M*R.!#(,K81WE8%JIV#934K*7[F\*%$;RX@"<:"$1!5$4N4%)' 6(@ .0Y! M03.U3#$ Q@- \$(% $@& N@YZ,!)OH$JQ P$ >!(D298 #1Y0Z8.FS M M9+R80@4$BC$I0 QY R>/G#1GT- !085($A!3WIBA,G#(@F- AXP)$C!PX M:K PBM1&40!4T "E4R9,&Q Z5*)Y.0<$DC!LV"R%$L:CRCIRZ*29LS2,&S(@ MH*!)PT:E53@@7 #8,J/+EHT=/X8$(:6.&YIIV@ M(D?.&SE80?"1# )2@A$ M_#Y9T@6 $RL#G7AQ4@?$%T@' H45#!P!!%D1. MH(D ,> DR.D/_]#9Q!/ FV$>A3YYT^% RB%6DQ'!\3=/WPMFORCU\+*/WA. MT+1 \H^=#A?4&10!<.",@O?QYR,P0Z&%&P 2_*./"O"A@YUVRSFA#P!(X.>/ M? \8 8#Z;6 1F\"*@B # Y"",&$0K@B8(CG: M @(F\1!!,N @HC]"L " "FX(6!K.0B)3V]!CC=CDO X$"2[ #() 69, ' M $ H($+0J(#0@X#O>#""T#\Z ,O [%@17J_.0&&$W.(EIQYM@@AI"T,_.? M/[:,08"&'N!GRSA%).&=.$+0 04 >3K))QD&2'$G&.08^@\P*C" H#*6BI,I M@LY8ZLNGTTEC*2^D_F.-I;BDJHT>_R#H30]7T@B,G?\(0RN6_Q"#JS&X(@," M#P<-@(RERF0J0@%."+&K$Y?N&D"NTO9:+;!"(D-K -/Z BN"N Q;[+'>).?)ST * (0W& P6@S I?Z"LR"$\$@//# M/R]XH:\/GI3_HQ-FL/"&[',HS_P+SD,OO0#46\\/]MIS[\@1"U)!"Q;0 QY@ MK(#,*Z#R2. ]\(F/?.;C!_K4)P#VN0]^]).=_0!@@!Y(CP#ZXQ\_3".""Y% M!-Y#0OC&5[[SI<\+ZVO?^_@!)_D!8 HW!( 9$"" *^#C'X.X IQP: 8"^" 0 M0]2A 91'D206T0EQ<*("0! U@V,&W!*CQ! L<4M?BE,:@@! +:H B2@AFPD M&,*"#!""!( ! JRC#Q;$-3"/@0&@!8K! <1%0CD+=Z 5N M2(&(^)&U!6%@N028#PB::SB">$*Z^LK::$;VQQ> B2!Z\"T !A#' PB "X\P M;YCLH-X*9HP^[XWO>5\@"/465F/YE2]!#*%>X]S7O? 5\ L4H=X#M#? ^W6$ M>A'PX 3O5Q?J/4&%]1LF6ZC7!!M6L"S46X(-[S****8=""Y$ !4@8 3%"),* M4) T@JA@!%'"#4',8!)&S08 %/@Q!V@<)C.HP$<&@$8A# "(U@' !4#X!C*D M]P($?$R]2G!"$+Y!MH$Q@,@V/G)OM,$*1I$9R&?F (S!^ )B<9 7ZF7O@0/L M9@.XHKXAKK,R_)OG@1@ &P7N,P?-T6!!&X >$Q8T 9R1845SX,.*A@*)-SP" MLJU7 6%R 1PG!;%C(:]&$**Z)"8JB>D?XHAC 1SA@D^H MX /2^8+$#<&P *+W9$'C!?P$P[6I?.]OV0+9> JZ7L(^]X >/'3QPQ0^A"X$2N-(' M?O2AB_]P0 RH%A#0 3#D_V#@= 0FMWT 09O" $^_X@XD,^@@X4,OO P( & M5%T *S@J-6BX8) 8'F&8U[SG = "R84^@[ ZQ][[[N^_%3K6^>ZZH7 #S]D MKP\R*.#J62>V@@) -U?_M<8P$#1&4 (1A1'AF0P_O(' 2CU[[P6D@MO MKV& _>YG /4&?]^A(0AP=4) < G;*X&'_C0=U3"5K4W=5=G=;N6=5X@="I M ;H@(O!0!A:@@1SH@6;0@-\A>_8P:Q-X>[UA@< F;%OC=0ZH-VLG="] 2_P M)P0G! :G#9\@="A0"'8C>OZ #A&7-F?@ ")(!+XF'!%001P[@ /#5 ['C#\4E 4ZU-_Z "T4P!O.^HB5V8A]11 M7 SPAWR(CX8( Z%8=46'"UO(>M#H) @Y7I+H#P1IB?Z@.IK(D'% $P)AB!#E"3] 2&;8F9-9E8I)+"Q F*;Y 8JHFJG(FNK5 M J_9&[$IF;%#F:!9FP# Z*8*6(7G!02B_0 !;FYF[39FCVPG$M9 ,YIAM$Y MG:C)F^0U$,CI \%)8;'8F4KP"46T@@#0 3E9G>KU \$) 3:(@[ 9B[#P!._ M*$#X"?!)+$ PG_79;.9IA?FYGU_FA/X)F,@9!%?'G(^)#?"5GNLI=0OAGD[R MGV,$=L'I )D)AF/W !:@GS-R=2BPH,?9FDC0;,]IA1+Z"":*HN$9FL22! 1J MAB]*H5%G>^TY'Q2RFLAI!;6(G6+WH-EIA@H M47$DHB2J +,Y>E JI1VJE_>%I?NII4N*DE9H!BLY&C>R >#@ E30!(OBIG#J M&7]47 H @0@P!@X@W( S I[CQHZ IB@G8(_1A):W!02_ $B ![B! M!&RP/O<5 5X@G2CP!;"" CXB +A0"&:@ 8W:B Z !%/P 59Z7Q9 #O"5J1H" M!#G !VG3&XV:89(Z(PP9AHV( *;*DI1 HE_V!8@: T)09C( *RDP'S8@!)/J M \7J=7:)@!2 J >@ 4B& )U7'\*W(*B!;#[B \.UE+Y]Z!J** M2/AZJL12H%3BKZXZ7F*F [I@K&-@ "DPJ3JP( 5H8)NYPKXS2J_V5F ^2Z((( LT$;1S1KLU^0=7\R M7DE"-C;0J,_&#S^ KD)P DB@AW$4 3 K)G: E?2&\>$#^?:&V_['>M*J0,! M :P KU\@K_A KS\K<_E*+/PZ$$7[KR+3J+4XL0)0"!KS#TX5AFN;2UX+! 8' M [KY!1^3 PD'KI,J .,1<^-!N45P /] KM& ;-0-V6F PDI=&38MYDU$!/@ M.3 J<\%F!BB NU30MZ!U7[TKG1]*'?X'>>'@-D6@B(10LD*G 2E;?@& L!- M-EE"$"^KL#$[!5Y;L_\ZL4SKM% KM50;B#R+M=L* (K M3([$%_[KV(K,F4+ M &>[E(&XN0C0MGUK6@,AMW3[!78[$+CAMPV)KGVKM^QZ7X)+N(9[5U#4 I-J M _J"MOW+MFX+MY4ZMPB:J9)[!I1KN?2!N46@N=_:N9\;NJ-;NA;\(ZDK)/3 MNJY[ 0RG (N" %$RLI%2NTUJ'SMKL1BKL1M2PI>K!*"* ?(KOC-+OIF:L5ZG MO[>KN%1@I^#0!)6+-O_P 07P ?*( 0R'=81T!@R@J%ER #Q<+,8!F%=GK1R$K1R4M0!@"))[ O[;KH2@B1 0 MNA\ $KP 6>POVUKJY/*(I5* /#UR)D:R9.\LC#+JU/0MD0+L4>;>:.\N%AR MRD:;R']K7P/L!P;GR5\ RA\ 11HB!JOLQ/0+Q6%[QC"0R(L,P8W\"+:,RV80 M<.!+ROI:1?WZRD-W K$4)TA!\SR&\ MT/SKA0XM.Q]0Q0?@1P!B#0QP(PR&565!F]J_)\!G&4 4Q@ MM-&JUDC6UHQ2?@AP!B+0QW@=LC_"J,ULJNH5TP#@UX"=U(S"V)UG 32&SPK M V/ !B )NSUIZV1@)N- .?[M%$[M=/!#U7;O@C;Q.,+MO<[7AJL+PW=P68- MT04<)'BK TULRM$,N8 LR)H10&F'#@DS=) M=2T(GE4( !N@#3?. 4PPA1# EG @ $()A24.8C?" 5BPXT8 !YYQ7\TWA956 MXA 0)O 0Y80G V%"#U:^ ?(0)O*GI@/A 7(PA6.XU!R@"C9[@6><.NA0E2@; M)OYP!@I8=:78#RU+$*"U(#30MF#V O)'":$\YWQ+!7V.'IUI@-)Z=1- #6'2 M#U79Q@<8XO3@!)2PD:"IKPW0YY->Z8^@K[\GZ91NZ>1%';C"AGP(@0P@!B@P MD MZ<1"!.;.Z?IJ$J#.[N2^[IJHK^K^[IK8CGD. $2@[=P. F) ;!.=*@X,@M" M K!.BLF^*!^P7\1>ZYJ(ZPKR#QI Y(0G!5FX7Z %Y@9E!4/P!$ZPL5!@\1L; M!%6 !1N+5U0!&2>0!FYP LQ.%V7@!E8!%#Y $2A?!BK_!G5 !RYO!C O\XH! M C5/'+*\J,JAD*8^C+X>>/XP> G:ZD$#DHTG,%!S%]6$$>1T]N'J8. M(! R &3POZDF,J7>* , [8:H P[B](K(ARX'(*1J 3-0)K;@ZF0/9"*#]M11 MD- (!LC@>EBB]U>?]0- #Q:*<3$FD))\7C"0>._K"?-8!(,G :*H M?(L2?2Y 5\RH(8#@(,+(#V #('+8='P((0&@^CPZ :T?^V_N^F< !7GW[/PP M!BRP=VZ/FG#/+C>COP !L[0ZP#RB6WO_88ZZU=_FXJO'-2 *]2 M']0 @18@!@T"']0P>"'X'Q* >)5L__[_:Q*@^XS2?,^G -$W?010?0#P!?9_ M<2E@*=; ;W9##6#@"O9_<2E@*=8@\&.DR,22 GUK#7$F[&$^O??U 08 K*&L M 89* =L[^*X_QVA210MB"9=,+"G0M]809\(>YHD01Q]@ , :RBR0^V@B )J) M -A+U%/G_%])XPJ ?<5^QJ22HI,+"G0M]809\(>YHX01Q]@ , :RICG *&- M)=L[^*X_QVA210OR>WH2VD-[]4T^$%T_$-$/ X9P!O0'^T]SX&8@ L+^E45_ M 09@<-$/ P) U%/G_%_I&0NB -L[^*Y_YS!@"'<. \!Q]4T^$%T_$-$/ X=P M!O0'^XE0?@-@!B(@[%])!'%T 09@<-$/ T1 U%/G_%_I&0NB -L[^*Y_YS!P M"'<. XD@,DS.]70Z$-$/ X9P!@$!^T]SX-X>_3"0 /9QY[$O,L+^E0)0YG&D M <@@G=$/ P)0@H&<>@K@^]80_3 @ $0]=<[_E9ZQ(&Z0F;"?""#P7P-C"P?A M7L72++#O&0N"!&4>1QQ@[(^PO8/O^AKB F5^I59@<-L[^*ZO(50)(U3B^@RP M]9I%#2*S]?'O]=$/ X:0A-0. T]SX+YOB"0%C<+^E9(M IYP[+ ? ,MN!H<' M^XGG535V^7$D IY@<)B(_JG. ]$?^V= ]1^^ M^QK""[DZ^KRZU!T@^8] ^JE &W;9EP1QM !Q,*^T1@!A(@[%]) M!)X>1QM !_"E(10@[%])!) >1QM !Q,*^T1 U%/G_%_I&?H0 !2@F0A0?@W@ M^X:X.%H"^XD O\U,+9P$.Y5+&J Z5=J"?-.+)H\$ ]@"9JXO8/O^AJ29??5 M 1:PO8/O^AJ" YA^I70P[\2BR0/Q '2@B=L[^*ZO(50)(ZY?2PRP]9I%#1J" M!YD)^XD O\U,+9P$.Y5+%@ Z5=J"9JXO8/O^AI"!)!.Z[:^O8/O^AK" I!^ MI72@B=L[^*ZO(50)(P! LG)*%NO6=0@,DS.]70Z$)@>1R6 "**^]?'O]:6^ MO8/O^M$?^Y2'_JDND7RX_5"?>('"A]O?&[*>-?=5 HCP\'_O"R*S]?'O];7X MSJ.OBW'D^?"U7)KP!7BXO8/O^M$?^RL+[F\@ >T>1R6 "/?^]^#PSJ.OBW%T M CX 7R(#!Z,Y$%VO*FH\EMI)+ IPR5K=M]C0M]<01PF@ B0:E5K=MX 6Q@!P M IP0QV8*4&S Y%Q/I^()^X9PYS" "'<. X=PYS"0""0. "J !D00!%10!"#0 M BT G-0!C,Q!WDP!U1Q%6/ !F\P!FN@%T$0%W4@!FR0!F, D3P!FT0!BP? M%XX!W5;A[WD D) %W4Q!71A!SA/!SY"!F5@!V7 !BQ1!G!Q!VE !VA $S;Q M H#A$2"A6U Q%UVQ%B!@!SA?%+H5 R P!C\1!E0!%SAP R\ S'P C)0 P 0 M!#K !21/!4_ !400!%10!"X0\D< $/@%F[P!C/A\V_Q\FP % "0!3H/ FU0 M!W,P$RP_!W0 %G5!!W/1%7#@&-!M%2 0!EU!!$% !?/!\B! !U(! B1/!4_ M[&_ !F2 \R#P!H>1!SH/&6+P!F\P$V2P%FN@[V\ G0P%UWA%G!!!W*0!R 0 M!F<0!BRO%RTP,$B0!C/A%GD FM0!GD G3P!J:&!VE !RTP,%8Y!7DP!U1Q M%600!E0! FM!$7'Q$W:0!CK?%6H1]'- !W49V7&$ @A@*"P:G ["O"/+A !PL5?J \+^E8QP MI>0;1R<@ G%T B*@7A@@[ .! H(01R?@ _ 51R<@ K9:8RC "7%T CX 7W%T M B*@7AL@[ .! L401R?@ _ 51R<@ NKE%36& @,W$"?@ _ 51R<@ NKU ,(^ M$"F@5Q]=8S "NT*UHRB!#4& Z# !K,?1R<@ NKE5366 A401R?@ _"E7@\@ M[ .1 CHX$"?@ _ 51R<@ NI% L(^$"F@8?=U CX 7W%T B*@7B,@[ .1 DT0 M1R?@ _ 51R<@ NI5 <(^$"DPYO=U CX 7W%T B(01R<@ NJ% <(^$"F0"'%T M CX 7W%T B)PI>0)^Z#073# "1 ZWI5*#=*I ["O"+I08S#@"6)P(K"O"+I0 M8S#@"69@\+#/"+I08S# "6-@ >KU ,(^$"DP"G%T CX 7UJC7A<@[ .1 K00 M1R?@ _ U S<" Y[PE8HP S<" YSPE3H#^XH@#DV0Q3/P_,X(^XH@ $4P+>K0 M!#/P_)*@ ["O" (P'Q\P \]/"3H ^XQ@#DV0Q3/P_):@ [#/" +0NB37!#/P M_)B@ [#/" (P'Q\P \^O"3H ^ZAA /,A:=I)+$6/ @A@HE L(^$"DPZ?=U M CX 7\+^E8X01R5@ @871R<@ CH ^XX@'PF \9([9=??@W@<,"@!#4& XY0 M@C-P(S# "%_)"=V(;+#O"(I -F0 2>M0!'H#^X[0-V20OF3P-C- #%_)"3\ M^YYPI=:@B3\ ^YS0KA*@B3\ ^Z#073# "1 JW -,#=)YR; /"HRLB1. 2P(I M"B)S$.X5 '3 U7$ 2K@!D00 ! 1@0 &P@ @X "05 YNG B@ B@ B@ M B@ B@ B@ B@ B@ !I@ B ^Q9@ J J J J J J J M J J 2@ %B@!;R@ 0&@"3# K 73@ 1H@#C*@ C@#!I@ B*@ 2*@ M 2)@ BH@ C+ B9 R( DXA A+ "6A F@ MF/ Y@ C: B( D^J =;A M #* B*@ B( !C @ D[@ >(G 1Y@ 1X@ 3(P8QH QK@ 1X@ 3"@ 22@ 3S M U8@ AQ !B;.!!K@ J #I@ !I@ : I 9 ;P41"@ 0Q@ P@ 1@@ M 1;@:BI@ +S& !;@ )! +B/ 9 0J $; X.% !: 1 1J 0; ! ;@ M!7Y@ !8 @9@ @J 0: 2"@ C : [ 9@ R@ C : [ 9@ M R@ C B@ R !;@ R !( 0H 0JP= J !9@ C A@ !3 :PR@ MV0@@ 1: !_E 8@ ;S& 9@ DLG 0@ @:@ !B@ A@ 0J B@ R@ C@ M !R $NG J [ JP= A@ 0K@ K@ JP=&<( 09 Q2 11@ !*@ 0Y M DN' I@ .# $ "A@ :J& I@ C 9@ A@ I@ B@ : I@ B@ M : J :@ Z@ ; : I@ B@ : I@ A@ I@ A@ /C A@ M A@ A@ Q@ !!@ A 9 :@ ; :@ :@ ; :@ 9 :@A@ R M ; : ; A@ R : :@ : : ; Z 2@ Y@ C J M !* J C@ S@ I@ A@ A@ S@ A P 1!@ : : ; I@ % #H&&@" end -- Bill Silvert Marine Ecology Laboratory, Dartmouth, NS, Canada CDN or BITNET: silvert@cs.dal.cdn -- UUCP: ..!{seismo|utai}!dalcs!silvert ARPA: silvert%dalcs.uucp@seismo.CSS.GOV -- CSNET: silvert%cs.dal.cdn@ubc.csnet