home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL_INC.ZIP / DELAY.INC < prev    next >
Encoding:
Text File  |  1988-02-18  |  446 b   |  25 lines
  1.  
  2. procedure delay(ms: real);
  3.    (* delay for a specified number of miliseconds; give up time while
  4.       delaying *)
  5. var
  6.    started: real;
  7.    i: integer;
  8.  
  9. begin
  10.  
  11. {write('[delay ',ms:0:0);}
  12.  
  13.    started := get_time;
  14.    repeat
  15.       if ms > 100.0 then 
  16.          give_up_time;
  17.    until (get_time > started+ms/1000.0) or    {time elapsed}
  18.          (get_time < started);                {midnight rolover!}
  19.  
  20. {write(']');}
  21.  
  22. end;
  23.  
  24.  
  25.