{The following is an example of the usage of ledit.tpu:}
{This is a Turbo Pascal example}

Program tryitonce;

uses dos,ledit;

var
   fx :string;

{Start of main program}
begin
   fx := 'This is a string that is longer than forty characters.';
   write('Line to edit: '); {the string fx will appear just after ': '}
   fx := edit(fx,40); {edit the string fx with a limit of 40 chars}
   {fx is now edited, and no more than 40 characters long}
   writeln; {ledit does not assume anything about what you will do}
            {with the edited line                                 }
   writeln('Edited  line: ',fx);
end.