home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / btos2926.zip / ELEP2F.ZIP / K850SPET.DEF < prev    next >
Text File  |  1991-05-13  |  13KB  |  477 lines

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