Listing 4 A basic timer function

/*
  Hang until delay has expired.

  delay in milliseconds
*/
BOOL Sleep( long delay ) {
  long  timer,   // current time
       base,    // starting time
       elapsed; // time spent in loop

  if ( !delay ) return(FALSE);
  base = clock();
  if ( base == -1 ) return(FALSE);
  do {
    timer = clock();
    if ( timer == -1L ) return(FALSE);
    elapsed = timer - base;
  } while ( delay > elapsed );
  return(TRUE);
}

/* End of File */