'=========================================================================== ' 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:M6DhiRDsoZz&T>%%'1w%%%1%%%%rjsz&&twp%SgfxNfK&JBb[wqHXFv;8Fp,reMQx6-ceYJr>5 U"kG3py<,461JP22#;?rGSemPU./l;bTgg-5.#n U"/9Hr4;q_hXUU+ZZ#4bF)7;STz+bjY>?hg^pW=CWM,NY=ABBCZqBdK-(.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*g]HQAbGjn(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"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/(=F9rybQ;TI+^F8Y%s[0Cpse1p8VVXiQ\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+wOv6TXWoos%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=OINICPffRGP#-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)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)KidWtTkd.H%?BCi&;[U\ U"&uMTVLLKklmm[sc$>&qQ^nfDg,/Z(:6I% U"BWX8^8MC=oVT+^>K>Gn$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*:VSC,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[5:Rft=,\-_R]w U"MHTP-DY<=6L'OF'uoJwXM:JrtE7*G]kZl:j1hThAz U"rlLS$Neqy^jIw>u2nF;RaiD6&T]NfBrRxclPOAdmD57jn.ipEbm$L/_XnMuv9Qw U"vY&*5Pi&%TQ=VDx&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$o U"i4SRh-F:i%XFbqo:gNJ/[2jZmLWYjndCZ,Iq)$07\Im2eQ,^$y)C0Q15a9d7)ZV U"'(-vBsfwIb7G/5<-2\RV-v?/hG1C14+[m. U"F]5LH>ElLbQ+vrI37'x\NmUWijg9wH:RX0Vw?OModCzYI%-.Mv6Y'aaAc7^FI6g U"GISSL;#ya?2W51XrMuXb.JdSxcXt[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;P]N>qw2akd^V)4D7Okc;>:YgH,=maRN] U"u'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=5HTe%83WHRiO%UM-ui7FCb]N3;;JF4WGbQ9G.X8k2WmJ]V;)9g4UR U"g\X0mbpV-)LdypB0X:z%M_-4XW0Zzq%dwEULRMZQ+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"4oe)81oH=L/$,w4A U"Ub8$cjlavRmdz09:oS;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"IP47bQ_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"TZ0ll2iJn]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_1QeaI]lq/l]RGT=_%spw?VbI%(zy:].NYa4B)?f4e6o7+onZnc0UCxL U"/xVZAfQN0FF0nPiY3Rujme9ZCIMwyC0D/Yy\vGz1Faaj,YJ]P8il;xprp+AL,V1^;/BEgtNpV5=Sc(S;vm*H%8&7N&R4taT4-1 U"ab%Jgp)V20FpbQNsAc4MW)at6AGjA6(f^YlLn2n^wne#Z]9w)^2D1fLpJG6Ae$b>_Sh1T,t-NLVXGWYY,OiCR:+ 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*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?xM+xsRb]jo+C?-TevZa4Kxi U"^M/Rr;js5\'BzAVdP.4$dwg11W'[>=HMt4mwr+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(RYH6C8OuC4M1( U"lIa3x[o$=4hTP50U&:ul)XdB4Vs=kwRC2gF0<3FD0Qd(nv,^glrw2n^j7Q;3I7lKa:)Dp*J3( U"XfJFJAZ%&L7J-Ls9coEI%+(KPwxBmbFcCYJk*L9#NwWG7f%Wh6LRvfrv 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&SiEDKs3#QKPXKmdh U":0&$ec%rebk8[ox(BSqiiD:4VyDAgpGU\wYsBwXxNLpFy6ZwoIY1O-f.cQ(\5gY U"GlGbc+;_K3)o_gyqp[&.FO?Z_w7Rnw)6Gi2wEPpZ3G#s#M7Y[4ha+.NFtI0Lks^*=Ii^[iQx,OOcHRXG:'uWwfasQWQJVPE,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\^*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_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