Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!crdgw1!ge-dab!tarpit!tous!alfred!elliot From: elliot@alfred.UUCP (Elliot Dierksen) Newsgroups: comp.sys.3b1 Subject: DOS-73 date correction program Message-ID: <1991Jun8.215516.5112@alfred.UUCP> Date: 8 Jun 91 21:55:16 GMT Organization: N/A Lines: 231 Somebody (Thad I think) mentioned recently that the DOS-73 card does not have a correct date when you start a session. This has to do with that DOS-73 software not handling leap years properly. I wrote a little program to correct the date (put it in the autoexec.bat). Before anybody flames me for not posting source, I would but I can't find it!! In a nutshell, it figures out how many years you are from 86 and how many leap years have passed since then and adds that to the date. For those that can use it, here is ADD_DATE.EXE without further delay. ---------cut here----------------- begin 644 ADD_DATE.EXE M35K0 X 0 @ __^% 8 (@ $ ^R!R:@$ M M M M M M M M M M M "Z4 $NB1;X ;0PS2&++@( BQXL ([:HY( C :0 M (D>C ")+JP QP:6 /__Z#0!Q#Z* (O'B]BY_W\F@3TX-W49)HM5 H#Z/740 M@.;?_P:6 (#^674$_P:6 /*NXV%#)C@%==: S8#WV8D.B@"Y 0#3XX/#"(/C M^(D>C@",VBOJBSXP H'_ )S![\ HD^, *!QTP#+_>L#Z2$!B]\#VHD>I ")'J@ H9 M*]B.P+1*5\TA7]/G^H[2B^?[,\ NC@;X ;\$ [E, RO/\ZH._Q;V N@F N@. M [0 S1J)%I@ B0Z: /\6^@+_-H@ _S:& /\VA #HW0!0Z,L!+HX>^ 'H? . M_Q;X C/ B_"Y+P"0_ ($@-0 1N+X+3<-D'0*N1D D+HO .B+ (OLM$R*1@+- M(;D. )"Z2 #IAP >N US2&)'G0 C 9V +@$-@"X!37-(8D> M? ",!GX N 8US2&)'H C :" +@ )8S*CMJZ6 '-(1_#'K@ )<46= #-(1\> MN 0EQ19X ,TA'QZX!27%%GP S2$?'K@&)<46@ #-(1_#QP:6 R\.T0+L" M ,TAP[D> )"Z5@ NCA[X >CI_[@# %#H*?\ %6+[(/L$L=&_@ QD;O*HU& M[E"-1NY0N"$ 4.A.#8/$!O=&\@, =03_!I8!BT;R!3OXT>C1Z$")1OZ*1O6T M (O82]'CBX>4 8I6_@!6](I6]+8 .\)](HI&];0 B]A+T>.*AY0!*$;T_D;U MBD;U/ QV!_]&\L9&]0&#?OX ="__=O**1O2T %"*1O6T %"XK %0Z#@,@\0( MQD;O*XU&[E"-1NY0N"$ 4.C!#(/$!C/ ZP"+Y5W#58OL5HMV! OV?!2#_EAV M [Y7 (DVS &*A,X!F);K#??>@_XC=^K'!LP!__^+QJ.4 +C__^L 7EW" @## M58OLZPJ+'C("T>/_EP0#H3("_PXR @O =>O_%B@"_Q8J O\6+ +_=@3H"?Y9 M7<, NCP8; RZ,'AT#_(X&D "^@ RY":L0(S%A]:3BS:* (/& KD! M ( ^D@ #A !# ]N+](OL*^MRYHOEB2Z& .,.B78 @\4" M-JP*P.#Z=/ SP(E& "[_)AL#BPZ* %'H1P%9B_@+P'0D'AX'CAZ, #/V_/.D M'XOX!O\VC@#H*0&#Q *+V >CB +P'4#Z:#],\"Y__^)/X/# O*N)C@%=?2) M!\-5B^R#/C("('4%N $ ZQ6+1@2+'C("T>.)AP0#_P8R C/ ZP!=PU6+[%97 MBWX$BT4&HT8#.\=U",<&1@, .L0BW4$BQY& XEW!*%& XE$!E]>7<-5B^Q6 M5XM^!(M&!BD%BS4#]XM&!D")!(E\ J%$ SO'=0:)-D0#ZPB+_@-^!HEU HO& M!00 ZP!?7EW#58OL5HM&!#/2)?__@>( %)0Z/0 65F+\(/^_W4$,\#K&*%$ M XE$ HM&!$")!(DV1 .A1 ,%! #K %Y=PU6+[%:+1@0STB7__X'B !24.BW M %E9B_"#_O]U!#/ ZQ6)-D@#B39$ XM&!$")!(O&!00 ZP!>7<-5B^Q65XM^ M! O_=00SP.M:B\<%"P E^/^+^(,^2 , =0=7Z*'_6>M"BS9& XO&"\!T,8L$ MB]>#PB@[PG()5U;H#?]96>LDBP0[QW(.5NC1_EG_!(O&!00 ZQ"+= 8[-D8# M=<]7Z"+_6>L 7UY=PU6+[(M&!(O4@>H 3O"

CG@ SP.L+QP:4 @ N/__ MZP!=PU6+[(M&!(M6!@,&G@"#T@"+R('! &#T@ +TG4*.\QS!H<&G@#K"\<& ME ( +C__^L 7<-5B^S_=@3HG_]9ZP!=PU6+[(M&!)E24.BR_XOEZP!=PU6+ M[(/L(E97!HM^"AX'BUX(@_LD=UB ^P)R4XM&#(M.#@O)?1& ?@8 = O&!2U' M]]GWV(/9 (UVWN,/D2O2]_.1]_.(%$;C">OQ*]+W\X@41@O =?6-3M[WV0/. M_$Z*!"P*/^L/"5TYXF^;/\SR8F.=O^) MCFK_B(YU_\>&&ER_X..:O\@M07I:/^ _0!W1/>& M:O\" '4A@XYJ_PBU >E1_^F( XM^!(L%@T8$ H#] G,)B89P_[4#Z3?_@/T$ M=>&)AG+__L7I*?^ _01ST[4$Z1__DBPPF(#] G<;M0*'AG#_"\!\TM'@B]#1 MX-'@ \(!AG#_Z?O^@/T$=:6'AG+_"\!\M-'@B]#1X-'@ \(!AG+_Z=W^@XYJ M_Q"U!>G3_H&.:O\ 8.F:O_OM07IP_Z#IFK_[X&.:O^ +4%Z;/^MPCK"K<* MZPNW$+/I MK&AG7_ ,:&;_\ B)9N_XM^!(L%,]+K$;<*QH9O_P&(EF[_BWX$ MBP691T>)=@;WAFK_$ !T!(L51T>)?@2-OGO_"\!U,PO2=2^#OG+_ '4MB[YL M_XN.GI_8..:O\$4E!7 MBL>84(J&;_]04^A _!8'BY9R_PO2?P/I% 'I(0&(EF[_B78&C;YZ_XM>!/\W M0T.)7@3WAFK_( !T#_\W0T.)7@06!^@7_; ZJA8'Z _]Q@4 QH9O_P"#IFK_ M^XV.>O\K^8?/BY9R_SO1?P*+T>F^ (EV!HB6;O^+?@2+!8-&! (6!XV^>_\R MY(D%N0$ Z=@ B78&B)9N_XM^!/>&:O\@ '4,BSV#1@0"'@<+_^L*Q#V#1@0$ MC, +QW4%'@>_9@+HVOP[CG+_=@2+CG+_Z9D B78&B)9N_XM^!(N.I %T"K@( M ,=&_@H ZPC'1OX( +@& %#H-_R+1OX!1@06!XV^>__WAFK_" !T$XN6+OFS_BYYP_[@% ".&:O\]!0!U%HJF;O^ _&]U$(.^=O\ ?P;'AG;_ 0#K M'Y" _'AT!8#\6'44@XYJ_T!+2X.N=O\"?0;'AG;_ #CG;_]X9J_P( =0SK M!K @Z.'[2SO9?_;WAFK_0 !T#+ PZ,_[BH9N_^C(^XN6=O\+TGXG*\HKVB:* M!#PM= @\('0$/"MU!R:LZ*C[24N'RN,'L##HG?OB^8?*XQ$KV2:LB 5'_DZM M?P/HD/OB\0O;?@F+R[ @Z'O[XOGIKON)=@:+?@3WAFK_( !U"HL]@T8$ AX' MZP;$/8-&! 2X4 J1JT#1JHFB07I??N+MGC_B[YL_[ EZ#S[K K =?B ?JU0 M?0/H-OL'BT:JZP!?7HOE7<(( %6+[.L7Q%X&_T8&)HH'BUX$_T8$.@=T!#/ MZPV+7@2 /P!UX;@! .L 7<(& +@P$;< LO_H"0"*PO[ M #K ,-65XDN2@/- M$(LN2@-?7L.T#^CL_U#H% !9M BW .C@_X#D?X@FXP*()N("PU6+[(I&!#P# M=@8\!W0"L .BY *T#^B\_SH&Y )T$*#D K0 Z*[_M _HJ?^BY *()N8"@#[D M @-V#( ^Y ('= 6X 0#K C/ HN<"Q@;E AF /N0"!W0?N@#PN.K_4E"X[P)0 MZ"__"\!U#.A5_PO =06X 0#K C/ HN@"@#[D @=U!;@ L.L#N "XH^L"QP;I M @ L "BWP*BW@*@Y@($_Z+@ L8&X0(87P BUX(_T8(B@>(1OVT "T' #T& '=$B]C1XR[_I](- MX WO#0T." X-#@T._@VT#K 'Z-;^BD;]M #IT@"@W@*T #M&^'T#_T[XZV>@ MW@*T (E&^.M=_T;ZZUB /N<" '4N@S[M @!T)XHFX@**1OV)1OZ+1OA 4(M& M^D!0Z/@%4E 6C4;^4+@! %#H#P;K'HI6^(IV^K0"MP#H;OZ*'N("BD;]M FW M +D! .A=_O]&^.L H. "M [1OA]"Z#> K0 B4;X_T;ZH.$"M [1OI]'+ & M4/\VW@+_-M\"_S;@ O\VX0*P 5#H4P+_3OJ+1@;_3@8+P'0#Z0?_BE;XBG;Z MM *W .@#_HI&_;0 ZP"+Y5W"!@!5B^RXDPU0,\!0_W8$C48&4.BA^.L 7<-5 MB^Q65_]V!/]V!O]V"/]V"NC8! O =00SP.LOBWX(*WX$1XMV!NL9'O]V#/]V M!%;H& 524%?H> 2+Q]'@ 48,1CMV"G[BN $ ZP!?7EW#58OL5E>+?@@K?@1' MBW8&ZQG_=@16Z.0$4E >_W8,5^A !(O'T> !1@Q&.W8*?N*X 0#K %]>7<-5 MB^R#[ B-1OA0Z*($68U&^%#_=@C_=@;_=@3H"0"#Q CK (OE7<-5B^R#[ Y6 M5QZ-3O:)3O*,5O3&1O95QD;WS8M&!(A&^,=&^5W+/"5R%3PF=Q'&1ODVQT;Z MCP:)3OS'1OY=RXMV"O\T_W0&BW8&BP2+7 *+3 2+5 :+? J+= @?!_]>\IR< M5AX&CE[LBW8*CP2/1 :+=@B/1 B/1 Z/1 R#9 P!B7P*B50&B4P$B5P"B00? M= 904.B.\ECK %]>B^5=PU6+[(/L!E97BW8&_W8$5O]V"/]V"NB( PO ="#_ M=@S_=@Z+1@@K1@0#1@Q0BT8**\8#1@Y0Z&@#"\!U!#/ ZUR)=OJ+1@J)1OS' M1OX! #MV#GT.BT8*B4;ZB7;\QT;^__^+?OKK)_]V#(O'*\8#1@Y0Z(L#4E#_ M=@17Z((#4E"+1@@K1@1 4.C; @-^_HM&_ -&_CO'=<^X 0#K %]>B^5=PU6+ M[(HNX@*Q(.L,BUX(B0^#1@@"_T8&BT8&.T8$?NQ=P@8 58OL@>R@ ( ^YP( M= /I. &#/NT" '4#Z2X!@'X$ 70#Z24!_D8,_D8*_D8(_D8&@'X.!G0#Z8@ MBD8*M !0BD8,M !0BD8&M !0BD8(M !0BD8*M ! 4(I&#+0 4.C:_H/$#(V& M8/]0BD8&M !0BD8,M !0BD8&M !0BD8,M !0Z&O]@\0*C89@_U"*1@RT %"* M1@BT %#H0O^-AF#_4(I&!K0 4(I&"+0 4(I&!K0 4(I&#+0 4.B#_8/$"NF& M (I&"K0 0%"*1@RT %"*1@:T $A0BD8(M !0BD8*M !0BD8,M !0Z%'^@\0, MC89@_U"*1@JT %"*1@RT %"*1@JT %"*1@RT %#HXOR#Q J-AF#_4(I&#+0 M4(I&"+0 4.BY_HV&8/]0BD8*M !0BD8(M !0BD8*M !0BD8,M !0Z/K\@\0* MZQF*/N("BF8.BD8$BFX*BDX,BG8&BE8(Z&OZB^5=P@P 58OL@^P"5HMV!-'N MB\:*%N8"M@"+VC/2]_.(1OZ*1OZT (H6Y@*V /?BB]8JT(A6_XIF_HI&_^L M7HOE7<($ %6+[(M>!HL7BUX$.Q=T#+< M +H#_J+7@2)%_["BL(Z!N8"<@3^ MQK( BUX&B1==P@0 58OL@^P*5E?H]@&+^(O'B4;ZBT8,.P;K G4%N $ ZP(S MP(E&_ O = S_=@S_=@KH7/^)1O:+1@@[!NL"=06X 0#K C/ B4;^"\!T#/]V M"/]V!N@Y_XE&^.M1@W[^ '06C4;X4(U&^E#H8_^W +0(Z('YB_#K"L1>!B:+ M-X-&!@*#?OP =!N-1O90C4;Z4.@]_XO&BMRY 0"W +0)Z%3YZPK$7@HFB3># M1@H"BT8$_TX$"\!UI8O7MP"T N@U^5]>B^5=P@H 58OL@#[G @!U&X,^[0( M=!3_=@S_=@K_=@C_=@;_=@3HG #K$O]V#/]V"O]V"/]V!O]V!.@#_UW""@!5 MB^R@Y@*T (O(H.4"M "+T(M&"CO!=RJ+1@8[P7B^5=P@H M .W .CK]XO"ZP##Z/'_ MM "*%MX"M@ KPD#K ,/HX/^Q"-/HM "*%M\"M@ KPD#K ,, 5'5R M8F\M0R M($-O<'ER:6=H=" H8RD@,3DX."!";W)L86YD($EN=&PN $YU;&P@ M<&]I;G1E !\ 'P > !\ '@ ? $1A=&4@8VAA;F=E9"!T;R E,F0M)3 R9"TE,#1D M#0H $P("! 4&" @(%!4%$_\6!1$"_________________P4%________ M_____________P__(P+_#_____\3__\" @4/ O___Q/__________R/_____ M(_\3_P#K NL"ZP( 0 !P@ ! 0 @" ____?P M 4 ( 0 (#___]_ & $ & (#___]_" 0 " M_P D ( H /__ * $ , #_____#0 ! / M ( ! H #@ !@ H ! P $ !, /\ M ' ( L @ *P "@ %]?8W9T9F%K %]? M='5R8F]#&ET %]?&ET %]? !?;6]V971E>'0 7U]30U)/3$P 7U]30U)%14Y)3P!?7U9! M3$E$051%6%D 7W-E9W)E860 7U]64%12 %]?5E)!30!?7W=H97)E>'D 7W=H M97)E> !?=VAE7, 7U]D M;W-E&ET9F]P96X M7U]E>&ET;W!E;@!?7VAE87!L96X 7U]S=&ML96X 7U]A=&5X:71C;G0 7U]V M:61E;P!?9&ER96-T=FED96\ 7U]296%L0W9T5F5C=&]R %]?4V-A;E1O9%9E M8W1O<@!?7V%T97AI='1B; !?7U]L87-T %]?7W)O=F5R %]?7V9I