FEI>D8:SYSEQU.M65(>D8:DMACROS.M652;Diamond Menu Example<F;Programed by Kevin PackardPZ0dn;MENU BAR DEFINITIONx';The top display line of menu items(;is defined. Up to 8 menu selections%;can be defined at one time. The;first is for .ACC.;255 show end of selection;$9B show end of menu barMENU ADesk A= ANUM2 A= ANUM3 A= ANUM4 A= ANUM5 A= ANUM6 A= ANUM7 A==%;MENUTREE defines where the items"&;under each selection can be found,;in memory6 MENUTREE@ MENU1=MENU2=MENU3=MENU4J MENU5=MENU6=MENU7T^!;Define options under menubarhr!;One item under first menubar|$;selection. This will contain a(;list of ACC and width and placement;are predefined.)MENU1 A NO INFO A;; Must be 10 Chr.(;The remaining may have 22 items and';must define position on the screen;and width MENU2-;define x-position,width,number of items,;0 for each item;Width is number of char.+2* ============' ===========;List menu items ==AITEM1 A=== ==AITEM2 A===& ==AITEM3 A===0 ==AITEM4 A===: ==AITEM5 A===D ==AITEM6 A===N ==AITEM7 A===X ==AITEM8 A===b ==AITEM9 A===l ==AITEM10A===v ==AITEM11A=== ==AITEM12A=== ==AITEM13A=== ==AITEM14A=== ==AITEM15A=== ==AITEM16A=== ==AITEM17A=== ==AITEM18A=== ==AITEM19A=== ==AITEM20A=== ==AITEM21A=== ==A QUIT A===X;X; ';REPEAT FOR REST OF MENU SELECTIONS  MENU3  ===== $ ==AMAKE A===*$ ==AAS WIDE AS YOUA===4$ ==ALIKE A===>X;H MENU4R =====\ ==A1A===f ==A2A===p ==A3A===zX; MENU5 = ==== ==ATO A=== ==ATHE A=== ==ALEFT A===X; MENU6 = ==== ==A TOA=== ==A THEA=== ==A RIGHTA===X; MENU7  = ==== ==A DON'T A=== ==A DO A===$ ==A THIS A===.X;8'X; An 8th menubar item can be added.B*X; When I did, when pointing to the 1stL(X; Menu option the whole bar would beV0X; inverted. Try it and see.. add MENU8 here`5X; Don't forget to change MENU and MENUTREE above.jX;t!X; START PROGRAM AND WAIT TILL~X; QUIT IS CLICKED ON.X; START INIT SETMENU MENU=MENUTREEWAIT EVENT QEVENTTYPER> HWAITQEVENTTYPER> HWAITQEVENTTYPE R> HWAIT EXIT (EXECDESKTOP 2X;<X;FP START