home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / basic / QBNWS202.ZIP / RODENT.ZIP / SHORTDLY.OTH < prev   
Encoding:
Text File  |  1991-04-14  |  907 b   |  28 lines
  1. ' ===========================================================================
  2. '   FILE: SHORTDLY.OTH
  3. '
  4. '   Support routines for QuickBASIC 4.5.
  5. '
  6. '           Copyright (c) 1991
  7. '           Daniel R. Berry (Traveller Software)
  8. '           All Rights Reserved
  9. '
  10. '   This code is released to the Public Domain for distribution with the
  11. '   QBNews.
  12. '
  13. '   Daniel R. Berry
  14. '   3110-C S. Gen McMullen
  15. '   San Antonio, TX  78226
  16. '
  17.  
  18. ' ===========================================================================
  19. '   SUBPROGRAM: ShortDelay  -  QBUTIL
  20. '   Version 1.0  By: Dan Berry (c) Traveller Software 1990
  21. ' ========================== ShortDelay SubProgram ==========================
  22. SUB ShortDelay (SDelay%)
  23.     X! = TIMER ' Get current state of TIMER
  24.     WHILE (X! + (SDelay% / 100)) > TIMER: WEND
  25. ' ====================== End of ShortDelay SubProgram =======================
  26. END SUB
  27.  
  28.