MsecSleep (250)

 

FUNCTION MsecSleep ($msec)
  ; Author:  Rob van der Velden 
  ;
  ; Sleep for a number of m-seconds (when a second is to long)
  ;
  ; Syntax:  Sleep (M-seconds)
  ; Example: MsecSleep (250)

  $cursec=Val(@msecs)
  $start=$cursec+$msec
  WHILE ( ($cursec>$msec) AND ($cursec<$start) ) OR
        ( ($cursec<$msec) AND ($cursec+1000<$start) ) OR
        ( ($start<$msec*2) AND ($cursec<$msec) )
    $cursec=Val(@msecs)
  LOOP
ENDFUNCTION ; - MsecSleep -