home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Dev / fpc / source / docs / refex / ex58.pp < prev    next >
Encoding:
Text File  |  2000-01-01  |  273 b   |  16 lines

  1. Program Example58;
  2.  
  3. { Program to demonstrate the SeekEoln function. }
  4. Var
  5.   C : Char;
  6.  
  7. begin
  8.   { This will read the first line of standard output and print
  9.     all characters except whitespace. }
  10.   While not SeekEoln do
  11.     Begin
  12.     Read (c);
  13.     Write (c);
  14.     end;
  15. end.
  16.