(* $N- *)
DEFINITION MODULE Scan;
(* 2.0 / 29.6.87 / ms *)

TYPE
 ReadProc=PROCEDURE(VAR CHAR);

PROCEDURE ScanString(read: ReadProc;
                     VAR st: ARRAY OF CHAR;
                     VAR len: INTEGER;
                     VAR ch: CHAR);

END Scan.
