' ===========================================================================
'   FILE: SHORTDLY.OTH
'
'   Support routines for QuickBASIC 4.5.
'
'           Copyright (c) 1991
'           Daniel R. Berry (Traveller Software)
'           All Rights Reserved
'
'   This code is released to the Public Domain for distribution with the
'   QBNews.
'
'   Daniel R. Berry
'   3110-C S. Gen McMullen
'   San Antonio, TX  78226
'

' ===========================================================================
'   SUBPROGRAM: ShortDelay  -  QBUTIL
'   Version 1.0  By: Dan Berry (c) Traveller Software 1990
' ========================== ShortDelay SubProgram ==========================
SUB ShortDelay (SDelay%)
    X! = TIMER ' Get current state of TIMER
    WHILE (X! + (SDelay% / 100)) > TIMER: WEND
' ====================== End of ShortDelay SubProgram =======================
END SUB