home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PIBT41S3.ZIP / PRESSANY.MOD < prev    next >
Encoding:
Text File  |  1987-12-26  |  1.8 KB  |  40 lines
  1. (*----------------------------------------------------------------------*)
  2. (*         Press_Any  --- Issue a "press any key to continue" message   *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Press_Any;
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  Press_Any                                            *)
  10. (*                                                                      *)
  11. (*     Purpose:    Issue 'press any key to continue' message            *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        Press_Any;                                                    *)
  16. (*                                                                      *)
  17. (*     Remarks:                                                         *)
  18. (*                                                                      *)
  19. (*        If machine not in Attended_Mode, then no message is issued,   *)
  20. (*        and a two-second delay is executed.                           *)
  21. (*                                                                      *)
  22. (*----------------------------------------------------------------------*)
  23.  
  24. VAR
  25.    Ch: CHAR;
  26.  
  27. BEGIN (* Press_Any *)
  28.  
  29.    IF Attended_Mode THEN
  30.       BEGIN
  31.          WRITE('*** Hit ESC key to continue ... ');
  32.          Read_Kbd( Ch );
  33.          IF ( ORD( Ch ) = ESC ) AND PibTerm_KeyPressed THEN
  34.             Read_Kbd( Ch );
  35.       END
  36.    ELSE
  37.       Window_Delay;
  38.  
  39. END   (* Press_Any *);
  40.