home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / s / s9302.zip / BRACHMAN.ZIP / SKEYS.PRG < prev   
Text File  |  1992-12-10  |  2KB  |  53 lines
  1. **********************************************************************
  2. *                ┌───────────────────────────────────┐
  3. *                │     ▐███▌ ████     ▀██████  █████ │
  4. *                │     █████▐████▌      ▀████  █████ │
  5. *                │    █▐████▌█████        ▀██  █████ │
  6. *                │   ▐█▌█████▐████▌     ▄█  ▀  █████ │
  7. *                │   ███▐████▌█████   ■███     █████ │
  8. *                │  ▐███▌█████▐████▌    ▀█  ▄  █████ │
  9. *                │  █████▐████▌█████      ▄██  █████ │
  10. *                │ ▐█████▌█████▐████▌   ▄████  █████ │
  11. *                │ ███████▐████▌█████ ▄██████  █████ │
  12. *                ├───────────────────────────────────┤
  13. *                │        MicroEndeavors, Inc.       │
  14. *                │       3150 Township Line Road     │
  15. *                │       Drexel Hill, PA   19026     │
  16. *                └───────────────────────────────────┘
  17. **********************************************************************
  18.  
  19. ** Demonstration front end for SKEY.PLB **
  20.  
  21. SET TALK OFF
  22. SET NEAR ON
  23. CLEAR ALL
  24. CLEAR
  25. @23,1 SAY PADC("Press <Enter> To Select",80) COLOR GB+/B
  26. SET LIBRARY TO skey  && attach API routine
  27.  
  28. USE laser ORDER utitle  && note tag is UPPER(title)
  29.  
  30. DEFINE WINDOW test FROM 4,15 TO  6,60 SHADOW SYSTEM TITLE "TITLE SEARCH" ;
  31.        COLOR SCHEME(8)
  32. ACTIVATE WINDOW test
  33.  
  34. = skeyinit()  && initialize keyboard trap
  35. DEFINE WINDOW brow FROM 6,15 TO 20,60 SHADOW SYSTEM ;
  36.        COLOR SCHEME(10)
  37. ON KEY LABEL ENTER KEYBOARD CHR(23)       
  38. ON KEY LABEL RIGHTMOUSE KEYBOARD CHR(23)       
  39.  
  40. BROWSE FIELDS title:42 WINDOW brow  && display list
  41.  
  42. ON KEY
  43. STORE LASTKEY() TO lk
  44.  
  45. = skeykill()  && disable keyboard trap
  46. RELEASE WINDOW test
  47. CLEAR
  48.  
  49. IF lk = 27
  50.   RETURN "Escape Pressed"
  51. ELSE
  52.   RETURN title
  53. ENDIF