home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PIBTERM / PIBT41S1.ARC / CHECKWAI.MOD < prev    next >
Encoding:
Text File  |  1988-02-25  |  1.9 KB  |  44 lines
  1. (*----------------------------------------------------------------------*)
  2. (*     Check_Wait_String_Time --- Check if wait string time exhausted   *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Check_Wait_String_Time;
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  Check_Wait_String_Time                               *)
  10. (*                                                                      *)
  11. (*     Purpose:    Checks if wait string time is exhausted              *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        Check_Wait_String_Time;                                       *)
  16. (*                                                                      *)
  17. (*----------------------------------------------------------------------*)
  18.  
  19. BEGIN (* Check_Wait_String_Time *)
  20.  
  21.                                    (* Check for WAITQUIET *)
  22.    IF WaitQuiet_Mode THEN
  23.       BEGIN
  24.          IF ( TimeDiffH( Script_Wait_Start , TimeOfDayH ) >= Script_WaitQuiet_Time ) THEN
  25.             BEGIN
  26.                WaitQuiet_Mode      := FALSE;
  27.                Really_Wait_String  := FALSE;
  28.             END;
  29.       END
  30.    ELSE
  31.                                    (* Check wait string time *)
  32.  
  33.       IF ( TimeDiff( Script_Wait_Start , TimeOfDay ) > Script_Wait_Time ) THEN
  34.          BEGIN
  35.             Script_Wait_Save    := '';
  36.             Script_Wait_Found   := FALSE;
  37.             WaitString_Mode     := FALSE;
  38.             Really_Wait_String  := FALSE;
  39.             IF ( Script_Wait_Failure > 0 ) THEN
  40.                Script_Buffer_Pos  := PRED( Script_Wait_Failure );
  41.          END;
  42.  
  43. END   (* Check_Wait_String_Time *);
  44.