Modeless Interface with TERMINFO Function Keys
Anthony's Editor Feb 96
Copyright 1993, 1996 by Anthony Howe.  All rights reserved.  No warranty.
This file by Bill Mitchell.  Any errors are mine, not Anthony's.

Fixed by Dave Cinege, with better keys, and more universal scancodes
(yes it now works in xterm) 

nano/pico key bindings by Charles Steinkuehler July 2000

1:\
\^G F1   Toggle Help                    \^F move Forward a character\n\
\^X F2   Exit                           \^B move Backward a character\n\
\^O F3   Write file to disk             \^P move to the Previous line\n\
\^J F4   Justify - Unsupported          \^N move to the Next line\n\
\^R F5   Insert (Read) external file    \^A move to the beginning of the line\n\
\^W F6   Where Is - Unsupported         \^E move to the End of the line\n\
\^Y F7   move backward a page of text   \^L Refresh the display\n\
\^V F8   move forward a page of text    \^D Delete character at the cursor\n\
\^K F9   Cut marked text                \^\^ Toggle marking of text\n\
\^U F10  Uncut (paste) text             \^I Insert a tab\n\
\^C F11  Cursor Position - Unsupported  \^Z Undo\n\
\^T F12  Spell Check - Unsupported\n\

.help_off
.literal	$(kich1)
.literal	^[[2~

.cursor_up	$(kcuu1)
.cursor_up	^p
.cursor_up	^[[A

.cursor_down	$(kcud1)
.cursor_down	^n
.cursor_down	^[[B

.cursor_left	$(kcub1)
.cursor_left	^b
.cursor_left	^[[D

.cursor_right	$(kcuf1)
.cursor_right	^f
.cursor_right	^[[C

.page_up	$(kpp)
.page_up	$(kf7)
.page_up	^[[18~
.page_up	^y
.page_up	^[[5~

.page_down	$(knp)
.page_down	$(kf8)
.page_down	^[[19~
.page_down	^v
.page_down	^[[6~

.line_left	^a
.line_left	$(khome)
.line_left	^[[1~

.line_right	^e
.line_right	$(kend)
.line_right	^[[4~

#.word_left	unused
#.word_right	unused
#.file_top	unused
#.file_bottom	unused

.delete_left	$(kbs)
.delete_left	^h

.delete_right	$(kdch1)
.delete_right	^[[3~
.delete_right	^d
.delete_left	^?

.help		$(kf1)
.help		^[[11~
.help		^g

.block		^^

.cut		$(kf9)
.cut		^[[20~
.cut		^k

.paste		$(kf10)
.paste		^[[21~
.paste		^u

#.flip_case	unused

.undo		^z

.file_read	$(kf5)
.file_read	^[[15~
.file_read	^r

.file_write	$(kf3)
.file_write	^[[13~
.file_write	^o

.redraw		^l

.quit_ask	$(kf2)
.quit_ask	^[[12~
.quit_ask	^x

#.quit		^k

# Define unsupported function/ctrl keys to harmless screen redraw
#.macro_define	^j	^l
.macro_define	$(kf4)	^l
.macro_define	^[[14~	^l

.macro_define	^w	^l
.macro_define	$(kf6)	^l
.macro_define	^[[17~	^l

.macro_define	^c	^l
.macro_define	$(kf11)	^l
.macro_define	^[[23~	^l

.macro_define	^t	^l
.macro_define	$(kf12)	^l
.macro_define	^[[24~	^l


2:Terminated successfully.\n
3:Unspecified error.\n
4:usage: %s [-f <config>] [file]\n
5:Failed to initialize the screen.\n
6:Problem with configuration file, line %lu.\n
7:Failed to allocate required memory.\n
8:Ok.
9:An error occured.
10:No more memory available.
11:File \"%s\" is too big to load.
12:Scrap is empty.  Nothing to paste.
13:Failed to find file \"%s\".
14:Failed to open file \"%s\".
15:Failed to close file \"%s\".
16:Failed to read file \"%s\".
17:Failed to write file \"%s\".
18:Not a portable POSIX file name.
19:File \"%s\" %ld bytes.  Press F1 to toggle help.
20:File \"%s\" %ld bytes saved.  Press F1 to toggle help.
21:File \"%s\" %ld bytes read.  Press F1 to toggle help.
22:File \"%s\" modified.  Press F1 to toggle help.
23:Invalid control character or \\number not 0..255.
24:No such macro defined.
25:No more macro space.
26:Interrupt.
27:<< EOF >>
28:Macro :
29:File not saved.  Quit (y/n) ?
30:[ Press a key to continue. ]
31:Read file :
32:Write file :
33:Write block :
34:\smore\s
35:\sy\b
36:\sn\b
37:\sq\b
38:Nothing to undo.