anchor.diff:  procedure InitDirs;
   var
     S, HomeConfig: string;
  +  i: integer;
   begin
     OpDirExe:= ExtractFileDir(ParamStr(0));
     OpDirPrecopy:= GetDirPrecopy;
  
positive.code: var
    AppDir_Home: string;
    AppDir_Settings: string;
    AppDir_SettingsDefault: string;
    AppDir_Py: string;
    AppDir_Data: string;
  
negative.code:   CreateDirUTF8(OpDirLocal);
    {$endif}
  
    //support command line key -s=folder
    for i:= 1{not 0} to ParamCount do
    begin
      S:= ParamStr(i);
      if SBeginsWith(S, '-s=') then
      begin
        AppDir_Settings_Custom:= Copy(S, 4, MaxInt);
        Break;
      end;
    end;
  
    if AppDir_Settings_Custom<>'' then
      AppDir_Settings:= AppDir_Settings_Custom
    else
      AppDir_Settings:= OpDirLocal+DirectorySeparator+'settings';
  
    CreateDirUTF8(AppDir_Settings);
    AppDir_SettingsDefault:= OpDirLocal+DirectorySeparator+'settings_default';
  
  