Removed copy-font

src/nasu.tal

@@ -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