home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / flow / exam17.dba < prev    next >
Encoding:
Text File  |  2000-04-09  |  750 b   |  29 lines
  1. Rem * Title  : SUSPEND Commands
  2. Rem * Author : DBS-MB
  3. Rem * Date   : 1st August 99
  4. rem ===========================================================
  5. rem DARK BASIC EXAMPLE PROGRAM 7
  6. rem ===========================================================
  7. rem This program will show you how to use suspend commands
  8. rem -----------------------------------------------------------
  9.  
  10. rem Set the ink to white and paper color to black 
  11. ink rgb(244,214,210),1
  12.     
  13. print "PLEASE PRESS A KEY"
  14.  
  15. rem Wait till you press a key
  16. suspend for key
  17.  
  18. print "THANK YOU FOR PRESSING A KEY"
  19. print "PLEASE PRESS A MOUSE BUTTON"
  20.  
  21. rem Wait till you press a mouse button
  22. suspend for mouse
  23.  
  24. print "THANK YOU FOR PRESSING A MOUSE BUTTON"
  25.  
  26. rem End of program
  27. end
  28.  
  29.