'=========================================================================== ' Subject: VERY GOOD VERSION OF PONG Date: 09-27-99 (08:40) ' Author: Aaron Severn Code: QB, QBasic, PDS ' Origin: rlsevern@idirect.com Packet: GAMES.ABC '=========================================================================== ' A much more visually attractive version of the classic game. ' Even allows you to put spin on the ball. DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"PONG.ZIP",4^6:Z&=13858:?STRING$(50,177); U"%up()%9%%%#-%zx[3HRQ(bXw%.%%j&%%%.%%%%yn%qj]SIgx%4HA*2O[U1j:]#3 U"1Z7SH*,&BuH;[j'*\tK#3gQgvS2N2'8\LSe,3tO*p]*u%p()9%% U"%%-4%_u3^HE&P()<%%(%j&%%%.%%%%ynq%j[SgLx%<_0J2OU.-i#,P&a&V95Ju[ U"j3YMp\4G9I)n:w0H(#vHugLeQFST2r+;R6k=fGBk02B$.fJ$>%0xK5EJ5J5y,5x'u%p()9%%%%-. U"%s34CH4YE%.q%%(%j&%%%.%%%%ynq%jZSgpx%6I.V/OUR5iJ>j^>a?_r*,(E]P) U"d(J;[6^pNZ5kAGr;u/e%QOl^=e3%t:;6PkaYd/m(:RR9;+CFj)NkiR7wUg>j%Z, U"uc2)<.up%()9%%%%-%(Vp3HEPtIl&%%%%&j&%%%.%%%%ynqj%YSgx2%l_f(3OE1 U"a)#dqjK'KG-,ZpcBAi[)k7Z1Q1pj=X>42(8Y]&)b^n3nNcnK$?lXXV6$%RV,6&4u%p()9%%%%-4%Oa3+H5aU(]b%%( U"%j&%%%.%%%%ynq%jXSgCx%z_9::,rP#S)%1%6P9;9gsn9[4_SZrMub#%%%j%&%%.%%%%y%nqjW#Sg U"x%Z#^HFu3#?TA U"?+j4Yfmte-hpuLl+C,p]L?mr_HB6E.&V3BI<^%,CtaI;a-Gu5xUIK8r/raBmbmj=3PwI.bP=>p$I0Ta33V U"S-g(ocPI#a=RVhiG,r+Ms'X;H9Z$qCSM.8UlX9>Zcpi(ua&w>w+i([oiB_$:P$: U"bp4I<$1RLWm3^-3=AS?FG/7(k=0l6WTX$ll5hhfAZ[a43AqDw U"qXNe^E2_AL8cDbhk?sWANM$9DarCHV3k%v3kiDto,CsMdt(XJ]j38s>G''3V3%k U"t$rmlb=.04ENXw*uD0so$mMqXnDL$dlE75tHQ3dbB%m U"-OIzl2&PMkXVPvxiRnUvP8Rnmov.eHl9wkRGnnd4,VoMk1+Lq)2(cr'F^]vX.Oy U"r+N.7JF_J:$8YlUGC(Mo6riaU5mRet-ogAPTf0;D^Y8a]i--BVFKgA?BWCKN[.*o.g%i'7sbLR?K;a%gMX8bwK(t?vSNJ/ U"(6q8C8CwR74S'8:Nl.K3.Wa,Gi6Tj<[5>0NJm?;[xb<_y/U58':QF*,/In#NR#9 U"r^E[C$,0tYmMY-2km,9.p;J6]*BmdSk'c$0kniZqi6JyLiTeMpN0MZ(Y.u[gsB7#]]i_K4S5DhiF U"FwNUu1#GblLdZM5$WZS-/Rg.\lJyD[5,9f6<6Nu%p()9%%%%-g%Q9E.G+.2%%O' U"%(%:1%%%-%%%%uts%lSksLyd%*,=eU-?^D3mke5[t0TjD#M,Iti,v:.sL+Hy]o< U">iZtOltxX,Y4NB:d%7G)B^h3 U"6IB(E/o$i*MJ)kgj#>0Am;,NL2B:m#Nr?9Y][eF0'o6+I;pVlq_;DCwgd#<51z+ U":mO.(x+8g0Bn&=LyMst9)xK[eBR5_TyNeHO>hLwZ+BeEmv=]G[n_Rj]Z\8N5>X_ U"2OUEcnijXC$2U/5Yss]DFIPDEvh3%Vkm[cWv2CP;oRAZ'1iL,dEQZtN[*mQps$Jj1yesXf=sZ%UW?V,11uM;qaZd3E7MJQ]>F?SB$vGe(AOTNyMYrwo4tci U"(?#kD&?9N$='g%ux]+1/#9qMxRk+9p>(ZM4ZpEa3eU^Z0r4LBq*qFXnPreHH< U"pA8b/sjf[ZdU0QX79lB5L%L>K%p:mGVJnuA]M2EX9==y#9&W':t;8ECinL:rG:r U"pLg9$3/qOX[(#,l]Mv#]kEI6e8r<4MO0y8h4:9X0^;;jUVX?%61>'H(DESAKU2_ U"6p3Ii8S-Kr=GKa*4eZL,?OeVNf)Bfahvg?PY*ef,WrsdoNKKk6gq4VU$W U"/gH6&P_R94vGO]AlO(+Q.du%p()9%%%%-=%j*27H7VX&Z>%%(%*%%%%-%%%%ufi U"%WSrxOptJ9%C(h-/R'R-?%%%&*%%%%-%%%%ufiV%Srxp3tJ9C#(h-R('R- U"(s(eua#[E*v;3s U"9e(+wu+41]$q%&%up%()9%%%%-%,B(2HogWiu%N%%%&*%%%%.%%%%gfqq%WSgxP U"%tJ4%C(h-%h%(,.((Ra(=O=WA/E43LmPP[-559i.;op&#+](0%/%up%()9%%%%- U"%+Y(2H)b&;5%E%%%&*%%%%.%%%%gfqq%VSgxP%tJ9%C(h-%h%(,.((Ra(=O=W#w U"5K[I&)G(%-B-x%%up(%)9%%%%-%j')2HK6+,+B#%%%*%%%%-%%%%g%fqqS[rxpt U")J9C(%h-h%m(,W)-%B-x%%up()%9%%%[-%2)%2Hxg%iKE%.%% U"*%%%%.%%%%gf%qqXSdgx%t)J4C(%h-h%%(,((\Ra=9[=wWk%u658.d0p(&0/%u% U"p()9%%%%-m%n/Q4I?:2&*^J%=%7)%%%-%%%%uts%lSgfOxfL:bFT]+QYpkb#)?.23W+DsZIKRClf-,g**[of:30xDNQbA0\I< U"3L]Z/X\$#&&HfgSx(.)+#ILf\Q]].bWm$V:l0U,[ClVqmZ0[5nlF.M+r2,S&$:4 U"T:S)ELAJ#*(^OOeJ=#h^kW*\M<]Z+7qt-94nG=CbUf[C8mvWr0m,9q7KlD-il0R U"IN+R(rxp=+eqftk]VZRgkctC/pg[G7pbe U"T]]JL)N#LSp-467tdU1LSJ,*mHB^GPXUWO__=:eV7FCMYG.;Za=3df:;8dokd+2 U"up*RSjjHK*1C7N>M+CTXM__]Um+C#D8Vasb]-$:Epdw U"7uj:7sdUG7Sfp8&/-=o0-vc-?p.Mcf1v5G*&mTtLuA-C4I1E9W7V$n.U3<]Q<-2 U"I#[%pK_d%n(dN[=G]?\B?M&vklXsbg;;We4XbM8F9uZg^2ZVD-_I%#SG6pl,?rw%[%/HPl)#%4Zo&fR.y?2U'9#pQd(.oVYVvDkK(p(O?S:7O:q#tD)sqI7nJKueoF& U"G'7rmJE2cg[-8?To1-\L\VmVgI6gUH]dOyadV'y%?<0o\t=Np*DAVf&>77]DvF% U"UvU(Ys7a=e^+x,3W_CV]2%=m[%)08p0rsm=_t+)1=BufPWL4(,1NKH\1DG]:Sqc U"<4Au_rR_Ldgy:O)'8IhsdhpF.&A<$T3W:_/:B1] U"^n:2>'YV$t<.'7PkF;j(>Tr0W^?vQ?.G7o[,r&o%l: U")%OmUnd>S4k'^]xwV&#szm-%)J>6ri.J>]=R>wjT]3/^kyYFRO:?\Rbl02'mXWT U"NnU=DI1mmDn>+Ld*j>hY1D.R%And#^a)V[8O?WOsgHNhYBO&'poT>aGl,gA[cWN U";:Y5d=37rj_Wr-O.RtaI9DBDX3PS7+#BuxZsduDDD,'8fCB7=aME9iVY2+LoUT- U"TYecTqs3Ut*2wk.ZR[P8-MNKNB;%,T36YYFE0F]jG]OQnOTAbU2V0SK6.HO&mZC U"f*nHR'3hEN[aAWEV>Kw%d'*>)x:J6TEtxdOjL7qq-1I,4/7jQg(8'Hvq2d*agBC U"BsUTv^cF*f0/eI$a,Ygey]_[xO:g[l$n6:/\nKTdWm\q\P]F5aI'\LGW6CmsfsR U"O#'N#O>?hWRS6\v8w'djEiKc_1WwCi3K;QyfJ*cZs-R$&Z0NzrSG4WsNR>KbIm U"ph0SFl$H+$VH+/-kmTqHt1'G^+o1RVkf[ArRkP U"(BArH.S3HcTj,P.9q3'_DM[Xn'j)$;xvh5exDST'*RGw.'=VmnpZ[g(YkAetCt] U"EAt(OpVX:b%6eM^9W;kb9^Jc)H$%M([xS;LO5A47;VrgaXEa4V431%A,9RfiN$z U"Kc*qa*]=Y&kfSWzfC_nLErcEW\K^v94jHFq&?E^^hW-8BHU1i^Y;d/iNR\j3hQY U"STE_=B2KpNcTZXM<,_QR_g9NBh8QPOAcq5ob9O),w%6i.0\L5*.Qcf]67/Gwm][ U"iK;m1GsmiefDfgcAz:Z2UV.M\.aoeTQ\0sKRfdOGCB'P73A1EfhOxa%IN90]Uum U"FCk0&ogkYRQ'o%.c)UAlDfEm4R&kK.Q?$%#O,5%M/7*'wZ^e9Q&?mZjK>QUSpa5 U"D'7ns,k^*i;t;78;*/uH1%h:qku%B8)yG9fnMf;MAtahFO&:CUNf;Aqt0I_Ikn0 U"cG*rMd^Y93G=U^UqPxOY)Jdl0KpNw$[AcYPn$=3G\VFGsq,E^pIiRqM^7wi]Y.D U"UDOPh]n-26R2[]5kTe)HF3sL/dnb02SW,Xr0S%]cv%0_W-Vc4_p=mrhumWb_WRb U"o6N60kspEsgs<8[3R2]bn9u(uNq[5u7S^CJi]bvD-4ap6-9A%11ZOh&2g9Ok++I U"u(J'>Ot1+75%%rZeP1(7x&'S>e$+*Aa4Mx^%>BOv2h8f;s.g>uUSon):?+CR(e5 U"F2:#)WkVTIS5'_1sPMk5Igm=8^WP=_3?KSEfV^y0a;;TcOdzcFfLZCJ:4XR+5u\ U"GUW>Xx__\hAf_63l:5A\-bA\5+8D)R_GSUaQfUaSU:_QU_GSUcQ6U__XTp;1,9W U"E$*W1rAe9^#WvsgKHGds%Jt5]9tBnW%o(Y5=b3>1x?bfiKmzp'h/m6>jV>K U"LlnL+0h,.Bm'cjxzPOug4u2rE947x-[wQqIrm>SJGLTG8F\j)z?pwKCLg-dl4HZ#WgBt=SY[.5BXEmDG(Wp)] U">vn.#sj)V45U9Szjw'UGfwkpwbUGY/18Z1AfK]TMZ$FU'$rgTbkV[5^Ypn:8KLZ U"xxJAO$5H1;aM\7KNu)a3.-uYDa=$1BV3z^0X(n(zI$SIKo U"eS:jp4E07l-5oJRC%fLPeWYdBiuf;8z;2)ryFq'Ujb0r/+fgjv:/MS8qZm6v?Uh U"qlpMhtQBB3*1DH)paL<%m=k.(.,rg0$m_[^%8r_Z,jnZrC[w*-$,<:oOyNcC&EN U"PK%AW(&sntN7hSk4O#ufSO? U"R/N:h%Fc_Mcw2htBer=S#7e)f\'D0)=%O:I,YlnVk,w(M]1J:lU9vik5'87,l_\ U"u-NhSuu:iqK9O0ua_jh3 U"Y4\Bat(1Yg:3n-2jN^9.#[-d.8bK]N*6fB6R0%gclBlW=KG*Ko*Q7C)_;I4'BZ^ U",]^Wt9Br,e2L]w:w8_jhacY'RFX,6BKjTdj*%IB+xJ\l,t<%9%CkOT:+oiU%w.W U"%DTVVbpNR2U%i4G-[6WV5DaVGTFqc>WqYQ:+s:.AS.J(p9uw-gw=X%4HgKMxj5& U"$\d?JoD1K3+>iFVTTtYq+v)?5fPn8.9/DdX0xf0P9;dHJBiCr0xMVUK6ahW2p#& U"dwU?>R_?X)0#3.lS,T(s7SyKak%BU+Sa2'a^2DJ>teEWwj*EGlS^[\8OIX3KmXq U"f]>)>M$TMKO*%2yp(EDA-':ign1(SL*0BW'K3ETKt3Lo;B,l-FX0l.El9g1CWNs U"TSgM^*j;.qVq12t_-Te25OMgYunu(S[\TjNVUG9f$:iWJww,n\4vzHNHwSYrqmM U"-e0nW?qXWf3MS7mU/7?ey4bSVQBd24j*srQ&)ay/63Is8'MkdECS0b:E-I+:*:Q U"4L3rDv*:WBvJQIJe)AM,oxvIYr?tEjxkiaO;;boc'Vp0<^y-tqKq36dN9rBEkA>A.wi5k>uBYHcGmd\VXmoP_m-jP]Lf?bp;I1saGuM_E)?W U"7D%HrRPIY?0L,+q>g\7s0sqEeZ'W:SRa1siOT;)O_%q1.O=wq$UA&\,NSZ&SH). U"U_X7>O>[e,JiL8hDF3+VNbyo\2tSCLA)-dNmWxfs7Nq6Jg0Yb1f3MA>JK:SADMo U"oa_s)=[&Kvh;WRlvMMhx:H:w8XIA[q)WV*f]ZUIzs2/SeQ>4ws>0.,ImEpBmZ\& U"W;u-63KkVkG\[*yTdiGDhF4_Hu U"5)^B_T+kx]TkyG-;6E>FVSrxd\%Y]p??Au:aLh5d.Q(?bpeSOPI)Xv-Gf-A&wra U"SkNgxAi?F2n1]S^K[]7jCap$#[9:/emzE?;5t>>hFsN%Kt2%SdYWqJb-+sR)I?j U":73l)N?jS#JzuyQh%\mc=OY8zDgeo%X-3=BH6)_OdJyI37;9.u5B+UYII7I03v_ U"_]RgeVQAwh$qBUMkZ3hGo<64w.9QFSx6Evd&4gRi2*OLOYkA]QHLSpGFFo1Gn%k U"bjY:HjtQEFyJ&xfWv&.-T,P^)8zvtJ6s]q;M?)ciBLf'Jhr#r:r-U9*1N,CT58Q U"V2/ZNWNt+rKJ:dcDsiW(1lGk,s7jj[#'MA2SV4a_tBs(9POi_*csfR+2=q9;e9x U"x9t4;)7\sN38WMe5N$uf0kCl.'+Y2-oe/oe'b&?;[7iS5iaop$3:$s/i=\Qe>tw U"XY9&9Q/Iea1*#*ukPMI2F9E<8_D(IxF3Nsqn.xIxHPbltO?3wrL4=msj_3$?D<4 U"_)]+a/L.1.bXodJ/Le$CwxRcbi_,v].WYo5e-y>EDsxW\$uY]#Nv7Y&uaRs+g5atc[)NU[(l U"TKo\7+IAxLzeI*uWCZ^4rmasPuKMd>:J(_,xnk&7(f*bC#>k,wU-PvnO[3=brv\ U"]SB]n,I6Cug-]'-mDs:eBEC7p8PQJ),uB.3AFw$/4AXf7(nmY2]seC5ywf..INX U"C?r_q6;=EEhCnYjKE\X-A;LNj)jib\C)yr(lE;nnc;7E?r[hBpD6hLS0G6Z'#)A U"#$AWMM7S2[R+EZj?HrkK)T%M'5Rd U"5hVhCOb1mVFau*Jh1#[Dm3hbZ?.dt]19oS=s869_ZRUV;ro6ewqYKXqDSJQmqAb U">J'4Qic2Tts=FKj/)E^TqT2ogh'dk2:;Ir:,NRf7cgZ)OM)CE.:aq U"22K]0Bd]CK*u:la^Qt]ATqDO[YqN#%+*T/pg:/(/5fNm]m+[ItI'%UHu.rrTQAP U"4QsbdrHhY2B^hc/eF'JzZaN:vaX6#$fw9VEXg*S3?&5gPj%RZ.=R2)5JajEKKlJ U"Q+-^]&^dmYHe7?t;'9xaT*av-+AZk#$k$=kJ<>kL1eQM=a'#6S8lx)l;Fmdd-1w?m1RE09hSfC6kbWP,?:uN\pLKqY-r,jA.wrEiK1RWbXN07Q_P1lmUE2TE,A'AFDsok/=dp/#UhttWhz.15Ak=J_(xRB*nk7 U"Wg5kbOqYq*0XW[BR>WI[w;oJi5BY\n'noAiKdN+T]+w[z40JjkUqk7Z3#DB4kPV U"-j#bp(E9YSL0Wi/sok/H$^6D$[=94VBu=a0Zm(,GACTF7o9oUdw.SjDfNi7d-,lK?lxK%oF7\tz<2fx#&3.j1HhYEW U"uJ$P)\]udxxvucD43>YjkUu\^LTCfbJ,tN_Iu;DWRib'uo;C4cv-IfS--Y7)B?C U"YNv0d.?R^tsnjk.hzZ.'Q4Ek?6k#zMXD$hVrl^)A8j2$D&5 U"\[yC2D,RuRI/JVCS3(4faE/CDQ?O8mBX%&+o&wb6,40JB)SumXYho[Khy*u$VRU U"FkV^yaL8\i0Xz%SB6O>DWf:1wrJmH?=\hJ^49Wn3YU]qD3ChSVf7>BX8sg$DY;C U"K/g]V9uAIZqW>3AaO5P6l21d]vDQeB6TlGBM$=bqGu08$h1L,h=PcK]rDPkAHNX U"[eGV3aIapRNf3hKGvFa&32cHR/VA^]pEw$YnBxx?rtc/$70zGcQf,td/CI0:,X- U"$6Nu4MRva8mJMicWe5DpL6\a'higt(^raKKw2zFJvY>wp0_1,38+JNWH$OlI=dc U"BuMh:?cEl+cD(1Ybj8::Cs(2]]pp>CYctfq>k7IwZgHgwRLs.kfF:,QgC6,Cx9f U";Rc.F3pToLl*N%)TNcEeBNcMw'bRjaRGM76=D'T6=oOY9_E]1-OcXvj*UBbF\Mc U"#GglO'(3Pj+Y%-vI_[_Dr33hx%E*C*Vl3Bj;n?Rbm4TC.[N_ub4l7Fx^?6+4R&D U"PyKtGN16ua+:pmkNY*?:3)L4]%_CShad)_mU/A02KX.-dceX5CEGeFrip.i-+Y3 U"_cwJo1'WGnnG9k&%>z)%nh-b[MHNiX#Yb*=KM&]KH>\;I$V]0Bem_T'#DRc3xi3 U"mIYC/m/-BLxx_lemDcTk99WHL8ZAivSSSD7fFDcYGV'Ad>gVf1;)#iC9cYAj*PU U"_0ijYt5:ID&O*+M&4G*V4h>h.3Ptgg36xhz))'hULu70t)A:-3RHO,Q%4N(;esf U"PbGvC/EnLf9=7lQiq0j05x2%gqZ1p*rvp9?J:Aa&*8YRNNc^2e9e U"0GwQu1Q0YPj*>E7h.:J?bZT+$R.bWr<]6req0.NNP76vB$f8i?egg;b;oMYGm>Led,[0C6Yh63jOQ:5AAUKC+94Gd4XBk.;'wt?ZVqaa U"gT5#KjC_)k,M>#cu[C>?Td2o2e/JZB\xw_ U"L/$m6_d_e638)j1eSU7cLAm4^2TfL3*8rY]3?uG('J>>p\H,1,0R7N(QC5tZVS) U"P$eyVZYO>*IHScWjmlVf*:7BM$qS8HNn'hW7&mQDnuX1U?F(cfAbl0](kOLT3dJ)pHDJfU[VVfiSg1pLK)Fqdi[G U"7rtaYGA0E%Aq.\UDm2VtvVSJ7yE+a,nIYUuG2^33AyO1;*&3e-Twm$J<2T?]x& U":kQ)(Gp=5xgQaHw]em94>/?akTd23l]wWIGUKrvU?Wgcwk0s=e:_mt4KcW*HBG_ U"w)[ovAg=;]TMoXCm%*uGn0.3f$]&/d3(dTwK0piS/cY+5m0J7-;=RgQbD'i*h-J U"(2D^A/=?9\4=p)qh9a0\ra.J'LlomN9D/[>2c<;(^0=aOC?S==q7'G.U\OdUL/d U"\umoD,,0-mwZxhG\Xnec$:g\mw6D,MAbIa'R^neBeGK)y.U,zN0AC8o<>Aa0nX; U"rIO1+u39IJ.#Ohavl95Xs:)J/X23#3W$E_$O$B9<72ck\?,fbKKrJ/r8plQWXzp U"B'8+/U^N:pa4=Ch/,4rMoWRp'$8uc\B#%RRK>3[u=-:x.%RkCHNH\W47.kjhMSk U"g(TEveS/8s95)A447+Wpf-QRV7J?8xc_QAjf7][KQhU[_w#cK6ia>I01,89Nr]^ U"%A6ZIoHEKg%#^pE:U92X3APUpG[,Sqb']#k/$PO^my.=]gf:VNZSdTw/X8C^;h^mpOYn#I U"aYZ).IoUjOh8+qr,2i)q$IwR9IYTTH0r-)lL(>3QcO1ibA,rb6-j)3fSfD? U"Ubk6)1NhK,pT U"pSpX-7NH/R;-]J?hEKlk=WqcxRj*(2BNsP>Psp>>%1/PLARbEa=)4Jp'NsFQAR> U"R;iNV5jWatIY4HH#h:-fG$7m7L_^uB/7_^k+hXwy>uxKsa%VlgO=avC,vkO5pdTT.Jdh:YP0y+tkid7DK3d(sCT5SdSMeNcxn+Ut U",Fa5-%vi]lubD>XCny75zPX6v[[p/:Q,7+gcTs11KD4DxF;wMjzH\ZLeN):J&]? U"kv4zRW:F?eKQIVY8s*_B=r\sl:w/WWm?LI]CJlb4n(mnGZ()Gv\&s;rO9Em9uUN U"+Uj)Vo?[ssj$X3k^XI,n.wCn*BXHmZX.MTDOMqUu,m6RYmr?g2:bV*6m5PS9,/f U"[5jI$\0L'(]W&1O6fSO%OY>AV/hj*,0OTAeZt27n+4phQj[Pu4N5B)VVG_I2b8F U"e9ZY3U/aawpTcnVXKWnI\j-geX=LrN4&.qquH]wG/+Y5[%1VE U"(?.JD28((sM[D_=UN]n#kXM1Cu4N6Q6DaGW(hd[(GFN=EHC?7-(CmM27AuN/]&# U"2zfp_bH&sgqXn_Cqz/\1:DG:St[KH4beMP.&WPs=4_tv[[^j_&fFX&Ppn,o-axU U"LoYM:2e:$RbNrUW1r7;s19>^KoE[+)rip_TTb94XRrpfmQ'kNWNW/4tE6AXE U"btGs>4wwwRF1'D#OP\[/12Hs798*xYF7R>h:W3^UBV5aAgp,aAb7>;alcc>$mDn U"3*IP)fER?GhK100KCfg*$dyAo4'M,%7O8[JY]gmE-<=pt*1T8k4e##y>Fp7^&In U"T.(oegkb:^E#,<6E^BK4ln,Q#;=2B*)Erm9mqw>n:V&_be,4VBsc778QZh0bfGC U"YpFGZ6V&V*]ek6Tgy1bTRc)M5F6NGw'P12^,#eQC4)%E6/zJ0jf4-+>X'S)W*Ox U"/5_LTAq8bqRthcm(9=W+sTJkUC#l2eY172*'g8Aj=K+fexI5tUY]&<&lNK.Ga-# U"dS[r\)=l#Y]uQtplMemS;qxy5JlMMaAr>SHbRCs4cNbwSgtb8%Eu?\<<.,>iXMM U"iYGHNC:Wo>Vj;kt;d.lK_[h$dY_b?)$/;W.a=$alH-GraTkkiHkGm<3gBlAYZaqjkU8^_kL=REW4:7C^ U"p+QCP,M[.OjhN43A&?D3Kwrvv2]kk_4C:#ij;#^iYKxjlqvnVrdVLFeQuAro3d0 U"Fa7gs3yE;z:-3=$KjVZEkYOM6^]3&X%FVUd^fN9J(4s<^rQ$De]R(?WI/A:J3[F U"akPu19i*Y:NpN8F]]xemI-wcXb;1crH.9p]c/3PPc')-,,B+*AlzVWqiST?L&AK U"3fpuWP/=i]fUB-D6%Jz71qwO\ffipMv3V=:eofJf'KBPkRCorx-al*8haG-2;e' U"h54((HpL/EEP>L-.hxA6v7CexA2HYrDcS0TlW]/6Qrl8'etVOy_$=Rx+m'.:V?E U"la#;LeTpF>'Yx]?.6thH8+f_+(s$b_;=[Ep/B8t06v(KBX$%_W4S7K?n*tK+j]^ U"[:JsAw:MpQ5RG%i/Vm]PQjhqOc'rJ,tQ3V/35dc/D[k(\)r'x&up%&'9%%9%%%# U"-%zx[3HRQ(bXw%.%%j&%%%.%%%%%%%%%&%%E%%%%%%%%%ynqj%]Sgx&%up&%'9% U"9%%%%-1%Qw37Hl+;&VH%%(%j&%%%.%%%%%%%%%%%E#%%%H%%%%y%nqj\#Sgx%%u U"p&'%9%9%%%%-%*_u3H8E&P)&<%%%&j&%%%.%%%%%%%%%&%E%7%%<%%%%yn%qj[S U".gx%u%p&'9%%9%%%%-%sA34H4(YE.q#%%%j%&%%.%%%%%%%%%&%%E%%(%&&%%%y U"nq%jZSg(x%up%&'9%%9%%%#-%VpR3HPt1Il%%.%%j&%%%.%%%%%%%%%&%%E%%%' U"C&%%%ynqj%YSgx&%up&%'9%9%%%%-4%Oa3+H5aU(]b%%(%j&%%%.%%%%%%%%%%% U"E%%%%l%'%%y%nqjX#Sgx%%up&'%9%9%%%%-%)g44HpMrMu%b%%%&j&%%%.%%%%% U"%%%%&%E%%%%&(%%%yn%qjWS.gx%u%p&'9%%9%%#%-%o],2HdS;T1a#%%%j%&%%. U"%%%%%%%%%&%%E%%(%4(%%%ynq%jVSg(x%up%&'9%%9%%%R-%n_d4H*38(Qm&%%% U"%+%%%-%%%%%%%%%%%%E%%%%C)%%%utsl%Sufq%up&'%9%9%%%%-%*IU4HDyB+t% U".&%%'w'%%%-%%%%%%%%%%%E%%%%]+%%%ut%slSn%htup%&'9%%9%%%I-%Q9BEG+ U".%2%O'.%%:1%%%-%%%%%%%%%%%%E%%%&6,%%%utsl%Sksy%up&'%9%9%%%%-%-j U"*2HF7VXZ%>%%%&*%%%%-%%%%%%%%%&%E%7%%0.%%%uf%iWSr%xpup%&'9%%9%%% U"m-%S*I2Hh#*R,G%.%%*%%%%-%%%%%%%%%&%%E%%%'o.%%%ufiW#Sgx%%up&'%9% U"9%%%%-%-$*2HSy3[6%>%%%&*%%%%-%%%%%%%%%&%E%%%%c/%%%uf%iVSr%xpup% U"&'9%%9%%%d-%x*.2H0m+rVF%.%%*%%%%-%%%%%%%%%&%%E%%%&L/%%%ufiV#Sgx U"%%up&'%9%9%%%%-%+K)2Hdvm_j%L%%%&*%%%%.%%%%%%%%%&%E%7%%=/%%%gf%q U"qYS.gx%u%p&'9%%9%%#%-%B](2Hg=WiuN#%%%*%%%%.%%%%%%%%%&%%E%%%%70% U"%%gfq%qWSg(x%up%&'9%%9%%%[-%Y(I2Hb&%;5E%.%%*%%%%.%%%%%%%%%&%%E% U"%%&10%%%gfqq%VSgx&%up&%'9%9%%%%-7%j)2mHK+,&+B%%(%*%%%%-%%%%%%%% U"%&%E#%%%x%0%%g%fqqS%rxpu%p&'9%%9%%%%-%2')2Hx%giKE#%%%*%%%%.%%%% U"%%%%%&%%E%%+%e0%%%gfq%qXSg(x%up%&'9%%9%%%[-%n/TQI?:(2*^Jm%%7)%% U"%-%%%%%%%%%&%%E%%%%X1%%%utsl%Sgfx%up*+%%%%%%:%:%&I)%%&aV%%%%% END SUB V2 CLOSE:IF S=39AND 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