; ******************************************************************************
; MicroEMACS Function keys 1-10 and 11-19 on machines without VT keypad
; ******************************************************************************
	
!if &not &band $tcflags 192

	; If not vt200 and/or vt100 keys...

	!if &band $tcflags 31 

		; Function keys 1-10
		bind-to-key	gold-prefix		FN1
		macro-to-key	toggle-help 		G-FN1
		macro-to-key	toggle-fn-window	FN2
		bind-to-key	search-forward		FN3
		bind-to-key	search-reverse		FN4
		macro-to-key	toggle-insert-mode	FN5
		bind-to-key	execute-macro		FN6
		bind-to-key	delete-previous-word	FN7
		bind-to-key	delete-next-word	FN8
		bind-to-key	save-file		FN9
		bind-to-key	exit-emacs		FN0
	!endif

	!if &greater &band $tcflags 31 19

		; Function keys 11-20

		bind-to-key	set-mark		FNa
		bind-to-key	kill-region		FNb
		bind-to-key	yank			FNc
		bind-to-key	copy-region		FNd
		bind-to-key	quote-character		FNe
		bind-to-key	query-replace-string	FNf
		macro-to-key	delete-current-line	FNg
		bind-to-key	goto-line		FNh
		bind-to-key	write-file		FNi
		bind-to-key	find-file		FNj

	!else
		bind-to-key	set-mark		S-FN1
		bind-to-key	kill-region		G-FN2
		bind-to-key	kill-region		S-FN2
		bind-to-key	yank			G-FN3
		bind-to-key	yank			S-FN3
		bind-to-key	copy-region		G-FN4
		bind-to-key	copy-region		S-FN4
		bind-to-key	quote-character		G-FN5
		bind-to-key	quote-character		S-FN5
		bind-to-key	query-replace-string	G-FN6
		bind-to-key	query-replace-string	S-FN6
		macro-to-key	delete-current-line	G-FN7
		macro-to-key	delete-current-line	S-FN7
		bind-to-key	goto-line		G-FN8
		bind-to-key	goto-line		S-FN8
		bind-to-key	write-file		G-FN9
		bind-to-key	write-file		S-FN9
		bind-to-key	find-file		G-FN0
		bind-to-key	find-file		S-FN0

	!endif

!endif
