print fixed point, two digs after dec point

printf2.fs

\ print fixed point, two digs after dec point
: f.2 ( df -- ) 
  0,005 d+        \ rounding
  0 <# #s 2drop   \ whole part
  [char] .  hold< \ decimal separator 
  f# f#           \ frac part
  0  #>           \ finish
  type space      \ print
;