mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-29 17:50:18 +00:00
77 lines
1.4 KiB
Plaintext
77 lines
1.4 KiB
Plaintext
NEW
|
||
PREFIX
|
||
AUTO 4,1
|
||
*--------------------------------------
|
||
MENU.New >STYA ZPPtr1
|
||
|
||
|
||
lda #2 1px Border
|
||
sta DX
|
||
sta DY
|
||
stz DX+1
|
||
stz DY+1
|
||
|
||
lda ZPPtr1
|
||
clc
|
||
adc #S.MENU
|
||
sta ZPPtr2
|
||
|
||
lda ZPPtr1+1
|
||
adc /S.MENU
|
||
sta ZPPtr2+1
|
||
|
||
.1 lda (ZPPtr2)
|
||
*--------------------------------------
|
||
MENU.SysMenu
|
||
*--------------------------------------
|
||
MENU.MenuEditor .AZ "File"
|
||
.DA #02 ID
|
||
.DA #S.MITEM.HOTKEY.CTRL
|
||
.DA #'N'
|
||
.AZ "New"
|
||
.DA #04 ID
|
||
.DA #S.MITEM.HOTKEY.CTRL
|
||
.DA #'O'
|
||
.AZ "Open..."
|
||
.DA #06 ID
|
||
.DA #S.MITEM.HOTKEY.CTRL
|
||
.DA #'S'
|
||
.AZ "Save"
|
||
.DA #08 ID
|
||
.DA #S.MITEM.HOTKEY.OA+S.MITEM.HOTKEY.CTRL
|
||
.DA #'S'
|
||
.AZ "Save As..."
|
||
.DA #10 ID
|
||
.DA #S.MITEM.HOTKEY.CTRL
|
||
.DA #'Q'
|
||
.AZ "Quit"
|
||
.DA #0
|
||
.AZ "Edit"
|
||
.DA #12 ID
|
||
.DA #S.MITEM.HOTKEY.OA
|
||
.DA #'X'
|
||
.AZ "Cut"
|
||
.DA #14 ID
|
||
.DA #S.MITEM.HOTKEY.OA
|
||
.DA #'C'
|
||
.AZ "Copy"
|
||
.DA #16 ID
|
||
.DA #S.MITEM.HOTKEY.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
|