@@ 79,9 79,8 @@ BRK
00 00 =file-save-mono "SaveMono $1
01 "p =save-theme "SaveTheme $1
01 "q =exit "Exit $1
- 05 "Edit $1
+ 04 "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
@@ 1217,25 1216,6 @@ JMP2r
JMP2
&buf $10
-@edit-copy-font ( -- )
-
- ;snarf-txt .File/name DEO2
- #0008 .File/length DEO2
- .selection/x2 LDZ INC .selection/x1 LDZ
- &hor
- .selection/y2 LDZ INC .selection/y1 LDZ
- &ver
- OVR2 NIP OVR ;get-tile-addr JSR2 ;&buf #0008 ;mcpy JSR2
- ;&buf .File/write DEO2
- INC GTHk ,&ver JCN
- POP2
- INC GTHk ,&hor JCN
- POP2
- ;redraw ( .. )
-
-JMP2
- &buf $8
-
@edit-paste ( -- )
;snarf-txt .File/name DEO2