home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pmos2002.zip / SRC / TESTBED.MOD < prev    next >
Text File  |  1996-08-06  |  1KB  |  32 lines
  1. IMPLEMENTATION MODULE Testbed;
  2.  
  3. (************************************************************************)
  4. (*                                                                      *)
  5. (*          Miscellaneous procedures for use in testing new code        *)
  6. (*                                                                      *)
  7. (*      Author:         P. Moylan                                       *)
  8. (*      Last edited:    6 August 1996                                   *)
  9. (*      Status:         OK                                              *)
  10. (*                                                                      *)
  11. (************************************************************************)
  12.  
  13. FROM STextIO IMPORT
  14.     (* proc *)  WriteString, WriteLn;
  15.  
  16. (************************************************************************)
  17. (*                           TEST MESSAGE                               *)
  18. (************************************************************************)
  19.  
  20. PROCEDURE Checkpoint (message: ARRAY OF CHAR);
  21.  
  22.     BEGIN
  23.         WriteString (message);
  24.         WriteLn;
  25.         (*PressAnyKey;*)
  26.     END Checkpoint;
  27.  
  28. (************************************************************************)
  29.  
  30. END Testbed.
  31.  
  32.