2018-05-04 14:55:29 +00:00
|
|
|
|
NEW
|
2019-07-30 08:57:25 +00:00
|
|
|
|
AUTO 3,1
|
2018-05-04 14:55:29 +00:00
|
|
|
|
*--------------------------------------
|
2019-01-08 16:29:26 +00:00
|
|
|
|
* Y,A = ptr to menu definition
|
|
|
|
|
*--------------------------------------
|
2018-05-09 14:57:05 +00:00
|
|
|
|
MENU.New >STYA ZPPtr1
|
2018-05-04 14:55:29 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
lda #2 1px Border
|
|
|
|
|
sta DX
|
|
|
|
|
sta DY
|
|
|
|
|
stz DX+1
|
|
|
|
|
stz DY+1
|
|
|
|
|
|
|
|
|
|
clc
|
2019-01-08 16:29:26 +00:00
|
|
|
|
rts
|
2018-05-04 14:55:29 +00:00
|
|
|
|
*--------------------------------------
|
2018-05-09 14:57:05 +00:00
|
|
|
|
MENU.SysMenu
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
MENU.MenuEditor .AZ "File"
|
|
|
|
|
.DA #02 ID
|
2019-01-10 16:26:58 +00:00
|
|
|
|
.DA #S.MITEM.KEYMOD.CTRL
|
2018-05-09 14:57:05 +00:00
|
|
|
|
.DA #'N'
|
|
|
|
|
.AZ "New"
|
|
|
|
|
.DA #04 ID
|
2019-01-10 16:26:58 +00:00
|
|
|
|
.DA #S.MITEM.KEYMOD.CTRL
|
2018-05-09 14:57:05 +00:00
|
|
|
|
.DA #'O'
|
|
|
|
|
.AZ "Open..."
|
|
|
|
|
.DA #06 ID
|
2019-01-10 16:26:58 +00:00
|
|
|
|
.DA #S.MITEM.KEYMOD.CTRL
|
2018-05-09 14:57:05 +00:00
|
|
|
|
.DA #'S'
|
|
|
|
|
.AZ "Save"
|
|
|
|
|
.DA #08 ID
|
2019-01-10 16:26:58 +00:00
|
|
|
|
.DA #S.MITEM.KEYMOD.OA+S.MITEM.KEYMOD.CTRL
|
2018-05-09 14:57:05 +00:00
|
|
|
|
.DA #'S'
|
|
|
|
|
.AZ "Save As..."
|
|
|
|
|
.DA #10 ID
|
2019-01-10 16:26:58 +00:00
|
|
|
|
.DA #S.MITEM.KEYMOD.CTRL
|
2018-05-09 14:57:05 +00:00
|
|
|
|
.DA #'Q'
|
|
|
|
|
.AZ "Quit"
|
|
|
|
|
.DA #0
|
|
|
|
|
.AZ "Edit"
|
|
|
|
|
.DA #12 ID
|
2019-01-10 16:26:58 +00:00
|
|
|
|
.DA #S.MITEM.KEYMOD.OA
|
2018-05-09 14:57:05 +00:00
|
|
|
|
.DA #'X'
|
|
|
|
|
.AZ "Cut"
|
|
|
|
|
.DA #14 ID
|
2019-01-10 16:26:58 +00:00
|
|
|
|
.DA #S.MITEM.KEYMOD.OA
|
2018-05-09 14:57:05 +00:00
|
|
|
|
.DA #'C'
|
|
|
|
|
.AZ "Copy"
|
|
|
|
|
.DA #16 ID
|
2019-01-10 16:26:58 +00:00
|
|
|
|
.DA #S.MITEM.KEYMOD.OA
|
2018-05-09 14:57:05 +00:00
|
|
|
|
.DA #'V'
|
|
|
|
|
.AZ "Paste"
|
|
|
|
|
.DA #0
|
|
|
|
|
.AZ "Options"
|
|
|
|
|
.DA #18 ID
|
|
|
|
|
.DA #0
|
|
|
|
|
.DA #0
|
|
|
|
|
.AZ "Check Me"
|
|
|
|
|
.DA #0
|
|
|
|
|
.DA #0
|
|
|
|
|
*--------------------------------------
|
2018-05-04 14:55:29 +00:00
|
|
|
|
MAN
|
2018-11-17 17:17:13 +00:00
|
|
|
|
SAVE USR/SRC/LIB/LIBGUI.S.MENU
|
|
|
|
|
LOAD USR/SRC/LIB/LIBGUI.S
|
2018-05-04 14:55:29 +00:00
|
|
|
|
ASM
|