anchor.diff:  begin
     s := GetGmNth(index);
     UpdateScores(s, mode, play, score);
  -  SetGmNth(index, s);
  -
  -  gmProfile.UpdateFile
  +  SetGmNth(index, s)
   end;
   
   // -- Problems
  
positive.code: // ---------------------------------------------------------------------------
  
  initialization
    PbProfile := TMemIniFile.Create(ChangeFileExt(ParamStr(0), '.pb'));
    PbLoadedFile := '';
    GmProfile := TMemIniFile.Create(ChangeFileExt(ParamStr(0), '.gm'));
    GmLoadedFile := ''
  finalization
    PbProfile.Free;
  
negative.code:   UViewMain;
  
  var
    PbProfile    : TIniFile;
    PbNumber     : integer;
    PbLoadedFile : string;
  
    GmProfile    : TIniFile;
    GmNumber     : integer;
    GmLoadedFile : string;
  
  