Path: utzoo!utgpu!water!watmath!clyde!cbosgd!ihnp4!inuxc!iuvax!franco From: franco@iuvax.cs.indiana.edu Newsgroups: comp.sys.atari.st Subject: Improved Menu Control Again Message-ID: <36500028@iuvax> Date: 9 Jan 88 13:27:00 GMT Organization: Indiana University CSCI, Bloomington Lines: 103 Nf-ID: #N:iuvax:36500028:000:5999 Nf-From: iuvax.cs.indiana.edu!franco Jan 9 08:27:00 1988 Here is an improved version of the program for improved menu control that was posted about a week ago. Also included is the source (generous comments). ---------------------------cut here-------------------------- begin 644 mac.arc M&@A-04,N4%)'````````FP,``'0+#0".)ZT%```,8#0``#!`#`!("@+@.ZC@ M!P\`?YPX^<;OX``!D2I"NC@"F45Z2/)8M.,0@`F)%"T:*$D`I<:+#(``$&!& MPHR*$BS"NPE@@D5Y8"#P5*"3YX*?(-X`(``"!0`&T'@-#`!`R*D7`$K&#D#0B1&^FMA86% MC8V8`\UP8'`%0``S%DPH-<""S\`!6E@L.O)U([X72P`8*(<$!(R!(("H$0`" MB@K+D%I"`G`V+9-L^#YG^)&A;EHG..)`BLPG(H5^*.A`C<@! M@*-&!^X(@!D^7@8&A5IX!X`Z!0I07XY)*NA$C6>8$Z*3"O+`XD89#N0.C`-- M1P:1`\&`Y8#S64F0%_T%<*2!",+PW$;RS+:>.!'()("4])AXH'T#,?`E02-" MLRB5`(L3J*H)MQ/=F@@-Y MH.FJ"!:IP+0B?`#"!T[D(P$-5N!AX!EOF/&&'&G0`8`@!Q5`AQQAP!$##72$ M`6]L],Q1!AUMY#&OO@;:X<8;`+]Q\+L&.M%&&6[4X>"^!,#S<,1YB,1P;/+0 M488$UQ"LV-(7?X+GBP`B!0^;G_7UXXN]Q M4_CIB(M-CA"=3ZZU`(S;@+H8A0,>N^!X"+$GY>_Q\K<,H[_'RM^^L[XU[`-0 M8`"-"B#@@0D<(&`$`RI0@(`"#E#`@`*+8O$2;>VG3T1HY!B8APX9(DB8-NQ93ALT;CG?0I!F#)J:; MMT&YNBG#T3B(C&.P)4=H_D%"%0E%A+977Z4%9EYAEWDG&FP;=43#>26=Y-H1 MPKDU1E%EN$&446^PL=T;(M)&AG#,M<$=@79--0*"5V4%0GS,Q791'<&5]<8< M#Z6!(@AB:.=&7PX9)591EDFX(&<=#08A0A*.X5@:%08V&!F@22C&?BYPA94; M;PR'XAL1Y@5>EA[AP$(;(=:1!W)%UG%D7'E0!P(3,<``@Q$X@!#:FN)YE,.; M<>:19VAB0!4F4P,,)$<;$9)I)IDZ5$1H1WTBZH:<@U)8:`PQ>"IG'A%*VD:F MD!0`'I0TH)?"9\@-\89C+\4&I!ZQT>755F5E=P94E$JX)F`D#$$2#+-RJ9Y* MV=5Q!AILH.HD7Z5A-6.?,+#`99I-C<&&'-D.,%*&SX)`18MH@15;&$>Z!5>> M10&Y8EJAD@88EQB:E&]X'9$P0ZGG^BMA@53%("B5P0U7G%TZA$:3;ZT29UQB MGZ6;Q'UPS03"?OW%F-A_+0GX;X.GD2`$#J')Q56$*K0`B014H!$;R+5)-?)7 M1]+4'+#LN7>'S!-$:+%=B67Z:FDDT!"$E`HC!\59RS5'VTX]C7C&5I*Z%49& M2_9VLGBRKN`M#%*_!,(44MBG(EDHF)%=&SG_%%0*8U?$[[DQ:*@2'#S6Q_;) M@)6-8=_I`CY'?47148<<(BY8[QS_ME$:&3.T0,8-+X21>4F'IV#8WX&+Y7%1 M6[_%'.7&4@A8&*4V_72Z8`1T%WT8K(P4L&"#S&!D=V MWN,'O?!5_SL5CW`0=D.$Y;?XQHH1:UU&H'2QVX0A,F7(F&MJIJL\J(YN_AD9 M8QS3E0-*QBS#8T[>0&`X+B&'@2`P@YT")"01?:H-[&F.0I3TMM!8"0X5PLJR M4F`V#[HF"6;HBLT^UI@4QH0K8DC#&' M.VPE-O1I2?32D,.BL`$L:0#;^;KC1#Q*\2QTX.,8V8C%LC`'D!#22Q@>@D%KQ6Z9$.7V#+0W:Y,#7] M4BS,RV6&(O1,5A6`#7-@0PP'X!EG&1,$,%C6V3;2K"Y95#906VA MX+$<3DC2MQIF;G.=^]P-,'I-CM*P7\L4(,`X"+N3%BRE[]3(ZV+G-!DL5"ZQ M,5JB`D@1$+B`#&.((0&Z!*=/*8JG%?EI4#EBH"X5$#AWA&!I\13:(/B28JH]H4Y+E`#)`BSPV*,%(QYO`.[RI* M]\P2G/711HADTBOUPA>;5@6SBEA1"5=CTTHM=N><>Y,5Y8NY(MZ+,**AXV7;(/)$I+@PZ@QA:9408K#E+BM:!C!PH6/NG*@8,P6_8HD7S@!]2+0,^E.% M'I"7$/T;(.M'IA7.5)MUA/.?!TI!H@$I6B3M.#PE8GF;SJ-$M!*LTF=V0&G*, M^:@^00=W#A\J0X@8Q=L"F+H&J$[>F&?(E`>HI."^%A&P%F*&*3]Z?[I^#:^O MG7'DM!(_KA71AX($%)R@KH1'#K;#619MD%#;R:(GF%(>4_<0C4;R)UHT]HY.'->)O1N[(( MF1H'-[3M?[?/C^L3'*0WF?'7K'U][IVXF;=_@,F$(!E1"=C?ZM=1G6IQ`]!2'7 M8?YNSAL_^#>#S?9?T[=CSD=[ MT(=C',%7GR9E^U9J-"!I_Q=P8`1BOU=PS,=CG28B"`=Q#E=,(==Z`J=[>8%SKK=MD&!QSM:`W#9\MR9L7T9LQE9W MCM4[;91#P?<_XA86Q&=XB,<4[Z5^X15E)L=T'2)\M!%I,2@JFI(H[^8L\:82 M4]`A$O95>4(;@!,6.N9I3S=Z;!`:FN%BY0%C8(AII1 M,@=M8V<#_H*\4=)]$"BT=Q.;B(E2=K'.>"0I`# M)W.(L"B+4$9HT[B#MQ@;:T1[-H5%O;AH-@4)W1=;L(5!5:,G;1AU=]A^G&=X M'\%Z7+AX8/A[8Q@694AA>I*&`_8N8<$KV0&'=2`&18Y<#[B6+I4*%>S:.(*`P]]=X6><&0\%Q'N*!^X=]CN9P'T%W?J0V M\-@U@V1O(J*%-:AXGD&+U"B2Q.>2J!>4W@5XJP:+IW>/_#=M3-&*^_AB#WE? M^446-A9B:&9-@>9CB0:K.&(K)MFR%J>;$@X^01 M]14:EC).WV*)EF61:><::":%LQ@GDW6%C:B$>J(P1R8NY()VS#)9:=`&2.$N MU3@DGM0;P;&-G-(MK<44$""6$)9:'$03S.85+-@5BUE$B$Q,<+5F4&M%K M[+=[[H=8-E)P@J@`_?:,9V>"B;EG*YA_XY>.I+*71OF*K;F3<&"(4?)Z$$%3%)6_>=L"62 M;$&94RB?Z!0:!^%8K$(`QU(1'52)V%DX&5)#6GA8WJ0&%-0J)/`1,T`#-6`# E-Q`H.O4IWC15<(456MA:K*BBD**%&<