home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / msr313src.zip / msicsp.ini < prev    next >
Text File  |  1989-10-03  |  8KB  |  252 lines
  1. #! /bin/sh
  2. # This is a shell archive.  Remove anything before this line, then unpack
  3. # it by saving it into a file and typing "sh file".  To overwrite existing
  4. # files, type "sh file -c".  You can also feed this as standard input via
  5. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  6. # will see the following message at the end:
  7. #        "End of shell archive."
  8. # Contents:  mskermit.m crisp.tak
  9. # Wrapped by dave@edfdc on Sat Sep  9 23:17:55 1989
  10. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  11. if test -f 'mskermit.m' -a "${1}" != "-c" ; then 
  12.   echo shar: Will not clobber existing file \"'mskermit.m'\"
  13. else
  14. echo shar: Extracting \"'mskermit.m'\" \(3400 characters\)
  15. sed "s/^X//" >'mskermit.m' <<'END_OF_FILE'
  16. X/* MS-Kermit terminal setup for CRISP.
  17. X   Requires the kermit keys to be rebound.
  18. X   by David MacKenzie */
  19. X
  20. X#include "tty.h"
  21. X
  22. X(macro _init
  23. X    (
  24. X    /* Set characters used for extended graphics support when
  25. X       drawing windows. */
  26. X    (set_term_characters
  27. X        213        ; Top left of window.
  28. X        184        ; Top right of window.
  29. X        212        ; Bottom left of window.
  30. X        190        ; Bottom right of window.
  31. X        179        ; Vertical bar for window sides.
  32. X        205        ; Top and bottom horizontal bar for window.
  33. X        NULL    ; Top join.
  34. X        NULL    ; Bottom join.
  35. X        NULL    ; Window 4-way intersection.
  36. X        NULL    ; Left hand join.
  37. X        NULL    ; Right hand join.
  38. X        )
  39. X
  40. X    /* Define escape sequences used for special optimisations on output. */
  41. X    (set_term_features
  42. X        NULL    ; Sequence to clear 'n' spaces.
  43. X        "%c"    ; Sequence to print characters with top bit set.
  44. X        NULL    ; Insert-mode cursor.
  45. X        NULL    ; Overwrite-mode cursor.
  46. X        NULL    ; Insert-mode cursor (on virtual space).
  47. X        NULL    ; Overwrite-mode cursor (on virtual space).
  48. X        NULL    ; Print ESCAPE character graphically.
  49. X        NULL    ; Escape sequence to repeat last character.
  50. X        FALSE    ; TRUE if ESC [0m resets color.
  51. X        TRUE    ; TRUE if terminal supports color.
  52. X        "\x1B[%dC"    ; Move cursor multiple columns (termcap lacks).
  53. X        )
  54. X
  55. X    /* Define keyboard layout for non-ASCII characters. */
  56. X    (set_term_keyboard
  57. X        F1-F12
  58. X        (quote_list "\x1BOP" "\x1BOQ" "\x1BOR" "\x1BOS" "\x1BOT"
  59. X            "\x1BOU" "\x1BOV" "\x1BOW" "\x1BOX" "\x1BOY"
  60. X            "\x1BOZ" "\x1BO[")
  61. X
  62. X        SHIFT-F1-F12
  63. X        (quote_list "\x1BOp" "\x1BOq" "\x1BOr" "\x1BOs" "\x1BOt"
  64. X            "\x1BOu" "\x1BOv" "\x1BOw" "\x1BOx" "\x1BOy"
  65. X            "\x1BOz" "\x1BO{")
  66. X        CTRL-F1-F12
  67. X        (quote_list "\x1BO\x10" "\x1BO\x11" "\x1BO\x12" "\x1BO\x13"
  68. X            "\x1BO\x14"  "\x1BO\x15" "\x1BO\x16" "\x1BO\x17"
  69. X            "\x1BO\x18" "\x1BO\x19" "\x1BO\x1a" "\x1BO\x1B")
  70. X        ALT-A-Z
  71. X        (quote_list    "\x1BNa" "\x1BNb" "\x1BNc" "\x1BNd" "\x1BNe"
  72. X            "\x1BNf" "\x1BNg" "\x1BNh" "\x1BNi" "\x1BNj"
  73. X            "\x1BNk" "\x1BNl" "\x1BNm" "\x1BNn" "\x1BNo"
  74. X            "\x1BNp" "\x1BNq" "\x1BNr" "\x1BNs" "\x1BNt"
  75. X            "\x1BNu" "\x1BNv" "\x1BNw" "\x1BNx" "\x1BNy" "\x1BNz")
  76. X        KEYPAD-0-9
  77. X        (quote_list "\x1B[@" "\x1B[Y" "\x1B[B" "\x1B[U" "\x1B[D"
  78. X            "\x1B[G" "\x1B[C" "\x1B[H" "\x1B[A" "\x1B[V")
  79. X        CTRL-KEYPAD-0-9 ; Not sent by MS-Kermit.
  80. X        (quote_list "\x1B?0" "\x1B?1" "\x1B?2" "\x1B?3" "\x1B?4"
  81. X            "\x1B?5" "\x1B?6" "\x1B?7" "\x1B?8" "\x1B?9")
  82. X        ALT-0-9
  83. X        (quote_list "\x1BN0" "\x1BN1" "\x1BN2" "\x1BN3" "\x1BN4"
  84. X            "\x1BN5" "\x1BN6" "\x1BN7" "\x1BN8" "\x1BN9")
  85. X        CUT        "\x1B[S"    ; keypad -
  86. X        COPY    "\x1B[T"    ; keypad +
  87. X        BACK-TAB    "\x1B[Z"    ; shift-tab
  88. X    )
  89. X
  90. X    (assign_to_key "#127" "backspace")
  91. X    )
  92. X)
  93. X
  94. X/* Macro called if `-mono' is part of the suffix list of BTERM.
  95. X   This is called after _init. */
  96. X(macro mono
  97. X    (
  98. X    /* Define escape sequences used for special optimisations on output. */
  99. X    (set_term_features
  100. X        NULL    ; Sequence to clear 'n' spaces.
  101. X        "%c"    ; Sequence to print characters with top bit set.
  102. X        NULL    ; Insert-mode cursor.
  103. X        NULL    ; Overwrite-mode cursor.
  104. X        NULL    ; Insert-mode cursor (on virtual space).
  105. X        NULL    ; Overwrite-mode cursor (on virtual space).
  106. X        NULL    ; Print ESCAPE character graphically.
  107. X        NULL    ; Escape sequence to repeat last character.
  108. X        FALSE    ; TRUE if ESC [0m resets color.
  109. X        FALSE    ; TRUE if terminal supports color.
  110. X        "\x1B[%dC"    ; Move cursor multiple columns (termcap lacks).
  111. X        )
  112. X    )
  113. X)
  114. END_OF_FILE
  115. if test 3400 -ne `wc -c <'mskermit.m'`; then
  116.     echo shar: \"'mskermit.m'\" unpacked with wrong size!
  117. fi
  118. # end of 'mskermit.m'
  119. fi
  120. if test -f 'crisp.tak' -a "${1}" != "-c" ; then 
  121.   echo shar: Will not clobber existing file \"'crisp.tak'\"
  122. else
  123. echo shar: Extracting \"'crisp.tak'\" \(2451 characters\)
  124. sed "s/^X//" >'crisp.tak' <<'END_OF_FILE'
  125. X; crisp.tak - remap the MS-Kermit keyboard for crisp with BTERM=mskermit
  126. X; Load with the command:
  127. X; Kermit-MS>take crisp.tak
  128. X; David MacKenzie
  129. X; Latest revision: 09/09/89
  130. X
  131. Xset flow-control none
  132. Xset display 8-bit      ; Allow full 8 bit character set to be used.
  133. Xset term vt102         ; Emulate a DEC VT-102 terminal
  134. Xset term wrap on       ; Have Kermit wrap lines at column 80
  135. Xset mode-line off      ; Don't show mode line at bottom of screen.
  136. X
  137. X; F1-F12
  138. Xset key \315 \27OP
  139. Xset key \316 \27OQ
  140. Xset key \317 \27OR
  141. Xset key \318 \27OS
  142. Xset key \319 \27OT
  143. Xset key \320 \27OU
  144. Xset key \321 \27OV
  145. Xset key \322 \27OW
  146. Xset key \323 \27OX
  147. Xset key \324 \27OY
  148. X;set key   ? \27OZ
  149. X;set key   ? \27O[
  150. X
  151. X; Shift-F1-F12
  152. Xset key \852 \27Op
  153. Xset key \853 \27Oq
  154. Xset key \854 \27Or
  155. Xset key \855 \27Os
  156. Xset key \856 \27Ot
  157. Xset key \857 \27Ou
  158. Xset key \858 \27Ov
  159. Xset key \859 \27Ow
  160. Xset key \860 \27Ox
  161. Xset key \861 \27Oy
  162. X;set key   ? \27Oz
  163. X;set key   ? \27O{
  164. X
  165. X; Ctrl-F1-F12
  166. Xset key \1374 \27O\16
  167. Xset key \1375 \27O\17
  168. Xset key \1376 \27O\18
  169. Xset key \1377 \27O\19
  170. Xset key \1378 \27O\20
  171. Xset key \1379 \27O\21
  172. Xset key \1380 \27O\22
  173. Xset key \1381 \27O\23
  174. Xset key \1382 \27O\24
  175. Xset key \1383 \27O\25
  176. X;set key    ? \27O\26
  177. X;set key    ? \27O\27
  178. X
  179. X; Alt-A-Z
  180. Xset key \2320 \27Nq
  181. Xset key \2321 \27Nw
  182. Xset key \2322 \27Ne
  183. Xset key \2323 \27Nr
  184. Xset key \2324 \27Nt
  185. Xset key \2325 \27Ny
  186. Xset key \2326 \27Nu
  187. Xset key \2327 \27Ni
  188. Xset key \2328 \27No
  189. Xset key \2329 \27Np
  190. Xset key \2334 \27Na
  191. Xset key \2335 \27Ns
  192. Xset key \2336 \27Nd
  193. Xset key \2337 \27Nf
  194. Xset key \2338 \27Ng
  195. Xset key \2339 \27Nh
  196. Xset key \2340 \27Nj
  197. Xset key \2341 \27Nk
  198. Xset key \2342 \27Nl
  199. Xset key \2348 \27Nz
  200. Xset key \2349 \27Nx
  201. Xset key \2350 \27Nc
  202. Xset key \2351 \27Nv
  203. Xset key \2352 \27Nb
  204. Xset key \2353 \27Nn
  205. Xset key \2354 \27Nm
  206. X
  207. X; Alt-0-9
  208. Xset key \2424 \27N1
  209. Xset key \2425 \27N2
  210. Xset key \2426 \27N3
  211. Xset key \2427 \27N4
  212. Xset key \2428 \27N5
  213. Xset key \2429 \27N6
  214. Xset key \2430 \27N7
  215. Xset key \2431 \27N8
  216. Xset key \2432 \27N9
  217. Xset key \2433 \27N0
  218. X
  219. X; keypad 0-9 (shifted, actually)
  220. Xset key \850 \27[@
  221. Xset key \847 \27[Y
  222. Xset key \848 \27[B
  223. Xset key \849 \27[U
  224. Xset key \843 \27[D
  225. Xset key \844 \27[G
  226. Xset key \845 \27[C
  227. Xset key \839 \27[H
  228. Xset key \840 \27[A
  229. Xset key \841 \27[V
  230. X
  231. X; Ctrl-keypad 0-9
  232. X;set key \1397 \27?1
  233. X;set key \1398 \27?3
  234. X;set key \1395 \27?4
  235. X;set key \1396 \27?6
  236. X;set key \1399 \27?7
  237. X;set key \1412 \27?9
  238. X
  239. Xset key \330 \27[S    ; keypad -
  240. Xset key \842 \Kmodeline    ; shift-keypad -
  241. Xset key \334 \27[T    ; keypad +
  242. Xset key \783 \27[Z    ; Shift-Tab
  243. X
  244. END_OF_FILE
  245. if test 2451 -ne `wc -c <'crisp.tak'`; then
  246.     echo shar: \"'crisp.tak'\" unpacked with wrong size!
  247. fi
  248. # end of 'crisp.tak'
  249. fi
  250. echo shar: End of shell archive.
  251. exit 0
  252.