🚀 go-pugleaf

;  default keymap table... 11/12/90  This is for VT102 screens only,
;  not 3278 screens.

; lines beginning w/ ; or blank lines are ignored.

; format of input lines is:
; 
; set key [optional mode char] keynumber keydefinition
; where mode chars can be
;        +     For Application keypad expansion only
;	 -     For nonapplication keypad expansion only
;	 $     For cursor set mode  (ugh!)
;	       If blank or missing, then the expansion is for any mode
;
; keynumbers are HEXADECIMAL numbers (sorry folks, parser is simple)
;
; keydefinition is any non blank text up to end of line or ';', including
; trailing blanks. TRAILING BLANKS ARE SIGNIFIGANT!
;
; To include a ';' in your string, if you don't have a comment also, use a \
;
; A key definition can not be longer than 255 characters.
;
; NO TABS ALLOWED EXCEPT IN KEY DEFINITION.. (sorry, simple, small code)
;
; if you need an expansion beginning w/ blanks, make the first sequence be
; \040 which is octal space
;
; Recognized escapes are:
; \nnn  (all three digits required)  expands to the octal char.
;        If your session is not open in binary mode, you may see 7-bit
;	 truncation
;
;  \r 		return
;  \n		newline
;  \e		Escape (\033)
;  \\		The \ character
;  \;		The ; character
;  \"MACRO"   	Substitutes the specified macro... (internal only in this version)
;
;
; Additional commands...
;
; You may also include the commands
;    extended   (means process subsequently encountered keys only if
;	         running on an extended keyboard)
;
;    notextended (converse of above)
;
; mini-example
;
; extended
; set key + 110d  \e?2
; set key - 110d  \e?0;  this is a comment, notice no extra spaces after 0
; set key   10f   \010
; notextended
; set key 11c  \r
;
; The above example sets the keypad enter key to return two different
; values depending on whether application mode is set.
; (also sets the tab key to send a tab)
; otherwise, on non extended keyboards, send <CR> when keypad enter is pressed

; ### System Macro examples. ###
; this section demonstrates the use of the system macro bindings
; you should also look at: sample3.scr, sample3.def, sample3.tbl

;	set key 968 \"SYS_TELNET"(omnigate)
; The above sets ALT-F1 to telnet to omnigate

;	set key 969 echo My IP is \"SYS_MYIP" and I like it\n"
; The above set ALT-F3 to print out a line including the current IP address

;	set key 96b \"SYS_SCRIPT"(sample.scr)
; The above binds a script to ALT-F4

;	set key 968 \"SYS_RLOGIN"(128.153.4.2)
; ALT-F1 does an rlogin to an ip address

;	set key 968 \"SYS_SHOW"(omnigate)
; ALT-F1 will cause the session named 'omnigate' to be displayed on screen
; if it exists.

; 	set key 968 \"SYS_KEYMAP(mykey.tbl)
; ALT-F1 causes the current session keymap to be replaced with mykey.tbl

;	set key 968 \"SYS_KEYMAP(default,mykey.tbl)
; now Alt-F1 causes the system-wide default key table to be replaced with
; mykey.tbl (as if  name=default,keymap=mykey.tbl, was in config.tel)

; 	set key 92d \"SYS_CLOSE"(noask)
; Redefines ALT-X to not ask if you want to close the current session.

;------------------------  defaults begin here ------------------------------
; first defaults are for either extended or non-extended
;
; ** define commands for ALT keys, etc
set key 91e \"SYS_TELNET"; 	ALT-A - add a telnet session
set key 92e \"SYS_CAPTURE";	ALT-C - toggle capture screen mode
set key 920 \"SYS_DUMP";	ALT-D - dump screen
set key 912 \"SYS_DOSESCAPE";	ALT-E - escape to dos
set key 922 \"SYS_GRAPHMENU";	ALT-G - graphics menu
set key 923 \"SYS_HELP";	ALT-H - show help screen
set key 917 \"SYS_MYIP";	ALT-I - send my ip address
set key 925 \"SYS_TEL_ERASE_CHAR"; ALT-K - send telnet erase character command
set key 926 \"SYS_LASTSESS";	ALT-L - switch to previous session screen
set key 932 \"SYS_CONSOLE";	ALT-M - show console screen
set key 931 \"SYS_NEXTSESS";	ALT-N - switch to next session screen
set key 918 \"SYS_TEL_AO";	ALT-O - send 'abort output' telnet command
set key 919 \"SYS_PARMS";	ALT-P - set window parameters
set key 910 \"SYS_TEL_AYT";     ALT-Q - send telnet 'are you there' command
set key 913 \"SYS_VTRESET";     ALT-R - reset vt100 screen
set key 91f \"SYS_TEL_SKIP";	ALT-S - discard incoming chars for a while
set key 914 \"SYS_FTP";		ALT-T - send ftp myaddress
set key 916 \"SYS_TEL_ERASE_LINE"; ALT-U - send telnet erase line command
set key 92f \"SYS_RSHELL";	ALT-V - add an rshell session
set key 911 \"SYS_FTPPASSWD";   ALT-W - send internal ftp password
set key 92d \"SYS_CLOSE";       ALT-X - close current session window
set key 915 \"SYS_TEL_IP";	ALT-Y - send telnet 'interrupt process' command
set key 92c \"SYS_RLOGIN";	ALT-Z - add an rlogin session
set key 577 \"SYS_TEKINIT";	CTRL-HOME - reset tek screen, enter tek mode
set key 982 \"SYS_SCRIPT";	ALT-MINUS - begin or end a script
set key 968 anonymous\n;        ALT-F1 - anonymous
set key 969 aksamit@uci.agh.edu.pl\n; ALT-F2 - my address
set key 96a \"SYS_ABORT";       ALT-F3 - abort program
set key 970 \"SYS_NETSTAT";     ALT-F9 - display tcp connection status in console window

; ok, now do something nice with the PF keys
; Simplest thing is map PF1 - PF4 to F1-F4
; in any mode
set key 13b \eOP;		F1=PF1
set key 13c \eOQ;		F2=PF2
set key 13d \eOR;		F3=PF3
set key 13e \eOS;		F4=PF4
set key 13f \e[16~;		F5=CSI 17
set key 140 \e[17~;		F6
set key 141 \e[18~;		F7
set key 142 \e[19~;		F8
set key 143 \e[20~;		F9
set key 144 \e[21~;		F10
set key 354 \e[22~;		SF1
set key 355 \e[23~;		SF2
set key 356 \e[24~;		SF3
set key 357 \e[25~;		SF4
set key 358 \e[26~;		SF5
set key 359 \e[27~;		SF6
set key 35a \e[28~;		SF7
set key 35b \e[29~;		SF8
set key 35c \e[30~;		SF9
set key 35d \e[31~;		SF10

set key 152 \eOp
set key 153 \177
set key 14f \eOq
set key 151 \eOs
set key 14c \eOu
set key 147 \eOw
set key 149 \eOy

set key 352 0
set key 353 .
set key 34f 1
set key 350 2
set key 351 3
set key 34b 4
set key 34c 5
set key 34d 6
set key 347 7
set key 348 8
set key 349 9
set key 34e +
set key 34a -

set key 148 \e[A
set key 150 \e[B
set key 14b \e[D
set key 14d \e[C
; and for cursor set mode
set key $ 148 \eOA
set key $ 150 \eOB
set key $ 14b \eOD
set key $ 14d \eOC

notextended


; finally, the rest of the keypad is mapped to alt-0 through alt-9
; but only in application mode
set key + 981 \eOp
set key + 978 \eOq
set key + 979 \eOr
set key + 97a \eOs
set key + 97b \eOt
set key + 97c \eOu
set key + 97d \eOv
set key + 97e \eOw
set key + 97f \eOx
set key + 980 \eOy

; now set the dash as the keypad - key in applc mode, or - in non appl mode
set key + 14a \eOm
set key - 14a -
set key 34a -
; set plus as comma
set key + 14e \eOn
set key - 14e +
set key 34e +
; set shifted plus to keypad ENTER in application mode, or CR in non appl mode
set key + 34e \eOM
set key - 34e 13
; finally, set the * as the comma key
set key + 137 \eOl
set key - 137 ,
set key 337 ,

; begin extended keyboard stuff

extended

; now set the grey cursor keys... non-cursor set mode
set key 1148 \e[A
set key 1150 \e[B
set key 114d \e[C
set key 114b \e[D
; grey keys in cursor set mode
set key $ 1148 \eOA
set key $ 1150 \eOB
set key $ 114d \eOC
set key $ 114b \eOD

set key 1152 \eOp
set key 1147 \eOw
set key 1149 \eOy
set key 1153 \177
set key 1151 \eOs
set key 114c \eOu
set key 114f \eOq

; set the keypad keys in non application mode to just send numbers and dash,etc
set key 112f /
set key 132f /
set key - 110d \r
; the enter key sends something special in appl mode
set key + 110d \eOM
set key 130d \r