739 	for i:= 0 to 7 do

   739 	if ParamStr(1) <> '' then

   740 	begin

   740 		begin

   741 		assign(f, ParamStr(1) + '/debug' + inttostr(i) + '.txt');

   741 		for i:= 0 to 7 do

   742 		rewrite(f);

   742 		begin

   743 		if IOResult = 0 then break;

   743 			assign(f, ParamStr(1) + '/debug' + inttostr(i) + '.txt');

   744 	end;

   744 			rewrite(f);

   745 	if IOResult <> 0 then f:= stderr; // if everything fails, write to stderr

   745 			if IOResult = 0 then break;

   746 		end;

   747 		if IOResult <> 0 then f:= stderr; // if everything fails, write to stderr

   748 		end

   749 	else

   750 		f:= stderr;