;.module KEY,release=X01,version=0,comment=,audit=NO ;+ ; Copyright (c) 1985 ; C. E. Chew ; ; This software is furnished under a license and may be used and copied ; only in accordance with the terms of such license and with the ; inclusion of the above copyright notice. This software or any other ; copies thereof may not be provided or otherwise made available to any ; other person. No title to and ownership of the software is hereby ; transferred. ; ; The information in this software is subject to change without notice ; and should not be construed as a commitment by the author. ; ; The author assumes no responsibility for the use or reliability of his ; software. ;- ; General keys. esc =: 33 ;escape cr =: 15 ;carriage return lf =: 12 ;line feed del =: 177 ;delete bel =: 7 ;bell space =: 40 ;space ; Cursor control keys. c.up =: esc*400 + 'A c.down =: esc*400 + 'B c.right =: esc*400 + 'C c.left =: esc*400 + 'D ; Keypad application keys. c.zero =: esc*400 + 'p c.one =: esc*400 + 'q c.two =: esc*400 + 'r c.three =: esc*400 + 's c.four =: esc*400 + 't c.five =: esc*400 + 'u c.six =: esc*400 + 'v c.seven =: esc*400 + 'w c.eight =: esc*400 + 'x c.nine =: esc*400 + 'y c.comma =: esc*400 + 'l c.hyphe =: esc*400 + 'm c.perio =: esc*400 + 'n c.enter =: esc*400 + 'M ; PF keys. c.pf1 =: esc*400 + 'P c.pf2 =: esc*400 + 'Q c.pf3 =: esc*400 + 'R c.pf4 =: esc*400 + 'S ; PRO function keys. c.find =: esc*400 + 1. c.inser =: esc*400 + 2. c.remov =: esc*400 + 3. c.selec =: esc*400 + 4. c.prev =: esc*400 + 5. c.next =: esc*400 + 6. c.compo =: esc*400 + 10. c.f1 =: esc*400 + 11. c.f2 =: esc*400 + 12. c.f3 =: esc*400 + 13. c.f4 =: esc*400 + 14. c.f5 =: esc*400 + 15. c.f6 =: esc*400 + 17. c.f7 =: esc*400 + 18. c.f8 =: esc*400 + 19. c.f9 =: esc*400 + 20. c.f10 =: esc*400 + 21. c.f11 =: esc*400 + 23. c.f12 =: esc*400 + 24. c.f13 =: esc*400 + 25. c.f14 =: esc*400 + 26. c.f15 =: esc*400 + 28. c.f16 =: esc*400 + 29. c.f17 =: esc*400 + 31. c.f18 =: esc*400 + 32. c.f19 =: esc*400 + 33. c.f20 =: esc*400 + 34. c.help =: c.f15 c.do =: c.f16 ; Display mode. m.norm =: 0 m.bold =: 1 m.under =: 4 m.blink =: 5 m.rever =: 7