'===========================================================================
' Subject: MANY DATE/TIME FUNCTIONS           Date: 09-01-97 (04:55)       
'  Author: Nigel Traves                       Code: QB, PDS                
'  Origin: FidoNet QUIK_BAS Echo            Packet: DATETIME.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"DATETIME.ZIP",4^6:Z&=6088:?STRING$(50,177);
U"%up()%9%%%#-%6=RLHnQ'iR4.7%%4$%%%-%%%%yn%rjSgRfxN*9hxT]=?wG1ExR
U"SbM-bPAU.TfED*g.X=xU_,/\rp$-t>0SBBA][W\;0.$o>dBqa4bn_:([6]gBD)c
U"*mahXtBK:uj5fGVUbD$fl0HwujeYEYL74rXclVxr<nggV[kZ3N)?WFSHkWT'BMm
U"gfKFn<:EM/tGudM(cKdMqLkN.T?Z8RBfb;/wrcP:GlPTG<M?z7j>SeG0t>OJf2u
U"Opa'lTq/+jbwKb0iM=B,0K_RNGJ(OL'.pW(f=z0aswsu4LX<rn<A>Hj?[]<jed]
U"Ax0o<EB;7g6m7)y/,MD$6l0?$6feV4M^41gj%>0_rWcRTtMr+sjXLUtrP[i8f'l
U"z4Oz+pouRoZp]Ig-LUosG;*vd1aGA.1r4OQ3B-VNlvPl;GDo<7uk1hBw\DwVB>l
U"hhjA>c13'*vD7YnaMk6dcUdQ4=6'd()$mrJN>)4gL:,#Uy7SRs'#dqdFmUD:E=h
U"#>Thg1Z$LbKjk5BCa\[XOuZJ,VPle]kk_j/[j^H'$Gi,Gp.dHFo$U76W_<g7m3c
U"NJ1QpBKj;O65$$hIU1VuAxHnM]anZqlZ/mWFgEeF;ZDF08hjlstq,%I87x0.M+a
U"db=-lE$+ttD0CrM:HV#dd.jhK5)\CcNCjt,gLsbnF>Ac,o+ls4j$G;=q1q1CTcr
U"iC[d2Pud9HM[1_8]wNv$xy5FIKG5<9K/GKZT&7#\SI:fca(CGBeeY&-bO\TUrUe
U"RY7C[R2&xFp=hGA2q_lCsUqdaacw&DI,WoM9OuM](l#W>mK_S6jHl>^L0d%tn4B
U"WW2c:.n+_5RMhG]p&2_mi7tOKBcD%7()5rZ^QN7COf-sH81P<HlKOSLgIKA:0fZ
U":qK4mkJCK+gC9T(d+P^KU)4KAuWPnEos9E4mX#&Uc>31aVCif(<sX<FJi9kuFLv
U"P(orWkc0J]4JalW4AO0]_M\U5u%<i3\VUANG0aD1=9#.M\]VtuUyZ[6,[[zBbY<
U"ciSLojB^RYHY*uc');xQ[:+kJ,c9'm%CSWE$w)fkT:V]CQtJrENegs-AE+AkNp%
U"3$]hI>GvZiB5oeUC[qy[rh[je7gMDR7FN(gc5bc.PVr'ADX/M/doeMG44$P8bnO
U"TDf*[X#MaLsi^<rT$Y*09D_hhV*J/FUY33I09w[UEg]3aIV#&Z<eSG$2I&m+=e2
U"1WE.-_?A'(5=W.0%N+TB[GPP9/r$H/QxMB#u\X)BbE\g.?bIL[X9bb_SkLb5#3<
U">hp&3,w?jz\JDiTaE/>7#5^3N&^VM7/,-l+?jFKGB;5\G;[&p;mvSC,a>6*P);r
U"g?^GpS;Tg0K_rpE:/QfVEbmeEk/AUeTK.qg%#;P'eZX2:lj)3\fRpW6/wI(<:$:
U"$rikZ>SF#YN<I7I[Qi\qW5\ZLl]U5VRpR'&7[5?g3PUbTXUlz5b7y1?DYcHQCTa
U":ZCRUfRJM)_,s&NF-TNHp81eRdRy1MF9g?RNdZA0D'CHq?H87MGLm,2f6&2TQJ7
U"T_wR\tuT1$<F;Zu[rZAELzpoTzoB8r^2_AFL3hO],]QWha0?no(Z6F;Rxn$^lLl
U"NrTHD_-(ZH$]4J1+386jR<YsWE2afiV;8'dYxUE1iO)cqlnV)3'n^JTCj\NNUkD
U"cF$4u=0Da;.pT$KddWlk]yR-<[td92Ten&p/5n4ORMJ0%%JEr&z/[%[wP97z.<_
U"O\0d6_['\nh.0\gJX>ra^#O2L*']XUDi[e(DgiNpVl#lCw1f[o_;.IlA(<EOHc.
U"Jbsn0LD.ET95;r<p;7bTla$TME2zp(ViW)0RN6w?l<H914_4,]4+Pn[T^Kv<JgL
U"nplRO_t\S)Krh,,xo(8$wBdO*K;3u^p1xI*PPXPiJt%M)Nyc2:tc<jDnYFqTp(g
U"&mpqsedQvOpc<]=)UG8b?W=G8Y%:wNS#*iRE_hw&$QNsGZFBch$C6PrYl-vC5n^
U":<VL3jVofDcQoEOM.pgpSbb6xRva,3wRrONhBlQYv$lNB(H_*o3tWpvaFWo:LSm
U"Y$Scn_k/rs8fb$s6\G(bt%qNS,y?OY;xk=nvLb9jY&L:^w5/OEVimHox'I_K4i4
U"BdPzGV5zWk(UZU/IW5%NO<4>UH-#.AWB+yi2XZt\wePd;NU]yh^/MRN19f8=csd
U"c3\$S%0nO(5<EQMI21AlAk.^MhvT+8/OA4ZAZ_MI'vTVD%MDMT:zRpwI.EJX?)K
U"]+r.d<Rq/D&;z%l:5yu%.pk5J5;lpkGxjnVL?0L;W[[vELlRz6b]Kc&Fc)gm8_x
U"GeLg[)3mkUrR'*AWe=E%iR8yQ%E%2tr>2Y(^4:-,*))%Q3u[Ym4'oo>KL*--h0$
U"Ek/GW$UVX8P*7I]>OxVGx[Zo>k;:N'm/s:HB1g^h9UFND9'=BG],yd*iA'])Yz[
U",U+yptayasQc9m&0VyyGfO89&ugE_4>IOa+j4?Dm+8m>;xn,OG6^IEyS7\EGak>
U"C+3>(D2T5m=<E6wq.vk)F_CrVufd9&%[;sQi=Ap\UrWEM_;m1rI4jJ9(^.E;r9z
U"8yWv7L0XA5,j[F)mScMJS8Nnye8G3$&m2n+rPW.1ndA<1.ddT#qxq^E381bL+wj
U"U].zb'&E,ps?*wyYw&EVA-4=t/*sLYb8dHa=l:d$x.oq9U(P=Ra<=H7c4EGUH6Z
U"ugULEx0Wl'FTcSsaxkLZNn$.Z\8k2j)g[s04(sv>,ZZy#r&uOa>H<=;\=<d9Ro'
U"tWuHs0+s\)x-HFWR6]2r[j9FHmCzvud5PWmWK^o%Lmulvh[bk%G:JoDdq8Y1J\]
U"0\0:eB17W&L?TgB,%l:v.Yx-97FJOpuE(f_\*x.z/R0l[c4ol>;lrAsZ3aEYm]#
U"<5]BOOGS'G&P1R*0ckNU).Y&hn\2[YdK.2KAIh2NiL1K&W6%d\#;KHtFD?4zdMm
U"gm3#GL<#,4I),Nv,3fkcJ7=X&WBk/H5GE.^B=DO$eCaTe+x%(up(%)9%%[%-%N&
U"<LH/6<8)d[-%%S%M%%,%%%%y%nrjSRgnV(;<>T]O7w-orx0)aFFGf#CHvnjj%v_
U"_ktj=ei];64Q6>Lo,t*ry#G*wYh:/$XAMAwee4JEUUrc[][-1nJg1nH_STH+FiO
U"PNwZ&jsd2dTBC&psU%#]'mHb[FFL0r*V9DD)akS^goc,taC>QR\;kBb9cO;NGqC
U"D%\gEb/-;+uwZJ'14^\gW/V0+JBNk;qBFpL-_+\n_gr[+qj\2eVbG7%5A%'ASrW
U"lE'r=H=LMEZIX(E#0Jwu:V&HDcN\3k4m%I0b]n$v=>5G;14f3]4cMj&e,L1i&uY
U"xoYu3r*B(5JZ)?;VmA5u&e$OsC58g?;SjQ,+nUg/uVSy[g_f1*GU64TYy?[VZ)_
U"LZvc]yoTD9rrj4xeFDi6ERb=m=6e^]tfxDK6(cRT8j9(.F6$e2ECj7T^?tIg3fG
U"cnnpog/wPQV5B$x?FJ9ZGDx/5hX0VhxuAJ\i:>aFj*jfTNj&kbijF'pJuw\s8L*
U"skYHOC,_/)tVm40q:Nvx4Q-KjeuCnoQH6RL1PI?un$JQd54p*:6Ed8VC7MnQc_1
U"l]Q[X<L8XQ*To&wa[3:OFfZksN('p9MQRMawM0ibc%8R.;mLk$kA(VU;MMht+o:
U"+TJ1B+i/j%<Q-W$>Q>AP$DbbjR6c92+sw)JZEW30i2g-CF/6Y)_xK%_>18qC-59
U"2>%O6Kaz.5E)TONY=oV5NEKs3X3:f3Nh[c[bG-\'A5(Hcl.61fz919PQdk-#%L5
U"&fu.LJHZ9ZtHsLS^J6ZI8r3?q_3R,CCi/=2aCN%*&J$S;d8:32mb(2Xa0;C=a=7
U"B:7b$lbUf-ic)VRi^Yto3Za:BiUC1w6#FnK#Tj=)Dp$F)M*$*u#]#k7W&ikCf[9
U"dmM[sY(4oDxA>uE9/8\,SN,3S%$H6cT+D8KZ5Uk+^/bejQm#5'R0aON\fk1;Nd?
U"8v)pO/oKl';N+=g4\mOlgZ0,5%Pm43sxqQ>992*Wa=XGh?42/H1v^-HH*R0?RGv
U"Y_^O7D7[=CyL8\07B5sG+#%tb/g?wr\1H=m4/606bBeR9PLQ8'16Bq5uU2q+mGg
U"FMnW,K*E?LGAUd,Ew=0*y%jXS/Ib-R'QIBa.xH^7cMLBK*_h(73oFFjwOM/wm(i
U"ncHA;YD6GYQG$Xr-ILCR0l.P9Dc2?S9*-\iUOyGUANrn;Wdr_#77zq.b3;B>Cp$
U"gX^_QU,(fcM>PoOC8$aJ=H%W=K1aj0Q[)pTeZDSQFr[z(h(-%JGPrZpwE\at_[[
U"=hsE%PqXJU-5x:VN/WcXy_.Zn6Kg\20XhHCv%=d/a/1X#F#HSA+L6j<Z)hb-48+
U"8G222o3OpPU^?p0._Yv))FMk%(RUF'v#8CqeQmacxRyTc<TCH<>l\]qp>uZ03o/
U"bQ3QTSU/';901NTHmh5:t(x<ax_&B0j]_9B1i;EN[WE%a4O#rj^tVHYwC/&aL8>
U"]]z(DQ9*D_c21MNe\oS1JTlp#4zYuT)z(Scjpu3<tl5oR053sw&w8Ng]f_'tLQs
U"-o0f_[jR$yOR?XFEG,.6k0MZ;7i[$s&>nS6LI8U.4j$H7wpKiM3)#/r_U1/>H_Q
U"lkq5.Yst/'$B3:%^c;yK]oedEm'K1I/?rZWR9?R:Q1CvehX1eUTjHD(j^VFCuKm
U"cEGbPi&d]EBkhFbUoc7?_8Aa(K*=x(//H[Afh'BMfCa#aJl7T#$s(eI$e+o8frO
U"dUVJe<fQZ?l/BF*8*b<uzefga=4VPKJxrS]^4)gd3&dQVxY,H#OS&n8%2f^m(qF
U"#j7hWp.YI'VQqastj.[r+y?hxZ?olc2eXpR=L/0FuwOcB4l\&K7a]#F\/?Y07\F
U"5KK4syEb\+MC&\8QSa:orfNCgi(0T9,bD9/rEqlef+=[27v#h36KcS>a)$q-%He
U"(>^AA1yagH0s5Ut>\qfV;5\vB;zrGrG&k\.T=IfnMc(\3#_2M/IvMS_yHf4&CdV
U"t'TzaFOPoSu?-(oepJ)scY-GL]%9C1WtCbr\qGmF'8.D%du/k]Odz1<'9&d?S-l
U"7ZrtbY\_WN3P>sz4eK2;ksLLwt=pc11]c)CyVz:8mDz\GGN?[J]lvKwWqiNiCyG
U"uU7r\C>%8m\=:t0\wf[uD;]ZKTq-v[Lg;J<[AcBH0NHG;mRm<p>o^:C->3fz:8m
U"dz&G_^-T<q7==Q(oZuZrP?'uQ[ib&\Nh4va;Y6[X\jR_Z=YfIuzEKH$rtZUDM3k
U"&(9Pb[GP1bOWz$61d%k:;8lwr$sl#ZBhfil\).>T\s=M_)m3gfNVh+bwa9Ug[QY
U"bnt2i1S++xRq#=J*swTlq#&*a#sye3*bE^LPL2x/[IN-k=V*bCJQ22d:fj9j2_*
U",^VlSaJ'jK4M8uX0Ul3MkMMEl-8m[Tza/c)$*<<_i:hsDEt&^<(,xt'LP^V?M9.
U"s;r[uuN'hA17z8jj9M3PfPzD%6itYYnz.H8=D>,GWb:;r5m4]bAkjTm$hFz4kYv
U">1H40^-l?rN8(4HQ%H8,]XeYTjKuggkwgdj>UicrlsEuDcGR(DZfE4j$NjEf&LQ
U"V9r2fai09aZfkXG,WBJfI+T-gH]0lnf,n]#l&kp:bAFt_)N9HsXRn>YmMaXNEq_
U"O/6viDA)9lBulfn>M5JR85l>CzEahT%Hr7_^0Fz#/B,2lzg/B<$,%GlPh*eYduu
U"OJ4]VIKhFzHTA\.c2HgXkjx%<up(%)9%%%%-%x\=LHmP-Wnh['%%V%:%%1%%%%y
U"%jxyy%nrjS[gfxffQp>S[e5,iK4JNVM$Tc%IrHT2&7P>dG/:4[kf$t+j?0o/&E*
U"k6I<cJ6k;##IPwSm2sS)ltoH+#O+-frtp)e0)Sl,1$W;FgUT[kPC$FEQH&k$5Th
U"U/5$h8IMp-7%0DbQu.E:=%4YoLZ2T.DjEQba%EIOZDZDA<[<Pd)hu#V1nvOk%Aw
U"*$BW'o[lU+Q8K\Gt;VPjuORuLE4OK5>tvXke**80XSGqGDBXOrNQSBH/FewBm8?
U"vP\D8AEz3Y[z/Q7c)8Nu=Mmj:454QX-9Zt#TCKIS9<EMqe1fqeNerG)Z^XU$ePy
U"G:;RZl[atBIDG_2aLIZ95&R2Ifi0xWQ?j1vh\(-9Kde/Rq?D&35&n,UtJir^OK]
U"NY2LmP.ODZ11<D_LFob5N[9MG.u/<s<wGj71vg3xRckAca3&wHsl8sHMV;v2KVG
U"yYy_F/M.va8K.cbcLNbs9N\MFHnuL(sLwD+ZYYE%2uhs4hK_CIDs6sjXMWLAWYg
U"lAB_Ll,bo^c=5Ll9eB?b?)waxnIOvfkISnfwIPs&sFPMZvb:KZcbUL2bp+DDb_e
U"CpXur7]D:bL'SuwK#HPZcNK,(Iz<EBpMBayv%Qmx<t&e1DZ')[Zh^ZSs6*R-tQD
U"3TiN2hj&)F>R+KoC2dwe4wC%o#^oN&%NZwo)\dwg%NZvoCrdwmXwCx&ZcNI<J)'
U"t\:htMq#N:Nti_9xdi$i^>IoNxcJ)Ot%:ox.wh9rcSZwx6f$p&bV+ea+gm\5Wg1
U"ewNi/Chp#a/Vua/Ug:MbC893GpI2T#\d9kr9ulNtflOcH1H3z)FIj6IBgW/3c;I
U"z9N0<>[Q'N5.7dL&\rc0=;LCfT%up()%9%%%I-%1=#LH'/-a:z'.%%1)%%%-%%%
U"%yn%rjSy&'yrx<F=TUa17#iL$?vD(eech0,*R4]d3.)$,1V*%?nYIYy'XM5s]Eb
U"p*AAhY^](S9ASWWVg7ZY3W\]2g$YHPVFLpF#W1(g.%X4R1)m++AE&fM/.o5UIU#
U"fOK'UfZs%9.='*gyur\LX*][ui&K[.*VjJEY;m)\]sALQN0k3)U*ME&u:5qIFd<
U"xko%;6xC]YaCVGL92OX25ST7ptz+%#y7=5Cfb78$%%ApKV$<EN:Hbcrwb+xW[z_
U"$AQy#xM5$2atT>jMSFtHvU&M9FX=771TD&XS*Eq:7HB=$55^;JU$R\7;*3Rj6;:
U"OFfiXL'qec*j4nG<;M-k'OG.#Likf+wVZbQ/W>0cmR7EKaV>$i*T:kkAe*u[.I/
U"-8Mjrd^d9=Z2hi<7[zwWG0;[\?C/axGgm02Yg6Gu<:7%/MssLf5w)bI(JI=r>SB
U"5[&kta/8sVYP+K1w/9[sd<JfLG7d]S]7cQcj9.ukCfTNQ&X8Q%#7.U>nJPM\>c[
U"ig5*mJ.F3X2+hAkCl[%2pH^ZE_>GGY/FrLm5X2A+R]&7a?hW/hv8:I8F;(S7_k8
U"gtmJU:Dbwp)U:DZ;HTlq_lDfU2a>kip'?GwkI/&2d7w,Rk/FCMDEpVf2.5)_&nG
U"8djMxV<(aU\l+R>Q.z.Emt&hk^vllwiCKZ*>C+n2<?R5HZ8IUtv7JIm=CBiW&r]
U"C[ll.A^QT]W#8(&K8BbQ;XDTy$9V-bl6MJB(IL'H8xC\0r&.-r9)G[3bmV26,ov
U"(u%p&'9%%9%%%%-%6\=LHn,QiR4[.%%4%$%%-%%%%%%%%%&%%E%%%%%%%%%ynr%
U"jSgf%xup&%'9%9%%%%-4%N<LmH/<8&)d-%+%SM%%%,%%%%%%%%%&%E%%%%Z%.%%
U"y%nrjS%gnup%&'9%%9%%%#-%x=RLHm-3Wnh'7%%V:%%%1%%%%%%%%%&%%E%%%&h
U"6%%%yjxy%ynrj%Sgfx%up&'%9%9%%%%-%)1=LHp'/a:%z'%%&1)%%%-%%%%%%%%
U"%&%E%.%%+9%%%yn%rjSy&'yup%*+%%%%%)%7)%T%7%%P;%%%%%
END SUB
CLOSE:IF S=33AND B&=Z&THEN?" :) Ok!"ELSE?" :( Bad!
SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32
IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1
S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\Z&,219);:END SUB
