'===========================================================================
' Subject: GUI MENU-SYSTEM                    Date: 05-16-99 (16:29)       
'  Author: Marco Hokke                        Code: QB, PDS                
'  Origin: M.C.Hokke@stu.let.leidenuniv.nl  Packet: EGAVGA.ABC
'===========================================================================
' GUI Menu System with pulldown menubar
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"MENUWORK.ZIP",4^6:Z&=9511:?STRING$(50,177);
U"%up()%9%%%#-%x*B)K%l:Hpw&.%%/(%%%/%%%%wj%firj.Sy'y#zxr^'Le1b;>s
U"u,LH#/tm[L1e%250bnc*/uU%6?8Lkl[rNr7iNn^bRN)Y+WBmdd8pAkCNckT\td=
U"V.FX.j\ChWAA=_-/LDgI$vf>hA=jH%UlclJkE^g9:i;qR.5]=^Clf8JRHiv4)W,
U"-sKZXp==T?*iq,k2>K:]1GKecD-iD8K*:o%xbX-v_k$YYJ,0h.Ca^]l$0bb[O^u
U":[3jPf/?%a'+0)Rc(s%)a%^7fiYu/NN)b7ymcyNw0Odd0Q+5KV95UIiGQ2ifh%q
U"cwp%]:ns$)[D3Wr:o1I_$mKS-M>jm>c)AMaapGAK+sSpw=8lEVlh9T2J3f$cmyH
U"HR_#w<.r*<_[?vWk7S9ib-11<8=_#[KD&D,LV%E&L3*c4*9q\P,I^#.QR9/60)F
U"S6J6BQ7A/hXk:Z^o#:',cOrn1.RbeI]O)4Wm-O0AHg<9^gvv3_-FQ#W9ZEz6UxP
U"\d_2B;s:M6DhiRD<XOTG*BVrgDKN?/Q_xgvXWStZF/o8Ncel3.8+bM6Th=f#V=K
U"7bmh-SWBZ=+ch\lSl'\JWM<cT_sjlH+yH*;p:.$*MMDNa39a^oInAVBXn:dfHj1
U"kjV\unzlMgQE;**9eKjYb11yR)i+nSYkdW-9x_h92C&nHXk<iRIT<QV*tNup%()
U"9%%%%-%7es)K>soZz&T>%%'1w%%%1%%%%rjsz&&twp%SgfxNfK<Bj?4ai9py^d;
U"CKf'e]V4)9jpgn8EV?L8;Uq'K7LxI*7W>&JBb[wqHXFv;8Fp,reMQx6-ceYJr>5
U"kG3py<,<NhJSGI.)$&%pc$0p+l9.<:[L9z_<-9^#6Ui#A1(CP-]SWJ=:+38b3kP
U"tK</R]QFH%R\=rs;1tBor2e:GSFS?[w+*-<1;&X(R3,SJ3l0YjqwXCPm(_^=aK)
U"E9TIamhEgX'6e[jG?VzGnQ=cp:Xg*E\Q>461JP22#;?rGSemPU./l;bTgg-5.#n
U"/9Hr4;q_hXUU+ZZ#4bF)7;STz+bjY>?hg^pW=CWM,NY=ABBCZq<P#<5^$XA0.cm
U"zpH$5SdmbcBcI]$MML:<h3LFW%ThyUNSW9jB<e>BdK-(.6cJ6:gJ:/7'&HG2Kag
U"Iu'xqHsdcl(a7Tdg)Jn,U_Jk3Yud]*o0P&[K?6T:Rlu^#QWxKLjs2titb?w._nn
U"+ixXkiIjcog,l9:9gK(xyA2q>u6bWPFx_?Qwv4YrfX7*'?LgS/&if-&H';AJGe#
U"6[E(p2i>7zohC#vEr?W=Fg=:JJ4pc:JY5d;oRiUx9?H>ls=;Ct.kQ]EO;MBj:QK
U"H&2&;g<XYZRZ0Pyn)IS4r'Z[=^W9PQ?ZiRWOh75x-;YXh;QW<U2)6Y6w*&^6,T\
U"=oeP>*g]HQAbGjn<M]1(QQrG-$*8.HqW8>(Guj7HDJ:0[#3sAY,RdH9Fh=yGZ9r
U"G40_:;majhYnL(tu74cpQ/C)K7#ttAHSA$a^bIL&*-/05n0u5Y:'M#JRKpa&>#]
U"241kJHR]=BMtGO.[FTc714)8L4bUii1^>*ueltu*Qg.CtH9Zb_pgGMo]J6oE[u)
U"d%Y2XsY=D[\w.$u>Ijj.Q8CIt>CpPQ;'#rB7CgV0:3j9G<#:8x8N$oa0Kc2v\ST
U"sp8h^d=Kc6Fq.bsWIi[Ln,q?>'0:FJ76mTux[sEfqn54=RzE5et.]LLlq#G.JTf
U",ZB><,K1:t1ZlKJ$cH=YM>Ke$R)ahK.aS-X5L*-,^rpQbvpGj6hWhvcTbx$sBBp
U"WD)[)B-haESk4VsxE'kAw[XKL0Q9.B?6c'Jy,U:L[?5LE\495LXHxsUO1N.Hv-E
U"<M8rni=f0K:R#_IRh.6W7pK9o'6>s1#l:h>Rx';*cM^LJD=(QXfM,<]dmRVx*s;
U"L:dOelMjKV)/K0]Erc.zQvv-/I'4a)C)]5pKd*C.W\xbWFE?piqUpbF>U\Xk[(O
U"P/(<Xf>=F9rybQ;TI+^F8Y%s[0Cpse1p8VVXiQ<YUTTi&'46T]-cSch5LSB$5VW
U"RvWCe?08LD-<yfdm?t9YVQMStE05r_:DXZW=(&?R+yL=3-7yDBY%tb1(iK[Cw*G
U"95/\gdW<RK<(o/_)sXRk9j%.)&F71XQZ4$ZY/f(k81%mIJ>\V-6eIvHxm00=p%p
U"%S.iYss^;Y)sFJ6VvbN.KS:s'<,Y::ooN[fb+wYFYSd-]-:tlbQya6%1HPUGg&H
U"rb;T$-Nq:\I,T-k0.kDGtwVNKQJBs26YSO/ar#m#P2YYaIkZTM+wOv6TX<T,^nr
U"GtSPjjm1AC[A]IrxK\Ivc^M](Jc?]R\r%.t$k7-5=ATD^1wmsx3Koe^DQ3l&^d4
U"<jl>Woos%jWWhZ0I=$m\o7%>tuROXl$whZlLW+H^1^9[Pg>3sDcON5LraGj[meL
U"]IaMPyKQY6Ut.<9j(8fPnpTP3GUh\5O#l[x8PaPixB$>x6qkTG3tWiU)cnG0Una
U"k>L=>p28?DJ_7J(.c13ec>^VZ0=q7=OINICP<y836H2f(l;:<vQ-uk.,h3lR=uB
U"UCj4xc)=QUOH1:uMT)2H-4Rufoe*BW:OCFirgd_WtnUXp6?0VJ4Xci>ffRGP#-1
U">NJRTRyPr&:3\U%lWpG3Z'OAgyAVw:6]+VUXTI%nG1^p&yhNS1B$5#peT\az6Zk
U"TZ>H5DZF;F$d7IIS1jVa&Sk*.&QPxreuo&.MdrTj1H>2WH2'_Jd%D<Vomh&C'%A
U"<p<UTl&_^AKPJ+D0?QuBh2j2&3MA,X,h.6B*G)rA=OgGm7iG4ofie?u2Y3IOecH
U"9:4%.mw*ARU904NY(OI2zV)myLw-HH-i+S57J6l78VnoKm=vt/uqtY3s2DrLjRa
U"MWx<\9fO<[rRqR7tVhCYl4nq&uHC]vIO$l1qG/j3<e)1oI4LAo&_2v3Pu.t,a5,
U"<au(2l]L*JQN84)eS$jLZ,I(Zvw2M4ntHPR1V<:Ahc'8s\5>)DChD%p6-)j8?uF
U"36I-AZUBg53&roJs%zl5kL'x>nKT\)hJnGY\I\T3GwRA2G_;;Tnspqm&^tYtbiB
U">>P?%,NXgno^8>.G;iTEfJZOVTqpEVHZ\))o2$#)x8%j4;.>t/*<+6HR*:ehKjf
U"[Dcm&oj5PLLn[h6BGiW][H)lflE0qBLJvVbx82kM=4LS88_0SQt\X''jSs]?UDW
U"g4uDUc28rI19lJ#Zw1640*)o[_g[6-KX#\YK7/,:J+#u72;:A[4Fj-EUn,[hT\j
U"9K4DU_b1,_;Fa5HRm1(Tx81zJc[Pwtv=:MX#:FL75*_'?Dtb_how]L3GrQ95'*,
U"GUhTdGUG[]4M3>g8>qtAXnQ30vSa]a;:[]1vSWiE+)PK\U+6q($s8B)zWUGaB:Q
U">2Uu)pM,3Sb\%_5*sG2$#r#nr',xI_Q#e4>AV0TG0.<]ZaGNPgV&&IIS#;PKotb
U"pRl%vbE,KkKX10i^iNk$Q?^d8jYA7toG$_&_xh2EQJp\L(9PIf.c8=JDx-%*KPT
U"N)KidWtTk<B*bBp[ss0ro8TxXtq#;9(1?#3E#n,.R4r^7gWHOX%d2l(3NI?%66j
U"<_]3'#WYx?wvWb06BfRe6dR=+\*/9s0Ian8gtnY5A$P^I%O+%oW(f&P^I6upQ-\
U"lf0-]':ba0CJFBGmYUnMO48jk8Aps)Wm3dU'=--,7Mcwb_(cG>d.H%?BCi&;[U\
U"&uMTVLLKklmm[sc$>&qQ^n<YZ+..\F[^U#_njoN<mJG1rTGuiY#>fDg,/Z(:6I%
U"BWX8^8MC=oVT+^>K>Gn$<OS-Bb2x4_?RT,B>LzV2)*3^R8_K+NM'&,-E\K1UOj+
U"7>4HQ-Kt.hgDWoo?Z8tF*.au13Zh]2DY9Ugd2kR7,s1\#ua^>f2xfnsLu;9QTb;
U"iWV5%DFOzl8ah>I'T6Iw-.[_,)=ZUpBTD\-i($OV,2NO9GdhL2p#7;cP9%)7Q0G
U"II*20'*13D#:>Y8\_iuSYZH)bU*:VS<c$RLjSUkTo[T*?OKL/EwW]eqWp3=)8Er
U"r)1rwAR6,gs>C,Z+do*uV[r\^MlIPOTQOIjA5TO*tr%OhSWS3cJnNFFrU'y+<<*
U"p_*dp&[Ma5tO)CeW&8\;e\](5EO6hA/sPqcq4$F*;+rcR9_c/_L9WX/GWK55sCW
U",6T4#q#.[X<0>+P0vb0A0WfK-i8MSJNY=M'W#*w_Scdtk,Yj)S(%s<.H/V4>s4d
U"06#^[N:9s=&'lr&Ib1KzM_cufxO2?mqx-kPbdXjFjs2M#U[<g4jQTEAlA)GX7%M
U"#qRmDIExHKL[ZD\Qr,l0#N8V&%9LzS9qesTWk*>5:Rft=<kd%^*p:*e>,\-_R]w
U"MHTP-DY<=6L'OF'uoJwXM:JrtE7<R?Bmnf,>*G]kZl:j1hThA<L7,raEW_].j_?
U"E;C46p+CgY4.XV6PTQEZa3tG6-o2dfS<_Q=)$W.vzyj=NKoz=:KF33qUHcXUP>z
U"rlLS$Neqy^jIw>u2nF;RaiD6&T]NfBrRxclPOAdmD57jn.ipEbm$L/_XnMuv9Qw
U"vY&*5Pi&%TQ=V<m#jlUSzvut6N8uuBNhtmwecRT7H^?jYwp'[^t\+QkA]_>Dx&f
U"p,ex7T\YP<(XCF=e6$I4o/*6B?RWwsia&5a%L--s2ov^D6MI/3F+/5YX&%YUbVM
U"%WP27'4Ju3F>-M&mDFZH+'w(7g*:5&#mCj-U]ao9cKO?qP+5i]L07rKoWjEHzii
U"qI6B[V+hrbqQiR;aqkOjUaMKi91&*-MeUNhWf72'3v]Y,lQY%..v;VBF=U[W$w-
U"NPdztL9_cOqqGxEuGa]RcuL$<TS<XZ+)deUFkUBQ)Wc/J#AL.H3Y?4K2VVD')>o
U"i4SRh-F:i%XFbqo:gNJ/[2jZmLWYjndCZ,Iq)$07\Im2eQ,^$y)C0Q15a9d7)ZV
U"'(-vBsfwIb7G/<g1B/u7yiS)&sra?_(U-kBra0XG]>5<-2\RV-v?/hG1C14+[m.
U"F]5LH>ElLbQ+vrI37'x\NmUWijg9wH:RX0Vw?OModCzYI%-.Mv6Y'aaAc7^FI6g
U"GISSL;#ya?2W51XrMuXb.JdSxc<c(k'XW^w&'E6i-EZIBp&i6XWv['dt,7BbZ&*
U"u)$N)HfG+LBA]U51v7Ebc(6=l%pwYB+1De.%?Y5;QcEom(0n^tPN/ImNbO&),#'
U"YRuMOY.dtrSAF%6McK8zg&dNf4L1Fqi[#0$jy._zKOgs_'LmOqi-#UdilNbj7CX
U"P2*e5-d6o>Xt[AT:.-8bvYh\hSy]L[rHD&k%,#G$o_ynPw?Fk8=l%p:vnx5Tcg$
U"b0uiM=/Dz^'?7;MxPL8C:s>vPW=Wr3sE3?Nu=AubcK1k0eU[*[C7SibCW4Z,:A3
U"lD99cdK$ufK/YNpOMGHYGP'P;qbcQ%h0H_tzrtqm=2$XA&FG?%EnRNlH[(%KK&j
U"h0Xcw0=g].)l=0MV)^ZGT^]g1C8HR,f3N)I9lHJyDhe9SIjX(x;$D&Zh1Qm$0A6
U"EQ-I<YyWGwkr6Or5#0h?3j&rdkG1E>;P]N>qw2akd^V)4D7Okc;>:YgH,=maRN]
U"u'<VHgR*Y#];_,Nn7P0k[iaYsS(H%MI[UEFocV%k<:2DA?a,dk.KS,[qinrUk:j
U"+[bZvEi,uz-Bbo[,KRrfulBk>m>VLwmB/xAfWe(R-)>DJNU4m%G6iWRK^jFaFU_
U"$:iPD,Juo6SG'ZpsZ/tfV-X\RL$/ipI1/lD^DRqW%X%VnKgcV\l[G*tu[;9HeP0
U"(_dnF,>ClJgac:bgu']C_CbX$/8:Y)VL7CjlC<>]7lOQi/7]$VVM9EqFp&n'RKv
U":bVC/KWat]-*(<_\D(b<18A_H;rTH,6&Xmd)U<'?EcIu(pXVM=2h5Y1>7^br%<-
U"p-0a;Fvo(2ufqOd4p[c9l%\%_x=s?>lJ(p=5H<B$*UAjm_0S]gRolVDS)?NVyh%
U":g4\SoF:3\_sxP(Yk6YIDJtiS5<u=DVPIKQN3:GOwu;lbM'h39TfA/<TFARl\0?
U"rOoHcX5jbA+&,qk_s)O-]Ri^CUGAZ-k[wiY0;bYTATw5t\Mj/.NTW$-.4Vg/64G
U"9;W\i?4Klne^ZVr+s[x'+Dkh()Xt[eY/d6?:dQso_'VT&L;5+#E0pWqm.DCV7fE
U";20lJ0,bA71>Te%83WHRiO%UM-ui7FCb]N3;;JF4WGbQ9G.X8k2WmJ]V;)9g4UR
U"g\X0mbpV-)LdypB0X:z%M_-4XW0Zzq%dwEULRM<Jf\j;E(sA+.'v[9mrVeMK)&=
U"uYR:&S*9_J'9$kIX1zN^:oePff6+iQZrl[&xZ0$RHDLmo8oLw(v35)_Z8]O\Yi4
U"x:]2hWa*NBDcX7^>ZQ+1RSo8lP75Lt3Pi8fZ5%9?G_4HE>yKlk8oB&XC34\.vf&
U"6?X841-vF$aW>HRd?lbDr<1=58UvSU9]cxkdCBl^l8N-j&g]9uU';7z]j1R6I5h
U"o-*98XrdC+2dIJ7cVZZqZ#P]ByNP98Lr1/N9\qD%fTm\-kRMWZxSa1'\dp4V+?P
U"W;?W;=SH^d=9QH8\Whj*4l+u(W?9Ki%5V+[<_Salh*x02tOmdDrIZh^27+20LtJ
U"4<aoG*MYq1+Or&PtKM^coDY><HQ?#eN'HEo;(R(.k2Ai)xO2RUzL:'y'q5rnk*k
U"qZv&A2SblX$=cGumg/$T<M/UFqPxs8aA1ihNQSindaN.QnOIuxO<=#N,\0Kt9An
U"t)S/Y]jXN2$o[rm$oZxKV&2qAGary?dCoYahAzv:^InT\nUK$tY#YhUb08]rIEi
U"I19](=D1I/(p?3\Nh/LYn39h4dxEnv]+Dr$DR8gF8o?<H#Nf0.Kh^9y1nNu$#mm
U"D-kugyS6H<uIfB,YSki(VIda1lv:QPb9pfny=b..RaaG-nK>oe)81oH=L/$,w4A
U"Ub8$cjlavRmdz09:oS;<ned9gk4'Da=:xE)Q0bW4<$Daim1mqKvJqqg;r\I0VRI
U"5n\gQ3c+hpV$^'>GRTT)QJiN+R4XWOcVf^OMvw7BK,UFyfuH)0if_AJG;g*3Q,]
U"f<1YsOXcT(Rcq3hFw&5h2\x*oQ#'JPh%$DqCF9%p_oc1C-0KHZ0+YeY%\Jro+NB
U"[F%Xqj^PDoPSlwnr+P?CuY0h&0Cjv+-(Pj)etTAoX#\aU7ZRdN$?U[)#'hCv4Jm
U"IP<?WY\OgjYm,5ofo5o\Zg7fcC15M0N*bJ?s'FJkh+ngkI3fd3_%&1H>47bQ_gu
U"RH:V5.;4Hn/sJiegDr1x$,q(M2l*(_5$kA=g7ewAHX-6feE48G*JH1pP,>:?XOU
U"]*nX^+H1/V&xRm?g=GXtUXyCAqDY:Qc>05Mvg*s1%i0?:%wC5&baz9:*<%G\Yz5
U"*bkAmhbAc?IgJ5.gk$l/,RLNK)/wSYILaU<$Pp)#Sz%,dcmfwNG*VOAiC6v>f%J
U"TZ0<t/U>ll2iJn]uzdC6FMoLV-(QoUf4A/<^v54?Dkk;05R9gMkxYqTq)t%rI+*
U"wTsoNtiedX$%ek:;E'_%jED_JMff=AfA+94emQZ]&f_+]j%,A>1Bsg'EP,/4p\s
U"u2,#zHKejRUSt#-o/qyx3cFuyb_1<Pc,\b3^-(G0_pd^mUiK8(JY=kiw8]$q%u$
U"rvaqcZjd>QeaI]lq/l]RGT=_%spw?VbI%(zy:].NYa4B)?f4e6o7+onZnc0UCxL
U"/xVZAfQN0FF0nPiY3Rujme9ZCIMwyC0D/Yy\vGz1<LA4M)FK^*e8\(5eCRzm0JQ
U"#YRp>Faaj,YJ]P8il;xprp+AL,V1^;/BEgtNpV5=Sc(S;vm*H%8&7N&R4taT4-1
U"ab%Jgp)V20FpbQNsAc4MW)at6AGjA6(f^YlLn2n^wne#Z]9w)^2D1fLpJG<CN$A
U"yqOQB/4XbS9#Ei$KoZLUotle,*;;26gWh(BE;J\iX3d_JJaRo$4hw9S;Wb6Bc[s
U"ap>6Ae$b>_Sh1T,t-NLVXGWYY,OiCR<uxr3t5-48.B28)jXDgxZ<r0[vs=^<>:+
U"uVxs[g:bix?A>TdO9&P7?([:zBMj/eN)r:YplUVX?qb7,Ge>wDg+5TspuLeejD9
U"4W38a.OG7[RpLHc873LAfxMfW-D%ai4EH,+uKZZIH[ZI(/s?J\p_I#Y\(&i19Ar
U"KQeQ;_%5mVFy\:pL]q?Xh+rKODJ3/-q<27Pdk^R:fTwlU:RFMKuetxu=ElNq^h9
U"D>Q(5%Rc%c;LHA3[I:d_bm:Cpvm:Nl9Vz:eJacqw0.Yzb\1v%t^grIh+B%KJduQ
U"V:3YEW&WUdY9k>'Y(*]MZ%cFWi0HIIR^tC6LG3Kk]mF^1u/9KME1Vl2_ub5M%V[
U"pTB.l[;*aEp+Bu*p61w*cgNyCAeQP9rf?2WhMeUxAb]_tK_)=0Engb4(G0u<*2_
U"*DHm*lOCrt,i>6K[0*<zfW0:MSMmO)Zx=p;7I>cpL>O^Xbq%di'_DNS)7nPS]aS
U"fDYe<$wklYLE&]f(3qHVlhl%f$4i5I4/;q^pSCIiFq-j>/Xab^LXM>Gyue'#7^l
U"_\#*>1JqPWICE'?%#vzrGLf^5p_=&wpW[f90hl#BI='8I_^v%9C#NcCz?'A^9/[
U"Qg1/;l/$%(+u=evTKv*Oh7YRb9Bfi?vA2&?tGUBc[<,)T\9(m*j8Z/a;.9Hf?<e
U"r+w)54dwBq%Z)zCgc)<kBaF01M$#Q+>xM+xsRb]jo+C?-TevZa4Kxi<c1W\HRrU
U"xjaI?0+TZP]q#iOK^TlW*GMg1MX7R;-_DslO1u+XPJ/1qbyJXK))h*JGmsOh\p>
U"^M/Rr;js5\'BzAVdP.4$dwg11W'[>=HM<ik]&tbNAWaH-d*e=q(zQfR=S3\+bJ_
U"OHAOvTP?fXfQn\)\3MH^J0u7P#'.y.X9\N\G;-VUi6_Wj9l\&W51=N=r)x*=acG
U";%s(B)#N&4fm_dVY;65*t6g*oFC/IgxU;74_YP8%^-bOK6Yz.9b*h7h5d5XCGY&
U"r&X\F2z-*ctUWFEfiMJtcNkZ=Tiv:5j_55+N?J9FSSjZDP%T:0S+:^G(ILDpoax
U",qnx6AIP^^;.>t4mwr+3a8%%up(%)9%%#%-%_$,RKl'r2(,[)%%D%#%%-%%%%x%
U"fsxS[ksy&t'dKdmO-vxQFm,'bX2bx)blifXuJQm*V8j#2(Q+I>m$$4uDwr4'89d
U"\g*W?xmttHu]xH2dW$>\0Cp/-mjtvvDU<=9_jkv%ILkBE[)SrgOG6]0FMW?w*Lu
U"=bApn>KO(/FR69Ac_n,U2%RbfEedEG)W.9-Pg6d76z#.N'VaAT>oR6%0e,ll*3B
U"q>axiOiZOi/*i6FDSZ/F$,lbgCfQ&o%sOAm%X>To[P3Qi4zx0qME3-R^NZ(OWOq
U"nh8Ew%&Ihm\2W0f+mV8X?J$whX(F\C?&/=?hZ/7'g$'bE2$>=T]N\$Hu]0oCHr9
U".%/PVHbjQ'e<^Ul+b0_f1BgB55(2u<*i9e4a0H]o'z2tG*\Y$7HQ5n^I5&FL#7J
U"alnVf(ufTZ,YfD<2qMw?uXD18-A$D273n,f;6s^FB/R1j2^N8k;%X8WVPgBdq.u
U"X^J,aVQoLjC(RYH6C8OuC4<J]Q]]\7[z):Im38KClFhJcyfG_dcRDds6N/M>M1(
U"lIa3x[o$=4hTP<rfIUH5hV,80kdG\_uDxLwU[$8Ck[=c1UKeO[TE^NY/H3%QQ=M
U"C(>50U&:ul)XdB4Vs=kwRC2gF0<3FD0Qd(nv,^glrw2n^j7Q;3I7lKa:)Dp*J3(
U"XfJFJAZ%&L7J-Ls9coEI%+(KPwxBmbFcCYJk*L9#NwWG7f%Wh6<jNxs1D:%VDI'
U"51PkT_RKvq;(%2I2f.aN:L)aR9b9xy822(Im<[Wq9T(Eac)f0D;F(rv7>LRvfrv
U"HX=Ci_*tm(Z&OEMtB/d(Zn#tMoSLbZHUsiXn(Ma#lm(3D%[Qf>ITknfWXID6St>
U"[_Qn6'E0*NJN(N42G[sS=[2lAaRufxO+7Bfh?/EhPDrIBZ]uisV.am>;J;.#KI+
U"Mlj$W^IK6ew*.TL71:D*Ol%p&SjnsW*-MGJ9L6(J6DoOe(=Mz=^C-&I+\W=GS8f
U"+[kEcWF2#&(?#:CZ6hUIYc3xf4^&Xjz8o61Y#ie=#:x=b7$EIZ?-Qs:gI,nu$k6
U"mn.)SBgj*bSQNry&uHpkk+1rMfV*QEbg'BjDs\8sA$WXJh%yJRKJyHgwU^ud'._
U"4xFB^x4GDP1Z>meAEMX3k=En/SjeZY2WM]R%lDl3m?QTT21M2(8yxEX.v)JxaPt
U"qbL3J+nhKZrgx:*:PT,8UjB=\;q?bZ-ZuJ?5#,$H\$vD%E,U#-(4k28Vg._YOR8
U"Xqo1x0h7U5Xg7F>A7tZ2Sup(2?3bUvgG*iiLpBa.0>)*hLpnz9?ju'F&XsP_wc8
U"X8HOEE2;B8MdPf8PlKc4,0FcYdDq*4j]\G'r4up%()9%%%%-%/$'9KA]30t%.)%
U"%&0>%%%.%%%%xjwn%kSksOy&'8-+]E-HwXzLs<7%_0uLjiiR+2Hjq6]k.96_rZ<
U"kv;Ztp,MRdiM=d%15P/JN)dAYd*]cft.H_ijA[uc46x;J?[EjbDm:1NWm*IoJ#r
U"ncn?O,*-bG.VSaaLvq;?%]L#Iti#&+<1,=5:&1D16b%[h:UDuFDCMd&SiE<C._F
U"u*#Ct0p'UIRISqI4_&Oq:sIF^G<#n5LQuZuK'6p2mO;WYZ%5lC#E%WX,OZ(L42N
U"s5F0BV8:IfvvWfNwe6(usK[o[L]#[qaA1n=.G/^g,wNc%L,JX>DKs3#QKPXKmdh
U":0&$ec%rebk8[ox(BSqiiD:4VyDAgpGU\wYsBwXxNLpFy6ZwoIY1O-f.cQ(\5gY
U"GlGbc+;_K3)o_gyqp[&.FO?Z_w7Rnw)6Gi2wEPpZ3G#s#M7Y<ir_xr-A#MC;<Q5
U">[4ha+.NFtI0Lks^*=Ii^[iQx,OOcHRXG:'uWwfasQWQJVPE,<W/,m1>TELVf8k
U"L]%AVT1];j0FW4-)Qir_QUk/lirJZXJhJ2aSgi)D2LTX1MqnVfEmO$vCEYg+jeD
U"8d[]Ovql0#tv7.ex#'wAgbDr2rj=B%oNN8qSf+&L*<&^reX[;K5ZnjKZ&V*%c60
U"MA^*]Vn(3(#r(#G(p0r,L6QTw86.o:UDBtGX/AxEe<%I-IIGSG$(&)D?4uL(kE'
U"0,+ABQZ?qry9KDB\<vt?O<?-5qGSf0JZXE]9.nn)aw*AZoFr+'9)P#%xEk>^*J^
U"GBAyI.AA:lP]Tnb)Dhk4C[,phlUJJ$QoD8U?t\vYNMYWBUb:;,,s%dS#zhSrRtP
U"A>.zih?aO<_bNh8)7CQ7GyqP'hggs4YM_J6chkJcwZV+qVhc6MsR-0+?=uQV2?B
U"a]M\C?0xr*\x<aMBw0z$w.]_02$PR5Tl$uWlQ$uF1R)uY]9c7$g[L4N'TtJr/+,
U"^69A9H]4hOA\NJmGkrYsB+3In99p4%b,yE*:>_hC#\4%926OWtF&toz8/,Xs)os
U"JmFrr69xKZx>9ZpYlaKN.LHrhyY?:aKoH9dhkicGHwUp-X%;D8c^0BlfsA&HvS1
U"Z3_:G2vKZg[8eCfda5]rJl+hfnwoLNjs[y_+wWzXZ)o=]QPCj'4&/+Z2SmsHb#3
U"Z?jE+Vd1zvB?IyKIvDF4.%,+ACMi6h$d6=$)FJD0lVMo#*.jD/ZV4o'CY_;Y)0a
U"xd*Lr.qIh4,7%j8(ng=a8KeLPMLDS6-/Tb*33\Opy+qOL-tzm:Bi/BaC4ANH(5b
U"Ar\rSpAkHhtN+]7+IAbp2n7a\j>[Irkhw%?TU/^0F9S)%phIupr'h4up%&'9%%9
U"%%%#-%x*B)K%l:Hpw&.%%/(%%%/%%%%%%%%%&%%E%%%%%%%%%wjfi%rjSy&'yup
U"%&'9%%9%%%%-%esf)Kso0ZzT>7%%1w%%%1%%%%%%%%%&%%E%%%%K'%%%rjsz&&t
U"wp%Sgfx%up&'%9%9%%%%-%5_,RK-lr2(%,)%%'D#%%%-%%%%%%%%%&%E%7%%N#%
U"%%xf%sxSk%syup%&'9%%9%%%.-%$'/9K]3(0t.).%%0>%%%.%%%%%%%%%&%%E%%
U"%%'E%%%xjwn%kSks%yup*%+%%%%%)%)+%X%%%%WI%%%%%
END SUB
CLOSE:IF S=15AND 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
