program log;
(***
Este programa debe recibir un conjunto de parámetros y los devuelve
agregando al inici un TIMESTAMP para que quede asociado.
Es para usar en los Batch en lugar de ECHO hola que tal>>logfile.txt
poner
log hola que tal>>logfile
***)
{$mode objfpc}{$H+}

uses
  sysutils,
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

{$R *.res}
var
  k: integer;
begin
  write( 'log:',DateTimeToStr( now() ),':' );
  for k:= 1 to ParamCount do
    write( ' ',paramStr( k ) );
  writeln;
end.

