PROCEDURE setname(VAR f : text; VAR n : fname); (* parse the name from the input stream in f *) VAR i : integer; BEGIN (* setname *) i := 1; WHILE f^ <> ' ' DO IF i < fnmsize THEN BEGIN read(f, n[i]); i := succ(i); END ELSE get(f); FOR i := i TO fnmsize DO n[i] := ' '; END; (* setname *) (* 1----------------1 *)