home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pibsoft / terminal / source / windelay.mod < prev    next >
Encoding:
Text File  |  1988-01-11  |  1.3 KB  |  25 lines
  1. (*--------------------------------------------------------------------------*)
  2. (*      Window_Delay  --- Delay for specified window delay period           *)
  3. (*--------------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Window_Delay;
  6.  
  7. (*--------------------------------------------------------------------------*)
  8. (*                                                                          *)
  9. (*     Procedure: Window_Delay                                              *)
  10. (*                                                                          *)
  11. (*     Purpose:   Delays for specified window delay period                  *)
  12. (*                                                                          *)
  13. (*     Calling sequence:                                                    *)
  14. (*                                                                          *)
  15. (*        Window_Delay;                                                     *)
  16. (*                                                                          *)
  17. (*--------------------------------------------------------------------------*)
  18.  
  19. BEGIN (* Window_Delay *)
  20.  
  21.    IF ( Window_Hold_Time > 0 ) THEN
  22.       DELAY( Window_Hold_Time * 100 );
  23.  
  24. END   (* Window_Delay *);
  25.