anchor.diff:  
   var
     dbc : udboutln.TDatabase;
  + 
   procedure TDbOutlnApp.Initialize;
     begin
  
positive.code:     Redraw;
    end;
  
  
  procedure TDbOutlnApp.Redraw;
    begin
  
negative.code:   begin
      i := i+1; result := i;
    end;
  
  procedure TDBOutLnApp.ChooseType;
    var rs : TRecordSet; f : TField; i : integer; c : TDbCursor;
  