\ float 99.3.9 6:04 pm NAB

: REPRESENT
( c-addr u -- n flag1 flag2 )  ( F: r -- )
  2dup  [char] 0  fill
  fpdissect 
  2dup or 0= >r  2swap  r>  if  1-  then
  swap >r >r  <# #s #>
  rot min  >r swap r>  move
  r> ( exp )  r> -1 = ( sign )  true ;