home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / system / exam04.dba < prev   
Encoding:
Text File  |  2000-04-01  |  507 b   |  24 lines

  1. Rem * Title  : Escape Key Control
  2. Rem * Author : DBS-LB
  3. Rem * Date   : 1st April 2000
  4. rem ==========================================
  5. rem DARK BASIC EXAMPLE PROGRAM 4
  6. rem ==========================================
  7. rem This program will control the escape key
  8. rem ------------------------------------------
  9.  
  10. rem Disable Escape Key
  11. disable escapekey
  12.  
  13. rem Simple loop
  14. do
  15.  
  16. rem Manual escape key exit
  17. if escapekey()=1 then exit
  18.  
  19. rem End of loop
  20. loop
  21.  
  22. rem Enable escape key
  23. enable escapekey
  24.