; 7171 Key Definitions for Kermit 2.30/2.31 at Columbia (nodes SIMB, SIML)
; for IBM-PC, XT, AT keyboard.
; Heath-19 emulation is set so that cursor changes in Insert mode and
; intensity is used to mark current lines, etc.
; Adapted from a version contributed by Mark S. Zinzow <MARKZ@UIUCVMD.BITNET>
; by Walter Bourne <walter@cunixc>, May 1988.
;
set terminal heath
set parity even
set local-echo off
set timer on
set flow xon
set handshake none

set key clear		; clear all previous key definitions

;  The following ASCII code sequences
;  (which can be typed on most any terminal or PC) keyboard are
;  useful on the IBM running CMS when using the Columbia version of the
;  7171 protocol converter:
;
; ASCII codes   IBM Full Screen Function    ASCII codes     IBM Function
; ESC 1         PF1                         ESC -           PF11
; ESC 2         PF2                         ESC =           PF12
; ESC 3         PF3                         Ctrl+C          PA1
; ESC 4         PF4                         Ctrl+W          PA2
; ESC 5         PF5                         Ctrl+L          Clear
; ESC 6         PF6                         Ctrl+X          Insert mode
; ESC 7         PF7                         Ctrl+P          Cursor Up
; ESC 8         PF8                         Ctrl+N          Cursor Down
; ESC 9         PF9                         Ctrl+F          Cursor Right
; ESC 0         PF10                        Ctrl+B          Cursor Left
; Ctrl+K        ERASE EOF
;
; Note that all of these codes can be assigned to any keyboard key
; with the SET command.  The following set commands assign the above
; code sequences to the function keys:
;
; Set PC F1-F10 to PF01 - PF10 equivalents
set key \315 \{27}1
set key \316 \{27}2
set key \317 \{27}3
set key \318 \{27}4
set key \319 \{27}5
set key \320 \{27}6
set key \321 \{27}7
set key \322 \{27}8
set key \323 \{27}9
set key \324 \{27}0
; PF11 assigned to shift F1
set key \852 \27q
; PF12 assigned to shift F2
set key \853 \27w
; PF13 assigned to shift F3
set key \854 \27e
; PF14 assigned to shift F4
set key \855 \27r
; PF15 assigned to shift F5
set key \856 \27t
; PF16 assigned to shift F6
set key \857 \27y
; PF17 assigned to shift F7
set key \858 \27u
; PF18 assigned to shift F8
set key \859 \27i
; PF19 assigned to shift F9
set key \860 \27o
; PF20 assigned to shift F10
set key \861 \27p
; PF21 assigned to alt F1
set key \2408 \27a
; PF22 assigned to alt F2
set key \2409 \27s
; PF23 assigned to alt F3
set key \2410 \27d
; PF24 assigned to alt F4
set key \2411 \27f
;
; C-C for PA1 assigned to ctrl F5
set key \1378 \3
; C-C for PA1 assigned to alt F5
set key \2412 \3
; C-W for PA2 assigned to ctrl F6
set key \1379 \24
; C-W for PA2 assigned to alt F6
set key \2413 \24
; C-C for PA1 assigned to ctrl F1
set key \1374 \3
; C-W for PA2 assigned to ctrl F2
set key \1375 \24
;
; C-J for Newline assigned to ctrl F8
set key \1380 \o012
; C-J for Newline assigned to alt F8
set key \2415 \o012
; note the PC Keyboard normally generates a newline character when Ctrl J or
; Ctrl Enter is pressed.
;
; Field Tab assigned to Tab key( -->| ) (redundant as this is normal key code)
set key \9 \9
; Field Back-Tab assigned to shift tab key ( |<--  )
set key \783 \27\9
;
; C-X for Toggle insert assigned to Ins key
set key \338 \24
;
; C-D for Delete assigned to Del key
set key \339 \4
;
; Cursor pad definitions
; Up, right, left, down arrows
; C-P for up arrow
set key \328 \16
; C-F for right arrow
set key \333 \6
; C-B for left arrow
set key \331 \2
; C-N for down arrow
set key \336 \14
; Pgup = PF7 for Xedit
set key \329 \{27}7
; Pgdn = PF8 for Xedit
set key \337 \{27}8
; Gray +, number pad as C-W for PA2
set key \334 \23
; * * * * * * * * * * * * * * * * * * * *
; NOTE: DESTRUCTIVE Backspace as C-H C-D

set key \270 \8\4
;                                      (End of 7171 Key definitions)
;
; The following table shows the keys used with the 7171 with the above
; definitions:
;                  Quick Reference of the sample key definitions
;           for use with the IBM 7171 to access CMS in full-screen mode
;                         using standard VT100 emulation
;
; PC key     IBM function   PC key    IBM func.       PC key      IBM function
;
;       F1   PF1                 F2   PF2
; Shift F1   PF11          Shift F2   PF12
; Alt   F1   PF21          Alt   F2   PF22            tab  -->|   TAB
; Ctrl  F1   PA1           Ctrl  F2   PA2
;                                               shift tab  |<--   BACK TAB
;       F3   PF3                 F4   PF4
; Shift F3   PF13          Shift F4   PF14          Enter /___|   ENTER
; Alt   F3   PF23          Alt   F4   PF24                \
; Ctrl  F3   undefined     Ctrl  F4   undefined
;                                                     Ctrl  L     CLEAR
;       F5   PF5                 F6   PF6
; Shift F5   PF15          Shift F6   PF16                  Del   DELETE CHAR
; Alt   F5   PA1           Alt   F6   PA1
; Ctrl  F5   PA1           Ctrl  F6   PA2                   Ins   TOGGLE INSERT
;                                                        Gray +   PA2
;
;       F7   PF7                 F8   PF8              Ctrl J     NEWLINE
; Shift F7   PF17          Shift F8   PF18
; Alt   F7   undefined     Alt   F8   NEWLINE        Ctrl Enter   NEWLINE
; Ctrl  F7   undefined     Ctrl  F8   NEWLINE
;
;       F9   PF9                 F10  PF10
; Shift F9   PF19          Shift F10  PF20
; Alt   F9   undefined     Alt   F10  undefined
; Ctrl  F9   undefined     Ctrl  F10  undefined
;
;
; 7171 PC    7171   PC       7171   PC      7171               PC
;
; PF1  F1    PF11 Shift F1   PF21 Alt F1    CLEAR           Ctrl L
; PF2  F2    PF12 Shift F2   PF22 Alt F2    DELETE CHAR     Del
; PF3  F3    PF13 Shift F3   PF23 Alt F3    ENTER           Enter
; PF4  F4    PF14 Shift F4   PF24 Alt F4    FIELD BACK TAB  |<-- (shift tab)
; PF5  F5    PF15 Shift F5                  FIELD TAB       -->|  (tab)
; PF6  F6    PF16 Shift F6                  HOME            undefined
; PF7  F7    PF17 Shift F7                  NEWLINE         Ctrl J
; PF8  F8    PF18 Shift F8                  TOGGLE INSERT   Ins
; PF9  F9    PF19 Shift F9   PA1 Ctrl C or Ctrl F1 or Alt F5 or Ctrl F5
; PF10 F10   PF20 Shift F10  PA2 Ctrl W or Ctrl F2 or Alt F6 or Ctrl F6
;
; Additional definitions for use with F11F12.COM
; PF11 assigned to F11
;;set key \389 \27-
; PF12 assigned to F12
;;set key \390 \27=
; PF21 assigned to shift F11
;;set key \903 \27o
; PF22 assigned to shift F12
;;set key \904 \27p
