program doecho;

uses sysutils;

var r : integer;

begin
  for r := 1 to 25 do
    writeln ('Line : ', inttostr (r));
end.
  $Log: doecho.pp,v $
  Revision 1.3  2002/09/07 15:15:28  peter
    * old logs removed and tabs fixed

}
