{$M 1280, 0, 0}

program ELEV { www.merlyn.demon.co.uk  >= 2001-12-15 } ;

{ ELEV path\program.exe parameters
  will perform "program parameters"
  and return its errorlevel on standard output }

uses DOS ;

var Path, CmdLine : string ; K : word ;

BEGIN ;
CmdLine := '' ;
Path := ParamStr(1) ;
for K := 2 to ParamCount do CmdLine := CmdLine+ParamStr(K)+#32 ;
If CmdLine>'' then Dec(CmdLine[0]) ;
  { Writeln('  "', Path, '"   "', CmdLine, '"') ; }
SwapVectors ;
Exec(Path, CmdLine) ;
SwapVectors ;
if DosError<>0 then Write('DosError ', DosError, ^M^J, 'DosExitCode ') ;
Writeln(DosExitCode) ;
  { Readln ;}
END.