NEW
  AUTO 3,1
*--------------------------------------
* Y,A = ptr to menu definition
*--------------------------------------
MENU.New		>STYA ZPPtr1			

				lda #2					1px Border
				sta DX
				sta DY
				stz DX+1
				stz DY+1
				clc
				rts
*--------------------------------------
MENU.SysMenu
*--------------------------------------
MENU.MenuEditor	.AZ "File"
					.DA #02				ID
					.DA #S.MITEM.KEYMOD.CTRL
					.DA #'N'
					.AZ "New"
					.DA #04				ID
					.DA #S.MITEM.KEYMOD.CTRL
					.DA #'O'
					.AZ "Open..."
					.DA #06				ID
					.DA #S.MITEM.KEYMOD.CTRL
					.DA #'S'
					.AZ "Save"
					.DA #08				ID
					.DA #S.MITEM.KEYMOD.OA+S.MITEM.KEYMOD.CTRL
					.DA #'S'
					.AZ "Save As..."
					.DA #10				ID
					.DA #S.MITEM.KEYMOD.CTRL
					.DA #'Q'
					.AZ "Quit"
					.DA #0
				.AZ "Edit"
					.DA #12				ID
					.DA #S.MITEM.KEYMOD.OA
					.DA #'X'
					.AZ "Cut"
					.DA #14				ID
					.DA #S.MITEM.KEYMOD.OA
					.DA #'C'
					.AZ "Copy"
					.DA #16				ID
					.DA #S.MITEM.KEYMOD.OA
					.DA #'V'
					.AZ "Paste"
					.DA #0
				.AZ "Options"
					.DA #18				ID
					.DA #0
					.DA #0
					.AZ "Check Me"
					.DA #0
				.DA #0
*--------------------------------------
MAN
SAVE USR/SRC/LIB/LIBGUI.S.MENU
LOAD USR/SRC/LIB/LIBGUI.S
ASM