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.Paint
MENU.Close
*--------------------------------------
MENUBAR.New
MENUBAR.Paint
MENUBAR.Close

*--------------------------------------
MENUITEM.New
MENUITEM.Paint
MENUITEM.Close

				clc
				rts
*--------------------------------------
MAN
SAVE usr/src/lib/libgui.s.menu
LOAD usr/src/lib/libgui.s
ASM