home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
pmos2002.zip
/
SRC
/
TESTBED.MOD
< prev
next >
Wrap
Text File
|
1996-08-06
|
1KB
|
32 lines
IMPLEMENTATION MODULE Testbed;
(************************************************************************)
(* *)
(* Miscellaneous procedures for use in testing new code *)
(* *)
(* Author: P. Moylan *)
(* Last edited: 6 August 1996 *)
(* Status: OK *)
(* *)
(************************************************************************)
FROM STextIO IMPORT
(* proc *) WriteString, WriteLn;
(************************************************************************)
(* TEST MESSAGE *)
(************************************************************************)
PROCEDURE Checkpoint (message: ARRAY OF CHAR);
BEGIN
WriteString (message);
WriteLn;
(*PressAnyKey;*)
END Checkpoint;
(************************************************************************)
END Testbed.