<> <> <> <> <> <> DIRECTORY Rope USING [ROPE]; GVAnswer: CEDAR DEFINITIONS = BEGIN ROPE: TYPE = Rope.ROPE; MakeHeader: PROC [getChar: PROC [INT] RETURNS [CHAR], getLength: INT, userName, userRegistry: ROPE, cForCopies: BOOL _ FALSE ] RETURNS [answerError: BOOL, answer: ROPE, errorIndex: INT]; <> <<'getChar' procedure is used to get characters from the old message header.>> <> <> <> <> <> <" instead>> <".>> <> <> <<(gives some idea of where the parse error occurred>> END.