'===========================================================================
' Subject: MAKEGIF FOR SCREEN 12              Date: 06-08-00 (02:33)       
'  Author: Bernt Figaro                       Code: QB, QBasic, PDS        
'  Origin: bernt.figaro@swipnet.se          Packet: EGAVGA.ABC
'===========================================================================
' Updated MakeGif for Screen 12
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"GM.ZIP",4^6:Z&=12040:?STRING$(50,177);
U"%up()%9%%%[-%#7'#M:i=%nD=.%%As%%%0%%%%ln%krfp%jSgfax>axbF[]gc8l
U"Cx>RSfYdU(+;umtge/KMtR<,lK(Z_/6F08=1E3P_?np=upP8NQRs2k_E_r0JhQC
U"Bi]e=QD+I[p/<6?Dwf=X_F8&mP<6gUr6QRoDT0V2#N?0HVI4rk#=Qq+2Mk.+pOV
U"ZN6xfCu7[Br+x;jtu\baDU^k(67XCvC/H.V?pX0jbsjA'5]R;uh:#n'8EGKD9_f
U"J21PNLOVaG%=kk]&274*vhbWkzwtI=sO]8u6$&1G_&4-[ccs_'cEGt$31$qPZpq
U"VvOf=%rXPFS-abU5=Rb6st7%GRh;2*6=Jr$/^tH1l.Jr$rt1UHF'F#2Yi<W6EsQ
U"4NfOlqtcdrfd0iTNb,6W9%G(M2fqzW#*%<+U1EPX<?Zqc-;O,Gn/Bar<?$>L\[P
U"G^kmf/JiJ,IktcXrGYBc$0CZu2eXmkoeB:(7M+4\kj5GR-*M;utE/^:Qp,s1;0C
U"+->:oc-AdXVST+U,S[ImfndPi41UHQ.2^QsZ-l_Q/TxTWG_zOL&VgvIrP?B0YfD
U"Z,)>/GV<YvK8TpvFQd<VQLSnnoT/ifuLMf-BXaF\w9n\0\iM^5W?H6k]]raD2=k
U"t9Q24$gFl&WGHP'Hlw1']iY.VLLgHPa#\B%qq?[l&41#Tn(e+iV1W]IIZE[/W:3
U"0NN&HkG&05\I<'3:(uQY_trDcrwqh;Fl,)/B]L[K5$%E1knjp/,r*ZIO5Tk-3-l
U"kMOTgt/nQrh<r1hE3nObj#,fZ_Bj04#B_R(,Vlr?t1f=&B?#)>R1m'dI2%dbXhr
U"::2fE0k)&e15QFQJTi9'0*<QisfPpEY'L_sIZ'2pdo<Y['#LCTGbcW-5WgihW<:
U"'i=lhuF/=v.KB<U]?U,]OAcjeL89jJl25Z/n,]*D%n=h\n%uM\7>*Qi0z]VMG4-
U"ea?\bQJZ$=B8hBO7r'FjfxX['=$<W*41OXy)pJ2=t_3c1LS=(#;j,n'j\4Xr(aV
U"'\?GAt\/>eFB[jamG06i+TY'-XO/BdkcQWi/mCQAerAT\p9W#Da[NY5?JhdJGXD
U"OV+KioQ>mt\PeTgbLZdeZ5tkhyNHbZr[[U->Br]oVlWZ/1YBD7=)w8-E;-749V/
U"3;zD-//2Cn>5qldl;sr=JSErp5N.1+%1PfRF]mb4R57<G%'fxh-ViN]rG8ZUW-5
U"2<U4D[?BRr^1p)TA?k)^a[+LVnUPL0B>e.gj+a6[)K7OuwiEUM_aYI.JpOdm%\V
U"J&;H;3[B91uO7xul)d'm;)#w--t)/DI^Ys%NIka3)pHq;Oqfk:+A*T#lr03_]Zm
U"ml\abG$j*>#diH1%.8AT>>6WKiy(P&(YPO01)sI#NCr^ma)^$(LBOS5R0lxcI5J
U"&#\VeJZ)=YFYQEo6&f361U<JNXa,+b3<^Ii7P,&uUog#M9k0>0M#2t'fFaL%?j'
U"T9TiId8-pJzBxwus'V2&R>mQkD1vTN5c_-Fw#F6+$ad5</?1P6>RzPKP.w\Fh6m
U"_EvJ+SInd,M+ZS&CfiYkaV-#5J?^39kx=Yk6al]LXw*O2kFh'7v2VAnP2w;c\3p
U"::]3l&tHT2B>H#Ul6jfZdR7F#g[PodSqXgOY,q5yWR#CiRBl0jiF]b/YN8R#?+o
U"h\UdVtVaMrVUtN1pTt9^09ejTau^'sAVZ?3N;.EZij.h.8s0oViB*lb[$&SG#[;
U"<%M:kiF%#N=lr#V:,kca91yK<uYB$urr5Ulu/)2:0&5E]xdOJ_ExiTJtG/fss<w
U"hj.s^fW=&pEHk6Br<RoTVrQ>TbR-+tVPR:>6;h?R>Etl96:OVktWOktK$8(Hr/>
U"Yf158xw3tBC/$I4FHUha6iXS%Px)hBmxxsaxl4rQpxf3uea5k]2uc.sRC3;X=Wg
U"H[ab_KLz9>K^:V2=Q:d[;Z,762NwFkrvFpIgXZ'O>[cX0<_62Rtt#H/^yyh0nFj
U"o(Z)MbO_UQsjm$Kg%1^^*HnH*g;c#-.?\fnn?n[d.pUX)wH6j8HY$rn,Gcb'qJC
U"^*G)uUm2oSq)Qa/3(XNd#^D2lNT':FaxpjTXoPBs^ZJBD(]fU+VH.yV=Ix0lH0I
U"Ef\'*D,0l?jT+H#jQPUt2:Cl^;kvYU]iRdrgs4EliVTH79lE5'6b9E(<k0B0CHZ
U"FN)AtNo8(R(*xkY]gh\.Hhro29arrjH/x/bVZAQBrUH(*)[tsL#T5ip+?*rxR4[
U"5gE.R<QB#Tl&&.rhH4&$Fzvo[$\E<tN.n&DVDkPD0Ex%[gBvsjY^.R*=D<<\ut^
U"^6.9xpvsnlp3XbL(kQQ+(<Zf/hQSdt4[0+7SJH9Hu%0I/N_EH-H[<HB=YcBTH7V
U")uChQ/V3f8Kos:unXxYll;EvmDxo5/YX,HZvXauHP4p25DT8yX1Cp>l#6zWK)3r
U"#56Uf.[Iqn?39/Q.%pTmgZC+1-'u-8g/O^e2$_S/fg9'.t%cu?jr[APD(:FV7/\
U"B*mFnx7[(eo>*UA.p=E:16V.2,e5SMC1g+N<p^lC#9^cgD]Dd1Y[ep+On-e-Z3+
U"a/B-Ps.)9FSTClP#n&gXJ+/l2)ob]+lvD9^kBx1(Jepls0b6vSU5D(VeJZ%0&/J
U"kv]Uwi_j,MfhH9*in58=fa^m/:?mCkj^_WrT$191Mrl_UKos&wO2Yxfg.52)hmc
U"W.4SslGZtN\b=vMFI#M-2T%84&KPxkwDPnDW)oC7Y]Dd2jp.B5wWlSN=c)Bk>/Z
U":h9*LBExlxYV%n_5*o1sCq4tdDUiQHqd^,>BW_15Jg,vGxMu)Ho/z,#Zu1dV;'^
U"Cu]Kw;tpLXQnkY9^p::qfW3H?I#+fOAPp;uNTxDLM7bD5J_[]xN2[QXm=:,;(3r
U"#5=1UISwU1F.9Lbh<FrW:=9MIBa8x?-WM#5Q8*[T,x>]TO/ONqju6qXIFiQ%NSg
U"8iW:/M%W'BGbd=g#*6k7#Dn5v1MqJ>^,)veFZ_ySGV?Hsw(oU2s0]\?KV0c;1Ia
U"14M/?4NCbHk1Mn]pU2<HAn'et?S/poiP^a]Mk*.CxbUS4><\nZU'BcTWh6(Sb.6
U"VeI(;)s=%QMDjHaq4zoePheG+_hfq'KhOo/Fphg)bRHJ.3,i[&^PVmPdHJpusoh
U"fKpD_&IY:a?<rpE7==Gq9kxD&tS5gcjr/f9iF/uvF8>UbafV8jf0X'gf#jIHrm+
U"eJ.4KaDr8eEeYsg[9FNU^HxQe5Y+)8.h$vzFL2[(MNa:aSdMr-JwdBLKk25lsml
U"HuCmcyxe?VQ\ne(t+YA]>aX6t>a/$dneRzd+f0NzKe)jP/BC8j&*SAz[pe%jE2m
U",f5CN:qDY<b8fb4Kf]3B=<tuc&3.r\oEDCdFnF7.d9.,ULHiJ$2u/ukf_I.T[6q
U"K5e9Q*7Sq<M]Yyq;jGG?D'i%Py+ImhC:?EZz)n,Z[KC/32-tZk1g:01$pzR$:8.
U"$1C4b&#ENin?c,x54(o>\baG/$*Zg<_/S$TYF?EM08e0d]P.d,+zA_*A-a4A5b;
U"V./he%oXC$6##W09d8gGscl7NG[$r?]c2=&V6tfgT&Q/5DIkh[.z5a]CVRE0n-5
U"DC4:]6qATe5?-gCGIojIn<AwYqh)PeY/2'oQOg1D75#7uRw=RPL*]E=:RgIpSoc
U"<i6O(P/&_M#K]^+;[K.,0>H&$6SNl2v:nvdJfzNgGq4BVU\w\)Bu/]lAT8d94[W
U"BZa4pG;FqZ3+-gmdsa=TpaN]6WgCto#QM2LqgB%ssT,<U>VfR9Q>L^CB)kUSKf.
U"\-YMUj9TFQ?,t+2H-7E0ho>>b.se)QKKVnLE*M0<2%aLET3;$s9jrqeqh^?)P<7
U"-%,7VUjG%Q+-q\&U=#'ofB$0Km$^hXhEUs0[:sbi&l=qYAlAX'>?_k-HvV.neJf
U"O,^06/RU^tL4cHVRH$pKT\^Ae&BI2G,v/'%Jn\KlS<m,]*Y.)Kq&)&._70N/#n*
U"fOxp71>>.ZUuvFt(\_>A?oEy#H.Hd=#b'YY:2ZxN#6U:>#a-Rk'+>WGA6yg\Q9x
U"Gi:hT7gD=?;?SN:7RZ[jnQ=YPdVw,JS-7n:>srg2UNgCu_AdNAERnvYC>FLk<:a
U"tuScdU]m]'_2%=,LI'2**A(l0J_4F21gT3KOL]QpP+P0wrPnJWHQ7+Np#l(h#Sm
U"ATjz)LyO_.^P4f]/8fyTRP+P*Tk%F/Tu19RgIHTw+5&Svt\C018gqgKSG,.[aeM
U"jiC;kH;HG]fy5w;OqbftjZR+=ujgl0Ew'<rGjtafb,M^,Q27tzvNL,BGDUS7pHY
U"aiE>5d,vnmEXi1;wV:Fk)&%.dW5GpQ(XF^C#/p^2l8VbmX1]+bb&-*W%a:H\NUg
U".H_<Y+ftS9x5DE,OVb9932lw1kB'Y/X:u)^-7pC#tuIfUU)_NYA,M2#h<5m=i'K
U"u5uudXWNG_'x3ldJ0t?='<df9^AS.L;Cd71jdf'Dc]c8Asf?U/fV;RDCOz;dzhe
U"n&P$XWf$*MGW>hCMDd-l&fT,C4f+LLY^?k+[Q:*1(amkC7;#KYq8_V?CSOJn<#K
U">HIKCfoClXt^WT*HtL$>[XIqKs%C1M]4?kq42onu&mZ*ThmCpdbC2aOuifq3k3p
U"j4&YQDKnLTQu#?2u^\)>LFBz,$Y47\ks6Tb[Ck,mEs)Eps_3EED4^_OA=+jou[,
U"Ykv;%NhTzYM\aJX*J4_)1(pxHj66mQqrFqXl.1cy.X35=2^cqgi0(QY200hH#3>
U"AzXsUC&AAoOXoa:7jA\u7M('oJbkCV&_fpa_RR'$QWl$9:0+$_LaS[p-KrOu&We
U"^GWaDbQ+xB7+bLIWkG:eYhvT*2%\yCb0C'&Llyd*Ew<0ESJWAxn+fUau'LfffN3
U"<TB'pXp%b3>Tfs^B$Dm3m\KoqkZ7H^TcSWJvJkusgjMv+Dl(6Qg?09w0ZUHI0,T
U"*\A1J3]cm>oW0]/)3-;F<Kw\)$T*wD0YtW\&.cWfPQ/NhYED,PDGRQs'OE6p\+7
U"EuXDsXj0eUPJwn&e7w_q'%qll/GrB2^;qooP8Uh\:VnIEVINhZpSq-+9MJJ(3MG
U"PQs(wV/9rL?2k(^UOSs+i;#U7?aLRKyTZ=g7=Bpts=_O>dJ7oOf[r5x&259i2=n
U",Sg;Cj'OUR5t<X/?GKMynSL(2hLu(K%U;XLI(;(DQ]gId9:q)q+8[5u%4shf)g3
U"m9$j8g7ha)N2UWIU;l5%VS9d;=M*;)<MoK2Nn?D(aQMW(3oPEChh$8]<r&8F;WS
U"N_ert.R*0a[lrh)A+C=_U5c335<6WLM<7NT?U\7XaeX--fNs?W)NfCL)kTc,lA.
U"S.uxJV1)0Q&Q*94$fT5,IMn(1kdn1/>,x1T#HAc*mJ]QorhpCU57);dM0R3o<mr
U"stiXuE=wQ&&*IK*/:9Gx^Qo?MNs?5Dp5UEc4lo3WLNQW\.6j#vtuXKZm%[J=?-1
U"0E^GX^94y?Y3r*VXFICs.O^eLNn;R:3VC\v['04J5XU-D^n;S>(9+B8+IBtZp)l
U"fttPD8Z8iu-U0[Pnr2t1(vQ8,']hv7pP+ri29qH-*AJc-wWB#am1lbhi];9$4>a
U"1ge?B)Jne+#[NMas;:%#(DJ;u<^uFWf+/RVc=FWDSkLr2doi#E?V:oGUs3B.XeH
U"TWfKOy(2tJM??<Ta1q_Ql3G&_i;Gi:*+JtORCRT[EaWCwE8eGfh&-*.g;Ln4jVH
U"p[oKEmvf0hUkFF4fM<U66'y2a.wHc5MHvmpU9.N4R$6&t76(Uopq.EjgKOn:2uT
U"Mcrf/EBPoL;k^K>IHvq'I[xV']<0Wv:QLn;QSS$b;vl*a2dlko'T)=8_vFg[5?B
U"b*ISAj_Ar4Sn/#fUP-./igd/4MPtH5E7(wSn&(YwJK:PSSla1:Hv3S*9b-+Y#kQ
U"6J)h_W\u(ao]N#1<#_2^Lz[<jxTStkCokkO-<3G=;^jG?mV?[&$/&WJfNT/:5Qo
U"*2J2K11^TxbRAfY*Nt(MA1C#UvUXRCUVo1CC27pW2e7<U,SS,&a;FZ=18DYX2/H
U"A_=je5-&';MFN?HI\_0Z/yq4N#HjD1o-68p8%t39aSTq&X-u+W;<o0.t:xe'0<Y
U"dN)qF51_P$S<N#/EJ*huTQ6WXj\x'c_](M*Cdjckh)>FDZj,]yMy;9h3#+MMIM$
U",7:80mt%TNB)Hx=M>'rk'q82o^/hef'K,Q[Y<EWKvrW4.:8]PX:%Gc)J,+Uf$>C
U"3g_q9YaH/2#XK-Y'r4#pOgb+ks3fN-b^dpBu8<-WidrmIp,dv4yFycOo6uFoku(
U"X;E$CkC+VhK0v,,]G[C(IDkZU15G00t'cjV;7r<?G0Ggt8.=Q(Wt,eAp?4IAq*5
U"OjtEK0Lf\'kvs^5>aJpxuoN3ec-FfRK=x,:frDeHy*jP7:%a(8Q-&EfpP[p/Z4R
U";P/<UT_L*S5z=*WD.e?SKi=SjhGv-&&o*dXOhwhLKT,8Uq:h\E3u'<:(bF\I4kB
U"7\>1rqv8<)e3%81yvqMA2oC>I,70HUQu:x%bRo?dpd&?d=OftyVHeR02j,\=wrk
U"9c[L^MdZEIZmjYq9T>50wqy'QXCdW01Dz(2PT66PKtGyM]vW+#lt\mNh255a3d:
U"+^3L5K(I)i=1K=%P%C5Xx+_4O6l9ByFG5qOp*S&iES=)bYG_hf5tJ<^DN.0_44Q
U"M8$\IGt3JN.iL6//mx2U'7xe4A:S9)x&1-]1DUAuL\LWSaT(tSLU*m<(\%bRB/b
U"IE*O99lngLYI*1,6HJ>jGk+I1,a-(1;<hrVZFMibDgWTXt>[,YWj2.q&Ll_.D58
U"'4<[j=^KHr(ftxaugTFH#-*1Tr?9$m]lBB?f4-2t+B0EQf_G7cUc9sCLUAglQXF
U"N7BSm#5lY[6BTm>UWRFPNEC^:Xy^7J$.-SG0+xkIN0msj8[$Hae(GKT:im*5uh0
U"lY+E0hIOT)hBQ4\#AyWV<<XQ7_*<SX:VW$c9c[FN*YTkJ_uk6Jv^Migs1joXNR:
U"+7faI77OQEC2xa*KfGL$Pr4A_#*gc/oIKpom^X%Km.Z+iv<RKc%e(VG_bO\^_3D
U";%yC&#bG'%FKUMH+woGdle4k+CNePo-vSOLmNRbKUFLQfJYW0^%A:wir/R,bRgC
U"k)]+oFtU2Z%+XQxwt\Hl;)3-cZnZ%ka4kQu1a:.aJGZwoZp)t1.OfipV[%2c58)
U"&VsaSp43wF,IfG4,.6t0$;/JL.9)dY]>]]&(Il(*CaIWa0W\SW1iN5&&KtsmjCd
U"14mbI)=9;N.>z_=p,C3qf(#(n7H8u4U53Doh?-kh$Of>*d,2FGGQne7Vm&*QIbj
U"\.2cU:aw925qZ5=WtSAf*Wh4rTia.w/;lsF>/j%yqvN)HSZU9u/#;'vQh?,Zk^C
U"K]M^\p:RA-;^(Ej0G(D>]&%/<d3Q(udmZL,R>^u52$.$*3x_(oVdH#D3iCwzKNT
U"kwPK]Bb;=1?9S4pLK.GbN.;TjEUF_K[y_xt8SGylVMTJj(kW%g;yW2I,u?D_c2k
U"GXOljpv'7$t\B)d]iKNYxCg+JiQyQTLca#c.k*DcE)+']o*PIYwQFGe[,+j4uma
U"+5pdjKG&WB3jWw_6rW=7d9wnLkpTvXB2nmHmo(*&cu&n;L'%&0LSK^Dcf[T>-M6
U"zb%'rwbfRcJ$[cX8fW.^270W-qX*6rgK$2.H&+nBE3Z=$q^tHjJ0^9X0q<[CD[Y
U"<aT#l.2]H><228qGjl7#M15]uZgteBu/R$]*r&+G02LUNbr:nr$pK,>-:$$M7Cc
U"Xf>#j>F)W^TwHb5qu<_tev<&[<:bAlmf+_5ck6G[]VDNcnOHoXYoKb-'SmnFbH4
U"$sL;4N[t0SAmLBS]30:p*.nLst-D^^h8u4jcf+94r'=3U-2hu]PBh0(Hi..R7I'
U"l7X=ok?\:),Bq$/yr.l.CcPtzthJrF1<[ynEP:>fpjzd0OXohay'_H(Z3R'9b<G
U")n0MNYI*]n]No7]So]+Ro]OWo?e1>f<&SR+hmz,9>S+PFmj4B>S+rimZ/>mS+Pm
U";J*>SR+0^:)%T3wqbbUIEkaaw#3<(C%e_<9Pgh.QoEf5V2d1a*E_.M$%;uJzrJW
U"?RBN><y\^K0iHB)4L05[[)D)O\h&xnZ3O6T&DlKKnF<fRx,%up()%9%%%R-%Qkf
U"#M:<3Nk6%7%%1&%%%/%%%%gz%yyUU.Sy'y2\$*/'9E1)ox06DKoPJQbkxoV2w<\
U"4iaQW<7Mn5;^^^B>I#xOP&iPDR[oe]vSp_KQ47MyYgSY)1geqSDNNmxgLV/E(IC
U"euAer&nVQ7Wl*m/?VO;=ET9&'Xr,hL4:s0xT=u%p()9%%%%-j%Rk#aM0O2'#e%%
U"+%1&%%%/%%%%gzy%yUVSCy'yl&$f/%[E-)h(fNV5ok*7x.pjHMbx>?oIYQZ/p^_
U"LFBOBW:D\_zdjJQY:mB6X^p6;j;KD2b^(*AE#'xj(u%p()9%%%%-j%Rk#OM#f7)
U"[<%%+%1&%%%/%%%%gzy%yUWSCy'y\EJ03O[E-*YWx<VT?wiW*4axhgIgi&*ZS=7
U"gjU4-?MHKx;1Hck)U3TFP\aOe)5>k+5ha0%lQpq%IL%Xw)#$pQy(bh;;k<S^IH/
U"^[\StMNsddQ9q^9A3NYP[T$PzlECrfF8B?xx[+%up()%9%%%R-%RkT#M8o/ri6%
U"7%%1&%%%/%%%%gz%yyUX.Sy'y,\Jp3'>E-*iIHbg&Ts-#6i'Np#:C'M\iaLC]BR
U"=tOAOLLINR:&&$u&+]cNyYLMxRLPZ7%^LtA)fTaxg_[]N-D;LhB5ovu-*)2j_YX
U"2v)3Un:X+iRai.Hmw_DcSbJx'x<Tu%p()9%%%%-j%Rk#IMOFu%Tq%%+%1&%%%/%
U"%%%gzy%yUYSCy'ydcJJ29[E-)ITxKgqb.#)GE8ai;FxZYI/nT/SmwmK,?Ke+xEE
U"HzIlcAvI36w()gqzy.Tk?XT8yzqNUe5&hPn^LhcWu3P*l*Yu%p()9%%%%-j%Rk#
U"sM\HU*)2%%+%1&%%%/%%%%gzy%yUZSCy'y\HJV2O[E1)Y/F8F^'L=_f$$.nG#GY
U"*\T#(Bf/bd^jHofr$F7-UbM%&\)no1M8bG3I,F[Ruq.tn(siS_6.B7#Uyq,LR,M
U"]ISo;3:bPnW%[Pa0V$264M^\tjmx8'1%up%()9%%%%-%<Rk#McELa4%\%%%'1&%
U"%%/%%%%gzyy%U[Syn'yVI'*.%ER1iJ-q?f,3Uq_r&%o/n5Rs,ifD^?je27]j'i%
U"_ds9GMNN^9AF(T8xd)NH-.&%?up(%)9%%[%-%R,k#Md>y\<z[%%%1%&%%/%%%%g
U"%zyyU#\Sy'1y\$f+/9U-j)hTw7J^2TuAt8MW.$+dD%+aSeX3UE;^k#D$.FkIra7
U"J.%Ezx%Ak1.s3P>g.(xR6Ifc+]\'Wi2#l120QoM4StV;%81nsy-x%<<up%()9%%
U"%%-%<Rk#MTYllu&-%%%'1&%%%/%%%%gzyy%U]Sye'y\J0*3OEm1)IVi=NP>hs2V
U"ortNBL+yazq4a/f0juaZe<Tf/7.wf-OGy:nP1uddoLwB:&44Jx32eJ.rP9:Kis,
U"lFE,2J98+o0Btmw\\a:7]R-ZrFC8?xx[)%up()%9%%%R-%RkB#M:;5us&%7%%1&
U"%%%/%%%%gz%yyU^.Sy'y)t$f/&OU1)NhQN(4TdMEPHxf[)tayOJWSsVh0'7++r+
U"StO90KoAJrwFolc>>'>AqO&C<Q2[KY<MKIpkl(ytkj>.9:21l3J0pzuIbgTM>$'
U"vR3u%p()9%%%%-j%Rk#IM;x%*V&%%+%1&%%%/%%%%gzy%yVUSCy'ytA$f/O[U1)
U"hVQNR-cOvek0wT(p)tzy5_,73<;__-q'+St9N0Kojt6IEAuwE>Ba7_/Vg*\UIe+
U"uf7Q=JbAR?9dg2)l%lD3zc<Q=aKZl8PHx%<$up%()9%%%%-%<Rk#M<Zt<S&0%%%
U"'1&%%%/%%%%gzyy%VVSye'y\J.f3OEm1)942XNxFdNbBalt83/GQKzrIbseTkcf
U"0OK^rT5P%<WHM4Tx4MThiaT3'(;=0p9XET1]*Z3_%cJrf:l5Jt<KQkvU$ZF6KJL
U"((#kW/ReLt65Bx,N*(u%p()9%%%%-j%Rk#OMLxa)Q-%%+%1&%%%/%%%%gzy%yVW
U"SCy'y\b$:29[E1(xGd30LeH'JwAdOE=F.-7HCCvxOrd2G\2^e8W(*%/uAgMEYhh
U"%^nI%T<-+$Iep6p]Au[O'bZJ=)q;.Oc43ej^o-P>,yf)>0TxtJddeuIv81%&up(
U"%)9%%[%-%R,k#M;A/4U7[%%%1%&%%/%%%%g%zyyV#XSy'1y\$f+/9E1j)hTw\4p
U"3jmAUhx+wV9I8u;35D_#9(o(rG\)ZqIvMl(wF8FsD9EiVt9.+s#rV/_Ib#PIw,P
U"5ecJYneWoq3YNNQiY2dM8kvi27kF1Dux,<06ZEvlSRFotqxx[%+up(%)9%%[%-%
U"R,k#MXTwE2,[%%%1%&%%/%%%%g%zyyV#YSy':yLIp+39E-O)ILbiW4':R.axdeY
U"u*?ZIG;gFL[li5k#f']I\eJV#VM_4-K$aqfzsOCe%ZlY\1OZ[Q,_fmnvC'ROj\d
U"V(u%:%\N_jn&#L66h3_)?[hP$'6%up%()9%%%%-%<Rk#MV\d5c&7%%%'1&%%%/%
U"%%%gzyy%VZSyJ'y\$8,/9E:1RX,T4ppcnkE$8$KyzP'g,;fNa6iYmCTS0(T9\RR
U"OjRZ0D09=l,P/:I8z.[A[^rq&XeitCTt&:Q',tK1,7wu=tg+gF:1B6Hc&B%(/q*
U"zE(j=*kh/caolJxx'>.up%()9%%%%-%<Rk#MG'K3'%o%%%'1&%%%/%%%%gzyy%V
U"[Sye'ytJ7f/9ER1iJL?:4MzV=_l.qxbJK#=:Il;l^85N&Zd:2vF'o#*XuDLOYPd
U"rWdAE].BF7ovYTS8PM<BR?tpLj<Sn(,Bw<4%up()%9%%%R-%Rkf#MDE1v6*%7%%
U"1&%%%/%%%%gz%yyV\.Sy'y,\If/'9E1iNJLpF%v5KLuAr(M&]VzhA)_PL;K7*K(
U"$^\R^[?a%4/^Q?;Emcm&M9W\#9[p*GB^2YqweWPeyO:Djto'/U;(DKfx,>#Rg#m
U"NY*;7-+bL0u%p()9%%%%-j%Rk#1M()k(Z2%%+%1&%%%/%%%%gzy%yV]SCy'yLHI
U"J.O[U1)I5N:,G$&g*'6l(3T/1r1ZpuS#namVK,CS.O8JkCkfME&\y=AJQe,9Fcf
U")Xa?qm>scJ0feT>pUc.4RV5+e&z:thjNv+PclT1Z]+(xhf1S(huNwws%qtup%()
U"9%%%%-%<Rk#M#FhhC&3%%%'1&%%%/%%%%gzyy%V^Sye'yLI0J.OUR1)IN*:,Gje
U"a*Al*(3sYO[/ItR9CZ794r+SJ.O[5AsMAW5,Nd+<n-H)O'.PdO_Eyhhc-2=2'Pk
U"J%jD4K&dM<;H^ipJ-egUzZOg*UlR$T0f/;JIPi8.n'b&up%()9%%%%-%<Rk#M5e
U"oyq&.%%%'1&%%%/%%%%gzyy%WUSye'y\J80/9Em-*YxYRV^\FAl)lTxoL5E-K25
U"Oii45eCQ1X]79b'OL+Yw1-xhMMzYaQbATbY*3ECxF4c&\Kfuv)0TWxHm'Ln]qs>
U"=ah0x-oo-f2\_T,p*Yhmx.'Uup(%)9%%[%-%R,k#MYD)>G0[%%%1%&%%/%%%%g%
U"zyyW#VSy'Uy\J0(/OU-=*Yxf)FHWGXt)l.2xv:ZWVQWW3:VwHq(3X7.9b6pM%43
U"t(Wz5Z#P]mR'sA5xaR4Geb/,:sEm#ZyQN(oU01Vw:[LB6hm3p./+,Hy$67)8Nru
U"awx%<<up%()9%%%%-%<Rk#M?\+&l&0%%%'1&%%%/%%%%gzyy%WWSye'y\J/</OE
U"m5)IxLfFh_et^P$K8w]8-/'fPdGa5v$92vtWotaD]WZPFe[f\>22eZQ8Ssd^XE6
U"OM-1%G)&*lxv*GDvb#Oihv7/tsk&[$Qz*T)>F:$-QZ\tWLv'x<<u%p()9%%%%-j
U"%Rk#XM=)4((2%%+%1&%%%/%%%%gzy%yWXSCy'y\\$f/>[E1ipkTW4UHEM(gil.x
U"rqMZJ/9K,RaqU$=mZ976(7qQf6ZbO%'qj_>^O1e%7&(UY9qp5#P<EWSNT>Q^L6W
U"B7N;Xs?+9vfwV5>Z%l<7<e[YL.n[iDjLx&Z8up%()9%%%%-%<Rk#MJX14B&7%%%
U"'1&%%%/%%%%gzyy%WYSyn'y&J8,/=Em1)Yp+ghW*iBGPjiu&9-7dnfS-e<3-]k6
U"l:ofhO^2jqG5j^-WM\*N6n0Ex*x'lZZ1b:)ptP<YgTBNu:[]lUk(4yMJBSbg#B_
U"\8;7OHEKaGx0Wa=Y$ONuxKXx&1,up%()9%%%%-%<Rk#M[7>K5&*%%%'1&%%%/%%
U"%%gzyy%WZSye'yLI9V.9Em1)Yp(gFnEoIqYu:PHJ/<r:hR[D?a23BLLNAla$(a:
U"Zs27O(NP/]fPsc#4&aSDJ80,pe#9%ykvV:194iZ++FUJ(nxw/m^w:Oh.wcZkpdl
U"%sup(%)9%%[%-%R,k#MMK-V^([%%%1%&%%/%%%%g%zyyW#[Sy'pyLIJ+29E-=)I
U"xK0V*bp\I8Ux.o:\Dt?-p#C0q]ilUPfS-B,x:%EE_2IyJgc5smI$<P&c#g;1n))
U"s?v)gK\(l$kqHc*9yk8i^xb?q1B.%t%kpd,l7up%()9%%%%-%<Rk#M)uWf5&4%%
U"%'1&%%%/%%%%gzyy%W\Sye'yLI80/>Em1(Yx,RVJgW:-9kfxo:i9jUa;?a=HOkC
U"f_t\IxMvLDgA_jz'rD3QV8zZnOJycAE_lh-1MvY,GM996oE#-':rh319:Zjv=uS
END SUB
SUB V2
U"C,Fj1ZLuf0Gy:YiINa.N*vs4u%p()9%%%%-j%Rk#:M:P0%Qr%%+%1&%%%/%%%%g
U"zy%yW]SCy'y\BJf/O[U1iJ66Y,9a+uLAHr(yt*3?=V(h&TYFrTb3k,7C,Eu:&ug
U"zFxWKsIxaDYoGwX3%(CFSuYst:8H9aih$*V#Zoj6nx1%%up()%9%%%R-%RkT#M^
U"D(-o>%7%%1&%%%/%%%%gz%yyW^.Sy'y-fAV2[%%%;*)n)V*a&\(O-Yo6px'Xn%*
U"up&%'9%9%%%%-m%#7#%M:i%-nD=%(%As%%%0%%%%%%%%%&%E%%%%%%%%%l%nkrf
U"%pjSg%fxup%&'9%%9%%%R-%Qkf#M:<3Nk6%7%%1&%%%/%%%%%%%%%&%%E%%%'m=
U"%%%gzyy%UUSy&'yup%&'9%%9%%%R-%Rk9#M0O-2#e%7%%1&%%%/%%%%%%%%%&%%
U"E%%%&R>%%%gzyy%UVSy&'yup%&'9%%9%%%R-%RkT#M#f27[<%7%%1&%%%/%%%%%
U"%%%%&%%E%%%'d>%%%gzyy%UWSy&'yup%&'9%%9%%%R-%RkT#M8o/ri6%7%%1&%%
U"%/%%%%%%%%%&%%E%%%&O?%%%gzyy%UXSy&'yup%&'9%%9%%%R-%RkB#MOF&uTq%
U"7%%1&%%%/%%%%%%%%%&%%E%%%%4#%%%gzyy%UYSy&'yup%&'9%%9%%%R-%Rko#M
U"\H6U)2%7%%1&%%%/%%%%%%%%%&%%E%%%&R#%%%gzyy%UZSy&'yup%&'9%%9%%%R
U"-%Rko#MEL+a4\%7%%1&%%%/%%%%%%%%%&%%E%%%%3A%%%gzyy%U[Sy&'yup%&'9
U"%%9%%%R-%RkB#Mdy-\<z%7%%1&%%%/%%%%%%%%%&%%E%%%&<A%%%gzyy%U\Sy&'
U"yup%&'9%%9%%%R-%Rk9#MYl3lu-%7%%1&%%%/%%%%%%%%%&%%E%%%'cA%%%gzyy
U"%U]Sy&'yup%&'9%%9%%%R-%RkB#M:;5us&%7%%1&%%%/%%%%%%%%%&%%E%%%&?B
U"%%%gzyy%U^Sy&'yup%&'9%%9%%%R-%RkB#M;x5%V&%7%%1&%%%/%%%%%%%%%&%%
U"E%%%'hB%%%gzyy%VUSy&'yup%&'9%%9%%%R-%RkT#MZt0<S0%7%%1&%%%/%%%%%
U"%%%%&%%E%%%&=C%%%gzyy%VVSy&'yup%&'9%%9%%%R-%RkT#MLx2aQ-%7%%1&%%
U"%/%%%%%%%%%&%%E%%%'pC%%%gzyy%VWSy&'yup%&'9%%9%%%R-%RkB#M;/.4U7%
U"7%%1&%%%/%%%%%%%%%&%%E%%%&LD%%%gzyy%VXSy&'yup%&'9%%9%%%R-%Rk]#M
U"Xw4E2,%7%%1&%%%/%%%%%%%%%&%%E%%%%2E%%%gzyy%VYSy&'yup%&'9%%9%%%R
U"-%RkK#M\d35c7%7%%1&%%%/%%%%%%%%%&%%E%%%&aE%%%gzyy%VZSy&'yup%&'9
U"%%9%%%R-%Rkf#M'K(3'o%7%%1&%%%/%%%%%%%%%&%%E%%%%GF%%%gzyy%V[Sy&'
U"yup%&'9%%9%%%R-%Rkf#MDE1v6*%7%%1&%%%/%%%%%%%%%&%%E%%%&cF%%%gzyy
U"%V\Sy&'yup%&'9%%9%%%R-%RkK#M().kZ2%7%%1&%%%/%%%%%%%%%&%%E%%%%<G
U"%%%gzyy%V]Sy&'yup%&'9%%9%%%R-%Rk'#MFh1hC3%7%%1&%%%/%%%%%%%%%&%%
U"E%%%&qG%%%gzyy%V^Sy&'yup%&'9%%9%%%R-%Rkf#Meo/yq.%7%%1&%%%/%%%%%
U"%%%%&%%E%%%%SH%%%gzyy%WUSy&'yup%&'9%%9%%%R-%RkB#MY)/>G0%7%%1&%%
U"%/%%%%%%%%%&%%E%%%'.H%%%gzyy%WVSy&'yup%&'9%%9%%%R-%Rko#M\+0&l0%
U"7%%1&%%%/%%%%%%%%%&%%E%%%%cI%%%gzyy%WWSy&'yup%&'9%%9%%%R-%Rko#M
U"=)/4(2%7%%1&%%%/%%%%%%%%%&%%E%%%'#I%%%gzyy%WXSy&'yup%&'9%%9%%%R
U"-%Rk0#MX124B7%7%%1&%%%/%%%%%%%%%&%%E%%%%wJ%%%gzyy%WYSy&'yup%&'9
U"%%9%%%R-%Rk'#M7>4K5*%7%%1&%%%/%%%%%%%%%&%%E%%%'[J%%%gzyy%WZSy&'
U"yup%&'9%%9%%%R-%Rk]#MM-1V^(%7%%1&%%%/%%%%%%%%%&%%E%%%&4K%%%gzyy
U"%W[Sy&'yup%&'9%%9%%%R-%RkK#MuW.f54%7%%1&%%%/%%%%%%%%%&%%E%%%'_K
U"%%%gzyy%W\Sy&'yup%&'9%%9%%%R-%Rkf#M:P%0Qr%7%%1&%%%/%%%%%%%%%&%%
U"E%%%&BL%%%gzyy%W]Sy&'yup%&'9%%9%%%R-%RkT#M^D(-o>%7%%1&%%%/%%%%%
U"%%%%&%%E%%%'aL%%%gzyy%W^Sy&'yup%*+%%%%%D%7D%B+%%%NM%%%%%
END SUB
V2
CLOSE:IF S=184AND 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