DEFINITION MODULE Scan;
(*$ LargeVars:=FALSE NameChk:=FALSE *)
(* 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.
