'=========================================================================== ' Subject: SCREEN SCROLLER Date: 04-13-99 (18:56) ' Author: Nigel Traves Code: QB, PDS ' Origin: ian@ihalliwell.freeserve.co.uk Packet: GRAPHICS.ABC '=========================================================================== ' Screen scroller DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"SCROLLER.ZIP",4^6:Z&=12188:?STRING$(50,177); U"%up()%9%'%d-%i3J\HV;*J1^&.%%h'%%%1%%%%uj%jput%pjSfIxrt_[LQ[,Sc_0+LgiaweW'Tq(:'9RpF U":I_H7mCK8W.JVTTY$TmW]-UBS1JZU[v4ZJ#ziE[ZQ3iS?+BIuWH U"S)Z\v=09O[(-YPJk]v%.u*%)Hjr%$[)O<->qUlTveSRA:&C]hR)SO9_')[UPj>J U"AH\p/8,N/_;Ya,_tHqZy9\#?JFe$C_EZi?Nh(;N/tP&v U"*G6u>,Fe5Grb5YDG5D;k\e?[QK\j]Nc*fo+-&im25;-?'+?P[vKo$(Jb067;mK- U",Rj4PLNddXCXKak1x U"x<2EOvRt)N_A0DBuS.47Mp=^:6^KjA,V&%,^ U"pKZW/d\H4nZ%X8'JBYDfv&O2r=L04H3MHc.y;JPra*)Qi$vzXH,?Te&Io'#>43q U"\D%hpK)Ff;,tYbc(cQaffO_+ocL&2%Rf U"BMKUni0?;/1\g/apjxQY-10=LL+\)u9Gb&0e5p#:q[.k\&'(Q'7p0?XcxH?C%i_ U"5:f;oF4xEHmbW^A+i=+V%FVt&j=&/.;_O'waljsYb*cF<,EaYefuKNfjDeQbIXd U")^?a&YI9.VWxYM*)=6Sl%t(>(DfWM%V(HKONt(gq%66iUAJ7VE2Zznc#RUBTIgJQK_tq-B9Ajg]:B U"/fZ2(7#S*xV-M&7.bsP-<.q6*\GL_&Lr$D.x[AAw,DnD4shfVx&PTa3V&_fRZ'p U"#+>TghJicp#F35_pV/7*M$(Vah=)**>$ThS;z]%6qdw-A;\QOc'OQ)]ACt>3s9. U"N^eCN)Eh/MlLWUzgjsC?b4'[0Yc6JHM*?HQ6e8q$?4GKwG)\I_)Ha7S7Shho%AQ U"./)9&O]#?u>itRv$).6jQ.X9:2mQg0)&I9,\;8?iVo>a%En6FH\C^2fAK*[ecvk U"k^bcQpKu=k#*N^mXfBSXFNrrCUK'PQp/Fa:T39U^b1gG-M-GhQF7R''K''),]Zv U"&6^=,'eCP[(9dn'9Ld%jc\#Pzt):-lrfA*C>I%2PCL*my=l^tSLn*aDfPnW.m)e U"z9I(j'u#mFE)?eDUmb=t&;G1:(L9wf,R=hPashw,A5M3k>msxAZm(Y%Ufb?awe, U"XqZRj^JWYWELK;\l3u]kjh'Z)f8/Rp+Iac.\CAOdZ7S%oKapR=cPasAojrcbThs U"Mhl2AhvyEO;/C^Hj38%LEk74eQ/q.4i_j20JJ[1'$G4-MA#=mM):^exe/78551Z U"R-M_L5UH]^;o^rOQ?5e1kM;o>jQd2wp-2w4$o8=,P\#+)?6WtVMRDwE(>R.WKK( U"=WS=%os1FL7N%KJQO)6\g>p390k8Y_9l9j>ucfKK\AEj5p1]]4PK:UUIKI2w4jX U"Y=v&ts:+6[B3ZYBg:fJqF4IZ1J..W'U%4iWDOvv=&Z3r4?TN_b]QLfC2k)umm(X U"4BmvKS/Q0>4ijVbv>;c)gSF[S.(BCapBot=kfi\SN(/r[uVMu#y$7\c6;(TY(fzBx%Q%stP)116L,#YCqAfQ&?t? U"F_3;'2j$26FcVK\'Cx,HWjC+v&%gH,&JM._\MibUM4CQd?IqPI4?2IYA=\CV-vf U"X6)\;B?AdCN?&v6siK0'JJ%GUyMQ?g_PiDzy3*rlykrN,qKU9toW4K.zmM9>^;C U"&3vWRnI.:Lv94cNSioH^_]kQhB U"R96,MIBAVRO8T]D=.lVKL._B.p^Kmjje5vD=Ui_QQoGjMo_,r&o(63JKj2+vn)_ U"l\[bO,BXB>Qd0l6S&7bxS#9q8lOF%$k]hHY&Z,XXi_4tOpA=EY\j,D/L)5It'-4 U"NV]u^g]C0q:[TpMjgpKd>CAE,91eAbVlPUFU^ART6MM:WnOeAv:YXUoCbA:uL+G U"yL#cG\JOG]wfRO8ua/O$h3Akj4+AM7]k4'ANU5?H5%hFC1YTGk$P9nMEqm'<%G7)9iEsfNDQy6r&.qTd?CMD<.rsGq,L0-?Y8dms?v;mS?5IwJ(I U"n U"aT;'Q1sS\.]A8N4cc,KedxJ;n3lhSVA#N9aGwXMAl;;vNqE2kML>rvb665jN'cL U")LjsP$+eVi\+PU-&kTiCuuAL3we:\m+?BrN&*MrN^YX_;3s.V+l+am=dCRb=NK. U"Cvs6SSflz7r?O5L=),tc6S/JK#$R]4,BVL?=^IC;dOv(eqUC#n;-8S7J2_h^LrS U")DVP[8%eKY8+bmPwZ8S<_oEVOn]iQFY=gd0+[BdEdk6=4Y4Jd5Xk((%&Y^BIhg4 U"KaKo#bfL-%pOwThIwf>lC-ccT51+WAI29oV%tB)FSlsP'h8btIm788rmhqW[JRD U"GhO\pin&rpn/3a%qn6A9+^s]p(D6=sO,HqpCX)<>nxnlOS3nl5)jCCDpdVxX']r U"sur8Z)X72f#f-c0jQ\SDvOuuGE,%+Mxw_(BeU?>cScx.f#O>kFp/4^KoOQN'_fhiUn]cWQ:(w>_plv5VWWm-o6u+-<+^1 U"-EdkN')$m>[%Du)lUTWlinBMYC=aX=C7lb8v>-fw-(xi&9l$ae(SV,gN\BbsG7M1HNJA/ahD1XZ[/XOd.yVxU%hWtDuVqHLg9UAYM]o2fp_]%D) U"oZUy'%N2=GcL9U??[9]\T>A(J0461rQPO8jfO.05um:Q+d>uDN$1;kr;[p8$eeq U"d3hoD\Y(H/t.PqMoY0ADm\#/XWZp+R/6,GERF:_qu?;%.;[gTJHh^ U"<)kc%KLH^?:(dh7.QB0\?na3>-KjdJzuUC/Vn4HwO[PBC=m4'QyykGv>_d)K4gWDLOCWkap6n&(NR2#O4iRH U"]s0i]d>.Dh(aELIH)0xN(d;$d'W0rNdF4TH]xYhj7fu&H-wCA)4$6C5fZ1*dHvB U"(WL<5T)V7<>3P7N^,LqHuU;/Atxoc\qs#EGYg'5<0vFcGlBJd=_^EtTf4SDd8uD U"b7Jt)j/wR>K2k\I$Z_lR7F^Gk#TgN=QRY6VSO8JJ?(G)kW63X,=7/8=<&a4sb%CSKdQ&c0,cM5',JLM.HCrB_ U"HW%8V27k*ATBAd^0;J[HL_;A?odLu$Rhlo%N(o-OA;,N%7DOD=v4QbSH\x?0j*t U".>D:/hnmXi-Bt.RMuJCZ\8bc-2gMgH0M,.J#)ChSI_.pGp7p0n(-L06M)r.b'c6 U"Gi.G3ghhy/Ew9HUJ%Wry)i:;N-UAs<1\U/I2w4P-[>l=U]dRY1'sG2)Rgr6k[8m U"Wnu-F,lE^]xxun2#rB+ou#>8iTX_XgK\StKOuLe*LUTHW%NQxHZ+r^>Z>R10(tU U"0Y<(Qk;d=jkB-uA/t U"U(4q<*MYL,uUeH2'F>pCRX%Tz($BaUL05;(kHLeticET/>;T7\ZM)(xt=b/6?4g U"\LrK)No]F9,Fn/QjtLrC+;kq6HL-Vqzuq^^0LE U"BzB[MqIMZGv*;Pk4jaR9=A#isUIBd*_%0-1MnmZN)OnPk7_8dc$).YaTR#J[A_x U"V<)8,tk]X[jt;S,4MXq(KO=jH)K]:TXA';J2Un U"HGl6G;BC&nAuHS*mGi2h71G_F*U+Dk2KA3t=d=EVp5mS'L8;r9bx4=Y#,=1_-r1 U"l.=I4AsP;GmdPr>p+$_7sm10.ro9#\NKvgik>J^cq$lVd%tp&P2$/G86fE3 U"K5\wn]ilj[LG7s07uX2(BlRRVrLilYf]cGPiri*NNgGDRn2)1u78Li_#Ft7J(,u U"jK(M73MWf.J]sYn^MZJ,ei:psxW:i'>]?cUwJj/Qq+)adSP\Z\ U"N/IAvzP$SPWeFUQFQN2Ks&HI7Ct<&6Q(O,cwtJ.&2hNmhG=>I$4_NwYpjNZ-^sd U"/[WR3_X45Y#H:jcB:X6hAUhkF[ELR,5TP2f6o$1f-5cLG,z=73ZUlp1m_rSwz6i U"*Y?nO7D6rzL\&&e5y%4WVIY1j$#['tPO,WK[_Z;$jw78FQb&oea\Y<]q?f?Z/QI U"Vb>,K^I5VmT]Ne\SJ:]P[%N7KQ&+HK:IX8Dl]\kxkSi;LYpo+ocu=TAcMG6.tx' U">a>u2QGC\E%Sl)E;fz%K#]z2=?8Kj_t#m#fcM6.7TwTD]j3i)*2CCZ+NKaAp.^- U"O,].o:Bg$G,jz;&AV81.&j.p?wb5Gtk)iyy'=+>moH5\p?/7VA_\jBO[%< U">Tk(;J=T38OFxpi:s\4)t=a6nX\lfJpZv[zks,>%.dMX[1x77C]aU&_3%^04i;6 U"(6(%+#H#b97,s,oQtXBU7r'Dc>9JKhsf+>1&0X<<]fu#835bwn*w=%S#j<&vV)[ U"NYSZ:,HmPCrl'(;j7.<:T U"wkYWRzpdQ\+hOrhGhzBCJuxe7pQn$\VGhcnWCD3KB:U/3NMLwH9?BZ6)j6qrQ1K U"la25\r/x6RnSuXQ9H+p;R0x,g;XjlqE6g U"W0MGLS9dB3a4hq1tO9s]9KON_$l'LNs_vmY9xIZkB8''YEB;=3jS1S8,xBZ9gg$ U"0*,ILmd-s;D?;8Nx2%up()%9%'%R-%^1/\HwT+4])1.%%v4%%%-%%%%yj%xySgC U"x%2fjrdQeO7?nTrfc,J)lnbsn-3v_f8f>xS6n8< U"n(1$/HHOt6_5m\M5\WL^ljZG&OsT>:]wpp#TC_X/,CSWFoNYOsqe+Lnhr*,er.P U"xdO66p3YV%HtA$gnU&stndp3^CfN)N)Me4k7<$Em)ZLn3aKJ3M2X+a=?TRzLfCZ U"YuOt8::o$2w#DKQF$yZfl4Cfl1'utY3)q4o=,r4% U",+IT=zJHW)\LdS$MR?Z?FPkS-C.ycT74+J.f;&]&sPqJmw5eYNMrGso'\WiJz=T U"f[ezAE^;JDlGekDJqQ>yiV#WuuG#io_7.QfV6eVpM/ZPHock$5u'GmhfdTeqptD U"M't*DC5Q[%il:U_2\CxvW2s$ojvhHcy;Ww;2dS>N(SNGiQ+tpmiPLW2$Uq8ZGo7rpgZirTchfd/h0Q(6k^sM[g82,pdZl6c U"L%T2c:?&u%?)lQ2t/NqR/gz.&iVLAEykVo0Iu&MDBXuaAP5?CqBRZZcIfoo2^u1 U"%'T;.zqrtXt)NcR+NPq/ir#aum(kTTCF*HSW3Y3X]7G8M(lNIl#y5,g\cNKJR-x U"Xof'dTwK=2QQakR_SJkV$5:Qnf^pYhu#s&*q.*w(^nghRHOQcF5^/c[a;m2G\.D U"LN-R7^]3u54BZjt%G$kg?^MzX-NtD\HJW:FL)Xy_=IgJFKE'$a_u;mIODo(GWjW U"hyP=Y'LXWD_Vov*BiLVb9^#\F4sM7s6sRgUBzpJS%W=n-*6xH]3w<.tTrf?PZ\r U"ii.Jeiq*cTZ&Bd4I0'+Lr?NRQHcdmAs=5SWeLeLdp$UH,SLnXKy>pgm\rg.$xPSMJM&W*F:PfTin5_v9]8sj4#?>u3(OkUOMXwiZ(p.XOcq=>Q>Ax;RB?#adZT+0v[Py>MY-uP:DB U"jlflnjVhuhqiIscsIHaPv*N',LM\>9WVX>5fMOLOF1V]qgU\5L_$0oc#swded,aD>0rM?Dk2WVl> U"EaMVY.$k>$aCc:=*ptw&LH>d$A(Qi=RahcEq%Y14_UEA\%cnI_f/A?*$&mDBqnZ U" U"7LSr7NP<76m,3u+Qtk\CwU6&/lPhjkIIb&Xmn7B>Kp07&L/fYxruP/8DRO4p3)R U"yt&^k:]TwJ1cIw5Ns*5SNP(Bd4i=CY;:$vgcH,I?XF&+Ocqd<<2'F$s>4?wkK$q U"*9NT]SGmlnD3J-Rd.7v*bIudb*(lBOjDNJTfYMkFy6L'(,lMpPq=3_l&)L>2fGn U"8qItVriTcP:9tLF+8ldTPlcTE:ui[gDKsKdfNnpfQvT>,FfpZi9v9W28qg_.fsq U"a0m\0*]nmA.5d44qvM-Ga8.=xaF8.XtVwWYNH[_$SN2lhaeXt.2tVs'QD3q^DI0$RD^k-8Ej_W.yFio3?&t U"CDwiG0X(fe*WN2PWwM_oXBsQ9/8DjnLLQ(b&o37bSrDggLa*SUdYN:I$(NelQH. U"4$>MsF.M(n4Q\F:ZKwS>(4$=K:848j49iDvMTB4cnqm$PqQ;hy.ce(5te&#YoGf U"ntFq5QsMYDf.[Fjw.L-W:D8SKPIn,_TjK?.9v;ITTe^P\c.*F#-OBue$(6,Ux]i U"UGt9.$.-XmhFA*e^TR't;F\qb*i<>Rkw0pbD&AnF8HDspK:DTGjH7*NT1's9kp8 U"Fk=o4uB?XHil&jW#;?aH_IIiX93aQm_r8oD#KBm\'NH-KhK\hzsH\7)c(b#w(v( U":pd.epXSD*8ui(:KY60I.VQQuudnCJS&P/G,o9((ox;f)Kr8M+v U"B<%s+HuGQ(pb/D$JVTANZ*g$?b4$opdiJI2xE7&Z*5RxGiHXu3NgZL8aS>&vh0Y U"tb=':DMfJRP1VMixr#gf5CfaY8RpkDdZvqJ(negZjl7cIP#tiBK\[OZ8x5ot2q\ U"45&0(9v^9DWeo(\XS8s#f:t>[/-%NkcQHZe9P5wzp%n$\frps(nK8sTX2'8%ShE U"wS#:s<5nlt9$\_AVDZ\no=c0%RuV,BNR#dn^n6r]&HpYiA(oYbaL^>gd(M+qM=e U"?*./r2>1\4Zrt\QulEUpc6Q8WCyO$JQ2fQRT$nPQl8C^uhWOYmhDt*/Od')>LgD U"A*iNtDNOcL-i#,D=9E04W7+liNc U"[nsm=\:POcuDY'vU?sR$#q^FBl+nIL].[pT$ZXXJV9wwila'XS/RA9Qn(>t=clcLrtrYzU7G*[twU9Wh U"pId3BVWx$?DT+Rfw(.xToxDzjY)nHot4sLZ9t]0 U"$MC4pe>B60='wOQ?Hi#lw%Mt\QtForhK.*X*iVS97aeLj.r U"4#l[o8PU,LMFYPq,oO07[wX$g0J4Jmcd9USf*BqXJIYz,vVNwGGnXaZ(3#W&Db& U"y.cYE)NDWrx5HiEHDo%[hbJX$i6baWhQrguYv**Obi,[;FwH;]h#>hT<6uZgYg/ U"x\ER4v[6tRaY*9tw7ls\1eK:pH*r>kQ.5dPd5k[LGr:.&jJ,c-y=ZiZup^ckIu< U"tK<3tp$TS\*mLAVdxo7dPd[9<>N9p2TmZ#M]sw05=440*iuLQs>IQ(#cE$;s U"fW>,5m47S]lvTHhs1WiHMnp>6iiVbAbPxv?XtM$PcpF?tY*?tCbQqFdi9nFlZI1 U"9.sRYHWQ0rMZk'X>T.[ U"5MD3)NotAV'&k]::7(=jJ7^l*T5BOAbIh&24%oMev3P>#rn)_z./\3+x)1/ U";UU:S2:8L=wk#9rQ$c-?su)&LFESl&pMGT.p\+8d?-OpRf'_IS1j#U(Q#iBb2U\ U"J_MhoSeSeu1':=X8'VFze8ASGg2wHa1S&Cu$+Di:d;mN/?qNgz*K(EoKAV&CJiq U"0?:2rd>*U-tS&zxc2FL$\&TC4gSeXwP=JyL,M8/U U"u%-LZl_YjAYL)qcjtWWltlI_=m.]nLhqA?X_n2,+^?pWDG7kKg.:W-YkwF0N_[r U"Hr\?MEIB%H,gCz-fsX87J7?x$HY>n\_7g&bXtRgC=mS,ErB U"b^C>e4n.P;mT%4.*jo.=PK7;ouiOAt=9CXtg^?ZQn#Yww;5yo?M%RsJoYc2mcoK U"33:\$Jn3:D'-t2wSH[qVh^vI4cJQKLF:=jW;>t^xTB:m4cHHE6x4Q,Ck-_6I0NB U"YDV8.b]Y%ZGi6$*04uhd4$6-\QmCdzbtY^08g'DzONf%,e)a9CKY1,\R$a;w1vo U"2G)ia-n'?YpQ&9t#dg8-VKg#;f,acXjh&R,Sx5mID5O^FlY7R]0^&,d_Ye8Xtr. U"do)KYEag+4U#oOg0zY?;/TS_XqJeyfvHI>?QYImN.MM$u$l9baa_WI*.Iz]'lAn U"<'Vt8SsLeT1G/&o$.gF'w9Br^&H18?m'[;SIhh83-,e&ap4e&,1#^?hYc7_I/%- U"N\3SDh>AMDgMhQGUM=E9TNQ[3b<%K>\Ml=Var#fM3+aC(NvSMo?p&oL7q,4EFKtvbdi[SEoVhzafulhXfj(*9,u3R$,p U"*p[T:YY$S1px>2>$AWLlRD%V,K\_*wi23]_YHMLY1*qPF7,)1i.qYB%(yi&z804 U"w$>i;hj6.fs5][]5wM-xN/Fdru8EZoPaZ4ggl*'dg-('X'll;.$g.00-?].#HPrVEhP)n.8L U"U2_)T;AvKoOn?mh*#^bXhXLAMZfT6#HDrBkl1o7Ifd^rpuFgBZYPWk6+xA34q)] U"V,dk3?#+rYsV-34#TIe*G74v'RCTugatAX-f.HbFMg0XUPj%-3cd^5'+N[Q8RmX U"=w)$%sT-FBhqr(i]izqKEEd.d*XA,go$HFE&6HS&6f]FlI7PLuT.I(/=EUlZECZ U"P=ba4CS7sgp^0v)Z[W],#5l_vk4h.,s8maqi5PIetV8xHs3_ha_%=#ly^wYFV+( U"me%9s'iIAkh5S^AAnLNqT:O1x/Lk8g)ZA?mJ\t:JU'bQgT-F'I,h-&>Nb5/U[iv U"iCD9QRe%vD$T+-w#%+=[H=v*TdQCK&$:62_+>i_st.a+XY?Mfz+FMeN-b+ijpA: U"UXrn,H2a9Hs8jjvZt4YOBSN2qScRP?JD(upd3'_9=zKiXT)Dt-]=INVzC>;E/Gq U"Q$;q1#q*=9tm&9$ZEp%#IA<0&TOW3^e0/]AO)6C3iYR2N\lP8&DT&+Ae0k?3gL. U"eXF^sCl3=dsL<15k+orJ7+/TyQ_>q+bkl/w4nw.803'HGZ%cYGv)bXO?giZ]kl1 U"L=l3:nLurv;W(f;vs3+UCO'kCMqMA)gr06BKcH1mxEhI'VM'%5OY?qDObx8aNQE END SUB SUB V2 U">.g5>k.;D:FQ'wQgR)xZ&Ye U"/-Mg,YC6/cO.vqtI_Y0CT:T/7VN^'1oHS?9MS)]hSsoHyKnECja-HE/uhImoOV1VARcRjT8kz U">rr?urdNd_6XP>m7<,4YX=r7^86fG#T]:R)$>?q-3f;HKVqFIbYe-<5S/eB#>=d U"Nj9R;w6=4AbT0gKu6/5^jO$rg+f\QqwjN0L]HZbLb\b7-b_-'mPI:l=wY(QU*J5 U"S\[b4:)L)$P+Owcj'[SofmG/E%(M'z3$EIYK30/H0Ge60el^n/l8b\r.3AFaxM. U"M9j#]J;J3Dxl:i2;l U"5CI^u(-0XOrHNAJKb)R^A,7gT?-ZXhSkF8_TZ.5cSC3_2ha$c.SnO:sK0xrc6c$piYSmj5v]=BxU<$a) U"'Yk=_uAz;F$9]m/_P_6)btD(BJ(;9?#Rpt8g(85lni%1&kzy,x6i-Y2hEjO\lml U"NnH<7O#O3/hMOBPI=$e4n]TsgUN:#jYsKsU1BJ9So=3)_m[?/PUEM4# U"[z%2qXA6TnoDl*EtL7*rqNou&S_\DT/_jY.'Y$lWJ1qKETc:=gUHgZ#I[$Fq1=* U"#VTY2LQgJ4xAG?,X<(pGPHM?Di#a6F4kYbaIigCMe1P5%ZbkCtcK?;nbD=awZEYWYMB4Oie6+ U"W)-_'_XSptLW6hxp'17rjq^sgmU>#xg3?9[ftwM0W]F4%6&U U"(Ybhk>cM4hE,83-626D&%kr\pf:+,Q_;Jft=qjy)+JJBfkZAhdpt7?qbY\1n+D4 U"lib5Fg/o_AaoD\OrPTm9v>wYUdR$OuZQWI_mgG][TIb-Rl8(%^LQrX)AI(]ojqP U"46a4ni*=\X;;9SmPfKKg'*0z:5PN2<,(n0Q>.qCPYWjr0jHIK3T#2)d[;9xAPX: U"b=p%FDT+JqC\^)]e$G_OY)IxPUq;.&;tfH/sdZJtUE5 U":K^:49cg0i4wtc?[Irq]+.f.bAmLJtm/e39Sm<0r=44J;*9P/$%'(jK+o_X>9:J U"/V*uthSO5:9oqd2h^6H>IvlBM_K#GF?1g,?\sQ#ZoUQxqjyK^K_U9+ U"(g5GB(Fk\Iip]\&b7AHHgm^$:[+lNU/AB6n7?MQFk,jlSOtk&k(p'ZsD0(duV)t U"OsTD4LVYDS?s*baPDbIbrL<85IBpjZ&fK[<1di(6.)R_\sR3MpLch U"CqNv;lm][*56Jm_?IG3ppVHbC6)[Qk+[T\MJG-\ U"26R&MsWK&[^c0&K%mVcO9b94jj31.9639#/%M(-<3<:H94<+>3jXuaX/uQYI7_H U"Se+UA.p>ADKfaDei7am7fVCBRMg$Sc8i\dR^A>>o2_qfy>:]le+NgCO9)rz_lo2 U"N>D92:C8?fQM9,)01rMHO_a7s$C/8SAfgTr&d=5gZ.u%p&'9%%9%'#%-%iE3\HV U"5;J1^#&%%h%'%%1%%%%%%%%%&%%E%%%%%%%%%ujj%putp%jSfx%rup&%'9%9%%' U"%-X%I+\^H$(K(g66%%%RM%%%1%%%%%%%%%%%E#%%%2%&%%x%hwtq%qjwS%qngu% U"p&'9%%9%'[%-%^D1\Hw7T4])#1%%v%4%%-%%%%%%%%%%%%E%%+%m7%%%yjx%ySg U"x&%up&%'9%9%%'%-C%Tx]aH)$N-#<*%%%V:%%%0%%%%%%%%%&%E%%%%C%D%%x%h U"wtq%qjwS%gnup%&'9%%9%'%R-%,Jn\H'W;%?1)7%%kG%%%1%%%%%%%%%&%%E%%% U"%/J%%%xhwt%qqjw%Sgfx%up&'%9%9%%'%-%5Z1\HoV0:e%F)%%&d7%%%-%%%%%% U"%%%&%E%7%%eN%%%yj%xySg%fxup%*+%%%%%+%%+%x&%%%XS%%%%% END SUB V2 CLOSE:IF S=60AND 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