*** p/test/pipetes2.pas.orig	Fri May 14 23:56:23 2004
--- p/test/pipetes2.pas	Sat Dec 18 12:47:08 2004
***************
*** 19,28 ****
    Status : Integer;
    IsEOF : Boolean;
    Result, s : TString;
!   Parameters : TPStrings (1) = (@'exit 42');
  
  begin
!   if ParamStr (1) = 'exit 42' then Halt (42);
    s := ParamStr (0);
    {$ifdef __GO32__}
    if Copy (s, Length (s) - 3) = '.out' then s := Copy (s, 1, Length (s) - 4) + '.exe';
--- 19,28 ----
    Status : Integer;
    IsEOF : Boolean;
    Result, s : TString;
!   Parameters : TPStrings (1) = (@'exit-42');
  
  begin
!   if ParamStr (1) = 'exit-42' then Halt (42);
    s := ParamStr (0);
    {$ifdef __GO32__}
    if Copy (s, Length (s) - 3) = '.out' then s := Copy (s, 1, Length (s) - 4) + '.exe';