anchor.diff:    const widths : array [0..1] of byte = (0, 16);
     begin
       clrscr;
  -    rs := rsKinds;
  -    rs.Open;
  -    rs.First;
  +    rs := rsKinds; rs.Open; rs.First;
   
       c := TDbCursor.Create(dbc);
  -    c.RecordSet := rs;
  -    c.KeyField := 'knd';
  -    c.Mark := rs['knd'];
  +    c.RecordSet := rs; c.KeyField := 'knd'; c.Mark := rs['knd'];
   
       repeat
         gotoxy(0,0);
   
         { draw column headers }
  -      bg('K');fg('W');
  +      bg('K'); fg('W');
         i := 0;
         for f in rs.fields do write(rfit(f.DisplayName, widths[vinc(i)]));
         WriteLn;
  
positive.code: {$mode delphi}
  program dboutln;
  uses xpc, udb, custapp, classes, kvm, cw, uminneron,
       ustr, db, sqldb, fx, ukm, kbd, num;
  
  const
    kCMD_CREATE_NODE = 00;
    kCMD_CREATE_TYPE = 01;
    kCMD_INSERT_NODE = 02;
    kCMD_NUDGE_NEXT  = 03;
    kCMD_NUDGE_PREV  = 04;
  
  type
    TDbOutlnApp  = class(TCustomApplication)
      protected
        keys : TKeyMap;
        curs : TDbCursor;
        view : TDbTreeGrid;
        rsOutln,
        rsKinds  : TRecordSet;
      public
        procedure Initialize; override;
        procedure DoRun; override;
        procedure Quit;
        procedure ChooseType;
        procedure Redraw;
        procedure OnCursorChange( Sender : TObject );
      end;
  
  var
    dbc : udb.TDatabase;
  
  procedure TDbOutlnApp.Initialize;
    begin
      rsOutln := dbc.query(
        'SELECT olid, nid, kind, node, depth, collapsed, hidden, leaf '+
          'FROM outline');
  
negative.code: 
      Redraw;
    end;
  
  begin
    uapp.run(TDbOutlnApp.Create);
  end.
  