home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / bsd_srcs / share / doc / ps1 / 04.pascal / kat.p < prev    next >
Encoding:
Text File  |  1990-06-07  |  179 b   |  14 lines
  1. program kat(input, output);
  2. var
  3.     ch: char;
  4. begin
  5.     while not eof do begin
  6.     while not eoln do begin
  7.         read(ch);
  8.         write(ch)
  9.     end;
  10.     readln;
  11.     writeln
  12.     end
  13. end { kat }.
  14.