anchor.diff:    begin
       if kbd.KeyPressed then
         begin
  -	// TODO: separate map for extended keys.
  -	if kbd.ReadKey(ch) = #0 then kbd.ReadKey(ch);
  -	_keymap[ch]();
  +        // TODO: separate map for extended keys.
  +        if kbd.ReadKey(ch) = #0 then kbd.ReadKey(ch);
  +        _keymap[ch]();
         end;
     end;
   
  
positive.code:   var
      depth : integer = -1;
      sigil : char = ' ';
      i	  : integer;
      count : cardinal =  0;
      rs	  : TRecordSet;
  begin
    clrscr;
    bg('b'); fg('W');clrscr;
  
negative.code: uses classes, kvm, udboutln, xpc, kbd, cli, num, sqldb;
  
  type
    TView = class(TComponent)
      protected
        _x, _y, _w, _h : cardinal;
        _bg, _fg : byte;
  