|
|
|
|
@ -68,41 +68,41 @@ BRK
|
|
|
|
|
@manifest |
|
|
|
|
|
|
|
|
|
09 "Nasu $1 |
|
|
|
|
00 00 :about/toggle "About $1 |
|
|
|
|
01 "n :file-new "New $1 |
|
|
|
|
01 "r :trap "Rename $1 |
|
|
|
|
01 "o :file-open "Open $1 |
|
|
|
|
00 00 :file-open-mono "OpenMono $1 |
|
|
|
|
01 "s :file-save "Save $1 |
|
|
|
|
00 00 :file-save-mono "SaveMono $1 |
|
|
|
|
01 "p :save-theme "SaveTheme $1 |
|
|
|
|
01 "q :exit "Exit $1 |
|
|
|
|
00 00 =about/toggle "About $1 |
|
|
|
|
01 "n =file-new "New $1 |
|
|
|
|
01 "r =trap "Rename $1 |
|
|
|
|
01 "o =file-open "Open $1 |
|
|
|
|
00 00 =file-open-mono "OpenMono $1 |
|
|
|
|
01 "s =file-save "Save $1 |
|
|
|
|
00 00 =file-save-mono "SaveMono $1 |
|
|
|
|
01 "p =save-theme "SaveTheme $1 |
|
|
|
|
01 "q =exit "Exit $1 |
|
|
|
|
05 "Edit $1 |
|
|
|
|
01 "c :edit-copy "Copy $1 |
|
|
|
|
01 "f :edit-copy-font "CopyFont $1 |
|
|
|
|
01 "v :edit-paste "Paste $1 |
|
|
|
|
01 "x :edit-cut "Cut $1 |
|
|
|
|
00 08 :edit-erase "Erase $1 |
|
|
|
|
01 "c =edit-copy "Copy $1 |
|
|
|
|
01 "f =edit-copy-font "CopyFont $1 |
|
|
|
|
01 "v =edit-paste "Paste $1 |
|
|
|
|
01 "x =edit-cut "Cut $1 |
|
|
|
|
00 08 =edit-erase "Erase $1 |
|
|
|
|
01 "View $1 |
|
|
|
|
02 00 :toggle-zoom "Zoom $1 |
|
|
|
|
02 00 =toggle-zoom "Zoom $1 |
|
|
|
|
09 "Move $1 |
|
|
|
|
10 00 :move-up "Up $1 |
|
|
|
|
20 00 :move-down "Down $1 |
|
|
|
|
40 00 :move-left "Left $1 |
|
|
|
|
80 00 :move-right "Right $1 |
|
|
|
|
14 00 :move-dech "Decr.H $1 |
|
|
|
|
24 00 :move-inch "Incr.H $1 |
|
|
|
|
44 00 :move-decw "Decr.W $1 |
|
|
|
|
84 00 :move-incw "Incr.W $1 |
|
|
|
|
00 1b :move-reset "Reset $1 |
|
|
|
|
10 00 =move-up "Up $1 |
|
|
|
|
20 00 =move-down "Down $1 |
|
|
|
|
40 00 =move-left "Left $1 |
|
|
|
|
80 00 =move-right "Right $1 |
|
|
|
|
14 00 =move-dech "Decr.H $1 |
|
|
|
|
24 00 =move-inch "Incr.H $1 |
|
|
|
|
44 00 =move-decw "Decr.W $1 |
|
|
|
|
84 00 =move-incw "Incr.W $1 |
|
|
|
|
00 1b =move-reset "Reset $1 |
|
|
|
|
07 "Tool $1 |
|
|
|
|
00 "q :tool-brush "Brush $1 |
|
|
|
|
00 "w :tool-selector "Selector $1 |
|
|
|
|
00 "e :tool-zoom "Zoom $1 |
|
|
|
|
00 "1 :pick-color1 "Background $1 |
|
|
|
|
00 "2 :pick-color2 "ColorA $1 |
|
|
|
|
00 "3 :pick-color3 "ColorB $1 |
|
|
|
|
00 "4 :pick-color4 "ColorC $1 |
|
|
|
|
00 "q =tool-brush "Brush $1 |
|
|
|
|
00 "w =tool-selector "Selector $1 |
|
|
|
|
00 "e =tool-zoom "Zoom $1 |
|
|
|
|
00 "1 =pick-color1 "Background $1 |
|
|
|
|
00 "2 =pick-color2 "ColorA $1 |
|
|
|
|
00 "3 =pick-color3 "ColorB $1 |
|
|
|
|
00 "4 =pick-color4 "ColorC $1 |
|
|
|
|
$1 |
|
|
|
|
|
|
|
|
|
( |
|
|
|
|
@ -1383,6 +1383,7 @@ JMP2r
|
|
|
|
|
@ror ( byte -- byte ) DUP #70 SFT SWP #01 SFT ADD JMP2r |
|
|
|
|
@mcpy ( src* dst* len* -- ) SWP2 STH2 OVR2 ADD2 SWP2 &loop LDAk STH2kr STA INC2r INC2 GTH2k ,&loop JCN POP2 POP2 POP2r JMP2r |
|
|
|
|
|
|
|
|
|
( |
|
|
|
|
@|about ) |
|
|
|
|
|
|
|
|
|
@about |
|
|
|
|
|