'=========================================================================== ' Subject: VARIOUS CLOCK DISPLAY PROGRAMS Date: 09-15-98 (00:10) ' Author: Andrew S. Gibson Code: QB, QBasic, PDS ' Origin: zapf_dingbat@juno.com Packet: DATETIME.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"CLOCKS.ZIP",4^6:Z&=18143:?STRING$(50,177); U"%up()%9%'%d-%H(%SJ?Q,d')).%%h.%%%/%%%%fh%qthp%SgfxMt%:>][k9vk]= U"N1].G*3JS=b4l.R=0n]>9&l:AEA3gMxK/GEr=_j]LBqqyx6bFu%lNQ;t)j.:FGF U"b$c5Hg]AQ(,mgM'ap/Y'?D?J^pglB-u*2[+Qq\;AQy=hW9)i'PQ>nH]=6QrkYN: U"$9a9;b;JoH19xmBi)*(lQS)(sp%08m#)n'-/XC\D U"+I_k-\oeJq5Fj(tobNrSs4Y0-&hF[&:]8Cw<4jN4d%?Puk0HC]U7xdiUHVHrdaQ U"5&f>)ygUTw+'OL0lmi',Rh%5WzLb?Hzx;p6b5K)yyA$RbdAefa7#2Dv?\] U"+B'XL$y/1NKtzuFB3z&T)an)N6%]S$dIR(Vo5_B0OwB;=aoP8%;H;Y^?,(6n[P6RtQG40-RKm9&RGPl9WWMQG[>q%W++CWuf3WN U"u*fauIKh.e56cUT$pF+'9_P^KK1_741s+EwIT_(oKXDO$f7iEnT5>cqsMC06Y+C U"4rTarRq6958=GIl(7k2xqh9s=oB>^<]JtT6_F/gmH7Uhv&ET]C>M2f.G92PGY&[ U"peVNT2mK3sF0%V9o\9ktf($hTX;X(^-H-Sne]>g_p7$8H6PG(=/3C:Sa];UBKl+ U"ZT]n9i0[/b=b3tM5oDt>**7OctTP6Vs/(JE_T)h]^by(Z;W[E(i;*c3a_N[O(NI U"yiK5/4zS]YP+bgKd;NkM.c$,8w4/jQak#1pGoN9=.=tqzJE,I*[s[e4;U.)*/vv U"K$)6(&9QF*UN7A%[yag+;wC#o'=_6y)y9D66u$l&_FQpB>11XE7K9e*uwoTxW9_ U"Xv5Y1g98dBsT%up()%9%'%d-%A(%SJJv5;j6/%%%8B%%%/%%%%ih%qthp%SgfxV U"t(TABTk7LV&dwp_Zti])iu.5AcRJj.Q-O<+#5)%A<^T*I5.Y'%h%0=h)%tkHhTb U"RNDOs;+LJ(j$EkcVPL_Qm0tlB,pd-ZJ)K U"J%[i\3K'Nc/WSGD'R#)1d,B0Fp_KcWY_FqI/QsLm5n#d,UDN#e2CG[r9q$=.,dR U"3Y\SRf=(qmbc/I15hrBe/)0ESQYorWaxCSc;-Cip&-:hWw=l.:X[h,sctHT$^;s U"53$6uZbkEaIb.wsX12*FQ)?f(fCqb]3+ns(Y?VYwF,WRn5ZPE_A6v9HuF(#?HID<%6>o4i7 U"%KgcA7XAdrhaQpTC[o/e'\QS< U"*4M)NW:)QaX9l'w25\*4TI?UF9b\8C.H5;K>Y;Fqk#bd#1H0Dw2't.$:Qi_/*i, U"50I3[-u8Nlq;9-$i[M+R[(f7l?;YS[g_vXt]asF65ez4#)=L1Co69ERER=;9uwH U"fbluNopqmnF%8*Th5'ZovYeu8J[?bG#H^By3':k0=zVow]elgr(7_98 U"OYMg']R_Cr^C?^'KEGWX,8<1H;q>+D/1.41l=]kJM&OeEcF1r+szTrXMR%ewGq5)erQ(Bep6-Id8pqR[OoAeqz0n$j U"(3]6uEk<9ZpLmN%Z1Yf$.J]$;jq&DZqzA:eNWRX'WdElL/UW^jbhT5o/)\JotHK U"3wRsEF^]KYFO_HN$i=pmog)s$k6Jv2047'vo8/w^e_?-COKn7S4?G3Yf?q,HN:C U">*ScQ5OK?rr'->2+??nAL)4bKmHRQn+kbxK1xG72A]4g^jcNB&fkERmXhM-Kd]f U"9e'EW$Oi/gA^Lumh<>'>Dq=\kLZU8?Xk0&kxfW.$?.EmWUJPf5\aH&ky?JS#dYXJh83&novX:GnEje+ID_>R8A\rQY U"R^Lnoio8bNt:nKBiG'IAVsV4Z#hU;jekr.wZSL+/t34mC+)w4UOs7PPwA]*NTla U"#/>J*d-0V1Vvlf?vCveb?r\+MiVmJ3P4Mjm[3.LrbVo=wUHBJny)m,*rwORs,$6 U"3;tv4hi9&AlwKk4Bi/cSfj_HEH9E49=g+pf)iTn1poVW9ZU1Y7iM$z]NZP]9[v= U",NBrQ2=^?tf2()P9(V)4[**2_IfD%w&A0W6lDmdf+Z?,H8pq?S+#>_&/M.3dy:d U"jy#O1Hky&/]My8qq=RC_^Q3a')RiR#)ITF:&(&*^<1TXYM-\r5ReK6fqzo U"R1S'TM':_2dT\]<3?H U"IbcqUL5?:QY*0Y2iJa7CEUy&0wq][9m;??pUbS0k6kVa1BtPiiMs$C^3B'Ssf?P U"qe:q4(%QTFbz_*XfTM[G$JSM<&o(dprvDiY_vnM*G81ob+QRUUMaCfsIcr^24'h U"8lSMrF)rm/8?RR4k\n)R/b_MZD%k=9CmF45eK1&ZZ U"_l1t&9lCX1OTw/,)g,zv9ocXEC:N?(%lpc/f>zYh.ChJK[>bYwXZE6(QDJNJ[0W U"X9A:sh[AQ0179G>q.EJ/ORt?+5+9[lBO_oNm*Nf*W?'I?'D,eqADrDI/PeYQXFz U"GPL8W)M&EAf]N'MD$5O],U=:q1Ag41VIy7$-HP^y*Fpbp+XXQZ;*Bs($,&vnUO^ U"6to_E9M>AOWF2f%1N%v2^^;?[)68u$=Lpp(o=OXpa6QWh&-&-$?WM:+yYcscy[# U",nR$Slc21tTZdC%uHer3rtUVrn9r7XNiaLPx[VxVdlPQY[LmeDH-^t.KMVY2Egs U"o\kYM;Owbe2c45WBL+$5NoRT7jb3.A%8C49O^,:aI#7Ik=,xN(U+Z=^yo0plj1# U"FDh,?&6d?/NwS6>f8;d)5=a.oYRz77J5;qqY^u[QLfL4D#R\uVCwK?H+vhaEi9: U"\3-0DYIPu#<%,jNJT+)MuE[^*HEMRhSWL5^-rtqOeaWP_kUE6ta1fK,=*+p+_IZ U"#Wg,[*&$o8o=Gnr*>u?Ju3Y=g9ff[KyPgR+-+I%xui+p3A;KVy53YqK#;^IFdx% U"wiFDd#pxbgah6<,.DykQ(/MK=D%Tg4zZyaGxj$z51=A>8q-On#A-qD)er#N'sT^ U"xo]6Eb%jNu.UmilzevxN;+M\_x-%BKD9o,Zi11'HJlRJ>r/wNIFDpg[t,_hl_r8 U"R^0E2C#mx3KWFumdFMN(Mw,:AVG#5JNOoJ/V?KTB&7Fg_X]RNSMdMsHSu+e U"MD.oce U"Z4[pfR/nrI4&>:,#xDu%p()9%%'%- U"7%z*S:Jp3a)gr5%(%5w%%%1%%%%qhi%hqth%pSgfOxf+JGBSoe$xnO79<.^..UF U"]%.d7ALB,g-j-25SwqAlu,dJh2-#;7JXX5hMKpMNB3n',SfIZG*4VdX=3tkN U"XHCzY.cL4GSz-:n_QO;Ckei:C0r0OY3c-$i>);p>2\s1'RM/),[p3\N6-loo*,[&pPmi_WK0<;&N+T5?e,0+;f#SduOom/S<*occ,FuqiM*-TISHH,r.rpE9\vtDpyI$& U"PLqrL?Uh.^9^2\I(cq*0,>fuV+\?J8IOb''k.2Ye+PlR,::j(B=YQ6.i9E0BJ4A U"&0])3g''aR(0e$ml7eL2BTKZOG-42eH+a=fI0\#1y*QPJ^$*la^Pkoe_rOSR:Lr U".;#32E'\5Sso1>z U")HgbyZoTu*VT&B;0;]#R,NE4e#]Y7*%n/3qVBH$NTc:65omaJT U"rWv.j&B)=EQ]B)] U"wB/S9D)(]S&0mzJm.+A<*op2_l'$76.:)lZO]pz5KRqVun3>;Fu8W4APu\tpj8I U"dfpqDk,H#4nC&HH1IGTo%KbAT?6t_s\^]yq=P&%3doUUZ1ESwdiRmaew&w(p%3L U"(^iB5uL0?]]ILw'ySvIn%LQ[Uo U"dtK+gH>AAPFVn>BRdVXm3X#Eh6hdi.2iYDFa$Wy8QDZxw;6?M+StFDbNgV4H&Un U"nW=fcJ]nE]>gaYs4(hZT3)IT;[30Aj>ZBW;0,rFBqhfl;\b6;ll6jL U"64mk_oU83dn^GNXsm/]JJjf:pILi[;yH_1m(ODElY8Kjwtd70WZ^O1i)RkH.S'D U"seH7.pQta21e1x\*=2k.KlOu-=J0 U"MUXLUUz[O?0(,oMOjpBwm:g.esTaEo9s])G]J\47Njh(dmv*?ERIc+jTCdwuge7 U"d3:F[VER0J60?zgCF4uhoWw\iBuw8M[iqE*B0:iho.vh_yqO'Caf?2L3/8Lljs(.L%kQCfGY7Oe U"b=#^9fM.xyqKm,wn1/W=ahwsYx4K?iY#f'8F#Ytx(=cO+NLay(mga7GT>iWg=KW U"sh_4W5lW\Se3J2LOBf/cCEDY2rBb+QXhKKvBDJN*K$#Mm1[6?,ju[>-U\;:,M=) U"_Uea^:p>f,T>g5P2?-R_?vdKK:'YROpz9IA1;f8vUK5B1^kia$4>OFZM75(2Z$^ U"I0p:k>=]BXc)rVDA/g9>kIMGkvHhb2mgZL5joo_LU[K,l7mPqTzH$R/xHVlgNYX?<#pQRd6jY>\5)(QWZ2K$z) U"x$ U"leDSK:*H_9N)tYnTxnd^$m4cXPDvd7^VtCHIPBo)JVxn)RbJZ7tnm5ztRRs.XZ. U"_mv%H=2b#CE61&.WwMH+utPaFSFk+ktH;(J8;3omtUvf2FBveVQm55bKf-^j=aH U"/D1d:IC3SA)7dBsIWUlIgbbM1t;:xQ6Ss]for^$Y]?^Dh%YM&=jdXnV?JBptIGr:LA U"Hi7(\E31IxZJiX]W#=5;pTa'?Ss/SDkk'L8l3ml9dWaF(=-rTBsb>2oWbZ&GUoA U"?V[+HI:iW^L]W1y'foh6L,H-FRk+5PgdeI\AeAf15pcU%YYpb*nep1*3CU=NL*TkDbqc*)tgNB=^[rnBi-yGPyfTZ0pz[C#*0'Kp U"10iJ.UF/PuD#YKk?:eNm)1Hc#qR\]?x-U$li_Ck?B3oUMcB2V]L*0aS3O5XL'La U"o.q+\8M'/[7/7T(U0.AE1h9A=Cka#K1JcWlV)t7zg\rxdka=NVmsiA$Eerh+:nY U"rfrD,qN9bejs%F>cU2VB:fS$KZ#T\#Gv#d$ZQoe-XNfQ;Sl#iFqi,,,)]P:Kqqx U"5[0,,/Ge&BMM]qGY0_T.Tj=ME;D1Mo+%V_*bi?lKgNSfGtC'=ZTX?0h%-#m=3[$ U"B$o=x$#2t]ahrlchE[kw[B(]HZYCl]OB)15dMW6*SQ U"PBP)OG%g'k6O9^-QQK;;+=K%PHB?3];lhhUA&pJ1,,x#ki.19u7RZGu\+dMW1E1 U"'g-L:?MeeNZ2\C/tnLTi_gF7m8EkK0n_e,%l_=Tw2aE&dKDMV\NL,K=a:1[n(NJ U"5QTT06FA8P65F9t;g'scqAxsXnExs0wmfs5d$sd3yF_o,2uLF]w<+-QPfkn,_*/ U"6N$;js*#VWmi\EJ(ivms:6EqjUA0>oB?;qCo.(M:)8doxGXef)/]<+R U"u9U?iH=J=3ZvauK(e;GWZU\O-cFtV90P#,6iW]c&%t*d0:iCq:cO_0N$A7tV),c U"QjJ>&0%6Z\j4f4BL,F3)?V\dfToIYGgK?Cs U"M4X\s,%iQas0OK]%FuDVIEcK80UMCf1XnZkUoRR5'??Yc.>b2C-70H5 U"uGsk+$v%nq$D%5%DfA]dJ$42,ux6kk0k)2q,WZiC$]vEu(Ya7H1F]LH&Uq9^>,q U"W7H(&E9S11&?[Bu]^_gr\TD9d=>\'M+mc.hHi;&J?aL-Wiq]rl81VYQ8j7oI+AC U"W=WmPC/ahJ$Mu(hbWT[rOs=v9oFKG[B_:4F?\-t(Zw5B[n<(p9%K5OFi>6I[9KC U"NhgCR\Q9EBh\ong'?)Wj$jJ%m'Rf.8A=Q5LH8EE6NT1SzLNDS U"W/Z#TT]%r(wOcb9]gJD;1lMT3ubY=+3e&u(xiPkziy;1^c)',bsnx*t->=k U"ulk+T0&o8N;6v%dQV*,Y?XdPR9HK:P6te:ico2]n>W%L*SKgWe-]C4#HVWV)3R> U"CXb4mAS2LkQ*IFsbW%l_g8SiKZu1NSb)Q:<:2:[E9I/n#h=SHLseWvUAWWuifjyPoR5UeeDKhq/FG^ U"GCNA>c:RUVMEX<3p3K%7ic?*t8IkKmVk1]h0K:%=+=t\H4k?KcZr.1/UJBAE2m^ U"yqBGAO1-Dc)ebk,5BYd6Ukk=6CpR%-F?*b]=Wfn&in7a=e_JEuS,^6Yq> U"1VN^&d6h3O+tRUKP#rUHDc#Q-$6$)K;c?LH7?g/l0dPG*=n^=(nEW>1byC6t1OR U"xa7Bx%?>Aict*#rzip3+\bk?-yA2P:M,hk'2](%maB#uQ^A9is8()^%E^_G6t#& U"r:n3lUrF9,Xnn36YTv(-CNo36Y4v(,Y>p3Y-dbG2Aak(&7bBu0F**c1B;_0$/I_ U"Q7]0/b;]soO6+0XjdH)YL(G#Gun'p[/r.T^Lc9Uu=.Ba#k$4]VD+(5Hsq;tZUCM U"/3&Z(]iIAz7bK;7uWtYAa U"*d^)qH*)$.AzP/cJHG3].8u?d$Y=u9Y?[_UWYJd_F;L$BU\)BcBT6PAkT1E9Sz) U"c6$-x>9a/0oJ=.1HnPOPeJPZ\MQAvnz7h1t3GSn$,=;oA U"CFib_%eDKJt,8=WVoD/1KUMvZrkbwU/45e1Q\P\FQIksq+GZfAINl[cjC-.TL6U U"+F*5_j#a\;Q*k%%Z3/LoQ> U"VDxI\2r^aK5$(oJGfVF^6gGPHR[Z$G?Vwi/$sH>9igQAb9N)k^8WSA7hvqkdoZ6 U"51];b>zYx%%up()%9%'%[-%[-ISJ#H0x4P;#%%;U%%%.%%%%wq%hqpS[gfx.),J U"x#UnaxnF-7hhoj(GYWdInR*Rh$Q)3j#&V-_Pm;\Z45KI+TTl=.sZ?q%,6Ttz'zr U"nweeSyon[9HV:muV8E%gl%%Oi(y*(5'x=]Y4,ZLTGsQKtiX)R5,G]LZlTJ/rCIl U"bV,-)(cw8XOodC,bNuYLl/c<[utH*AhulJLo*OzGDq[ULR$ii:r^h$tl*j;U#=s U"?e>Y24Pb*tVvcZDR\?YE#7]tUPXk6[F-NW?MBnquV_rGY+GrNu59=mB: U">]>#CgLc8^z^hE=ULYVJY8VVd^j/-L\8kr7WdB0%.N:;D>R\W0D$Ez_hbM7#EZoR, U"Nb28s_Ee#Umu*jYW^yJw)N:73CYc^569HOqv>(FPz0vOlxauwwbeDcm^H>+?;4U U"70\$DuVv=zR(o?W6e1mCqJx/6ckzrFA*gUWRe[sKPXQ,?CC+MrK5yn,1ljlFa88 U"OQZc4TR0o'F1D#26ooXBh\>YuG$6D-RrL\yV_tZvB+[\b<>BPFXlkunRJ:?XF$slhaqD7Sd6ZFBRV<3>EJz>j6QhZp4#k$f-c]ZPHp[hm U"&u$U$bjC553>_dPo*Luf&GriR4nn7L4u^rtXfur\n^8YNeejLP1#TPdxe&M3DTP U"jPC1Q43Iu<^moR/is(H^Xt\+XPuSCd9Hgh0s]+mHtH^D<=CVu U"Iu->(,43,H$T;LIbfs\e[vY*oT/^Y.2TEb7W2U.Jn=Lw1JR5v5/zND=>lYNc,f^ U"D3LR,6BFPj/wq-V#Ao#rP+EoX3Rf.JprdnckPo:p\cJftT%w>H>'LZ\Xk1t5;DVfu[ U"6%rTnTpXtGG0?:6uvl+5tV%L4V3V%F5+SW3u U"R>]*Zu9rprbarvtGr^-M>QJT]qaX>tX/0OO(*F+t\PlfE&Tl6WV-p,6xr=*NV61>Eh_Blb%wc1oX&qK81 U"J;jV4=jtNx4\Mq?ox[4j4Dl+%Ej5fuX%F^3om6aYd+2U]Hxpl%e4xYq%jfdbx.o U"bifAg)cNttY]PFofEBo9j=fDHJEAg-enTsCsn U",d;ew+o7mFcoDn\d;MqJE+Nd'HlLz[)^cSb6bFd>kpGTk'5>u?Ye<]3.[.3imZ U":R7aNbFuS-:+EW>c(8\)ifTA#XP14,e=UQsCuFVRjU(45onqmY0L1J)Z'HHJNTd U"a,mL0N0rkl6'O>K\OR2'u_l,llw[BQ2pG%^=y.)_J-QPePYwC-*/W$M^^zSwBR1 U"29;-d/jo'+Di7,7/jL9#3s/,w U"a;+-msfG3(#PKrGMK2#h(?kVr*0t]z%4z#hiG<.[471ssl;flVOiFz=hS&wt[oh U"R$S:/rKzuWL(K4N,IR^R%p9e9>HA^sf\E*$]%\Z'E$9un2KjcwUybrk=kQB2#9K END SUB SUB V2 U"t(mkHD:efr#>[Op.v.[oS7y'[V%ZMeLkDS\;9nJ=I?zNuMui>;dy$:sDV[/;=yq U"syYN8_dEQ71\Pyxni^O;yrt[kh_i6)>UYvXJJr\\#bkF%8+u*Jh$dmK9fsAg%Pt U"rD=7RU]7.H[P0XtNgua['nDAWSb9mN%^ey*AzoS<8k;#L'K8.[n]T+c,g)'C3K28xNl7l]Yjmo<_0%7eZ;_X%>k(=J*pXD4_Y>e1 U"dKS%[)$d[*M8)N.WVqZCD\K^$FQI'\m%r:$PAWb1Q;*X/Qg8e U"MXkXu,p>YJ84dXIlS\o%u7Yst]A2NBclT3O?2UlH)e'3C:C?;)LcNGZV$>rP13V^2T:.Z2DB,#1AwVOA1*II U".fQc#dwquS;b:1'x':dGD+XR^oZCM0=Ds'dw%*un)/oV(tU,p0YjR#Q]#t15:>: U"H9Bw'bWN]+$kD2;[z4\d=Gr3],52WAA[AJal'j2nFn7,,nFv13u/37.QXw#Q,w' U"UAMZdwre2,)RmfANJIn=\d-(vu.6$5'l)60Yw[SHPalsz]Yw%YmA-wa[IkCrwLaz]ee0Y% U"'SWA)]6O'E.X9VRz-w+L)^Azt<12XIz_40]cIyBT*:78Pa=1#S*iJc'6jIi'8aG U"S7d]P)Cdq.F&Q39#C7gkr]N8x0g2\a_HY^mLA.(.yV6kQ*AZ;QJDCdp']NDz?pq U"2=\D=D]IZ]qXe=cd8'^ntvZ/='cXO$6'(qGeqR$seS8G%k.19d5\lXI3Yw:8P6P U"Ir)4q.]b%hqj*vtt-^]%t&Ud$s[SOHn8[iYKcETc8G6M0xES)8dfR)Cd&giB1vk U"i92v[Y2v#FLX^P+tL[.;Ki.n6Y,wz:'nj[C.KK)+Ji>ZR6HfYRmJ*IuVGH,N1ln U"6[n$dHNKEMmY4fuk%lv$lf$6>$'ba7I^XU)]&FC#aD)J&'YLd.s=ka.48sso%bp U"PC9FF^&wFVUC:j#hCI>[#WH:xQtfTWN,%ec*FK2+oF#nGCWY5:Y,q=hb U"18nOI['ph9p>w.o(07G9.Z)kb#B7mW-YN5m,,W?7ZAAV%H-bl=NHqm]I^FOL.N; U"S%6oOg/$RGa=[s+#mnCh92A,?-2Je9zTGhET_15X,hH9gt3Sj.%J2)z\)dQZuLo U"F)UU&'ee5d'?4])Xs)u*GnMg.eF>rIYJOkKHr$xTETY[B U"H[Jq7&XV\AnlO)-C=SL-*1b4&8k3?0pLN;68GniRs=heUU%-4k1LO^Bf7>O4A%w U"&G(?UL-qmTZAeB)^;PG]hQ/B'nGo5Eo>OVWD5+%qs(Bh_/alqZiY[##'*)b>1-R U"]nf_=ec[#%h'>VQ7)OW7M&]9nQ?:Q(PSE)#5PPSJs)?$\cxEjC07Gy.Y)kVJ))Y U"c15#wFZYeb_%ekiS(Q/nT_m;K9;X'P5^5c%c&8N.&fepOq9k-YGFvj?^O,DL#44 U"<^*Gk49PpM5R(q)gj#7JngwRE&DN3:2lFj&gC7_OOBL$j5'gAH^Eo(MP=.\7o%2 U")UYN&,CUwJJc%im8dXl70;T_6A0+07b6m;*V.OU^T;'gm%3-mGA_Z)c*L*(''S^ U"C'#'VJO&I?A(&Z[/X0YEglg%HzG%M&YC.Q*%8bWv'UFNY43/e'z.a-8eq8+SSJ( U"5e%xO#:,jTD&1\ET1HKX7WZ:BYx'^L4M60Ua9DS$Q?iw)5(T\(AnPT U"--p'g7$$=9p;nAPs>Ke>$04[OtCAm8O8v381u9,i_14Qvv(=]_[E^0]AVjcQX3; U"-ho:'^5c5D&oeoH[i'>\?M4\FcCZnVL:l7K21B3+jdK5BrhDD>HRg9A*iaFa%?G U"jfY$ht3=)>*G_N'\^DEJ80akrWD:NUB2\)5%.6kUfW>$:7W6\XjGesad&=6p4+i U"k-#x=T+og>9DV?'L--83R4I(m?cg0mujac=H:. U"vSGKNIJW(&)C0Cm\%TUg7DQ^0*Y7Jg2]AZ7_MPf1PGc0rr_^*$YP+)/$S#B-eY* U"h(eJ>?_8HQH(f;ipanfcY5brWTD8HQG&'1AwjgMi-1aeQyjieL=lRk'i%Z,/I\Q U">7)o#cYZX=bTT;_e#w3iodd3BXx8WmG=Pqr+9r2sF8KB:vSG8mXjsW'eGaKiavN U")W)cphQ5d7WNb-K>e$2)*MwniDlHjG^p&'H^8hTc^JQE+Iv3#a)ZiO*GjF.*.S'jNVPpEN)-)e6we0qY9j6[Bc_(g^3W3 U"BcI?%/b8G%xn.E_f?dc%-*uDYvMR*J\_PK0Q6l4)b8g.2o0ewa4;MUXo]M[/)N: U"$1Z*ipX(HLh;F9/a2f>uj3'0XS0XqZO)bS0HaWL3x[I^nWmIDIfG1)jhRQ+M[f6)jhRQ+Mcf6e47qLJ*ocZq U">T6Hu\ym6L+3S#yteokE7$M6u>epkq#IA\:agF11\(xOM/:I_voDYM%>etkJimw U"(2bjT970mg#\H2bHN>d^7aIfhr=6)UfL;77M2>etk)U2C;._Pv=V0b^itg9GYJh U"lmrrUi(g:H,$Idc^7ab(^it9/Glg$=pO'%*=U4N2Q*x9^XaoFwTwG\Iuv4 U"H#[:oN;sjRaiL(FhUp%+/;=7IKTkwXqc9jS1%tw.=?8\1kkdAt^Nmo992Spwa4H U"1Y2+fJk6P1LW0;t#=0O6$'dMy8D)VHw%=Al-E0U3VU1RXk&RlIDV,HU3JZ%Ck0s U"C0<<6Xk0sQ0R^)BP&04Jn.Uar&#;1c)Kgbcy[m U"?1(J_7A%Fk&)WRU4*TM.EwwKn09t)SIZ5^C8nUkA:2BCUnTp<:8RUHX;8\2Vs;.jn(PGlfV[VihML71j<(1xyvex-M(8tKU#O4Jci5jjWptx22J.4N U"d7K[obv?djT^7HOgf*g<.VLDhSk0H71C/=-V>ipb\;i4:zV?(ukXiCiK^1<9%r-7k0ZDz]M U"a,*[_uXI09>Dbtm=E]K_qamg)Z_b%TL$Je3l#uh=n.6TbgJGpUHT?'?BYQ.:G.f U"I>=%T.k**\xq1<\xFm2[^XQ4.\xDtX9q-9NH4?Xa[am.75-ii=[OjZ5NGh:;qNs U"8g;+B)Bx&&T/6dv_T=l*e8eO2fLHcE>:kjkLY^:$W/JLm:+V8[#GRYGevevkBeifd/*efL\Ig.p%MY'lB)+8rB88fg2q-78JS$;& U"w#::C=8e(lQK/^=tS[mP_D6'/;l,NZOQ5Vp)*&xY#\fm7u+9c)r^27i;Y7kV-VG U"5I#$D;u0-E6%,c_W,#3q[?HAS,YgeJbWjkki:4UA+usa]uV/fs4X/9x^Xdoip7X U"fllKxZ]hpQ:D#td%up()%9%'%[-%=+[SJ5+6f1O2.%%_e%%%1%%%%zu%ihqt%hp U"SgRfxf*SBfvkhI6KTM*4OYFi>+ZGxJ4c?.rx*(N$D58.][RQ;39'(dWeGHt*N8F+Ci=*v5R5/Dd]f U"*p;lj6C2[;)CoOoJM[YOf2<*NG,q#S;xX(UR'dSW'zIpeE:CX54_[NHl+\tg[Dz U"I6gYFgQoki_o1R6lXv#a:[H=w#=ReD2Dpr1X+95%pLbl*8P7A218A2a7Sn*%_o+'t:U8]_#zLm:,vI_Ni-=ie U"hGjupCx3x7sbT5j;aKs[,n3jx^l,eHQI<=N4-shWXv4av?^j'g%\OJ,$o=w>^'UMY>H3^=fbOht7YDv#u2sDvAA16BiHx2.6w,gz7%JmhkvUfh?6i-7GmlFRa1 U"CG7:j.9v1\.dS7KAt1DQ-oJeNZ70K0QDUHyTRhssM]Ak-2F>0E,\=CB*M:[T?<- U"'95>9Fg)C\N'ZT-bVS1m5s>&=20#&Pa;m$;hV=NmXn6Sf[oEW' U"$>\?m5YqC1%9fb#hXWXq[VS><&TWM4WMm*.H_%z7&%ORu5Uu]UC6fe/MEG(=;B66q(r4[:u=XcOv6?E\a_kduW%'j(eQjZ[Q$bg-,'xgI U"=3k3X,dA%^a20/vEU8XM_F2D4o?Um/8Ow)67Az?^(\((M<1.sqDprH1wrnkt/e- U"bpW/5tnH8PovQ&bug$SX75m*j1moc_30uBhJol,A6\KdXi\8ZD;M?Lj/^l6TA5^B#F[8G$[-s,B\t. U"-LQNa_#d>Hl_smYv)BGI,(Nr\.5sqm8.8X<>a#XHCK>,r2-*)/HS9y3^.^d##Fi U"qc.GvfK&/[tOW>QWhGwc-6(Z$wWFXdaHB[FpnC;RN$*4\?=#qI U"P;0vM9YAvyLb+i?Lwi+/WhP,JdGV(0s/s8Ll:0=ics;>,3E>oEEJT7X:Vb#wS=k U"v)ug&,rK;?k?Tom%Js2tB$I.:(ydwSfTBK1R5%z17Hp1m*cH/VYT'1aM),i_dL% U"op[S(u[8HEL',EI2-tsB);GuGJRQ2tt,'IA7BbUSk3YS349_8/VTwtQ$S_XOY^* U"2B2l<7Ml#3(m[)U6im;)iiJGHb9TXbtq?^bOoK2TRGx U"]*Ok&,u_en]nSG.R3l*9Fk>MK$V0A=WdT8T2Fs>g.w\^af8h_3$8)2Zchi#$E64 U"e],TqM'b,1Vv'uq1pU[Er(.xmTs/L*1+gw-]d8-1.[v5mwfLlhf10qaw40k_RO1 U"ioXE98A$uQ[h.3FBf>LNENwvmutNerZ5:kPT#gM;GtdMD5E<-Kp\'mNXF)Vu[nM U"le9Sa#DHjJD)=K_s&botx5+/0'>(;u^)ffIK*&08g,9GGY3fiQR23%(8iF>kQ#V U"VcE2(6(uQ#F_Ob#jbLU*kG.g*5:.w(h\)L(4J/P')c>0t3b1 U"0_FX)RV:%,s19A(LJ-&62k^uYjV])?0C$eyrv$T.O5+oQ)4\Vb1H\D(a+pY,L#U U"w-+wnSe1j[ZZBM;H\cqT$6akef0jPimmO0?/ubRoji&h*4oW35F9%C;VR_F6UKd U"0c7.EW-M-n2bcJ:mQTJ,\'Xg:Mc*8w8c&E)ugr1T1>7ltsZaHZG$RYrBY U"uDgg039FjD2,*<1;egL053=N';.eso(*miqi?qrSEq#)X7XhXI,)tGzb=&EMWd, U"D1jc:WLe=4B']\oEW*SD')[2l):hVZ):\\z*q;^XZ3oYouoi/mEZw/iQw'(T>P^ U"%Cb/v3:QM>Yp5(Mx'rjv.CMeD2f8GCm?1=.Fx_TQckMY2'Y))$OQ(*28>bL%I*A U"KQKx=fR92po42-+R;\O'Nx*US;AS]uZ1nf0 U"=/Lq4e1_\[Qqp6G1\Gk.1d#vFA:6p7?=ElbnY2D U"q3gvWerhl#:*,je[p8'I3fp6aXSJBv7'7j3Bd$szUR[0?_.b?(sG U"6Q#vsK#%vLm:2Pt#K2-qima,93BH\fc_n6(a9Oh'a:T&H6i#F$r:%q9b:#Q8#ND U"T_DciR5q''K_5,V^,Z9B2-0[=a:F*PLL.Hl5?J U"E9I4So8T0W5,.]&PTPjYJJmsHknjD4JCK?>k0L]w,#Opc0US2ZaU.6=lr';[BV5 U"m(X7'K_r=iV(D.(PqZEEju2>#,m+^2)wPnfn9%(OqOyk)R=)k[yiZ6xq\xQa>l_'ew_4hnM\zFq]pLN7a$poALePjk(WHI6YBM;.E6 U"=trRrXtsM'1KG#h%QurTP1uBaUN-5dx*KArWeenpDE36$^CbVibRWLDB74G-'>t U"9AA>>Wb])Y%)P^EA8U-u9Z^SkW)cB'G.P';m$ZNUS9#tHXPxtj>X9Z\s%-D'iVW#4H'k9_8-i]$%.jol.3rMFm2h16g,MQBwQ]UhWH&V64DMf. U"8fg3x]K9REV=#_9R)FV#LfZ7dWNJV<#S5akQ[x$\YK>#:?x U"&C&%%&W&%%%/%%%%kfij%nyStIgo,_#dm##s9#88Et,S6*A_;f7AY:Z.=ol0)-i U"X37V._7CHto<7xOQ)*k>8Tk5Xsy:5rD/M+NU+c.f U"7'8,nE%A/:F,_=4G$Dm4jz,?Du.3t1ow$PcY\8-MX13xz?2<$_j++lvr(fBbpNvnnd\3k2E U"/A)c1fUMD9o]c3ZdpYILD9Kc7y,3.gxL0[W&PSQep;\_;V95R&J(up%&'9%%9%' U"%d-%H(%SJ?Q,d')).%%h.%%%/%%%%%%%%%&%%E%%%%%%%%%fhqt%hpSg%fxup%& U"'9%%9%'%d-%A(%SJJv5;j6/%%%8B%%%/%%%%%%%%%&%%E%%%%Q)%%%ihqt%hpSg U"%fxup%&'9%%9%'%[-%z*dSJp31agr5.%%5w%%%1%%%%%%%%%&%%E%%%'43%%%qh U"ih%qthp%Sgfx%up&'%9%9%%'%-%+[-SJ;#Hx4&P;%%(;U%%%.%%%%%%%%%&%E%. U"%%WD%%%wq%hqpS%gfxu%p&'9%%9%'%%-%='+SJ5Z+f1O#2%%_%e%%1%%%%%%%%% U"&%%E%%%%U[%%%zui%hqth%pSgf%xup&%'9%9%%'%-O%3'Dp>#:?(xC&%(%W&%%% U"/%%%%%%%%%&%E[%%%S%h%%k%fijn%yStg%oup*%+%%%%%+%+%%x&%(%Ej%%%%% END SUB V2 CLOSE:IF S=207AND 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