home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / vos / pc95.ksc < prev    next >
Text File  |  2000-03-21  |  6KB  |  156 lines
  1. ;  this take file maps the keys of the PC for use
  2. ;  with the VT320 Stratus ttp so that the keyboard
  3. ;  Follows the keyboard template of the PC/Connect-2 ttp (host_pc2)
  4.  
  5. ;  Created by Neil Marko - Intelligent Software System, Inc. 98-02-25
  6.  
  7. ;       scan    DEC              PC        Stratus
  8. ;       code    seq             key        request
  9.  
  10. echo Executing \v(cmdfile)
  11. echo    for full PC/Connect-2 key mappings...
  12. echo    ver 98-09-13
  13.  
  14. set key \368    \Kkp5               ; F1        repeat
  15. set key \880    \Kkp8               ;    shift  regional
  16. set key \1392   \{27}[123~          ;    ctrl   repeat last
  17. set key \2416   \Kkp1               ;    alt    func 1
  18.  
  19. set key \369    \Kdecdo             ; F2        menu
  20. set key \881    \Kdechelp           ;    shift  help
  21. set key \1393   \Kdecf9             ;    ctrl   change case
  22. set key \2417   \Kkp2               ;    alt    func 2
  23.  
  24. set key \370    \Kkp6               ; F3        shorthand
  25. set key \882    \Kkp9               ;    shift  define shorthand
  26. set key \1394   \Kkpdot             ;    ctrl   query
  27. set key \2418   \Kkp3               ;    alt    func 3
  28.  
  29. set key \371    \Kpf4               ; F4        paragraph
  30. set key \883    \Kpf3               ;    shift  page
  31. set key \1395   \Kpf1               ;    ctrl   sentence
  32. set key \2419   \Kkp4               ;    alt    func 4
  33.  
  34. set key \372    \Kdecf12            ; F5        scroll
  35. set key \884    \{27}[120~          ;    shift  pattern
  36. set key \1396   \Kkpminus           ;    ctrl   overstrike
  37. set key \2420   \Kkp5               ;    alt    func 5
  38.  
  39. set key \373    \Kkp4               ; F6        search
  40. set key \885    \Kkp7               ;    shift  marked
  41. set key \1397   \Kkp3               ;    ctrl   caseless
  42. set key \2421   \Kkp6               ;    alt    func 6
  43.  
  44. set key \374    \Kdecf14            ; F7        word
  45. set key \886    \{27}[126~          ;    shift  blanks
  46. set key \1398   \kdec13             ;    ctrl   tab stop
  47. set key \2422   \Kkp7               ;    alt    func 7
  48.  
  49. set key \375    \Kdecremove         ; F8        delete
  50. set key \887    \Kdecf10            ;    shift  save
  51. set key \1399   \{27}[117~          ;    ctrl   discard
  52. set key \2423   \Kkp8               ;    alt    func 8
  53.  
  54. set key \376    \Kkp0               ; F9        window
  55. set key \888    \Kdecf8             ;    shift  display status
  56. set key \1400   \{27}[119~          ;    ctrl   clear status
  57. set key \2424   \Kkp9               ;    alt    func 9
  58.  
  59. set key \377    \Kdecinsert         ; F10       insert saved
  60. set key \889    \Kdecf11            ;    shift  insert default
  61. set key \1401   \{27}[125~          ;    ctrl   column
  62. set key \2425   \Kpf1\Kkp0          ;    alt    func 10
  63.  
  64. set key \2146   \{27}[131~          ; alt b     cycle back
  65. set key \2147   \Kdecf17            ; alt c     cycle
  66. set key \2150   \10                 ; alt f     line feed
  67. set key \2151   \Kdecfind           ; alt g     goto
  68. set key \2153   \{27}[134~          ; alt i     interrupt
  69. set key \2156   \Kpf2               ; alt l     line
  70. set key \2157   \Kdecselect         ; alt m     mark
  71. set key \2158   \Kdecf6             ; alt n     name
  72. set key \2160   \{27}[132~          ; alt p     no pause
  73. set key \2162   \{27}[133~          ; alt r     redisplay
  74. set key \2165   \Kkpcomma           ; alt u     underline
  75.  
  76. set key \2097   \Kpf1\Kkp1          ; alt 1     func 11
  77. set key \2098   \Kpf1\Kkp2          ; alt 2     func 12
  78. set key \2099   \Kpf1\Kkp3          ; alt 3     func 13
  79. set key \2100   \Kpf1\Kkp4          ; alt 4     func 14
  80. set key \2101   \Kpf1\Kkp5          ; alt 5     func 15
  81. set key \2102   \Kpf1\Kkp6          ; alt 6     func 16
  82. set key \2103   \Kpf1\Kkp7          ; alt 7     func 17
  83. set key \2104   \Kpf1\Kkp8          ; alt 8     func 18
  84. set key \2105   \Kpf1\Kkp9          ; alt 9     func 19
  85. set key \2096   \Kkp0               ; alt 0     func 0
  86.  
  87. set key \4385   \Kdecprev           ; PgUp      prev screen
  88. set key \5409                       ;    ctrl   rotate form
  89.  
  90. set key \4386   \Kdecnext           ; PgDn      next screen
  91. set key \5410                       ;    ctrl   rotate back
  92.  
  93. set key \4387   \Kdecfind\Krtarr    ; end       goto right
  94. set key \5411   \Kdecfind\Knarr     ;    ctrl   goto down
  95.  
  96. set key \4388   \Kdecfind\Klfarr    ; home      goto left
  97. set key \5412   \Kdecfind\Kuparr    ;    ctrl   goto up
  98.  
  99. set key \4397   \Kdecf20            ; ins       insert/overlay
  100. set key \5421                       ;    ctrl       
  101.  
  102. set key \4398   \127                ; del       delete char
  103. set key \5422                       ;    ctrl       
  104.  
  105. set key \4389   \Klfarr             ; left      char left
  106. set key \5413   \Kdecf14\Klfarr     ;    ctrl   word left
  107.  
  108. set key \4390   \Kuparr             ; up        
  109. set key \5414                       ;    ctrl       
  110.  
  111. set key \4391   \Krtarr             ; right     char right
  112. set key \5415   \Kdecf14\Krtarr     ;    ctrl   word right
  113.  
  114. set key \4392   \Kdnarr             ; down        
  115. set key \5416                       ;    ctrl       
  116.  
  117. set key \362    \Kdecf18            ; *         cancel
  118. set key \365    \Kdecf19            ; -         display form
  119.  
  120. set key \4365   \Kkpenter           ; +         enter
  121. set key \379    \Kbreak             ; F12       break
  122. set key \891    \Ktn_ayt            ; Shift F12 Telnet Are You There
  123. set key \1403   \Ktn_ip             ; Ctrl  F12 Telnet Interupt Process
  124.  
  125. ; reprogram the keypad so that it works OK
  126. set key \352    0
  127. set key \353    1
  128. set key \354    2
  129. set key \355    3
  130. set key \356    4
  131. set key \357    5
  132. set key \358    6
  133. set key \359    7
  134. set key \360    8
  135. set key \361    9
  136. set key \366    .                  ; this is the dec pt on the key pad
  137.  
  138.  
  139. set key \4897   \Kupscn            ; ctl-gray-page up - page back the screen
  140. set key \4898   \Kdnscn            ; ctl-gray-page dn - page fwd  the screen
  141. set key \4900   \Khomscn           ; ctl-home - first screen
  142. set key \4899   \Kendscn           ; ctl-end  - last  screen
  143.  
  144. set key \3408   \Kdump             ; ctl-alt-P - print screen
  145.  
  146. ; alt right arrow - telnet Window term next window
  147. set key \6439   \Ktn_ip\{27}[131~\Kdecf18\{22}
  148.  
  149. ; alt left arrow - telnet Window term next window
  150. set key \6437   \Ktn_ip\Kdecf17\Kdecf18\{22}
  151.  
  152. set terminal answerback on
  153. set terminal control 7
  154.  
  155. ;
  156.