'=========================================================================== ' Subject: MODULAR PROGRAMMING DEMO W/PDS Date: 01-31-99 (15:30) ' Author: Walt Decker Code: PDS ' Origin: WhiskeyD@aol.com Packet: DEMOS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"MAKEPICS.ZIP",4^6:Z&=13242:?STRING$(50,177); U"%up()#9%%OR-%ZDmdK9#+JD'-7%%b9%%%1%%%%rf%pjun%hxSgRfx.';<>[m+7w U"CN3xp%X<30_-X.BG4hFsdGoQr)O4T%)584zioW9)?j/c<_/SVnAYGm U"Pq98$kbJv[[UWaD4-%-]s>-K\?Dx6(cG U"A]NpNUdd']pY>\-A%/l]9;.p<]tA*:Nu4S;(fZgTR/^dsy?Ou2Dx8SK+,\NR7jC U"FLb[Ca$FTgPu)k=A;u/.jM9llu]S/)?0[nsW%dZkE#]cZ9gF?+a9A/)R)uH[JA< U"'3n^MzOs^bl-.VOqIKK9N[CgE U"Gi1JYB.N(b)EqK$(Z-HAHTt:b:(DJm%MP/=%:qq-a?2LhnTYH/I%1B'SS\0IAX.YA/f]Y,IJIvMF(*>n4; U"Lb+z([DivA('_$sFjJi;dK\9$A;j_fJ:fkj$+]#__Y6$QGA^)i(J4nje=dyjead U"xfNp_YD,,_?]&[W/8L8<1duKvW/oD%E-GJ5Sm*]FRBAPn2/w7[%=?K(lLpq9qF)[] U"(KB:IY&?[gqC.Vi%FY(kl6Bv?,[QwjJqBzfPm[aM5/Rm69NO4dLwhlwm]4i/5Y< U"U6>76:I2YK^Y5Qh8)uoVa.hYj3LXd)DkC)pDO524E9mOBwu'/sr_0tcOdSN4IiH U"ES1Bh3GFe(J$%nat7+UDg#VdN0u,w$? U"M%?saxJ#hvrAKT58x=m&z1.bJD&K\=j'(aML4s\0RMYrgcT]PJTEx2>P( U"+bUQ]]#-X;j8&YkqKIM#*/7YlON8+#A:jJ>EFpTk-bH$\r43jYb U"xbsav:#u'HhHL\cXJx%7/6';ymT+*3J2&3vja5kLJAStL&r>UC?g88foc6Gc U"N;/hqp3NfjDuhS*Ux4$6Tp2<6hPmR$t_7:/MVI;my89fG<\v73AeOmv+[X\N$-d U"hBn-s'-J3;rRz1ufrBCMf60uh-3s++W,F&'V$+g>Bh#iXOE_5(:a?0t U"3kh-'ae9&:nfcg4S:,gd,X#ezhDDb)A]:u1:J/lxfrHBchzpk+cG/G.D6qyEOEe U"\[q5nS_o3$+-KWeA[4Atj_N.cFU U"Q\a-%Tp$,oC+>4PGUi0+.fY1C+UH_'Kp#saZb\'BjEJwd(+ttuj;:3UScmTdF1: U"bDa8t*ss\isgtt_bC^gEBFYVo05bm'L8u9FnN[CdHu_MekP8&O0DYc&t2u//6b- U"9c/el)0)Mt5&4T&zsj6<0'='cPo=U;^'9Euk:+]g,xk(0a%wFoiTq*g6^a>47>lkob'mTT#?m+u( U"*LHH?qF(q]x(F.$UnU(3QN--AOddqBjJX88i.hhRuEM24%b(j5m)X?&eZFnEDE6 U"D]JM]uth)*<4+Ewc?b.p59ua[c_]hSzgAu2sEqDGPT7'rp5nJII U"oB/z0RFMxyGlLMknHe;?P&Tfwxh7$dt4%up()%9%%%I-%SA%dKWk?;:>[m]k$7x/p94Z25U3'lBGVNJ3I2iks.M)o/nA U"bT7UYl[hh%joQJpdE(yDENT=6A'Km#NB:yz&NPzzz]C>WH_F2+Be3%FRP0-+4oY U"iTCS&F+#jU*lp[.fA%YsH=9;9r+=m-z U"FUn[z6\lI4s3'>$[S)LuPLbcxkax;wN7m>%\jBwkNfA]JWZ>)+Xq>XvF/6\*rF$ U"ZPFqIT_]^B/C[t:WM/7a*be5080=6B)=0J'-Fg/ezNVAg&5aTYah3,HdnG_fnbZ$R0[ne,AB]ts$+?Nl7 U"0OhuYy))4BDX4AH5AjI$G?CnaRRfVhD U"E:nH,E4dc\L>i>mi.*Ok7RW9DY3GF+l\< U"fJ;-rHGt<(3L79qM;05IM-?DVA^EU$i$Qt.v,fYqBT[wGgfdQKk1MoK4?7U/*Gy U"FPb^N#>ZiqQ&2>DiOqe\/-%&69IDfTCs2fg+^>==Gt&4:_jImu#KRsg:sF;b.4j U"^BF/^nkRrMpa;D/DihXuRe?]AS<,HfmGIkygcD]UT1Bc;%ZhW8Vp6vq3>6Y4n:/-]lpV[ U"2p:$)9j3E_tQp3GAYqIuoqPj#n%N;YQy&W?c'RQ>;toP;;He?ztD%4sJ6Jpa]$9[pTo0CT U"iwtA%$*OWr6ls.d]7STa$]6W)Am[w_h?D0clp\>C*M2YagHg8K&**e+]W_6FZAzciTR[U,l'6KPUory9bA.:M(Vqdge]P<94QmE,yNnT#b[?*+&ee< U"mHWU'V[eRniK(i6W?B*]VYs_2F(1kP8eHfYtE/7:+WSzUv3eo#pj>;^&4B4zSBq U"rw+BZZBQF>nMvSi3-ZeP%Be,/f)C9aM/uiY?UaBqqQn^_$RV.h50->A) U"DoHS#'kNO=JSop4ko38JD6IUz%dcn/.[C4L:GO>5\M3paWFFU5wlfn1?7gYKun[ U"?]*8pNDR8+]6tKiC3LdpHdH_.oLsYnw(49=R:$m:0oDQsWBnQXVvHqRzSB\7o)7 U"p\-GbD)f^PP)%EZu$VJ_B]-/$TTJgtk]d:UDx&lY[CuQ-(E>97(*$.m_[%MjqkI U"mMhrcRG[Dyy%f1Y5g%5';sXe-e5V[xckQCE-aFgC(0EggJ8#9XU6g-1O9I(Znp8 U"Etk:\.n7rlMHn'*lv#FFo4JzJE?f-C/J7%Xhbra\Ib:+H*Tp U"H^=Fi.FrN^I#X&=X-ohLn,fg'2w'Py?+H;raMlE)18TPv^?*[yDwub;8TgA$X;q U"V#/=L(+p#m8RJg(ZSc%C,\]&G=#$F*['*YBHV^GP.1V(Uc2lsoRB?6t[kB'BmlkG>8(/^UyhI3?*;2:H(UZBt U"Z1E;4kYp^%Lhp\[j6bG>v$]X9zoa';=E]M/-6EG)eg3Li)&pF$F^5R%?S6EGtIa U"CX;>%rrcg0or3nse;ckAuSF08>1e47PA:gWN0033aKx1HS[J;YDQ8p3L&I#FPk> U"4_KYvcUCYjaX^s_,LHb?BucF4_C5xu*5q'\j^:cur$_yWI3*7g[r;Pf(6Wr U"5QOehr5(=[hqnhb]Uvus.29(ti-YieF,d_nNw$B%gv&c>Qdrmetb>,Ts2wnLOV9KnKo2dX; U"bjVDcwdcf6xt9H.TRb-4=r/%d:Xg:F\J,\x4u%p()9%%%%-1%SAd:K-Mb%Ph+%% U"%M7%%%0%%%%ufq%jyyj%SgfxT&c1vtfn%aDuL]Qpjs/)T&*e U"0KES+TlEm0EU&,A9d\(*s<8S$Um?8UKapI(YGS:+7K-s2PTts+a[U1),>DC?8To U"%G?&^$N=N$l5<-KLcNn?=I59r:)slFg1Fvf7W,DHe9\IaY%JW1E,[s.=Dlv&gQN U"Dg<:sL(*x+H#](\#pW)+($?ad[N-03b-A&be%l*rIYR4kY663u[G7)d6T2lisnP U"MmEj1BxjRR[I#.BSb-ehfCWx61QOzrJU.bAHs#?J[1 U"%bZVFv*JUAK=$+VXZ6gOzsAXm<$taCpcdf83jWR>dN7snFiXktk3?N-TRv=wV-d U"NbdiBwEDGZB:<9NPoqAqPEpr&Q9S\utZgEq0rH>nmX1[PcwWx^?)>bgI.x184?5&&-1b7-B&Y5jpE2CTdTa&W,Rfe[#:6=%cnjOJKf:XLN5CI U"C,58=E+qQAAOZfEO1MG4YlMH_4&sLGRG[%'%yIhV=ak#=C&5UUj?xMa$aq#EepR U"/0a^kHMob4(#4;6OycyUAI5),=Mx6k[?RE9sEQAoZ-Xwcif8n$oT_\\-_mxk>sB U"B]mOt[FR7de'28eCQQ+0Ze=xFOvJ78pwG_dMcoQRtDT(PCo3kS.77ER]<7(UDT> U"t+)N;Cghm7k*L+J%.6f^?bn4TvWSpq5L:#e<4U\5iaP;>\?Mj14yq,OZJRaKafR U"7plZ_gN&YEyMqli7SvISeJq#y)=sBrX-xo7FOGLxy0Grhh.Y4VG)PGQP+\^GtTv U"t;On/==WAnj^BSlP*04a[P6tl73D6vg?ej\tev43,4z\Uh&E-_BQs>8AIMBk.<6[xqT_e8CW;14LA>9Vb1R)dltdCz-r=%O3>xQ,rG U"+P^aln.rFLm.X6994Dv=5I9#^-MG=Idj-MW]DhMft5Vngo]QrbX:,>cK3'fXI6^ U"iw18i8'-sr4^K4qkun<#AaqX>KH&)n->#iFM&%Xj3giefafGKes8p2wsAc$L\9X U"10(>K2zt)Hg;)eAa[Kk4dWD;-7$:9,R.1w-l$XWo(kL8.1v9cRkNX:-e,7P)l#F U"=rmjBN%c.KW:t_ILn3L69Q^Ro4kapns64RnAAqn_ZZ>8#WkH+ U"\Tg U"('yfq5NYBC.kjBu4o6x#4ru7wS-v2)7GxX9RXzBe*bkcH/xwNJ,YVKbFSo9c:-l U"OA-X^Z1FIYBzc\=ADkLQV:\\i9TpR$mZVlrPd))>M4RPR:_Lw6g%RUkMY6WZ;;G U"r3yV#JM9F=p3g6uc'M'nKoWefh#Z2fL$;%[c$kxu U"efZ/%3?II/K9hlccnrmMni.CJN?<2Z/_:&S)XI'TwM:o>0u%d8c7v<^+XbGxy/V U"[ZZ8u%p()9%%%%-1%SAd:Kz7f*<^>%.%9(%%%1%%%%xyf%sifw%iSxz U"FgFa:t>T1+9X0mdj5Vo*%8LLsNL04n%7VS,a(I\uBw U"sD\hFNcuZ=V,^0k%*(RA]A3GZ^>297]QpL/?JW8-7?;vP^_?eUirDmk*>R8i&dc2njj[_TbtX[dof[fJjJ10aD_:#C0^H8T7V(U0H:0CW/.BZY U"rk6A/UgT.Wj+t[^3DMaSqCK]n]228ccr/cSPW%tM:pRl=Be4p8q*I%?LY&&)\?K U"?Y+nHk)dEfOT.O1FP]k&V9nCM-S\nKC#%;2D3bU[(mg U"s8jx1?#u6C7XrwVQq/&:AE6:R2Ch5^9dq-gvQ& U"doj&1=;F8[BcB[3'r_jf3U(-(j'Y['C+XKkGZbcT6C4WAa3%?qZpmNkhs\OQEXV U"4bI-ZOKc9W6m-o&B2/f\)eJRUR$OYf70(IBJJv-sC>vQW;Z4=6)QJ%JLMO>4>jJ U"E>/_tLQkqUZwuh.?8nVcuahRd7VewKbi9ZLO^l8s1Q6ekvC2r.&dc.;kBdkm6vO U"21#ZPk0J'bRU#].j+S[;dt=7mL$pq0Hrcb6g*]we:7[e,H,Wv$DlQCh:Y]ga*7? U"w()KR']eDA)j0dZBYQ*B5u7b*9GiiLfhHu<;Wm3)XoDPQr%Q-]Z6'#n*1a%o5P+ U"q3;G/Q[(Fh$2vU*J),YFC7]ORT3R,2t?5U1]6:2ALkU_O88Wh4^,nNQ4nNOn:#1 U"-x3dAUb2:,ksnI,Fn_jk(K;CSN$j4'=i%Y%3B5DBS4Q60oP%C+Hax[#I;R'$7Ww U"H5k$^3N^VGG/?B\];2j.g&qZb5AU[Wug&PLvb3]<,EE3jY2b0kMJrW5ZspSm$[i U"r'[Y5a*^Q.rG70>ggKQBwHrYA?N-hDv(74hH^:W>WK3N'ah5z?2AKi1&RZ1X U"rr%W$4u08elHoIU,-(LaSZ/KI2ZDm7lJS+Y%FG/Hg[Q)':9%:%G=_w9XOr#6LM- U"dtjTT$ON0L:K$2^ZK?>4Lqfc-Mi9&zOgSp[(;K2ST;B%dip;[K0sJOWF'+=E+bW U"Uqq5PS7r>#dwL\q5eZcFra]xYX)X#Z-['P*[fh<&(ZmS]_,wo=f4Ki4=M76PcSj U"M?)9'Ih=kZuZ,Zlw^+,u%bXoX1QI%A>X$uiRAn_C(#G7uodnnS:na38KpINU>C6m1dFu#%$G U"TJ28F7'sQ=#nk3PR=4Q=-L+2CinQS6l7+$Q>S_En/(iYSb*r5NS U":O'(O2$zl.hIeqL^vKG2vxQ(x2cPUVkMy?C_v\=RQX0:l^mY[J4x?)/5#&fFMww U"R]sK/r_])UAi=<5EDoZCsAGkRr9Du9PjJ;1?Q/t:X;TL(^%g+'*$gC9T9)B+2>7 U"I:nsAVDF]I8\iI2WAlAJvECNwEc U".2NGT:?P0\%mx7Xn,N54>wY%26Ve8eC_kCYrDx&AgM.p<%k':NsTl$QrfZLL*ZQiR/;5G?O\*jJIq'X1ip3d.uYIC*=G;m#NhnKHD/[.70R&&P=8F/cg0s U"KLl>?sgTCltA-6U7je^KEcF6rG_?T&TwPT,OpD&%r,kn8tv+5)4uQxHUY:'&NI# U"D;aj+CJ%FG_hr.M:u##c\] U"Ybtm3G.a-0sSZ*=,atu;Ru[l:z+,[c_EK$Au,+2ZS_=CC'n88F3FFY#,riai];% U"a[p]g^#x_mnq/UY5q/mQ3;WeY-eGhT\_Fxu5dImZ+C?NB7(kAMpF.WXVNOS$nH* U"(fD.o1q$2:m=7mUjt3mY/TOU1-QEEb'oNRGltcXz-QTQMrY8+UU%zbGMbc0aqQx U"I%AYoBre3%/0uR6Ldc?tCSp2QpR:TCT$35/4)1luh][Ri**WO#*CpCDWV(9-b^X U"1WmF+Ok$0.iD1Jjvn;$tDJgl*se.[O';_TZl=>p1B6#)SLq)XRKU$WA>_DT1Ovc U"U[iTdUd*Gf-(SuKKz\wj#Y,l U"KY[Y1/bCuE6'_eKz2j.hVVqkCch7*bLV>#D&/,p6^_.9P6HA&PNK/%]rFC.Nwc> U"Sc9Y[W:xYRo*'&FM%IErA70r?;YRE6Hg6Kw.LtCn4o/:12L5out/n^klX'2k'Zr U"m;/U2qX(b:eSNcgS2,:D1i;[SS#/-a:9^(NoG7E5x5F8=MZb/jckIq8WOpGFC:s U"]J-Lo+A<4GQ\VO=9aq5(Y0HV*gw(%P,&wCl]Mvi$9r?^&*nx3Ml'6>93_,pi#0r U"T]Qu8iAyem^gNmbDpRL[9)ELx1Jvj3*?GO00-e-GS.NK'[RoHm0EMUH5j>D>AO= U"O0PZjR]wSvxHl&I;qF)U'o(>yGPYWte,DPe'r;ZrAKSbN=\a7g]:0F;_Q3-Dq_0 U"?,#'y484.v^9pJvMYi/pZdY54XXLl+q^,190KY+Ad(\]F%QpXg)G)fMK$*JBb): U"NDFfQmR\aU7-'bp>HE9x3OsBiH$?ml(uQH,iibDeCmgRpWQdRo6LG;.6y7O<+U[ U"?QdN*$HrHh05_duO_c(2yli)XC[[&6?o$=iiRHX%R0$]n>qYG'>>CMqzU=?7BeFh^iNb7rxT61kh:\g8ahVggG[$Zh)Q&n]=NQHu,# U".e(e0,3,&kmnix0($/XcWc6af)k_0 U"kZ,(,WYLA#&%iO%<+tasjF\/[:wU,^]?t39NbrEj37%99='1FjFo_sk;NhL^p[h U"n$L(CEk+zkkN<$di9\\]T$vMDf-e?kqxUE2+:Vd_MVH*7_l]KKN[lZ\/Q^3$Z?Y U"lT4,cx=QO/<;7)ML*qH=)mRMNSE>Z-l(r'DiI1eQ=J,7Y_&ekg]&tZ*Fxd(slpU U"9(9j1C#pL#]JCN&Oiu+6RCU-5?04t59b8&Cliiz U"K;8wrBW1];R^hgLOR%%b_cGMM*WD1zef/ZWSuW5obkiO,ufAjRULOz(e1O59_Is U"zJ1/8x=DMuUXJ5(9UjeAdu.?DI$Xr/g5,r.IOYdrbyFEo]=+)nMhv>f\yKw%ecy U"dS]9)^Be(_9Q]STZYV]bA,hWD4([(SW-Vm(hk;$,D[+g\vS7>FZ/2xm$:Fc&h9: U"wb=*k5G)kpFyWZN())s9o]K<[V+?R+XHV.8cn\&ASUZLPO,ZT^MD0u$g^giOrUw U"ejKC-==B*lm U"b[nFP/dI%-'9d7FJfVn9$WHE]*qJ^9-TJ2.[VLD$;jg$^+u8I]c=4&LUo+XD9c% U"4%JILSt/&;HjYiMmxE8Lmz^^Q+Y5'kD U"94RQ2yuu0m'SW34H=;PwBM;iYc$VVn:Og/_r+TxUu2QPBjBZ&8R$qlB6abLmsp. U"qTD:Y,$QBZyjZUOykCo2*6q5#A9fb$vI3:2Zq$t;U;>[gkhqnf;]Ma+'5wRv^Pe U"?QghEu,'ARj.4^o$,WRK(IyGgkhHk9E+(&6n:xLu$UHbwtHINB;)TXGV]W+t];z U")#>XPJWE6>41f;G\fcsPGZ=7dIAsVX5YGS6CnJlaT4,l?.*kPKJ/MY%8uZB/a>( U"#)B2B+#;rNA)\_8i]0X/:<;z<'Nq2U-;#?aD?*TaT[JCCV3nC8^=0xSuYp2Qr,x U"7[97Q,Kgu$z_WC$V2q0*yUhs/;aBf[7ffU)]ZtbTnlR,9.J1B-<\:>IEV9;IP]&A<*MZq^Qx.7yc:(DDgZH,cTd,(aj U"-AKc^F%&p3gjMEkAI^8$;PSKg19(+m%u7Fa6d=b(G0)Z2Dglm8q7LEGTmIISC1o U"Q37erYO>5\(AS\Cdc*'hXF[R.9Ldbg&+7jc5RY1SS-ijaC968<44D=a'qu?UV7= U";A#<21Zk4mmKF\(me529s[dk2okJ328tF)UUuKhbg$v9b8uR*$d.rvs.D*6vmef U"XXcHuF4Zno]?-o&8&9i4eVm1ys:2ZCcsp3m'I7J8:t%=mE&&/0\)FEjp2wFQ%K] U"Ve/)VU;Y-G5/8R^1Cq4y\PCII(%PCO=eQx>,Jw4B:)GUf.z(34H[#&CS?io([h5 U"SwDFbJ0x-3gGN U"<>FQ7aA>uAIGM*x&04Q)kq0zWfE,B'HYm(v%*7=L+NS6gPKwDuDd_PNwUV4t^ZY U"BXpA::*Ji#EiLHDDYg?j&3V-_>IssKKT;ufYf'HQpUZl.uZKn^/3>8dl0P%R(8U$Z(F#*]j/,iDl#H[YvUA$^+[e>eY]':in$ChrUGx U"l/r%5HkM$.o6n>De;J=_5XLmqS62GHrg5Wtmn/J4$gGq)IdTq=(x/3#oa8NlIKI U"0;,t7Peqw3m,=+Qe6sIHtY4)I9h'?^U#5ZLEK2&_.%ZQ,?PZu#gpb2EG>tfAuY] U"tnJG]90olX0DC#V'.3#e[WJNZK0Fx_5./,Vca0#a?]A=E0p$fJZ9sKG[>K>[$$0 U"9V'Wazi:m?Jb7GZn+OAhj1Yn-bt-%klJoAy4Dge5W83aJ U"0/MBd\:)m5j)1*8P9iNSSd=+WN3F7/=B*'w_aV3(rt=Me1GEd)w&PmKLYOED)Ma U"6[%X5),3N=]U#PyV='+cg-l'bS$%&-b&Mj=AgvLE>P?LoJW-A5#be1Zo.AYn%:G U"(,5FZ^#8zN8%E%,0o&I)n=b)Xd5v8BFsmu/P[*SV0IXv(]YD&wTjNqD4>[;Og+% U"eU#f(DPN8&'MLR^+ypqaJIo3.C04[Y=w,15:&\<9s=9eT>Na' U"xCCi[KlbJ\z6[FVqEnCuG$CF&03SvK-vArjeLI^4mbkExI)>2E-0 U"Kq$NCGu(.>g=$rpG/*poi\_6Ti3-tbjI-3Jt50TIBi U"ghcVGRR_w6S-:JTUy%kyZ$ZujT83$$W3upm%w) U"WzbOh&YZP>o9.j&vui&jc/yC:in&'O2M[ U"'ZLGTd)mb:P7+1mv0BLp),,&.nLrfD.Q9LI=Bwhe%R*+^qQw>UD4smgF^n62kU8 U"HV[Bd:d4e2k:*Z6A][*2CVi0vR;D9iei\_]9UVSP-TS5Mg$pZE9Iw,tFbn.Xc*F U"6hU=ArI0gl;queRSfU)&(FPMZWF=:Z-tBhBTDVd3DP U"vr[i/_*[h)esW5^_6LV?s1-QR,fSV]KUnmT;.&0^[%QZsmRmX]gmnnmDE7tK65suPJx U"eblmtXtk6vrQVt.G'(wVMQodM^7WRL:_>2ng\W5[[,vufz]nPhxD^;F>WJ+*d2h U"(gCFdAX887+FEg?N#Aq9)JrXp0(COx*c*^[Gd(_].NtaJLZC%N&%QRVJMTiKq)N U"Zv.?CtD\.U'jF&HoANhjXC4S%P#1(&E-qY&YsEQbL9Ifw7pKrz U"h\4?^Hb](y>t/(NOnWB7NJ%zFmnRY?oj?P:S[e7xqt3Z8p$nu2Vzgs;=hL9 U"4b+?y?\yY[C-li[Obd&a$c%B:nI0zge%%BZ,(>9.E2=49SnpcXvKNTN U"^D#$Cf]9V8Jdj[AIf86mm&LmYV]iLkk,.-bihmqFN0%%(9(%%%1%%%%%%%%%&%E%.%%B=%%%xy%fs U"if%wiSx%zgup%&'9%%9%%%R-%aC[dK5m'/+R%%%%\%%%%1%%%%%%%%%&%%E%%%% U"QW%%%rfpj%unhx%Srfp%up*+%%%%%%*%*%%F&%%&RW%%%%% END SUB V2 CLOSE:IF S=32AND 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