{ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% }
{ %%          Procedure 'LoadLine'            %% }
{ %%   Read a line of text into 'thisLine'.   %% }
{ %%   From page-361 of "Oh Pascal", 2nd ed.  %% }
{ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% }
procedure LoadLine (var thisLine: Line);
var
    count: integer;
begin
    thisLine := BLANK;
    count := 0;
    while not eoln and (count < MAXCHARS) do begin
        count := count+1;
        read (thisLine[count]);
    end;
end;