' GWS dll  -  Feb 2008
' Sleep for 'n' millisecs.
export sleep

sub sleep(nmsec as int)
declare "kernel32",GetTickCount(),int

int t
' routine to sleep for n mseconds 
t = GetTickCount()
DO:UNTIL GetTickCount() - t >= nmsec
RETURN
ENDSUB