anchor.diff:  
         keyMap[^L ] := view.Redraw;
       end;
  -    clrscr;
  +    fg('K'); fillscreen('!@#$%^&*(){}][/=+?-_;:');
       view.Redraw;
     end;
   
  
positive.code: begin
    db := connect('minneron.sdb');
    App := TDbOutlnApp.Create(db);
    App.Initialize;
    App.Run;
    db.Free;
    clrscr; fg(7); bg(0);
  end.
  
negative.code:     curs.hideFlag := 'hidden';
      curs.Mark := rs['nid'];
      view := TDbTreeGrid.Create(db);
      view.x := 15;
      view.y := 5;
      view.datacursor := curs;
      curs.OnMarkChanged := self.OnCursorChange;
      cmdr := TKeyCommander.Create(db);
  