@@ 76,8 76,9 @@ BRK
00 00 :file-save-mono "SaveMono $1
01 "p :save-theme "SaveTheme $1
01 "q :exit "Exit $1
- 04 "Edit $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
@@ 1174,6 1175,25 @@ 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 JSR2
+
+JMP2r
+ &buf $8
+
@edit-paste ( -- )
;snarf-txt .File/name DEO2