\ 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 ;