🚀 go-pugleaf

I am posting a text file from MSkermit that defines keys for the esc sequences
for vt100 terminals.  Included are for CMS system and regular VT !100 terminals

Hope this helps..


;************
; Name      : IBM3270X.KEY
; Date      : 5/91
; Version   : Kermit-MS (version 3.10 for IBM PC and compatibles)
; Written by: Doug Baldwin, ASU Information Resources Management
(ICSDJB@ASUACAD)
; Purpose   : This is a Kermit command file.  It is used to set up the keyboard
;             mapping when accessing full-screen IBM CMS and WYLBUR through
;             the IBM 7171 Protocol Converter.
;************
;
IF DEF SHOWKEYS GOTO SHOWKEYS
;
ECHO \13MMMM Loading IBM Full-Screen keyboard definitions
MMMMMMMMMMMMMMMMMMMMMMMMMMMMM\13\10
DO PROMPT IBM3270X
DEF \%K IBM3270X.KEY
;
SET K CLEAR

;     Code String   KEY 3270 FUNCTION
;     ==== ======   === =============

SET K \315 \{27}1;  F1  PF1
SET K \316 \{27}2;  F2  PF2
SET K \317 \{27}3;  F3  PF3
SET K \318 \{27}4;  F4  PF4
SET K \319 \{27}5;  F5  PF5
SET K \320 \{27}6;  F6  PF6
SET K \321 \{27}7;  F7  PF7
SET K \322 \{27}8;  F8  PF8
SET K \323 \{27}9;  F9  PF9
SET K \324 \{27}0;  F10 PF10
SET K \389 \27\45; *F11 PF11
SET K \390 \27=;   *F12 PF12

SET K \852 \27\45; Shift/F1   PF11
SET K \853 \27=;   Shift/F2   PF12
SET K \854 \27!;   Shift/F3   PF13
SET K \855 \27@;   Shift/F4   PF14
SET K \856 \27#;   Shift/F5   PF15
SET K \857 \27$;   Shift/F6   PF16
SET K \858 \27%;   Shift/F7   PF17
SET K \859 \27^;   Shift/F8   PF18
SET K \860 \27&;   Shift/F9   PF19
SET K \861 \27*;   Shift/F10  PF20
SET K \903 \27(;  *Shift/F11  PF21
SET K \904 \27);  *Shift/F12  PF22

SET K \1374 \Kdos;      Ctrl/F1  Escape to DOS
SET K \1375 \Ktermtype; Ctrl/F2  Toggle Terminal Type
SET K \1376 \Khangup;   Ctrl/F3  Hangup Phone/Connection
SET K \1377 \Kdump;     Ctrl/F4  Dump Screen to file
SET K \1378 \Klogon;    Ctrl/F5  Resume session logging
SET K \1379 \Klogoff;   Ctrl/F6  Suspend session logging
SET K \1380 \27`E;      Ctrl/F7  Make Enter send Return
SET K \1381 \27`e;      Ctrl/F8  Make Enter send Newline
SET K \1382 \27,;       Ctrl/F9  PA1
SET K \1383 \27.;       Ctrl/F10 PA2

SET K \2408 \27,;     Alt/F1  PA1
SET K \2409 \27.;     Alt/F2  PA2
SET K \2410 \27_;     Alt/F3  PF23
SET K \2411 \27+;     Alt/F4  PF24
SET K \2412 \7;       Alt/F5  Reset
SET K \2413 \27\127;  Alt/F6  Erase EOF
SET K \2416 \Kstatus; Alt/F9  Display connection status
SET K \2417 \Kexit;   Alt/F10 Program Escape Command

SET K \2920 \27(; Alt/Shift/F1  PF21
SET K \2921 \27); Alt/Shift/F2  PF22
SET K \2922 \27_; Alt/Shift/F3  PF23
SET K \2923 \27+; Alt/Shift/F4  PF24

SET K \1888 \Kdump;   Ctrl/Shift/F3 Dump Screen to file
SET K \1889 \Kprtscn; Ctrl/Shift/F4 Print Screen

SET K \2424 \{27}1; Alt/1  PF1
SET K \2425 \{27}2; Alt/2  PF2
SET K \2426 \{27}3; Alt/3  PF3
SET K \2427 \{27}4; Alt/4  PF4
SET K \2428 \{27}5; Alt/5  PF5
SET K \2429 \{27}6; Alt/6  PF6
SET K \2430 \{27}7; Alt/7  PF7
SET K \2431 \{27}8; Alt/8  PF8
SET K \2432 \{27}9; Alt/9  PF9
SET K \2433 \{27}0; Alt/0  PF10
SET K \2434 \27\45; Alt/-  PF11
SET K \2435 \27=;   Alt/=  PF12

SET K \2936 \27!; Alt/Shift/1  PF13
SET K \2937 \27@; Alt/Shift/2  PF14
SET K \2938 \27#; Alt/Shift/3  PF15
SET K \2939 \27$; Alt/Shift/4  PF16
SET K \2940 \27%; Alt/Shift/5  PF17
SET K \2941 \27^; Alt/Shift/6  PF18
SET K \2942 \27&; Alt/Shift/7  PF19
SET K \2943 \27*; Alt/Shift/8  PF20
SET K \2944 \27(; Alt/Shift/9  PF21
SET K \2945 \27); Alt/Shift/0  PF22
SET K \2946 \27_; Alt/Shift/-  PF23
SET K \2947 \27+; Alt/Shift/=  PF24

SET K \2336 {\Kasudnld}; Alt/D  Download
SET K \2322 \Kdos;       Alt/E  Escape to DOS
SET K \2338 \Ktermtype;  Alt/G  Graphics Menu
SET K \2339 \Khelp;      Alt/H  Help
SET K \2341 {\Kasukeys}; Alt/K  show keys-K
SET K \2354 {\Kasumode}; Alt/M  toggle file transfer mode*
SET K \2323 {\Kasurec};  Alt/R  receive file-K, reset prog
SET K \2335 {\Kasusend}; Alt/S  send file-K
SET K \2326 {\Kasuupld}; Alt/U  upload
SET K \2349 {\Kasuexit}; Alt/X  disconnect session

SET K \270  \27OD\127; Backspace   Rubout
SET K \284  \13;       Enter       Enter
SET K \271  \9;        Tab         Field Tab

SET K \127  \8;  Ctrl/Backspace  BACKSPACE(Home), Delete
SET K \10   \10; Ctrl/Enter      Newline

SET K \782  \270D\127; Shift/Backspace  Rubout
SET K \796  \10;       Shift/Enter      Newline
SET K \783  \27\9;     Shift/Tab        Field Back-tab

SET K \2318 \27OD; Alt/Backspace  Cursor Left
SET K \2332 \27OM; Alt/Enter

SET K \339 \127;    [.] Del            DELETE
SET K \338 \27On;   [0] Ins            Toggle Insert Mode
SET K \335 \Kexit;  [1] End            Program Command Escape
SET K \336 \27OB;   [2] Down Arrow     Cursor Down
;SET K \337 \PFK??; [3] PgDn           3270 page down
SET K \331 \27OD;   [4] Left Arrow     Cursor Left
SET K \332 \7;      [5]                Reset
SET K \333 \27OC;   [6] Right Arrow    Cursor Right
SET K \327 \8;      [7] Home           Home
SET K \328 \27OA;   [8] Up Arrow       Cursor Up
;SET K \329 \PFK??; [9] PgUp           3270 page up
SET K \334 \27OM;   [+] on keypad      Clear Screen
SET K \330 \27\127; [-] on keypad      Erase EOF
SET K \311 \27,;    [*] on keypad      PA1
SET K \4399 \27.;  *[/] on keypad      PA2
SET K \4365 \13;   *[Enter] on keypad  Enter

SET K \851  .;   Shift/[.] Del          .
SET K \850  0;   Shift/[0] Ins          0
SET K \847  1;   Shift/[1] End          1
SET K \848  2;   Shift/[2] Down Arrow   2
SET K \849  3;   Shift/[3] PgDn         3
SET K \843  4;   Shift/[4] Left Arrow   4
SET K \844  5;   Shift/[5]              5
SET K \845  6;   Shift/[6] Right Arrow  6
SET K \839  7;   Shift/[7] Home         7
SET K \840  8;   Shift/[8] Up Arrow     8
SET K \841  9;   Shift/[9] PgUp         9
SET K \846  +;   Shift/[+] on keypad    +
SET K \842  -;   Shift/[-] on keypad    -
SET K \823  *;   Shift/[*] on keypad    *
SET K \4911 /;   Shift/[/] on keypad    /
SET K \4877 \13; Shift/[Enter] keypad   Enter

SET K \1427 \27\27\127;  Ctrl/[.] Del          Erase Input
SET K \1426 \27On;       Ctrl/[0] Ins          Toggle Insert Mode
SET K \1397 \Kendscn;    Ctrl/[1] End          Scroll to Last, Erase INP
SET K \1425 \Kdnone;     Ctrl/[2] Down Arrow   Scroll Down Line, Down 2
SET K \1398 \Kdnscn;     Ctrl/[3] PgDn         Scroll Down Screen, AlPgDn
SET K \1395 \27OD\27OD;  Ctrl/[4] Left Arrow   Cursor Left 2 places
SET K \1423 \7;          Ctrl/[5]              Reset
SET K \1396 \27OC\27OC;  Ctrl/[6] Right Arrow  Cursor Right 2 places
SET K \1399 \Khomscn;    Ctrl/[7] Home         Scroll to First, Clear
SET K \1421 \Kupone;     Ctrl/[8] Up Arrow     Scroll Up Line, Up 2
SET K \1412 \Kupscn;     Ctrl/[9] PgUp         Scroll Up Screen, AlPgUp
SET K \1424 \13;         Ctrl/[+] on keypad    Enter
SET K \1422 \27\27\127;  Ctrl/[-] on keypad    Erase Input
SET K \1430 \27,;        Ctrl/[*] on keypad    PA1
SET K \1429 \27.;       *Ctrl/[/] on keypad    PA2
SET K \5386 \10;        *Ctrl/[Enter] keypad   Newline

SET K \2382 \10;    Alt/[+] on keypad      Newline
SET K \2470 \27OM; *Alt/[Enter] keypad     Clear Screen

SET K \4434 \27On;   *Grey Insert      Toggle Insert Mode
SET K \4435 \127;    *Grey Delete      DELETE
SET K \4423 \27OM;   *Grey Home        Clear
SET K \4431 \Kexit;  *Grey End         Program Command Escape
;SET K \4425 \PFK??; *Grey Page Up     3270 page up
;SET K \4433 \PFK??; *Grey Page Down   3270 page down
SET K \4424 \27OA;   *Grey Up Arrow    Cursor Up
SET K \4432 \27OB;   *Grey Down Arrow  Cursor Down
SET K \4429 \27OC;   *Grey Right Arrow Cursor Right
SET K \4427 \27OD;   *Grey Left Arrow  Cursor Left

SET K \4946 \27On;   *Shift/Grey Insert      Toggle Insert Mode
SET K \4947 \27\127; *Shift/Grey Delete      Erase EOF
SET K \4935 \7;      *Shift/Grey Home        Reset
SET K \4943 \Kexit;  *Shift/Grey End         Program Command Escape
;SET K \4937 \PFK??; *Shift/Grey Page Up     Alternate 3270 page up
;SET K \4945 \PFK??; *Shift/Grey Page Down   Alternate 3270 page down
SET K \4936 \27OA;   *Shift/Grey Up Arrow    Cursor Up
SET K \4944 \27OB;   *Shift/Grey Down Arrow  Cursor Down
SET K \4941 \27OC;   *Shift/Grey Right Arrow Cursor Right
SET K \4939 \27OD;   *Shift/Grey Left Arrow  Cursor Left

SET K \5522 \27On;      *Ctrl/Grey Insert       Toggle Insert Mode
SET K \5523 \27\27\127; *Ctrl/Grey Delete       Erase Input
SET K \5495 \Khomscn;   *Ctrl/Grey Home         Scroll to First, Home
SET K \5493 \Kendscn;   *Ctrl/Grey End          Scroll to Last, Erase INP
SET K \5508 \Kupscn;    *Ctrl/Grey Page Up      Scroll Up Screen, AlPgUp
SET K \5494 \Kdnscn;    *Ctrl/Grey Page Down    Scroll Down Screen, AlPgDn
SET K \5517 \Kupone;    *Ctrl/Grey Up Arrow     Scroll Up Line, Up 2
SET K \5521 \Kdnone;    *Ctrl/Grey Down Arrow   Scroll Down Line, Down 2
SET K \5492 \27OC\27OC; *Ctrl/Grey Right Arrow  Cursor Right 2 places
SET K \5491 \27OD\27OD; *Ctrl/Grey Left Arrow   Cursor Left 2 places

SET K \2466 \27On;   *Alt/Grey Insert       Toggle Insert Mode
SET K \2467 \27\127; *Alt/Grey Delete       Erase EOF
SET K \2455 \7;      *Alt/Grey Home         Reset
SET K \2463 \Kexit;  *Alt/Grey End          Program Command Escape
;SET K \2457 \PFK??; *Alt/Grey Page Up      Alternate 3270 page up
;SET K \2465 \PFK??; *Alt/Grey Page Down    Alternate 3270 page down
SET K \2456 \27OA;   *Alt/Grey Up Arrow     Cursor Up
SET K \2464 \27OB;   *Alt/Grey Down Arrow   Cursor Down
SET K \2461 \27OC;   *Alt/Grey Right Arrow  Cursor Right
SET K \2459 \27OD;   *Alt/Grey Left Arrow   Cursor Left


;***** Specific mapping for PROFS/XEDIT style pa
;
;----- PROFS (commented out) -----
;
;SET K \337  \{27}0;  [3] PgDn              PF10 (PROFS page down)
;SET K \329  \27\45;  [9] PgUp              PF11 (PROFS page up)
;SET K \4425 \27\45; *Grey Page Up          PF11 (PROFS page up)
;SET K \4433 \{27}0; *Grey Page Down        PF10 (PROFS page down)
;SET K \4937 \{27}7; *Shift/Grey Page Up    PF7 (XEDIT page up)
;SET K \4945 \{27}8; *Shift/Grey Page Down  PF8 (XEDIT page down)
;SET K \2457 \{27}7; *Alt/Grey Page Up      PF7 (XEDIT page up)
;SET K \2465 \{27}8; *Alt/Grey Page Down    PF8 (XEDIT page down)
;
;----- XEDIT -----
;
SET K \337  \{27}8;  [3] PgDn              PF8 (XEDIT page down)
SET K \329  \{27}7;  [9] PgUp              PF7 (XEDIT page up)
SET K \4425 \{27}7; *Grey Page Up          PF7 (XEDIT page up)
SET K \4433 \{27}8; *Grey Page Down        PF8 (XEDIT page down)
SET K \4937 \27\45; *Shift/Grey Page Up    PF11 (PROFS page up)
SET K \4945 \{27}0; *Shift/Grey Page Down  PF10 (PROFS page down)
SET K \2457 \27\45; *Alt/Grey Page Up      PF11 (PROFS page up)
SET K \2465 \{27}0; *Alt/Grey Page Down    PF10 (PROFS page down)
;
IF EQ \%C ATT SET K \2349 \27\8DONE\13\13\2; Alt/X Drop Broadband
;
ECHO \13\10MMMM To get the Kermit command line, press the [End] key during your
session MM\13\10
POP
;
; Set up Help message for keys
;
:SHOWKEYS
;
DEF SHOWKEYS
ECHO
IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM;\
13
ECHO :      Keyboard Definition Table for ASU Kermit-MS (Full-Screen IBM/XEDIT)
:\13
ECHO
LMMMMMMMMMMMMMMMMMMMMQMMMMMMMMMMMMMMMMMMMMQMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM9\
13
ECHO : KEY NAME           3 KEY(S) TO PRESS    3 FUNCTION DONE
:\13
ECHO
GDDDDDDDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD6\
13
ECHO : Kermit Command Line3 [End] -or- Alt/F10 3 Escape to Kermit Command Line
:\13
ECHO : Drop Session       3 Alt/X              3 Drop the current host session
:\13
ECHO
GDDDDDDDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD6\
13
ECHO : Push to DOS        3 Ctrl/[F1]          3 "HOT KEY" - exit to DOS
:\13
ECHO : Toggle Term. type  3 Ctrl/[F2]          3 Toggle Terminal Type
(Tektronix)  :\13
ECHO : Hangup Phone/Net   3 Ctrl/[F3]          3 Drop DTR signal (hangup
phone/net):\13
ECHO : Dump Screen        3 Ctrl/[F4]          3 Use Kermit to dump screen to
file :\13
ECHO : Resume logging     3 Ctrl/[F5]          3 Resume session logging
:\13
ECHO : Suspend logging    3 Ctrl/[F6]          3 Suspend session logging
:\13
ECHO
GDDDDDDDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD6\
13
ECHO : Scroll Home        3 Ctrl/[Home]        3 Go to Home screen in memory
:\13
ECHO : Scroll End         3 Ctrl/[End]         3 Go to End screen in memory
:\13
ECHO : Scroll Up Screen   3 Ctrl/[PgUp]        3 Scroll up one screen in memory
:\13
ECHO : Scroll Down Screen 3 Ctrl/[PgDn]        3 Scroll own one screen in memory
:\13
ECHO : Scroll Up Line     3 Ctrl/[Left Arrow]  3 Scroll up one line in memory
:\13
ECHO : Scroll Down Line   3 Ctrl/[Right Arrow] 3 Scroll down one line in memory
:\13
ECHO : Scroll Forward Page3 [PgDn]             3 Scroll forward page (XEDIT -
PF8) :\13
ECHO : Scroll Back Page   3 [PgUp]             3 Scroll back page (XEDIT - PF7)
:\13
ECHO
HMMMMMMMMMMMMMMMMMMMMOMMMMMMMMMMMMMMMMMMMMOMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM<\
13
DO CONT
ECHO
\13IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
M;\13
ECHO :      Keyboard Definition Table for ASU Kermit-MS (Full-Screen IBM/XEDIT)
:\13
ECHO
LMMMMMMMMMMMMMMMMMMMMQMMMMMMMMMMMMMMMMMMMMQMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM9\
13
ECHO : KEY NAME           3 KEY(S) TO PRESS    3 FUNCTION DONE
:\13
ECHO
GDDDDDDDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD6\
13
ECHO : CLEAR              3 [+] on keypad      3 Clear the screen
:\13
ECHO : RESET              3 [5] on keypad      3 Protocol Converter master reset
:\13
ECHO : Erase EOF          3 Alt/[Delete]       3 Erase to the end of field
:\13
ECHO : Toggle Insert Mode 3 [Insert]           3 Toggle insert/overwrite mode
:\13
ECHO : DELETE             3 [Delete]           3 Delete character above cursor
:\13
ECHO : BACKSPACE          3 Ctrl/Backspace     3 Send BACKSPACE character
:\13
ECHO : Exit to Broadband  3 [Esc] [Home]       3 Exit to ACSS Broadband "#"
prompt :\13
ECHO
GDDDDDDDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD6\
13
ECHO : ENTER              3 [Enter]            3 Send screen to host computer
:\13
ECHO : Newline            3 Ctrl/[Enter]       3 Move cursor to start of next
line :\13
ECHO : HOME               3 [Home]             3 Move cursor to home position
:\13
ECHO : Cursor Up          3 [Up Arrow]         3 Move cursor up one line
:\13
ECHO : Cursor Down        3 [Down Arrow]       3 Move cursor down one line
:\13
ECHO : Cursor Right       3 [Right Arrow]      3 Move cursor right one character
:\13
ECHO : Cursor Left        3 [Left]-or-[Backspc]3 Move cursor left one character
:\13
ECHO : Field Tab          3 [Tab]              3 Tab right one field
:\13
ECHO : Field Back-Tab     3 Shift/[Tab]        3 Tab left one field
:\13
ECHO
HMMMMMMMMMMMMMMMMMMMMOMMMMMMMMMMMMMMMMMMMMOMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM<\
13
ECHO \13
DO CONT
ECHO \13IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM;\13
ECHO :    Keyboard Definitions for Kermit (Full-Screen IBM)    :\13
ECHO LMMMMMMMMMMQMMMMMMMMMMMMMMMMMMMQMMMMMMMMMMMMMMMMMMMMMMMMMM9\13
ECHO : KEY NAME 3 KEY(S) TO PRESS   3 FUNCTION DONE            :\13
ECHO GDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDDDDDDD6\13
ECHO : PF1      3 F1   -or-   Alt/1 3 User-defined function 1  :\13
ECHO : PF2      3 F2   -or-   Alt/2 3 User-defined function 2  :\13
ECHO : PF3      3 F3   -or-   Alt/3 3 User-defined function 3  :\13
ECHO : PF4      3 F4   -or-   Alt/4 3 User-defined function 4  :\13
ECHO : PF5      3 F5   -or-   Alt/5 3 User-defined function 5  :\13
ECHO : PF6      3 F6   -or-   Alt/6 3 User-defined function 6  :\13
ECHO : PF7      3 F7   -or-   Alt/7 3 User-defined function 7  :\13
ECHO : PF8      3 F8   -or-   Alt/8 3 User-defined function 8  :\13
ECHO : PF9      3 F9   -or-   Alt/9 3 User-defined function 9  :\13
ECHO : PF10     3 F10  -or-   Alt/0 3 User-defined function 10 :\13
ECHO : PF11     3 F11  -or-   Alt/- 3 User-defined function 11 :\13
ECHO : PF12     3 F12  -or-   Alt/= 3 User-defined function 12 :\13
ECHO GDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDDDDDDD6\13
ECHO : PA1      3 Alt/[F1]          3 PA1 definition           :\13
ECHO : PA2      3 Alt/[F2]          3 PA2 definition           :\13
ECHO HMMMMMMMMMMOMMMMMMMMMMMMMMMMMMMOMMMMMMMMMMMMMMMMMMMMMMMMMM<\13
ECHO \32\32For [Alt], [Ctrl], and [Shift], press key and second key at the same
time.\13
ECHO \32\32For [Esc], press [Esc] once and then press the following keys.\13
ECHO \13
DO CONT
C


;************
; Name      : VT100.KEY
; Date      : 5/91
; Version   : Kermit-MS (version 3.10 for IBM PC and compatibles)
; Written by: Doug Baldwin, ASU Information Resources Management (ICSDJB @
ASUACAD)
; Purpose   : This is a Kermit command file.  It is used to set up terminal
;             settings as a VT100.
;************
;
IF DEF SHOWKEYS GOTO SHOWKEYS
;
ECHO \13MMMM Loading VT100 terminal definitions
MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM\13\10
PROMPT VT100
DEF \%K VT100.KEY
;
SET K CLEAR
SET LOCAL-ECHO OFF
;
; Set up the keyboard mapping for the function keys.
;
SET K \315 \Kpf1;  F1  PF1
SET K \316 \Kpf2;  F2  PF2
SET K \317 \Kpf3;  F3  PF3
SET K \318 \Kpf4;  F4  PF4
SET K \319 \Kkp5;  F5  [5] on keypad
SET K \320 \Kbreak;F6  Break
SET K \321 \Kuparr;F7  Cursor Up
SET K \322 \Kdnarr;F8  Cursor Down
SET K \323 \Klfarr;F9  Cursor Left
SET K \324 \Krtarr;F10 Cursor Right
;
; Set up keyboard mapping for the keypad keys
;
SET K \311 \Kkpcoma; [*]
SET K \330 \Kkpminus;[-]
SET K \339 \Kkpdot;  [.]
SET K \338 \Kkp0;    [0]
SET K \335 \Kkp1;    [1]
SET K \336 \Kkp2;    [2]
SET K \337 \Kkp3;    [3]
SET K \331 \Kkp4;    [4]
SET K \332 \Kkp5;    [5]
SET K \333 \Kkp6;    [6]
SET K \327 \Kkp7;    [7]
SET K \328 \Kkp8;    [8]
SET K \329 \Kkp9;    [9]
SET K \334 \Kkpenter;[+]
;
; Set up keyboard mapping for the PF and arrow keys.
;
SET K \2424 \Kpf1;   Alt/1
SET K \2425 \Kpf2;   Alt/2
SET K \2426 \Kpf3;   Alt/3
SET K \2427 \Kpf4;   Alt/4
SET K \2428 \Kkp5;   Alt/5
SET K \2432 \Kuparr; Alt/9
SET K \2433 \Kdnarr; Alt/0
SET K \2434 \Klfarr; Alt/-
SET K \2435 \Krtarr; Alt/=
SET K \2408 \Kpf1;   Alt/F1
SET K \2409 \Kpf2;   Alt/F2
SET K \2410 \Kpf3;   Alt/F3
SET K \2411 \Kpf4;   Alt/F4
;
; Set up keyboard mappings for ASU Kermit keys
;
SET K \1374 \Kdos;     Ctrl/F1   Push to DOS
SET K \1375 \Ktermtype;Ctrl/F2   Toggle Terminal Type
SET K \1376 \Khangup;  Ctrl/F3   Hangup phone/connection
SET K \1377 \Kdump;    Ctrl/F4   Dump screen to file
SET K \1378 \Klogon;   Ctrl/F5   Resume session logging
SET K \1379 \Klogoff;  Ctrl/F6   Suspend session loggin
SET K \1399 \Khomscn;  Ctrl/Home Go to Home screen
SET K \1397 \Kendscn;  Ctrl/End  Go to End screen
SET K \1412 \Kupscn;   Ctrl/PgUp Scroll up one screen
SET K \1398 \Kdnscn;   Ctrl/PgDn Scroll down one screen
SET K \1421 \Kupone;   Ctrl/[8]  Scroll up one line
SET K \1425 \Kdnone;   Ctrl/[2]  Scroll down one line
SET K \1396 \27OC\27OC;Ctrl/[6] Right Arrow  Cursor Right 2 places
SET K \1395 \27OD\27OD;Ctrl/[4] Left Arrow   Cursor Left 2 places
SET K \10   \10; Ctrl/Enter      Newline
;
; Enhanced Keyboard settings
;
SET K \4434 \Kkp0;     Insert     Toggle Insert Mode
SET K \4435 \127;      Delete     Delete
SET K \4431 \Kexit;    End        Kermit Command Line
SET K \5495 \Khomscn;  Ctrl/Grey Home  Scroll to First
SET K \5493 \Kendscn;  Ctrl/Grey End   Scroll to Last
SET K \5508 \Kupscn;   Ctrl/Grey PgUp  Scroll up one screen
SET K \5494 \Kdnscn;   Ctrl/Grey PgDn  Scroll own one screen
SET K \5517 \Kupone;   Ctrl/Grey Up Arrow     Scroll Up Line
SET K \5521 \Kdnone;   Ctrl/Grey Down Arrow   Scroll Down Line
SET K \5492 \27OC\27OC;Ctrl/Grey Right Arrow  Cursor Right 2 places
SET K \5491 \27OD\27OD;Ctrl/Grey Left Arrow   Cursor Left 2 places
SET K \4424 \Kuparr;   Cursor Up
SET K \4432 \Kdnarr;   Cursor Down
SET K \4427 \Klfarr;   Cursor Left
SET K \4429 \Krtarr;   Cursor Right
;
SET K \270  \127;      Backspace  DELETE
SET K \782  \8;        Shift/Bspc BACKSPACE
;
SET K \2341 {\Kasukeys}; Alt/K  display the keyboard map
SET K \2349 {\Kasuexit}; Alt/X  exit the program
SET K \2323 {\Kasurec};  Alt/R  receive a file using Kermit
SET K \2335 {\Kasusend}; Alt/S  send a file using Kermit
SET K \2326 {\Kasuupld}; Alt/U  upload to WYLBUR
SET K \2336 {\Kasudnld}; Alt/D  download from WYLBUR
SET K \2354 {\Kasumode}; Alt/M  toggle file transfer mode
;
IF EQ \%C ATT SET K \2349 \27\8DONE\13\13\2; Alt/X Drop Broadband
;
ECHO \13\10MMMM To get the Kermit command line, press the [End] key during your
session MM\13\10
IF NOT DEF LINEMODE POP
;
SET LOCAL-ECHO ON
SET HANDSHAKE XON
SET FLOW NONE
SET K \270 \8;   Backspace        BACKSPACE
SET K \782 \127; Shift Backspace  DELETE
SET K \339 \127; [Del]            DELETE
POP
;
:SHOWKEYS
;
; Set up Help message for keys
;
DEF SHOWKEYS
ECHO
IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM;\
13
ECHO :             VT100 Keyboard Definition Table for ASU Kermit-MS
:\13
ECHO
LMMMMMMMMMMMMMMMMMMMMQMMMMMMMMMMMMMMMMMMMMQMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM9\
13
ECHO : KEY NAME           3 KEY(S) TO PRESS    3 FUNCTION DONE
:\13
ECHO
GDDDDDDDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD6\
13
ECHO : Kermit Command Line3 [End]              3 Escape to Kermit Command Line
:\13
ECHO : Drop Session       3 Alt/X              3 Drop the current host session
:\13
ECHO : Exit to Broadband  3 [Esc] Ctrl/H       3 Exit to ACSS Broadband "#"
prompt :\13
ECHO
GDDDDDDDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD6\
13
ECHO : Push to DOS        3 Ctrl/[F1]          3 "HOT KEY" - exit to DOS
:\13
ECHO : Toggle Term. type  3 Ctrl/[F2]          3 Toggle Terminal Type
(Tektronix)  :\13
ECHO : Hangup Phone/Net   3 Ctrl/[F3]          3 Drop DTR signal (hangup
phone/net):\13
ECHO : Dump Screen        3 Ctrl/[F4]          3 Use Kermit to dump screen to
file :\13
ECHO : Resume logging     3 Ctrl/[F5]          3 Resume session logging
:\13
ECHO : Suspend logging    3 Ctrl/[F6]          3 Suspend session logging
:\13
ECHO
GDDDDDDDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD6\
13
ECHO : Scroll Home        3 Ctrl/[Home]        3 Go to Home screen in memory
:\13
ECHO : Scroll End         3 Ctrl/[End]         3 Go to End screen in memory
:\13
ECHO : Scroll Up Screen   3 Ctrl/[PgUp]        3 Scroll up one screen in memory
:\13
ECHO : Scroll Down Screen 3 Ctrl/[PgDn]        3 Scroll own one screen in memory
:\13
ECHO : Scroll Up Line     3 Ctrl/[Left Arrow]  3 Scroll up one line in memory
:\13
ECHO : Scroll Down Line   3 Ctrl/[Right Arrow] 3 Scroll down one line in memory
:\13
ECHO
HMMMMMMMMMMMMMMMMMMMMOMMMMMMMMMMMMMMMMMMMMOMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM<\
13\10
DO CONT
ECHO
\13IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM;\13
ECHO :          VT100 Keyboard Definition Table for ASU Kermit-MS
:\13
ECHO
LMMMMMMMMMMMMMMQMMMMMMMMMMMMMMMMMMMMQMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM9\13
ECHO : KEY NAME     3 KEY(S) TO PRESS    3 FUNCTION DONE
:\13
ECHO
GDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD6\13
IF NOT DEF LINEMODE ECHO : DELETE       3 [<DD]  (Backspace) 3 Delete the
previous character     :\13
IF NOT DEF LINEMODE ECHO : BACKSPACE    3 Ctrl/H (Shift/Bspc)3 Back up one space
:\13
IF DEF LINEMODE ECHO : DELETE       3 [Del] (Shift/Bspc) 3 Delete the previous
character     :\13
IF DEF LINEMODE ECHO : BACKSPACE    3 [<DD]  (Backspace) 3 Back up one space
:\13
ECHO : [BREAK]      3 [F6]               3 Send a BREAK signal to host
:\13
ECHO : [LINEFEED]   3 Ctrl/[Enter]       3 Send a LINEFEED character to host
:\13
ECHO : [ENTER]      3 [+] (on keypad)    3 ENTER on VT-100 keypad
:\13
ECHO
GDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD6\13
ECHO : [PF1]        3 F1                 3 PF1 on VT-100 keypad
:\13
ECHO : [PF2]        3 F2                 3 PF2 on VT-100 keypad
:\13
ECHO : [PF3]        3 F3                 3 PF3 on VT-100 keypad
:\13
ECHO : [PF4]        3 F4                 3 PF4 on VT-100 keypad
:\13
ECHO
GDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD6\13
ECHO : Cursor Up    3 [F7]    -or- Alt/9 3 Move cursor up one line
:\13
ECHO : Cursor Down  3 [F8]    -or- Alt/0 3 Move cursor down one line
:\13
ECHO : Cursor Left  3 [F9]    -or- Alt/- 3 Move cursor left one character
:\13
ECHO : Cursor Right 3 [F10]   -or- Alt/= 3 Move cursor right one character
:\13
ECHO
HMMMMMMMMMMMMMMOMMMMMMMMMMMMMMMMMMMMOMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM<\13\10\
10\10
DO CONT
ECHO \13IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM;\13
ECHO : VT100 Keyboard Definition Table for ASU Kermit-MS  :\13
ECHO LMMMMMMMMMMQMMMMMMMMMMMMMMMMMMMMQMMMMMMMMMMMMMMMMMMMM9\13
ECHO : KEY NAME 3 KEY(S) TO PRESS    3 FUNCTION DONE      :\13
ECHO GDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDD6\13
ECHO : [7]      3 [7] (on keypad)    3 7 on VT-100 keypad :\13
ECHO : [8]      3 [8] (on keypad)    3 8 on VT-100 keypad :\13
ECHO : [9]      3 [9] (on keypad)    3 9 on VT-100 keypad :\13
ECHO : [-]      3 [-] (on keypad)    3 - on VT-100 keypad :\13
ECHO GDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDD6\13
ECHO : [4]      3 [4] (on keypad)    3 4 on VT-100 keypad :\13
ECHO : [5]      3 [5] (on keypad)    3 5 on VT-100 keypad :\13
ECHO : [6]      3 [6] (on keypad)    3 6 on VT-100 keypad :\13
ECHO : [,]      3 [*] (PrtSc)        3 , on VT-100 keypad :\13
ECHO GDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDDEDDDDDDDDDDDDDDDDDDDD6\13
ECHO : [1]      3 [1] (on keypad)    3 1 on VT-100 keypad :\13
ECHO : [2]      3 [2] (on keypad)    3 2 on VT-100 keypad :\13
ECHO : [3]      3 [3] (on keypad)    3 3 on VT-100 keypad :\13
ECHO : [0]      3 [0] (on keypad)    3 0 on VT-100 keypad :\13
ECHO : [.]      3 [.] (on keypad)    3 . on VT-100 keypad :\13
ECHO HMMMMMMMMMMOMMMMMMMMMMMMMMMMMMMMOMMMMMMMMMMMMMMMMMMMM<\13
ECHO \32\32For [Alt], [Ctrl], and [Shift], press key and second key at the same
time.\13
ECHO \32\32For [Esc], press [Esc] once and then press the following keys.\13\10
DO CONT
C