Musterlösung zu Aufgabe 5 -- Persons.d

DEFINITION MODULE Persons;
FROM StdIO IMPORT FILE;

TYPE
     PersDat;

  PROCEDURE WriteRec(f: FILE; pers: PersDat);
        (* f - open stream for writing 
	 * writes data with one blank as separator 
	 *)
     
  PROCEDURE ReadRec(f:FILE; VAR pers: PersDat):BOOLEAN;
        (* f - open stream for reading !
	 * reads one record assuming whitespace as separator
	 * TRUE, if done, otherwise FALSE
	 *)
END Persons.