anchor.diff:      //bg($e8); fg($13); fx.fillscreen('#!@#$%^&*(){}][/=+?-_;:');
       fx.txtline(0, 0, kvm.xMax, 0, $43);
       ed.dirty := true; tg.Redraw;
  +    mb.show;
     end;
    
  
positive.code:     if focus = ed then
        begin
  	focus := tg; keymap := km_tg; kvm.HideCursor;
        end
      else
        begin
  
negative.code: program min;
  uses xpc, cx, mnml, mned, cw, fx, kvm, sysutils, kbd, dndk, ustr,
    impworld, cli, ub4vm, udb, udc, udv, ukm, utv, uapp, undk, fs,
    strutils, ui;
  
  type
    TMinApp = class (uapp.TCustomApp)
      protected
        ed : mned.TEditor;
        mb : ui.Zinput; // minibuffer (for entering commands)
        tg : udv.TDbTreeGrid;
        b4 : TB4VM;
        cur : TDbCursor;
  