home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / locks.zip / LOCKS.DOC < prev    next >
Text File  |  1990-01-24  |  2KB  |  87 lines
  1. LOCKS LEM 
  2.  
  3. This LEM was written to enable Clarion users to read the current
  4.  
  5. state of the keyboard locks and ctrl, alt, and shift keys.  If find
  6.  
  7. these useful, please read the enclosed file "readme.now" for 
  8. information on how to contribute to the author.  
  9.  
  10. The LOCKS LEM and all associated programs are Copyright 1990 by 
  11. Forrest W. Christian and Electronic Magic.  ALL RIGHTS UNDER 
  12. COPYRIGHT RESERVED. 
  13.  
  14. ****************************************  MAP STATEMENT 
  15.  
  16. The map statement which should be included is as follows: 
  17.  
  18.      MAP 
  19.        MODULE('LOCKS.BIN'),BINARY
  20.          FUNC(GETINS),LONG
  21.          FUNC(GETNUM),LONG 
  22.          FUNC(GETCAPS),LONG 
  23.          FUNC(GETSCRL),LONG 
  24.          FUNC(GETALT),LONG 
  25.          FUNC(GETCTRL),LONG 
  26.          FUNC(GETLSHF),LONG 
  27.          FUNC(GETRSHF),LONG 
  28.        . 
  29.        <rest of the map goes here!!!> 
  30.      . 
  31.  
  32. **************************************** FUNCTION INFORMATION 
  33.  
  34. All of the following functions return the following: 
  35.  
  36.      0 = Key or Lock is up or "unlocked" 
  37.      1 = Key or Lock is down or "locked" 
  38.  
  39. You can evaluate these functions by simply using an if statement... 
  40.  
  41. such as: 
  42.       
  43.      IF GETALT() THEN <do something if alt key is down> 
  44.  
  45. ***************************************** FUNCTION DEFINITIONS 
  46.  
  47. GETINS()  
  48.      - Gets the state of the Insert key. (true=inserting!) 
  49.  
  50. GETNUM()  
  51.      - Gets the state of the Numeric lock. 
  52.  
  53. GETCAPS() 
  54.      - Gets the state of Caps Lock 
  55.  
  56. GETSCRL() 
  57.      - Gets the state of Scroll Lock 
  58.  
  59. GETALT() 
  60.      - Gets the state of the ALT key. 
  61.  
  62. GETCTRL() 
  63.      - Gets the state of the CTRL key. 
  64.  
  65. GETLSHF() 
  66.      - Gets the state of the left SHIFT key. 
  67.  
  68. GETRSHF() 
  69.      - Gets the state of the right SHIFT key. 
  70.  
  71.  
  72. ************************************************* SAMPLE PROGRAM
  73.  
  74.  
  75. For a sample program, look in the file LOCKS.CLA..  it displays the
  76.  
  77. lock status on the screen based upon their position. 
  78.  
  79. ************************************************* AUTHOR INFO 
  80.  
  81. You can reach the author or send him the proper registration fee
  82.  
  83. by writing to: 
  84.      Forrest W. Christian 
  85.      Electronic Magic 
  86.      189 N 100 E 
  87.      Escalante, UT  84726