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