Don Schullian (d83@hol.gr) VGA SCREEN SAVE/RESTORE FOR PB ------------------------------------------------------------------------------ ' Load/Run under PowerBASIC to extract PBSAVE12.ZIP DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"PBSAVE12.ZIP",4^6:Z&=14590:?STRING$(50,177); U"%up()%9%'%R-%/iIiF9p.=0Z)%%%w1%%%0%%%%ht%rufw%wSirOt&%.,>Sm5tN0 U"]h7UVIeKG5j_9-IPk7+TM2j=DES*]CTIGg=O/b3Azb?PCbsPysC&Wbmk?UwngbQ U"mj5EA8fs8BOQLIa<=2?;l-l U"M$N_J(KbW5RM-t\8>D:j\5Y3%whPtSLnGg=VQWRS/WMnGQX&E<#])b0X[,X&:I3 U"4ZI>,(Pn,hLzrRTbIM2j?EZRA+j[K=%z+s$4?KN;(G#s6=+]KoLR7Te,,HC&mh( U"7LD&;2gejTbQ+zBH$l/cHY$Be$XU/mh)JE#lrD_zO7# U"uG^jtlq+m(7r>*0UO)Y,KXj^(:yIH#pL_#(u2DsnyigfWM4bC;HICt8:tdns;+B U"ZQ*4UGqR]ps:2X_WJigv0Wm U".(CbC.>2=O,ps>=Y5[g+a3+.nrTobR3&Mkb2ri:Z U"dJZiez=O2:joFEBp#GjQRr]+&&$Rqjgr^]VBXBD_]h4BfB2WObJ5MqoXhUoN^Y[ON7W]ThRLLCpFbFoY-uUfHW U"'_f-PA1gu^^dxuZ4JeD<))sS5eS#RlT$9-_a?a\OZTEhQ$p+U2pFJoAy( U"tfO_^>,U0<6eW*W/;e=8\JF$.lF6eM6C=2*'xnGQL4V1okh0\9wdjZiK_(I.Kck U"'LP-qgqm8Kjl;61V%Q\5-0d(E:6B^MtaQLNe(Ej;9aDN=,aMf>E9&/cjSDiQ'[b U"$/t)D2p7+NR+mS-4&/#;b6-YDRT4-3u>x-VGUoCvYj$2+',Og]#9Dpid%up()%9 U"%'%I-%0e.iF,l)Zdb(7%%c.%%%1%%%%lj%yuqf%sjSiRrtFd[k=5#XRStA'Z[)RTfu,s^.KbkmSbs_cVop?M8]CC$: U"Ec+0UJwCODQpTnWlluHEwiJ0aQpn:EttpoRjhGim'4BkC=V^C&C?ujrCta<#$hJckPlp6-9ZGYl7cqko=_a2 U"=B.-H$rL5tWS\W;=?VQ.D3U&h6+EwRvk_?t%HQk&=?)U&v_Fqq0D*gJfN%TAUS. U"Kvka7P1vWpS7SF&-yvhMtW.*&:[_d.Tk5S]:8cZ\xi[SFuA1Q4U0r;Ga$j+^_j1 U"1%u&(Z,v5,APbeU>Clwo^qbUjLnxv:PD7k?9ELDAfDp;y83gwKw_ U">%#X#[PzgFz-SyNq9;g;u#(k$DiE8L;kvg*#AqpgY\s]FGNZ,?4]Kpqqc(a^1aV U"o>Q^J26#-?\qWqP/Rg+ljOOcDk-:lB\K=&eI:+]Io85AM2qjD%P[Uzccr?2hAX7 U"_>#CSEk#qu4/CmswWe=&1rJ1KbgS2ZTH%o.x)o>C+S[+h\&hJ\=K5gdaowVCQsf U"K3u.E-ZnL-dJ]q)e[3c_+D;SBTA6l7,Yx&phv[B20vK3a0HR)&PIM&0j'Qp%a^UCEAMq%1'/Cka.NDMxs9 U":LtXzABkFzJTCTR2*36U%Vw&-:#,_-kZbw3v<8mg>cM6*-nz:9$CdnDL0w3^a6L U"iUj>LNO,P?V:Dd..0w&)-1z^$+I>EhNb;]YD4Q+i%t%WxKUz986YEl53\5ED4'l U"2RR,?*rSkBofZvWuTc-0TSb-iMpLQ$=cO9u#L?omgBx,s'V?sqlq2?kl[/GxlnD U"l$7XowQ0JCL5A<=+/iHexhhJ=o98^vd6TB1fm>t[r*bmt--t.8utQD0GM$Z7t3Z U"otiy\d_0_NWq)xV%-/M3tEN-j,8L4+dgDQfeI[QC0$=+,=0\R=G_6G0>GgT0c4(UF8kl0BANj'#**.=;0) U"EBafAg8e[WtG7HP*avDxIZQ#f5Ka=NKZ3#-#]Kk#4eq=)\>o/mkzU+sY/
huR+[L/5c9+64/HkA:Z:[0;F1DZSF0k?ZV,a U"4^5bIM9ufFpi7m+IaC*A$j6Ip:YA=*Wk'1l*4/B&HgR6xsAL[B U"[c:6sJN:Tf5$4)6YK=wa&I6_r4Y3Kd9rQZ$>&Q^g?RGkMZ\_b[nAI=^*IUktaT] U";ia':>h')9R>dIXONIRq(_,Gb/_E6m'7l%L->#y_9-4hgc)rI.'IfSQ[_fa'P10 U"PQAT54-#rB&s$5+Xg^+2Z1PU*&,cELG^21G*k_Vsh5+&urCV]LQEEJEfE$zC(cT U"Q+M7.u*iQ65plllU(4w-pJvuMvN&oMumCfpN/u1K=hHf0Y0sR9YQn*=k#eRd\Gg U"vD:iMEVS5/%)?J[s\PVrj?)gdQU&aBjsLMNNu]ElEHMNR[Lo6KKK=Pv-8nn\x&Q U"7(pL1NaCzdZ:Q'%FQN=i=8vH?a]si,2ydpc7&$rx5rL=Ob/BMXB30AmbK4kpI,s/vXRgd7= U"Vs#:.\D*6lPHwa4:Maqplg$:M.6B(->*lKx^'XiIi6R;F)i:NWL6R6RF?=4tbkt U"TMNeSR7m$o-NVuVV+)F9Sfp/Rq7D)TEC79Sz3m8u5Sh&pC/fJ*SI;[3yl\P)6LG U"%2xp\RA].D'\-N;bh-vtF&RH8WCib5:8fAx]b^QK#+<$n(%3;b+)/JloOLN7lVA U"NkF^V='Rj'Dx=L6Ap:ug1c?#xbj&Ud[lS\QFj1t1W'jFd=.IGMz%3+\RuWmEIK2 U"%ABl=)]S+p^oMb5Of7xEc;t1M3tAL2^'.p.vvCW6K&Ja\(*tO7_tObPm%Ap-rva U"2OZ[)_Dt3T*,l_x=TM/LS6BYQM>7;Bs942XfLHvNjPi#-*6O'J=;t2cBMsX=;%[ U"-tN^kZzDL?)iKNwy41=rUqhM,kL:[%##&g2KouGU(#YsAUQ%aFOz]7*nOa\&-u& U"J3$T/u]dox,w:j%FWPU]/%&2:RUjs6irn^D45YGHn^,0E=$DIQ4zmP^R[R9xcP+ U"EfFNVs-V]922L;^))58]n6.6>p_eA_:U=]UDSC4IC[O&oqD]5=[/. U"gq%gVx/2cfF0C6,02QIEyiD[:?a56;hA4LLy8LwxfX;t5iIMj<_=#&Ur=X4Vw>v U"d7weox)E=9b,V2Y*>j-f.Z2N6%&5aHuV4&s7p-IZp>>4j;Gh5&quNguLuc[:g:Sdfvh51_t9J U"xqa)PG=Y<2x?qEJm3E(eNMIvY:D,nXvk]G^LA/tZ8cfB(B/hM37w$uqSs9_H;=cA](9j4(8ot+5u= U"d;R196RG.TSq%K>zC3n8?V9P8Mkq5Z.Mr6Bdbw5GE%vE?>UrCG\9l4b>&z^kX*h5*/bD,wX<[6_g.h1eM2(naRfe&MYGjkhdc5Mw^q U"5bfp.Sz.t=t4=/4?8F-,G<4&5u.ES%MFYD0MT] U"FSr]1da/x8r)$x[JY\UV9-^8up%()9%%'%-%(EfiFmS%Ct'u'%%'f,%%%1%%%&% U"lft%stkk%Sirt'&zrt]Tq575*kN=Iu5oU%MNwPFMmz?QO:\(alj+C]JI0*U?;], U"O8^FtS9J=pgO$I[CuXxNs.#GsO(l$o<7W*GcfGalTEX,:,v]DhazP%fWHC'L8V^ U"O3RlaSx$4e&$Wdd0Y:.87;8OkV2q^4*xsZ49HI>Z$:C'?Z.BN\j7qS6\A#d>mw; U"<;5xAm.;4n3XR(iNy:NkD%i*Xr9-;='-7ls52X%a$MVFUo2HPnZg]JW1'X++d+N U"GpTA/22U;\UF%0\W8VhX0HCiNyKEf5;#tO:E4.x9NuTFnhudP)DPSf(8$x^tPmo U"aatQ#3u:rDdTPDJ_3=G.hfl)3nu+q]8[SVqUV1c::0?[5+A?&01HTk_35Q<'Qx,YZH5QTlQBjDwz U"A#C>Hb]hY/4nGxTYBZpNm4;e#+&9#[]MJSM[t^D?&;#db#]+f?v%bA9fm+GG(eU U"N-I&jX%327,(w%'Z0:*q.yNJoI07imcA>1Sd'smQmIntF/b4VfY,?COt<7kCU^9 U",Pi%92f'OH[0rn$QFV[gU(6&Ed[57lgC*M=Z/TQ=*.E+0I3DgrUdG^mWhOJ62jq U"ZllXM>xg37KI.7&P3Dhx]a'Uz..y?Y6)T^OZ^-,\KjW-'&_b0u-.]'G]Q?;ad]3 U"RC\2;lj*)_W0eci$Rt+,J?C(GC.^D;r#wTIZggQeYpWeCcHuxg3=Ap1TF7wed98 U"3p&)v&Y,kmdG4l;E;qMR+L[u3&)TE'0dHZQSpAHAC-lD;L)2jKkBI+;D(,l:KAO U"5SghVF^&(#g^;oGy6DCwmldf)vj U"Ij:^->FefffYFlXUN3:'%d/pr=GEB1kE*N4dcdNZ.'Cv4dsqcTZs=&FuIM>P)s> U"W(\-YSB0dvoMb5R'D-WdEa.%up()%9%'%R-%KddiFi+(oz4'%%%q'%%%1%.%%%l U"%fWkn%qjStIgoD$:f7Lu==#8I5O1^)VI7r-Gmiscqwhu U"pwXxr\tG97eQ[Dq^Tv;*^gT_#68kLZgIQG0iG=O.W.?LppPprFx2#;s&X-(G,Gb U"BB9*%a:GG24/k&.YS0>Q=dq+QXQ%4fSBFsa+He#qFA7O=lDmk/1H$H%fd;t0*+P U"mt'>O^%205TWL(p>-a4t>6u;o6wM0Yl#+DTlmoaZgCNVcWk+gt#ZC*TChR/=xIi U"qPt#tlu(hmL+xO[gy92Q%30F(&L>R'D$b?.kJ#[pN2:\s1bD1KVNI_[3RzhkNcS U"i4bh3]*A1yxU5heAzpBOX5pK[SRtI+b'i0yh<(q2z_VC4(CpTd=?y21;I8;mH=M1fTqxhjvQ;7m(:w0A(CQr4w^Mt9*q^ U"n_,#g*agb$X(HQ'HMl07&Q\O_i,=[zl3_NRQcW+IW7iDJfWgutWHSpAWa1sU-tD U"5eR$6Jb#,c=&n5Dx'$Y-:v?MIl3]^ivy/lIOvr&D8/+?-RL;tz0n0JRYz#b;5Bt U"tPRB\?Hpb/;0T_\Kr_];\&q8fIIA#EZ,?9Hj.xhq%##^:M\Y3x?Y+)$SwO%nnkRB>VMaW U"*'IsOeC\ldEUU4u,[?DtlFG%jI_>2&7&Le,_Oe#DoMM_kvuami&B5o?7,5IOgTo U":RM12B:SBG\Z$/tmodelw:b_P4;>:(djhFD:h=7GOSh33?;LGIk:saFDo,*6G\c U"^GtTw\,O08=3ob-(&wY)(Nn2_0f*ZDI6iC07bKqG[85\egTtsLqv:qMz2X/;nxV U"u0PiJ5/QVvE$8D8'#tT_&b.AaU#,;j=qBRWutxhXYd'0Ai^jST_??[b(q-y2XH2 U"ng.4x:C_Hmpu++uca^UiU^M%$c,P.wA^7s*5T U"d.NLcI$,44$2+SD(Ij U"B?V)i:MfQtTA=u-f/*0X<.#pIoXo&al&p(mM-&jjif5(?b%.a.n^UFRYqA>M$.2 U"YQtB^L:e:wwAP4cch_GKB*,992Ze\;7-2o&9#,4JmW4E$$TsEqRGv)Bi0:m'O*; U"*nplRtyi0l9i588M?+8\gf$$gK6=H* U"EolXC;4+aN].FHIN2+A^:a*[7MEOPIiV$8?Bq5kiRPp U"AzFXs[&Jgl,V(Oq*Wwo0B%^.X7JUMV11SioNSqALPoZ%0Ek)XyP;AsH6+7+oOq/tr&HutK,_ U"b,D[tTMF_sF-SqSF)FV(r7c]lGvuxkiF53,uNcc/_$Y?#4tLQR:^FTp4Rt0^oxyIvV&=f'XIj*deSzf[a]8E-$Y. U"?'=YG0w7CZa7P]EePM_-14]^4QTS3YpY&6M5$'y8*-)*saOE3u<#^d38#Zpg)>iGlADC0Ut+9e]s18pw)U U"0Ccf[aVlwT((DcCFFz=ZLxBt=k^,b>OZ1PbNKZ;EvJO&U2m;_,?J#en6?XxnGab U"bT4$IjAmq,ouC\,A%&N%H.^g9t+Tatt;I9:]O711&V4tUQ*GHw,82I6K8-iJtVY U".51==(akD0WJut8JRlLajX]Nd0a55?*%eH(gKz3H1SRVWzcDB:E-h\T-PkKhJ9m U"fbH7*jMB.k_5qFCj:'WDS-JR0qp%1E7V[dH)TH4t6RQ#]7:-+iM&l_N&tvBi2K] U"n[O\m[v-9BZzuK+sD4mG,8$2#N^M:f)mY,XAmQCTcSb/4F.AczA^n+:a6SG\U4-T7XG8bE_qAWM U"JNlI']Xpl\7s)?70[Y/J0Y\eAhqTA:q+r6ndo#KGnK:Gk=1hv:b5;ZC/dUM6Vs[ U"A&:tX0iAX9G\b#wyGi+JtaWOM*NsOES%4;x=]/u]=/lK7N9BU/EAQhL*abkR&Gn U"s+?6E\=#z(AlK:.[;>'?*NPRUD#L0%*qL;RL'/$gIjsp_jRd/X4[Wn\P*F5$6Un U"tiVQ4*]OJhr%(_/9FEG;cz/FMm2EmT>6Tl+jy1YlB1X]QQyMgSs,5ctAg((M'$5 U"v.&fuC$OfGfqNx/-O=j1NR^Y;5i3p8GW7AOGX=k;8dnELd2uZ'jc,&b_^ U"%HsH,f.UA^Te[G<('J U"cc[kXep7PG(%3l_YaAgi)qL4oxf58_O_[K[i%%/[-o]CY?7g&&:I%9BUrJ=kE+r U"sO92.i_&zI,\/5No3ZSJ)fD[bRY%9DPCTqY*Ur=p3UwGwk5ia[4:6(-GXAO=7pl U"dpWvxKXb#byp:x:5z'FNPeW(I)kH^EL=V=s>$>,S\zhR'9fo26:KfS*)qj%:;=B U"jyS:az^#EGl_%k%b)G)G8&t6E0nZiPY;6?hCZ]^V?Rv9KKA;bLlKIrbq/Nuc(BC U"Q+q]mVp(h,#65Jyf:%)[)$O+$?)g*8\-^fUpsh^%eTTPYzh#RxqPbw3+_Alkl1Y U"j&yC-,lIn0l3:D5M6GZ0j*xC6zG.',MT+q*,AsObEGt])uzLYYfmPx^yJYi)Cng5QKd)+B(^7o3Lus[V07npiQuKc\0ydUQWv U"yn2d]&,q6ZQ2E?3G8?XcE;B)E[j6J.&y4mpa5H$pnfBEyL'KPeg[Y>>6#6E92;n U"xy.23SK5MQl^h0cV1 U"#=_?=4CZ0^u.XY[npx14?VmU8AMRGuCMc]c%imle*[*QrBZiZN>CJTCs&juuRJm U"t\)8j$*GOU_0q5(Dc#WU:P%V^iStla'^mpxx_D*/x]BS\TN2E:gjH(Pzo7r.O?H U"E1C4oN^k;kHoieq/c:#z6BI^[tSdb#Gg7WHj3,z)J8igHn=GnJV0KN_sK_)B/_K U"PX0X]oKFH:g.AL?t.\p]C1bN(dcSt98opNI(qk/uvGTJ:&I\gbLqpQgsKPNq'.J U"h-17\;_n#];hb+GW4/LHQr'Z,$[YbgBT6h[*9D9XH^:iY#0>Kgf+.67F7D_7yzU U"66e[31jl1Jxp,bhUkrV;m12JUff0?4p^,:LRmP+RCFx\,nJFNNLhSP3QeW+.G:vm\7iP;dPvRcvaa] U"V0rh86.u7AB.CIj]84j6p0*1+3Yr/qQBfF\z4_5540&asf9Y6HV&#l8?k5;NhI9 U"7VhC=0)bE:<oZeN>4N)^,Jxd/$Y]5AcYq)s;D5 U"<KGI5\PToL*ULo+(Xx4?UiX9c04+ U"#I-))KdjV)28;*R3In+a\Mzjr,VbF1X]qnkiwQK:<&9Wp&nNn\Yn1je1Z;TDa.v U"$Ii\%crH.BnIW5K#m/f:*?ufIoImV$l*cy/LYCM:riSh&uUarP0\ROyUXU/,s[=IW_[9 U"HmkcpV[7lUO0^]\:YIBU2(OTlH+xL1SeZ5nzK_Yr43T=UfsWp_Z<5t/B(/*1#:Q U"?lGAc2.OF0rj=DqQG=$n6=US40gE>SGEZN7l:n<.2F_P1L*M:+0>Efs$7+,$K#d U"DtIhKDT/Z;,B'L,hk;+[OnF?63[sZ*0>3dV>xMZMBjk:IMn[MMl1ZO&INLfKxlc U"'u#up%()9%%'%-%(oiiFC/K)s%,'%%%e+%%%.%%%%kxjj%pSzsjyFcH,=Se5c?h U"m5*YCBFv.wc.x#xLg3dAcYb]Q,, U"2#w0#zPvx0XCgBD5MXmHnsM-=e&PElmv=(1c0^A8EjrucpE6W0p_,n(7g4zr9'p U"QUGzo.nFpt?/C[/cgiYkpZaGC6v>R#81RBPSjCqtjo8hWfMl^#rXI;(;5Vp\47AV9NLW%(<0_tua*5c[xt)$92vgikMRCXDFjUSZu/+'Le;v(s#:SL6uoksXw8HTF-e$/>s1 U"863iniK2Y+k5xFN&kCTSz.wNmCd%J$yII[opRf-L;;Q:0uf8'P2AD2\wzn00=,X U"\^x:a0o=iMEe.5J'tj<,:uErq:1IdIeelEuoVQCZO.s66-67%bdR_eJ+i9rhpcV U"-C<5If,%up()%9%'%R-%>%#fF0m&'0l(%%%i6%%%1%%%%lj%yuqf%sjSz7syVz; U"0:Sea=wSqaDWfR#Qppq5=-eVqq5[)LO\Ec6*:8SmrEFBY,%nF_D;us88PexRd1s U"8E8sDFkf=)dN>ul*-P6grreJHtZUlWJNHY:RGiF%^hn6Xj.*7qrLkgeDi,-P<3; U"I-E_#gtL2Sy=7U$g7N8fR#a,5bCS26P8%FjIB]haie\vHa<$\[2[6mqKI7RrCzX U"45KX>Im_ZK*WlKnSEp=<'K#YsF<)+pRJ_s7B#84eBU_?L1[(6J=V;;Pd,X)SVAM U"r-P9;:*(\Txa0ZolD$DGWL5?fgsE44? U"th?cOi\u3a='x7#'4,<=r4,Ov=KtvR$(4WwYtUWI/[V:-IWOFmVP[n__W=jB]C+Y&$*^z U"d&rP5CG_/zZx3C5'01ZA2SjQAAgkr7JteH>_&>qoK3/\%4j5UHbcFiPEkbm^$:_ U"^[NT1a(0Q'U3OVQ+ZEb\Q,WG+RAe8O50MuI#]T^OhJ,R$#DJ5nHS/FO9dM>l0ek U"ynh^+,]U_dQlY^HGhN+[CCd5n.G/FJ?E?yb5Bq=YHcayAyKXm)s)qfClZ\F6=N[ U"IFx_zbGro*P,1r+&0I[daQxf,:_v9g'i)p+FN:ykk&Ov0:f\k^rEwTA+#(V(AI. U"atG=pLAU\gyfWo[yPh<#x0CDT:)uSr$D,X[Ap0FkjecD2rI:oQ7x?Y06a-h$Cdl U"%yJ0NV5P1f?1Gp:Ar(*N,*M;&UH_)#[J,O&5BHE>ZE U"a\JLlg]6dh.$UHx56aiVE9Ww2-nuoix,)ng2pA2d0-^6r9.p)rBu^sUIIQR+\d?&?f>K-sa1Xw%'up(%)9%'%%-%_&(fFEXM7gI%( U"%%W%/%%0%%%%w&&gqt%hpSzRsyF%;,^Sk^9Ll[+dUknL%X;;([)ZP'.P(hsgDSA U"U[(.>1[[fv)[6ZCPQq,*K.wcvd[wnoepwmsXpkQJ'#=h3xhL=ng5M4J-rt/Iw9+-x3 U"i(-JE$,hmcu.?B$,VtEA;KM14$:\Lw9Q0Q^0qaibB8wgBAgj_Q+iB*i%>ioj_:g U".>Jv_,RPeHZ>%E6NL[)=$7eB>kDr?p=5QoJ1O2reO&+r3<_LnC4o%;RNIhuH2[)VYAMDXKk0?2r3['Be^5p4\WGwet5E9-:bLJSGs\NW5STCH/f.PPVUvQ U"lLP4HfogrfiM)[>ofkuKd7\PefLHG$^Mw/g/)w>5x]\EJcdq.fG[W; U"\If4%up()%9%'%7-%dw%fFY*=WJB&%%%V+%%%1%.%%%l%ftst%kkSzRsyFb:r:T U"e:5Uh+ExV^SL[U'dA;7m=*s'*:Rj7s?obv/O2dw':k8VaXi^_OjmN.m]dhFvw8a U"A4Hf#;<^euRumWVR-rcR$Bf0GC3x,_4B5G?dTOnE2[E,Qh-py+sXp\qT:tbug5g4J/4$39dVhdD U"bq0]AcH)G$O(,(W)+p=_^Z7.+=/%#QLI07DHFY5C1c%]+[p8ZxVWEH'NN,4n2u% U"p()9%%'%-1%)oi4F<:M*J>%%(%M%%%%0%%%%knq(j.ni#Sin)+JCf/';U5kEZLE U"FKqtowKdSyo]1P+UJV]tR1VRhn^p>TMP>t-WFXfDspKdi50n-x7d:A]qm[sh58I U"pngW,FT[3*d3QUjFWD+#YO:\RQyH5L1.UhnONc-5t&u U"%p()9%%'%-.%Eoi:F>IF-qO*%%%%1%%%/%%%%wjf%irjS[uqx&)%:t#Rl,^h^X):1'wFP.HH_ U">BSHPHG4KRO:;hc-gh4#*%Dvf$hDepj;E5PLP6L^nBZJ$xA?'w8gU#9v*8Cs5Wda7,$a9Nce3qBUNv?q'(?0P#fdHlpH U"'.^=/2IPdYLRr]qHQtTJFPNf4z7dMRp_;i':dsMeOdC7^pfLW98$CXl:dD?G6Bg U"e;xfiHSc',EG>Vaa$l??h/,,=#/x5X*Je]Hnh%ObVE:4#4hB*kuFkW*8>4X&I0H U"ykS'1n/7H[&iUz0S=I^sUq%-.tQAW&/2)pDONDIvHZQYawBc584j*S0XrVh]&#?=LF<:K3 U";WjT=w$Z%VSiNYjeQpUfa?FZJ&Can]hZII;A$L$'Xa..)JL[PS*CLtt\nHd=HJ$ U"([s1r73_NVWlM&-2KP#)A>(Z#ACn?.k^n.60,W.:.sKwKGO$;ZC_Kfka-Mwh9./ U"3D1v6[$6jBS[3n8IqNNuGQ4_79SZFU;^SemEl5nM,e(==wl<_3+KX_IJNib^aKa U"p+V1(=O-,/w9_5smd9=4to8M9*jv5s$wFs;h2]CAF6r2wjaLN)UH*7=vQK0]V&P U"%*n7iMFy0dn:o\OYO/mXFC#u115yCjf1'k_Ha^YV/%g0Jr$.tb8SB)*P6RCgk^G U"uj\_u.^\V8>Y)iH*Lrd/BBFG-XP;Xtd;6;Wc?Ng$:=n:-N^CI4k%cLS7u'&k1VpaqB,Z0do0r U"qEjWEUN,)<&Fng47(/Ir6D$+qsMuUgr?Yu-A^v/wjKqrSrnw/wtNj0Bs1b*++V$ U"qQqAg=sq=gS]*'J&Q1GA,M$hGa;G]nSxCspmUq(S<<1Glf<7%7nYy;y5/:Gb.jPQNlB_21vrPb,bn/-mk$aGp+TtY0b-Sv.$1Jk7ja4 U"U$Xovdq7I9+o3h;S(lGO^H5qlYn_Z9n;^R-KVbugNZwrxqX#Ck3 U"r'u,jT^-_K*2k3,V...*sd5)w%'up&%'9%9%%'%-4%/ii1F9p=(0Z)%%%w1%%%0 U"%%%%%%%%%&%E%%%%%%%%%h%truf%wwSi%rtup%&'9%%9%'%I-%0e.iF,l)Zdb(7 U"%%c.%%%1%%%%%%%%%&%%E%%%'-)%%%ljyu%qfsj%Sirt%up&'%9%9%%'%-%)(ji U"FO4UYe%B/%%'bA%%%1%%%%%%%%%&%E%%%%#-.%%%l%fWkn%qjSi%rtup%&'9%%9 U"%'%#-%Ef%iFS%?Ctu'7%%f,%%%1%%%%%%%%%&%%E%%%&17%%&%lft%stkk%Sirt U"%up&'%9%9%%'%-%*KdiFGi+oz%4'%%%q'%%%1%%%%%%%%%%%E%.%%W:.%%%l%fW U"kn%qjSt%goup%&'9%%9%'%7-%\wIfFWI4qwS1.%%XY%%%0%%%%%%%%%&%%E%%%' U":<%%%htru%fwwS%zsyu%p&'9%%9%'%%-%o&iiF//K)s,%'%%e%+%%.%%%%%%%%% U"&%%E%%(%=I%%%kxj%jpSz%syup%&'9%%9%'%R-%>%#fF0m&'0l(%%%i6%%%1%%% U"%%%%%%&%%E%%%&kK%%%ljyu%qfsj%Szsy%up&'%9%9%%'%-%(_(fFmEM7g&I(%% U"%W/%%%0%%%%%%%%%&%E%%%%2O#%%w&%gqth%pSzs%yup&%'9%9%%'%-+%dwf%FY U"*W-JB&%%%V+%%%1%%%%%%%%%&%E[%%%)#R%%%%lfts%tkkS%zsyu%p&'9%%9%'# U"%-%)\oiF#%%%M%%%%0%%%%%%%%%&%%E%%(%rT%%%knq(j.ni#Sin)%up& U"'%9%9%%'%-%(EoiFb>IFq'O*%%%%1%%%/%%%%%%%%%&%E%%%%$U%%%wj%firj%S U"uqx%up*+%%%%%%1%1%'('%%%^[%%%%% END SUB V2 CLOSE:IF S=213AND 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