home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / EKEYS11B.ZIP / EKEYS.DOC < prev   
Encoding:
Text File  |  1991-11-21  |  2.9 KB  |  83 lines
  1. At the end of this message is XX34 code containing my EKEYS
  2. utility. EKEYS will allow access to the new keys found on the
  3. 101 and 102-key "Enhanced" keyboards.
  4.  
  5. EKEYS first checks to see if the BIOS will support the enhanced
  6. functions. If not it will abort with an error message. Otherwise,
  7. EKEYS remains resident to intercept the BIOS keyboard interrupt
  8. and translate the enhanced return codes into the form readable by
  9. older applications (run-time libraries). The TP ReadKey function
  10. first returns a #0, followed by a second byte.
  11.  
  12. EKEYS will also allow you to define the F11 and F12 keys via ANSI
  13. and the PROMPT command, as described in DOS manuals. Keep in mind
  14. that many existing programs were not made to be F11/F12 aware, and
  15. may never be, even with EKEYS.
  16.  
  17. The F11 and F12 second-byte return codes are ...
  18.  
  19.         133 = F11
  20.         134 = F12
  21.         135 = Shift-F11
  22.         136 = Shift-F12
  23.         137 = Ctrl-F11
  24.         138 = Ctrl-F12
  25.         139 = Alt-F11
  26.         140 = Alt-F12
  27.  
  28. These are the standard second-byte codes, provided via the BIOS.
  29.  
  30. The following Turbo Pascal 5 program may be used for testing:
  31.  
  32.  PROGRAM TestEKEYS;
  33.  USES   Crt;
  34.  VAR    Ch      : CHAR;
  35.         strv    : string[10];
  36.  BEGIN
  37.         REPEAT
  38.         WriteLn;
  39.     WriteLn( 'Press F11 or F12 key, or Q to quit ...' );
  40.         Ch := ReadKey;
  41.         IF (Ch = #0)    (* Functions are keys preceded by 0 *)
  42.     THEN
  43.                 BEGIN
  44.                 Ch := ReadKey;  (* get second-byte code *)
  45.                         CASE Ch OF
  46.                         #133    : strv := 'F11';
  47.                         #134    : strv := 'F12';
  48.                         #135    : strv := 'Shift-F11';
  49.                         #136    : strv := 'Shift-F12';
  50.                         #137    : strv := 'Ctrl-F11';
  51.                         #138    : strv := 'Ctrl-F12';
  52.                         #139    : strv := 'Alt-F11';
  53.             #140    : strv := 'Alt-F12'
  54.             ELSE      strv := 'Wrong!'+#7
  55.             END;
  56.         WriteLn( '** ', strv, ' **'  )
  57.                 END;
  58.     UNTIL Ch IN [ 'Q', 'q' ]
  59.  END. (*TestEKEYS*)
  60.  
  61. EKEYS.COM version 1.1b is 358 bytes long, and consumes 320 bytes
  62. of memory when resident (TSR). Share it. Just don't change it, or
  63. charge for it (I reserve those rights).
  64.  
  65. Use Guy McLoughlin's XX34.EXE utility to reassemble the following
  66. lines to the original EKEYS.COM file ...
  67.  
  68. *XX3400-000358-211191-068085-000014920----EKEYS.COM--1-OF--1
  69. un+cMmZ5IpMu-5E39jwi-+48sAy+z+Bn361227kizls++Nkws5I0Ag0RmU6+9jwi++4o
  70. 2goK0iFo-PuW+Sh2jfs-WUGWv+5B81cYR1Os81KWcU5B6MYS-+4A-UM-iUU-i0UZnG4s
  71. 3XLB6MYS++4A-U6-iVE-i-MZnG2iXUMg+9F7nG4m0d0Eh+9B6McInG340h7pxs+ycU2V
  72. R+KuAU5B7woU6G--MaxmR1cUPawUEYZDIm-nRL-kPr7o1Ec8-m-3GoJNIm+l9X3W60VX
  73. 8H2tC1YgAHYtA0klCHYl647t62QiJaZbPaJVRKlo1Ec+FX2l60MUFX2m64JiMK7gNKEu
  74. 64ZnPWRo65FcOLAURqxmR4UUQqJiN4ZiNm+YBEo865Fj64pZ643o627jS0+rAHMt93Bo
  75. PWt-93FjQaxiR4wgEq3iMKFV62opJn3MC0+z1EcUNr7ZNrBqE4JVQrFZQasiRLJXQ+o8
  76. ++++
  77.  
  78. Enjoy,
  79.  
  80. Greg_
  81.  
  82. Nov.20.91.Toronto.Canada.
  83.