TOPS-20 PASCAL Language Manual - Bitsavers

INPUT AND OUTPUT
READ does not read past EOLN if it is reading into a string type.
Instead, READ continues to return blanks until the EOLN is explicitly
passed by using READLN.
If you call READ when the file is positioned at the end of a line, the
file position moves to the beginning of the next line, unless it is c.
string variable. Characters are then read into the specified starting
variable. If this line is empty, the string is filled with spaces.
Every text file ends with an end-of-line mark and an end-of-file mark.
Therefore, the function EOF never becomes TRUE when you are reading
strings with the READ procedure. To test EOF when reading strings,
use the READLN procedure.
Example I
BEGIN
READ (TemFY Ase~ Weisht);
END;
Assume that Temp, Age, and Weight are real variables, and you type
the following values:
in
90.6 11.0 7~5+0
The variable Temp takes on the value 98.6; Age
11.0; and Weight takes on the value 75.0.
type all three values on the same line.
takes on the value
Note that you need not
Example 2
TYPE Strins = PACKED ARRAY [1 •• 20J OF CHAR;
VAR Names TEXT;
Pres~ Veep: Strins;
BEGIN
READ (Name!:., Pres, Veep);
This program fragment declares and reads the file Names, which
contains the following characters:
John F. Kennedy
Hubert H. Humphrey
Richard M. Nixon
Lyndon B. Johnson