home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / ELEP2F.ZIP / K850GRET.DEF < prev    next >
Text File  |  1991-05-13  |  12KB  |  448 lines

  1. ******************************************************************************
  2. *                                                                            *
  3. *     Name: K850GRET.DEF                                                     *
  4. *                                                                            *
  5. * Function: This contains the default ELEP2 keyboard mapping for the         *
  6. *           following envirnoment:                                           *
  7. *                                                                            *
  8. *           Code Page/s      : 850, 437                                      *
  9. *           Country/ies      : Germany                                       *
  10. *           PC   Keyboard/s  : Enhanced (PC/AT)                              *
  11. *           Host Keyboard/s  : Typewriter (24 PF Keys)                       *
  12. *           Author/s         : Kenneth Kahn                                  *
  13. *                              Berndt Schwerdtfeger                          *
  14. *                                                                            *
  15. *                                                                            *
  16. ******************************************************************************
  17. *
  18. *----------------------------------------------------------------------------
  19. * Declare available Host scan codes
  20. *----------------------------------------------------------------------------
  21. *
  22. DECLARE 1          = 0x21
  23. DECLARE 2          = 0x22
  24. DECLARE 3          = 0x23
  25. DECLARE 4          = 0x24
  26. DECLARE 5          = 0x25
  27. DECLARE 6          = 0x26
  28. DECLARE 7          = 0x27
  29. DECLARE 8          = 0x28
  30. DECLARE 9          = 0x29
  31. DECLARE 0          = 0x20
  32. DECLARE ß          = 0x30
  33. DECLARE '          = 0x11
  34. DECLARE backspace  = 0x31
  35. DECLARE tab        = 0x36
  36. DECLARE q          = 0x70
  37. DECLARE w          = 0x76
  38. DECLARE e          = 0x64
  39. DECLARE r          = 0x71
  40. DECLARE t          = 0x73
  41. DECLARE z          = 0x78
  42. DECLARE u          = 0x74
  43. DECLARE i          = 0x68
  44. DECLARE o          = 0x6E
  45. DECLARE p          = 0x6F
  46. DECLARE ü          = 0x1B
  47. DECLARE plus       = 0x15
  48. DECLARE backtab    = 0x35
  49. DECLARE capslock   = 0x4C
  50. DECLARE a          = 0x60
  51. DECLARE s          = 0x72
  52. DECLARE d          = 0x63
  53. DECLARE f          = 0x65
  54. DECLARE g          = 0x66
  55. DECLARE h          = 0x67
  56. DECLARE j          = 0x69
  57. DECLARE k          = 0x6A
  58. DECLARE l          = 0x6B
  59. DECLARE ö          = 0x7E
  60. DECLARE ä          = 0x12
  61. DECLARE #          = 0x0F
  62. DECLARE return     = 0x08
  63. DECLARE <          = 0x09
  64. DECLARE y          = 0x79
  65. DECLARE x          = 0x77
  66. DECLARE c          = 0x62
  67. DECLARE v          = 0x75
  68. DECLARE b          = 0x61
  69. DECLARE n          = 0x6D
  70. DECLARE m          = 0x6C
  71. DECLARE ,          = 0x33
  72. DECLARE .          = 0x32
  73. DECLARE minus      = 0x14
  74. *
  75. * Special 3278/79 Function Keys
  76. *
  77. DECLARE attn       = 0x50
  78. DECLARE cursorsel  = 0x51
  79. DECLARE chgfmt     = 0x52
  80. DECLARE eraseinput = 0x53
  81. DECLARE eraseeof   = 0x55
  82. DECLARE test       = 0x57
  83. DECLARE dup        = 0x5F
  84. DECLARE fieldmark  = 0x5E
  85. DECLARE insert     = 0x0C
  86. DECLARE delete     = 0x0D
  87. DECLARE up         = 0x0E
  88. DECLARE down       = 0x13
  89. DECLARE left       = 0x16
  90. DECLARE right      = 0x1A
  91. DECLARE reset      = 0x34
  92. DECLARE spacebar   = 0x10
  93. DECLARE enter      = 0x18
  94. *
  95. * PF keys
  96. *
  97. DECLARE pf13       = 0x40
  98. DECLARE pf14       = 0x41
  99. DECLARE pf15       = 0x42
  100. DECLARE pf16       = 0x43
  101. DECLARE pf17       = 0x44
  102. DECLARE pf18       = 0x45
  103. DECLARE pf19       = 0x46
  104. DECLARE pf20       = 0x47
  105. DECLARE pf21       = 0x48
  106. DECLARE pf22       = 0x49
  107. DECLARE pf23       = 0x4A
  108. DECLARE pf24       = 0x4B
  109. *
  110. * Ordinal Values for elep2kbd.DLL
  111. *
  112. DECLARE elep2kbd    = 0xFF
  113. *
  114. * Function Values for elep2kbd.DLL
  115. *
  116. DECLARE skipword   = 1
  117. *
  118. *----------------------------------------------------------------------------
  119. *
  120. *----------------------------------------------------------------------------
  121. * Define Keyboard in terms of Host scan codes
  122. *----------------------------------------------------------------------------
  123. *------------------------
  124. * Standard character keys
  125. *------------------------
  126. *
  127. * lower case letters
  128. *
  129. DEFINE  a = a
  130. DEFINE  b = b
  131. DEFINE  c = c
  132. DEFINE  d = d
  133. DEFINE  e = e
  134. DEFINE  f = f
  135. DEFINE  g = g
  136. DEFINE  h = h
  137. DEFINE  i = i
  138. DEFINE  j = j
  139. DEFINE  k = k
  140. DEFINE  l = l
  141. DEFINE  m = m
  142. DEFINE  n = n
  143. DEFINE  o = o
  144. DEFINE  p = p
  145. DEFINE  q = q
  146. DEFINE  r = r
  147. DEFINE  s = s
  148. DEFINE  t = t
  149. DEFINE  u = u
  150. DEFINE  v = v
  151. DEFINE  w = w
  152. DEFINE  x = x
  153. DEFINE  y = y
  154. DEFINE  z = z
  155. DEFINE  ä = ä
  156. DEFINE  ö = ö
  157. DEFINE  ü = ü
  158. DEFINE  ß = ß
  159. *
  160. * upper case letters
  161. *
  162. DEFINE  A = S-a
  163. DEFINE  B = S-b
  164. DEFINE  C = S-c
  165. DEFINE  D = S-d
  166. DEFINE  E = S-e
  167. DEFINE  F = S-f
  168. DEFINE  G = S-g
  169. DEFINE  H = S-h
  170. DEFINE  I = S-i
  171. DEFINE  J = S-j
  172. DEFINE  K = S-k
  173. DEFINE  L = S-l
  174. DEFINE  M = S-m
  175. DEFINE  N = S-n
  176. DEFINE  O = S-o
  177. DEFINE  P = S-p
  178. DEFINE  Q = S-q
  179. DEFINE  R = S-r
  180. DEFINE  S = S-s
  181. DEFINE  T = S-t
  182. DEFINE  U = S-u
  183. DEFINE  V = S-v
  184. DEFINE  W = S-w
  185. DEFINE  X = S-x
  186. DEFINE  Y = S-y
  187. DEFINE  Z = S-z
  188. DEFINE  Ä = S-ä
  189. DEFINE  Ö = S-ö
  190. DEFINE  Ü = S-ü
  191. *
  192. * Numbers
  193. *
  194. DEFINE  1 = 1
  195. DEFINE  2 = 2
  196. DEFINE  3 = 3
  197. DEFINE  4 = 4
  198. DEFINE  5 = 5
  199. DEFINE  6 = 6
  200. DEFINE  7 = 7
  201. DEFINE  8 = 8
  202. DEFINE  9 = 9
  203. DEFINE  0 = 0
  204. *
  205. *-----------------------
  206. * Standard PF Keys
  207. *-----------------------
  208. *
  209. DEFINE  F1              = A-1
  210. DEFINE  F2              = A-2
  211. DEFINE  F3              = A-3
  212. DEFINE  F4              = A-4
  213. DEFINE  F5              = A-5
  214. DEFINE  F6              = A-6
  215. DEFINE  F7              = A-7
  216. DEFINE  F8              = A-8
  217. DEFINE  F9              = A-9
  218. DEFINE  F10             = A-0
  219. DEFINE  F11             = A-ß
  220. DEFINE  F12             = A-'
  221. DEFINE  C-F1            = pf13
  222. DEFINE  C-F2            = pf14
  223. DEFINE  C-F3            = pf15
  224. DEFINE  C-F4            = pf16
  225. DEFINE  C-F5            = pf17
  226. DEFINE  C-F6            = pf18
  227. DEFINE  C-F7            = pf19
  228. DEFINE  C-F8            = pf20
  229. DEFINE  C-F9            = pf21
  230. DEFINE  C-F10           = pf22
  231. DEFINE  C-F11           = pf23
  232. DEFINE  C-F12           = pf24
  233. *
  234. *------------------------
  235. * Alternate F11, F12 defs
  236. *------------------------
  237. *
  238. DEFINE  A-F1            = A-ß
  239. DEFINE  A-F2            = A-'
  240. *
  241. *-----------------------
  242. * Special Function keys
  243. *-----------------------
  244. *
  245. * Erase Input
  246. *
  247. DEFINE  A-F3            = A-eraseinput
  248. *
  249. * Erase EOF
  250. *
  251. DEFINE  A-F4            = eraseeof
  252. *
  253. * Erase EOF (E/MYTE compatible)
  254. *
  255. DEFINE  C-E             = eraseeof
  256. *
  257. * Test
  258. *
  259. DEFINE  A-F5            = A-test+noqueue
  260. *
  261. * System Request
  262. *
  263. DEFINE  A-F6            = A-attn+noqueue
  264. *
  265. * CP78 Main menu
  266. *
  267. DEFINE  A-F7            = menu
  268. *
  269. * Attn
  270. *
  271. DEFINE  A-F8            = attn+noqueue
  272. *
  273. * PA1 and PA2
  274. *
  275. DEFINE  A-F9            = A-dup+noqueue
  276. DEFINE  A-F10           = A-fieldmark+noqueue
  277. *
  278. * Reset
  279. *
  280. DEFINE  S-ESC           = reset+noqueue
  281. *
  282. * Reset for VIO Window : Ctrl-r
  283. *
  284. DEFINE  C-R             = reset+noqueue
  285. *
  286. * Clear
  287. *
  288. DEFINE  ESC             = A-cursorsel
  289. *
  290. * Enter
  291. *
  292. DEFINE  Enter           = enter
  293. DEFINE  PadEnter        = enter
  294. *
  295. * New line
  296. *
  297. DEFINE  S-Enter         = return
  298. *
  299. * Delete
  300. *
  301. DEFINE  PadDel          = delete
  302. DEFINE  Delete          = delete
  303. *
  304. * Insert
  305. *
  306. DEFINE  PadIns          = insert
  307. DEFINE  Insert          = insert
  308. *
  309. * Cursor movement (normal speed)
  310. *
  311. DEFINE  PadUp           = up+noqueue
  312. DEFINE  Up              = up+noqueue
  313. DEFINE  PadDown         = down+noqueue
  314. DEFINE  Down            = down+noqueue
  315. DEFINE  PadLeft         = left+noqueue
  316. DEFINE  Left            = left+noqueue
  317. DEFINE  PadRight        = right+noqueue
  318. DEFINE  Right           = right+noqueue
  319. *
  320. * Cursor movement (double speed)
  321. *
  322. DEFINE  C-PadUp         = up up
  323. DEFINE  C-Up            = ScrollUp
  324. DEFINE  C-PadDown       = down down
  325. DEFINE  C-Down          = ScrollDown
  326. DEFINE  C-PadLeft       = left left
  327. DEFINE  C-Left          = ScrollLeft
  328. DEFINE  C-PadRight      = right right
  329. DEFINE  C-Right         = ScrollRight
  330. *
  331. DEFINE  A-Up            = up up
  332. DEFINE  A-Down          = down down
  333. DEFINE  A-Left          = left left
  334. DEFINE  A-Right         = @elep2kbd.skipword
  335. *
  336. * Page movement
  337. *
  338. DEFINE  PadPgUp         = A-7
  339. DEFINE  PageUp          = A-7
  340. DEFINE  PadPgDn         = A-8
  341. DEFINE  PageDown        = A-8
  342. *
  343. * Home
  344. *
  345. DEFINE  PadHome         = A-backtab
  346. DEFINE  Home            = A-backtab
  347. *
  348. * MLT Jump Session Hot-Key
  349. *
  350. DEFINE   C-S            = A-insert+noqueue
  351. *
  352. * MLT for Enhanced Keyboard
  353. *
  354. DEFINE   A-insert       = A-insert+noqueue
  355. *
  356. * Advance to End of line
  357. *
  358. DEFINE  PADend          = endofline
  359. DEFINE  End             = endofline
  360. *
  361. * Backspace
  362. *
  363. DEFINE  BackSpace       = left delete
  364. *
  365. * Tab keys
  366. *
  367. DEFINE  Tab             = tab
  368. DEFINE  S-Tab           = backtab
  369. *
  370. * Special Symbols
  371. *
  372. DEFINE    Space         = spacebar
  373.  
  374. DEFINE    !             = S-1
  375. DEFINE    "             = S-2
  376. DEFINE                 = S-3
  377. DEFINE    $             = S-4
  378. DEFINE    %             = S-5
  379. DEFINE    &             = S-6
  380. DEFINE    /             = S-7
  381. DEFINE    (             = S-8
  382. DEFINE    )             = S-9
  383. DEFINE    equal         = S-0
  384. DEFINE    ?             = S-ß
  385. DEFINE    '             = '
  386. DEFINE    `             = S-'
  387.  
  388. DEFINE    .             = .
  389. DEFINE    :             = S-.
  390. DEFINE    ,             = ,
  391. DEFINE    ;             = S-,
  392.  
  393. DEFINE    +             = plus
  394. DEFINE    *             = S-plus
  395. DEFINE    #             = #
  396. DEFINE    ^             = S-#
  397. DEFINE    <             = <
  398. DEFINE    >             = S-<
  399. DEFINE    minus         = minus
  400. DEFINE    _             = S-minus
  401. *
  402. *----------------------------------------------------------------------------
  403. * Define user macro(s)
  404. *----------------------------------------------------------------------------
  405. *
  406. *----------------------------------------------------------------------------
  407. * Define keys that access external DLL functions
  408. *----------------------------------------------------------------------------
  409. *
  410. * A-k : Access the 1st KEYBOARD table in elep2kbd.$L$
  411. *
  412. DEFINE  A-K     = @elep2kbd.0x102
  413. *
  414. * A-p : Access the 2nd KEYBOARD table in elep2kbd.$L$
  415. *
  416. DEFINE  A-P     = @elep2kbd.0x202
  417. *
  418. *----------------------------------------------------------------------------
  419. * Define Keys for Document Assist Feature
  420. *----------------------------------------------------------------------------
  421. *
  422. * Ctrl-d  -  Turn Feature ON
  423. *
  424. DEFINE  C-D             = A-chgfmt
  425. DEFINE  C-F             = chgfmt
  426. DEFINE  C-G             = A-up
  427.  
  428. *----------------------------------------------------------------------------
  429. * Define Default Key Delay.
  430. *----------------------------------------------------------------------------
  431. SET KeyDelay =  0
  432.  
  433. *------------------------------------------------------------------*
  434. *                                                                  *
  435. * Terminal IDs :  2  =  3278/79 Model-2  (24x80)                   *
  436. *                 3  =  3278/79 Model-3  (32x80)                   *
  437. *                 4  =  3278/79 Model-4  (43x80)                   *
  438. *                 5  =  3278/79 Model-5  (27x132)                  *
  439. *                                                                  *
  440. *------------------------------------------------------------------*/
  441. SET TermID1 = 2
  442. SET TermID2 = 4
  443. SET TermID3 = 2
  444. SET TermID4 = 2
  445.  
  446. Define M2     = menu
  447. Define R-Ctrl = enter
  448.