[Back to DOS SWAG index]  [Back to Main SWAG index]  [Original]

{
  Coded By Frank Diacheysn Of Gemini Software

  PROCEDURE WAIT

  Input......: Secs = Long Integer Value For The Number Of SECONDS
             :        (NOT Milliseconds) To Delay
             :
             :
             :

  Output.....: None
             :
             :
             :
             :

  Example....: Wait(5);   (Wait 5 Seconds)
             :
             :
             :
             :

  Description: Works Exactly Like The CRT Unit's Delay Procedure, Except
             : This Procedure Works With Seconds, Not Milliseconds
             :
             :
             :

}
PROCEDURE Wait( Secs:LONGINT );
VAR MS : WORD;
BEGIN
  Secs := Secs * 1000;
  ASM
    MOV AX, 1000;
    MUL Secs;
    MOV CX, DX;
    MOV DX, AX;
    MOV AH, $86;
    INT $15;
  END;
END;

[Back to DOS SWAG index]  [Back to Main SWAG index]  [Original]