home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / dos.swg / 0073_WAIT Procedure.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-08-24  |  835 b   |  44 lines
  1. {
  2.   Coded By Frank Diacheysn Of Gemini Software
  3.  
  4.   PROCEDURE WAIT
  5.  
  6.   Input......: Secs = Long Integer Value For The Number Of SECONDS
  7.              :        (NOT Milliseconds) To Delay
  8.              :
  9.              :
  10.              :
  11.  
  12.   Output.....: None
  13.              :
  14.              :
  15.              :
  16.              :
  17.  
  18.   Example....: Wait(5);   (Wait 5 Seconds)
  19.              :
  20.              :
  21.              :
  22.              :
  23.  
  24.   Description: Works Exactly Like The CRT Unit's Delay Procedure, Except
  25.              : This Procedure Works With Seconds, Not Milliseconds
  26.              :
  27.              :
  28.              :
  29.  
  30. }
  31. PROCEDURE Wait( Secs:LONGINT );
  32. VAR MS : WORD;
  33. BEGIN
  34.   Secs := Secs * 1000;
  35.   ASM
  36.     MOV AX, 1000;
  37.     MUL Secs;
  38.     MOV CX, DX;
  39.     MOV DX, AX;
  40.     MOV AH, $86;
  41.     INT $15;
  42.   END;
  43. END;
  44.