anchor.diff:    KM_Defaults,
     MapUtilTypes in 'MapUtilTypes.pas',
     ConsoleMain in 'ConsoleMain.pas';
  +
  +{$R *.res}
   
   var
     fConsoleMain: TConsoleMain;
  
positive.code: 
    for I := 1 to ParamCount do // Skip 0, as this is the EXE-path
    begin
      fArgs := fArgs + ' ' + paramstr(I) + sLineBreak;
  
      if (paramstr(I) = '-h') or (paramstr(I) = '-help') then
      begin
        fParamRecord.Help := True;
        continue;
      end;
  
      if (paramstr(I) = '-v') or (paramstr(I) = '-verbose') then
      begin
        fParamRecord.Verbose := True;
        continue;
      end;
  
      // Only allow one script file
      if fParamRecord.MapDatPath = '' then
        fParamRecord.MapDatPath := paramstr(I);
    end;
  end;
  
  
negative.code:       Writeln(E.ClassName, ': ', E.Message);
    end;
  
    FreeAndNil(fConsoleMain);
  end.
  
  