anchor.diff:          set-font
           disp-width disp-height
           disp-width char-width / disp-height char-height /
  -        disp-depth 8 /                      ( width height #lines #cols depth )
  +        disp-depth 7 + 8 /                      ( width height #lines #cols depth )
           fb-install
           true to is-installed?
       THEN
  
positive.code:    \ Shouldn't this be done from open ?
     disp-width encode-int s" width" property
     disp-height encode-int s" height" property
     disp-width disp-depth 8 / * encode-int s" linebytes" property
     disp-depth encode-int s" depth" property
     s" ISO8859-1" encode-string s" character-set" property \ i hope this is ok...
     \ add "device_type" property
  
negative.code:   s" qemu,graphic-depth" get-chosen IF
       decode-int nip nip     
         dup 8 =
         over f = or
         over 10 = or
         over 20 = or IF
           to disp-depth
  