'=========================================================================== ' Subject: MENU MAKER Date: 12-15-99 (17:47) ' Author: Randall L. Glass Code: PB ' Origin: rlglass@yahoo.com Packet: PB.ABC '=========================================================================== ' Menu Maker for PowerBASIC ' To extract MENMAKER.ZIP, run this code under PowerBASIC DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"MENMAKER.ZIP",4^6:Z&=11085:?STRING$(50,177); U"%up()%9%'%I-%)8/^Lla/UE0II%%NI%%%1%%%%rj%srfp%jwSg7fx-];:BSoE+n U"vd9wh(31nsGgp5M4'mt3?Y27RP'Q5B=qX&eVG;NST$ U"&%t8Vvv4VYFhxZODTIvZ7)xHG3bHLS5'7Ye'oe;A3(hi1s8ae#Qb%3qlb,q]UU]L6%/RO)H%_A%/Qpu^OuJ&t.-Cm'7-wBiIih%98)UjS)R=a6 U"gy;c9Nv7+.aM=bH&6.zIJH[6QnKz+8,9R4(C6v7SgV_7K79kZaLtaguF)wQ9PiU U"gqScR$#P'K:j^ht17]HMQbq[4xn61T%ZN]Z4kLU/:u?W3:Bg)R0Im#h8LFFiU;[ U"3ch8(lo$MXu&wr[&_tVV=vT>n9aC3h>F_*lrZ>_6&N<3rTY%P7?,vCMWCiAn?xg U"f#;ltF=eLFXrTOt58xC&MqCui#Ka>bh(9#_(F\:e8B1oEbd))b27m6&5_[6d+H? U"bWf*gcjYgt3dI(Y*Vv%Jo$._HaTK^Heq?70K9b=g#Tak#$+=bNiyK5S9FK&3AO- U"0^rANhHI;dLWpZ$,(0nZ4wxQL[kW[?2\M3STNh[BW1fj7H]4CFARz7I/BIaaWo:4[C08+Ggk.z9g\6qcNsD^c&WSC5u=QO)f&N,8BY>4y&=((o\%_sXnDbSrX4npM/H]9=^[M'FXeaC.6R U"J*F%R-K[WNFczaOEU^qn[n+,K?H2USXvQ1l[a U"r6kPynQL.H;rA=d/rT1;6?L3OS2$\H9ibW);d^r6e4t=3K^fB9=h&I$Y/Pi/P1l U"jW=4JX;^\n?dM_BfGTcVE5O,vwfR83i?Wk0.;BZQmf%8w^u+Lp%#yEM6IJ)]fZr U"2=*>GDi31=;pMlkqYkVs$1z%h8mWVKWNNoJ1st8qO0s;i?$)v%WC0B?<,/:*X(: U"acIs7ERie>iXAcqD=-YFBg12S)-JlGC^*IhKA[*/aP(mSSYBDeff[?\wI/dK;H; U"G\As60rOT\DY:#5Rt'y*NJPS>$x';K U"[Jhl;W2w3\:p44SMc*c^JDI9;?Xd]'D^#pCdHBbH^hsFsfIDd<#wZ24)\vZO/5^ U"=L.C0l[0Y\;PXqMtc^JC(.8B1q-Hl5^rM#IRdFf)uA0*f,QBvC0mq%,$*NVJ;M\ U"84VM&#),yD]R>c.CGF$h0*gd?p(AZLpT'K8Jvm4:7E[DHs>eO'#VPH]9;p2bh]v U"=\CvX^uYO8:_2wC^k(>c/.Rab-V8Cr1Y*QJD#w,BWpXL%U:6m-VAmYt*YUtHHdw U"#hqW7zNu5Q'/nDt3'&FZfB.1P?cUW/Sl,kmal1Kd[*.0st2YZ,NeE%Fqi;AYyssDGCLk&YN8U;^6li4t-U1C$z7O:ZkJNHiA-x#fF U"7HCV7Up;q/J)GsQsC4)Pd1IjfOuq'&p%9:.3bdI7$xKLA[d\2qrV'Rf:)8=f627U U"]rNm]DdJ8_)4mO]Z2-ey?lsd.Zqn U">b^i*]Z?R>Or%OO:cUoww?3Yx>XSQ9%Gf)+y81 U"?YR^Zo_/_HTGYpWB1vk*UvJ/tO#?a6P?d-klNZRk^RDZ+?c68'*h2(cHqtS;.>- U"k7GlQzQpZ'9E-j7QuC+\LZMRLPOV9iE_6ywC_&TB/b4_K.[_ U"3CTXh%q7o+Wp79(Y7u'>Of,o/fq8G..lo+QV;RGTLtLhI\O&?/Cgcc%#76<+N2v U"^I#)^P<_&w?d\'-Lu;(UD^X\fDJ7IS5h./_,L&RtFF'azXw*K:)]mm%eh)QGbix$O#)sUwC4\a^CP3d U"h>B(k[K:=?s#4vw999&njgL6>kW>'1Z4t9E4kmW(Rj<=20q7T,Z8OD U"uF8>Gbm*6of2=PO=G^Fi1ytvI;KhB8 U"ql786$0E]Q$9r7VZ8VR)Bq*PIq7h#Qpia7Zu9sOk$SUos;c>wMq:5k,DSgMQ3Q[ U"(EIX8u357Fl$fq;?84RU4s_gnO//(kAeg5J?J+jwzG35#K>]qY)1AC'biFcZhsx U"9p6A85jZ#E<6yPnH<#clEi_oUFYAVX.J-eVs.DBp\;:PV&Wcm[\esvftM>5*6&Jp:' U"4Pe$YlcCvD_5k<\cYT=-C/O,rW2*Tup4+$q,4X6kk7&r(K/8JdMIq5^8zL U"u&.p:lpW.vLI22nuj=8w\HsbJN2jb1s/lWtR7Kg+KhY$aUs$hhwclgcH)WxfH1\)3di#FpBebs\o U"9h^TOnY$TS=;>/0p9*45*[fxxQ3VRl?f&LZf.^P9,GRl:[cR8&G54&A+eT;I#le U"7-l^>G$*%m-R1J(Yzg70(IZBS+_\aQ=rZ<2:8nu)#aGei7zE28e=-*F6O$DQx_J U"$Db+CfHrA488Dv+tYHA#7F[CKjSK1OyUdUpdrZ.us.Wi'BaYvRJ7oF80\,%$DzM U"\Q%FIM%]kP[sT?3+$3yp,Sy>\+cEqQXAIWsW.BR6kKWpG='<^wqL9G=:W9OK-(e U"$^pM]_TQg5L+J4NA$CHV;9'Q?-&7so.YBGh\9V.sO5clYa9198B4\w03Zez=1X%eF?XmU<2-RFV U"'PuIja]dFkCFBt.CK/9h$tOOm5hHMR*:9k7KGrrXbGH$W/qep\TMdvlmmE_Ss:E U"Z?[DIc0:LeYL.FW1%S3e&v8F+xG4;\15X:8$dj<2MYsM)SvK]g^gsFs2E$*LamV U"&k1c3o9TN'r($N1Uh5=XlRi;,n>Qw]r5G4evhb/$0GYQfN'hOxZetsl%3e*4FX\ U"drt&JM=La^[VV]kC\,.(7mheC$Leo53gMLQ_&$RWXGeo&SOYB.B U"n]m*mIL:JsRkR&DZj,Yos9gW]#VDNj+YI_ZF$Z\p_X*lp]X[L%X<*U35h='+];8#f-D> U"=>OCUA+Rq#F_m$u+-/BLcE;/M0B]7hrsXi5 U"%v%*(d22Tt-AOa8x8\$:T]5%n>)N<^T-:qa#&Racbv3.*lVJoT+Qt1RGr46PJQK U"2Yz/Yr>9xG09u_=V-Q\idk0O&<,/]dZ6[sjSiixsWP7-n/]3j8F U"BiVuLW;U>UGgsBL)AfKka%bjQVf,a,U/P?%d03g.P[M(xr-gNC($6OqYB&atv5R U"/,p_75wKI>wVD$-TM)o.)y6O'j9ka/0Vvd7*y5u:>eouP1&86L8d&Z,b^XtV%(R$KSYR[L+:JGGpGs/i/ab]&4aP?AUO='_aJ?M2\>r U"LVSl.K+e6XaKP3*K5tUZbCH#FQ4?ByIJcV[JlKbT).j;cghqk+Uk_JCf??_JhA9 U"gCJb1o9SW6kAahd9OE2&H2*D;A^K?Iz8Gx\R&F/6ebSa+U\OndYig*#hwOcLo-\ U"9n<]#*2Y U"AJZZ_anA5QSeaZ#Ek,e%C_9DN0E,fP)[1yF\f5gCB]^OV%;fYK\ZhR6Qp9g+M)f U"S2r'nM7Uf$oT#19F(]r&KZ[ERNxbTdG'O,Ft]OUb[G1N(ambG_f:h:_]]OMUb$- U"=INJJi2Ey<1nI2X]g_^D]/m2LloVS_:i4\O1#Gw]^czYC#T=iT_Q/e7\O(^FP9u U"iHGxgK7](2TLYEB7s]]>'2'qf\NlRFAa/NeM8<[GXgJ709v&XChQPUdQ7kc>9_\ U"*U??]xDlq.4cp$9_-vV#lp,8Bkg;rDQe4/KFv_TH'cy U".ZE&([^+5JVH=+?47EV8QVuEYU,d6DlKel-[qSQA%^,ue?ZC\ U"l8J_j^s1'TeI/OsV$K$Bw^K;N>GLyl$X4$d;fR2\aa8g#,wdG%K9hPqy&UREn)[ U"]>Fo2[%%)#vJFqQq9S#UBe1l%)(?\U/Z?[5S+_W/UqsY3w3h)1)BqEpqi\j&66r U"z]gfi.8+Eb1<2obk2Y+UY53n[=CV#&3T+'E9_[xq%#y)h#:'P1)Z[+qd)xY:vdv U"+$Lb]:[C(>m(OEuTYMgv'rX(trrm)-5\7=)2?PFsH+8U/Ck*]e:Zdu3<0ruGS#ZDLeU#3 U"mSUQ)2H)GRv2Qe3>$;&)EQ&I/,h0a/m^\sl)5ae]TQ)isH5Ao[.V+DZ)BU*F/V8 U"^Ok9;g+G-Av]1mft<'4gpvW.'<\\KP+?VqDtp^zG32,V/.F^*OL8nZ'rId7IGxGp\c9HgU4UWC\ggid&>__cP,*=U)thnLvbFl*W-)Fltx\1F/)>/_u7ftMr+LT9pM#+P=brjrGkW4/;#M.V U"qZu_kw.j*ZAP0*;EgtV=8S#32t-,x1hG3o6R4*,%E^mHe#DO]UU\=H1%a6NCI89*05^[x(-0UB]GVwc+m8NfK?&yU6JS/q U"SG6xs+:xDo=Vr;/*6TaNtMGHVRC..yuATIOl4]r U"&q^4lk%K_8rV,g#&+ATC5Bn,$3CRe6H:TZX=d5LIS5RW^LQQAjyrc0%1W.)L7HP U"m?%j>?k=C$HE'Xdd82;G)TRmBqAuPI8J998/F+^gF_AKLWMhV6^san?>JwCc$&a U"#>d,r_EF+mY;N*1P'RMkl<%S&VOpqG7RO(XZ35VPQ[FPD/:dt;G'&5[]az1QAAO U"57WO^E-YJU1nS]dWT,\hp3j1dR,K$Mq+0$9'.A,$$-C9l;9fk_IIvS3>_xMi'yUO< U"3Sk>jsINhBASqulr(,Nq/z=7(FUru?d#-w3J:Y'^Sabx.'CJpnC-FUf39Td53lc U"BG.5Ji]Z0s[Ao5]9K.Nr'$n$&(.b#p)CzHugS)on0kq:AE.mW3[4klg(L58PvAo U"%Q<6uo/?AAN0q&_GA)FO;s,t7[AsBff]lH%Y+^#D-:mW^V\#0+>l$\ivkpZ?mGJ U"e>??D/>t_>G-HHC\0L<1.2Rtt7NDIw;xuIBmPP^W/vw5HcW8wUeM#9N1GN46hP- U"Jxb<.j4hR9n1YGNa(*9x]YqC9wZ2<_j2jcnVl6bd?i1VDHA$jxi*k(YylS=*0cZ U"-s<&jEuG>G7>d5YU%b+%YRa^9,pB+C?.tVK]x1fmSRU]\ZKHhTf%>O5#H#]U3fr U"3h8kUq&-+1Y^]HL?*HYj2;z\u?4IJ6]u(6g5Tb\gFpk U"p6)ELLi6\K'l>=SdlT3N;Evf517cP)TgrA7/)^b4f,D05]4e&]C#r1Ma$bnda;] U"i.8*r+D$UeCr.000U'pPfQaT^MM=TYIv6DBKat04h]pBpqqS6\/taw U".tcK5('5,9tGE^dP1hl[)eSlob17tgLG3/F]n;:m7692>gZ'I>o9ne(MiCbcS?E U"kE6>/MFl3Gzl0zcdFHxLvq8U8X'eE/b?b9.5xU4<5mM$$;XI9fF4)eSaM==lxf( U",]N%WJ+JlR-.QAYT8-',h#Bf_d8JS U"G)[#_ELa&tbv:r$Uq98g]]r:Y>^h3:(jbdt_lO=xoMfu(VwGfoGkj&i$-0a0VfU++ U"DrCgQ.i[:Yh;sb#Y)c%Fq6J(k$^M=#HU8CK3iVZW5Kty/l.Gjo#.?/ U"#QTRVIW\D#guadW;:TRf;ue<;l26_BoS4#f_nJ%Nd*>4]TK#EnKh7JnIV0Q');) U"*4t[gafdNOw'6^C+)LUW[[138iT\gs2 U"OLD5zFr;u94;rubA/_/fH82mERF.r#7I,L#l10$Bx=5CXkdsWCmHYJFoz7l^9#D U"=+0;;o0H[/uX>_biqi1$R9yHEHJVk.*SW$SA%s\'?\+[;*afs35xNQ-&,gt,J^T U"MlV1&#EG*'esf?60%(_g5Gs&9;ijw3T8Q3l-.e6;$lT694rWHVu%rh_Nig;r0(( U"^]YJPTlkFxwS>-:K:4pPh+[U9Ul38yLZ+^W4EZiIq\sOz(,VZ(Y)3E$p13fRUaI U")_pxoRl)-A\bn$TBW_K>42L/B$L/2L?GoI&q#LDIE>vh15D]W#D'eHf3(9'vs7W U"R+&qIamoiM&Y)/8t'R3M*Sf]MxY(9tTOrpC6Jty7#Nko[W'NWa:/OSP;FSBtGY* U"n9ct,ZV6R29Eh;:FO6X>Nghji1xht3IS^=Mcwk\ch;yJ2W/>=Gqo[4Idx>Ad:kZ U"q0H)qz*=#?QLTi,eWX9(&ML^X\'l+.-^[;WJQFj1iLm,4P]'Wf6%QuT8)C_*_A/ U"u)5dXE*O'kuepF5CSi%=BXdXS9;lI^,BQU_JhO\rCDn1#reRB>HQ[$f?\ U"'aWpn4a]ir+\qB*UGN)r'P9F+gYO)\=;'HuY9DYB9xAG0RAG+L,mjT'9z-W(^'> U"Ai%_RKK,)Qdi[/dFZ:CY/E^5F?(:Qq3#++,R#13+Y&Rf[,L(RRP;jT9z+-O^E9: U"xAM=IK/rFmf1DY8/88$5NiN U"=n1/pk.DAFKmhrD\b3>;M:[n),*C\SQ]p+tN>UrJtLd+HHD13rGnj:Lc_FNeDof U"u7]pCZTaL&\nX+e79hkF*NYE\bjBo^jdmb/?KH+pdNZSqt^[r[G&l):v[1x[$lO U"Yx576,NM]>-apdn68qH^1i$TiiJOxuSEN8E,u$*QFNltPgkJwG&H#4AIT]Er:EY U"H=7Thng$REnpZ)7EEOOdgu$Nsr$(Nnv]w9hwpf1Tqot(9s)\w#E+*/Zocspl1fh U"t0tFG8q;C.F5K9mL7<]rHYcASg:VkI$D.ZRwZHltd.wftT.[Tpl;E/:LKC<7lfl U"NwCS6$0Jtxuo^w&fW8b1E9(que U"KZ\YeWT3c'xg) U"Ke-lfq^=lQ]+YI0>k]JoaM+56^fdh U".lZ=Wt:6N+K*3$P7wR>%+]HR\psJTb6Nt_P1C(9A6],hhUYEjsP$c2N=fF*-/81 U"3\c:=OVrJ8Zn7gwjK$0R+L8p%6x[91+mTIrkm^Z_D;6RUnFl2a5LcKipEK_u+me U"&WIN2j'Ek-:2DRq?-soOznp\I[06?-HjHf'hXO*Ea7(%sh$t#V)?)VqO1x6<]Y* U"-h>*[7Q$3RZb]5Qm4XOm#KjNPNH9^l<+Rw4RgdQjascDH&QD?Le4D1L*u4hC\L*([LuWC\S'or]DXj1gcG;tCzUs8\yYRKh>>inVDb4R>rFh:euh+%*ST8JV1 U"&h0z'jY3kATS2P(4+$.qYBuX#g2bdGM=n\:WQ^W(m+(G::<2Yl).>x[YeWT);zB U"k23u;2fQvN;\)nvbF)Su=Y:P\25-lk-u((Z(h*S2FPTS.iJtu>oYALdzVP^g U"Oggr5>I=Odp6l/[K^x-3jqCJJUt-v&NXxaV=6#;j^xmnYqUO];r[CJTT[rn3K?3 U"PK_\4l8%9\N#LsZG*9'4q*aWS_Z;eZ]C$(NjN(KWco]hP3[piV9LSs?4v$vb\E% U"xKB9h,B6#Q[,$'cBGE?K$pjWIF)eF(R2UKER(#i9+qJWnUwChhHL/Z)waJpg;K* U"fhD#;l45G:dG,xOkQ(i*4%=VJlSeWIA]rHOXY>5S'jcGJV)76Gmft8.3Y]Bs4i) U"O/jC0HyW6miUS/Cc?Ei(4Qst8aF$[P=t5^0GW)irv=&1vq)F.Is-8+&j*Y6J1Ch U"N0e[/CQxKs&_MshVE?YE-6:ne3E&:iO4V3vO%G-\dWifZ3n3SXWVp^#:Uf9nY_gDAMTPdCs35RugI4pcrcl25CG>8pv0rmp_:DW%j$fW>^,0 U"K6Ts\6TK=ajb:aDFzL\=l2<(7GeAPL-TqQCE#W0/uicdY$1,\_yA<0udn7jPQ4; U"K;H\SclXdHa&11UK=[jLGjtG+#;OxpR,w6X[FU,5Lks%i08?;*uKX4L?:LcvZ/YIfpL U"8>c5QKD;7Tqr7)/=.(rwAt*m U"QH2T$A](QWo;KBwp_%brR(6IA]4FU6]%n0i&nFJv;+ U"BFVipWkt'Fug0#97.7hp1ZRRtr))](Rr:)omjsWbe(:lf>>5rMA#LZM*oPddP0s U"wv<1$,W/YcLt6N1B#&j3(fNg1iN#]wPov8hdp;N3i9(%Gf$bE$mGX3-odtW)o'/f8x^T.y&k U"dmXnL0spg%6osgGp578x=PtbT)4+gx4(kw#eWA6agcwPz0VHMs.Vldo9/Ut19[cXZp($Aca)t5Km->$ U"UlG3wb8_v^DS&'lXbYV>cKgN8mWqG[bX)El-8x*u%p()9%%'%-I%21^:L:7>,55 U"&%%%e*%%%-%%%%rjs%zSifLyTb.)>jU9l>X$q+3w)qt9Ws?1DV_=cE)XK[/FviG U")OICn_Sd0>n<.x=GZgJteghUGBHZ#A'B)Yc>jBr-VZuB=#JT;'^Pq-?.&XtuNIO U"a5*xMiGw2Tm)tIM9eEafRA%q8i4wk?P*79Z+NjIjSL)jKP;QA2r,1pvo+d*O^SG U"LDZMOB=g7^W).\8;6[(sAivmCIqgO6c>gKBw0?N]g6$%v/yL>L=EA7xgI6reuZo*:sy=T->wPdX;h-U/R U"O.205kdRgZX4Lav(/p1o1WXOqH1<:30IAYrgXT'^v\b[vjM8$thDKV^.NSQ$6*s U"7YE/cc_x)1D.'^'X2uBq]cQOd7pZAMvrZMg,y%G6wrN/uRUOV%z+k^K_QtKEcB; U"vcZ&$F0TMwtLU08cdqBU0io'qR]w0OGRTgep\D6ErdBno(b2XcnazxvMLTqM]Ta16j,iNY'&RU]$aE#)60eJKMU4.*9hs5SQaLrB#vh END SUB SUB V2 U"Rdw+256VOCE$bQaM^^^sDa(W*PFSZ6k'W6Dn^4pXq/X3r9%oEi/TU.dUQ%b56*r U"A4clelO7y$-dt0w1ALcLL+dLXWXgj_AYd4-iHSu-$Y'eErz(.lhfD]k^hHv$UgU U"V&W'0i+sjKZ6S]OFJDan(?f&7NB1?mV4iCnf-.Q)brYrGh-P>oS/?g&(UG U"V23^m$\;=Fd$RAJ8PhqI46FWY/S=lT,8.3*;$Kz8lr'rTa4)PFy3D]A\Dt&ZP9n U"O1\:3:-9CiS$G$3hW3\N;:rr7nWV[BuCJc3jk_H)V8<6pm:L_kaU0t\g(/$+FtB U"X9>w:1r>.z?LMf*?=4PfaqUusbc8dV+qQs,6IM->j2gwcp]0LOn^6RfUUP\[BI4 U"ZE.Nm$P/F6F;9lEmc4s\<=c=jd9V[mPh$j?gTYP-CZO7OYi-Nn6TLX^$TE+]gdR U"x$CnLP&fq94>fAJHuJ[rLy/ie0rs*&K2\8L(Ogu[K8[BK;_FlwBQEGV9np6c7%Md)-rEnY)X61E9vbOJ-&cI U"WfN8GzkkWi)3/J_gVs9*fZ&/P1nbN%w&/RQ]<*1oX;WSZhAJYj;_O.?uJO%J-Xa U"7ZhL>_u,3d(d.DzVlUq31;XRNZllt_o;H\j=Z**6*QPcXj^<9Li+ZZ.D:;L>)[E U"Cj,Mj'k\RL&1TW97VOk=i&m;tvdKLxA+&NP_CQ#6Pl\_lc+JxK64.mZU2g#rQ-J U"&3A41vI2$*WQE:Ul7Q%=h,4cAzhttDlcZih;-cBoeI%Q$>eiX+cX>Y%m2^;nqNv U")V62C9mW7=Be$/fe8Q1xI1j[>SmD^dYEo0p,f&g*s;:Qs5OCRGj-Ew,u%p&'>%% U"9%'#%-%)D8^LlCaUE0#I%%N&I%%1%%%%%%%%%&%%E%%%%%%%%%rjs%rfpj%wSgf U"%xup&%'>%9%%'%-I%21^:L:7>,55&%%%e*%%%-%%%%%%%%%&%E#%%%Z%I%%r%js U"zS%ifyu%p&'>%%9%'[%-%v_i]LH%NxJd%%%%d%%%%0%%%%%%%%%&%%E%%(%%/%%%%%%1K:^LKadCt%1%%%%1%%%%0%%%%%%%%%&%E U"%7%%NK%%%qf%xyin%wSif%yup&%'>%9%%'%-O%a9^ILSBj-g$'%%%k,%%%1%%%% U"%%%%%&%E%%%%/%L%%r%jsrf%pjwS%ithu%p*+%%%%%*%%*%A%&%%#%O%%%%% END SUB V2 CLOSE:IF S=88AND 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