{***************************************************************

Upper case to lower case converter

Converts all characters between 'A' and 'Z' in a source text
file to the equivalent between 'a' and 'z' in a destination
text file.
Format of command:

    lc <source> <destination>

***************************************************************}

program lc(source      { input upper case (pre-existing) },
           destination { output lower case },
           output      { system communication });

uses strlib;

var c: char;
    source, destination: text;

begin

   reset(source); { ready input file }
   rewrite(destination); { clear output file }
   while not eof(source) do begin { translate }

      if not eoln(source) then begin { characters in a line }

         read(source, c); { get a character }
         write(destination, lcase(c)) { output lower case equivalent }

      end else begin { pass line termination }

         readln(source); { next line input }
         writeln(destination) { next line output }

      end

   end;
   writeln('Function complete')

end.