Re: FP number syntax

Here's a routine from 2003 reworked for clarity.  While DPL could have
been avoided it simplified things and perhaps that's its value.

: ?BAD ( n -- )  abort" bad" ;

: /NUM ( a u -- ud a' u' )  dpl off  0 0 2swap >number ;

\ Convert inch (x.yyy) to mils
: /FLOAT  ( a u -- mils )
  /num  2swap drop >r ( whole)  dup if
    over c@ [char] . - ?bad  1 /string
  then
  3 min  /num  nip ?bad  drop ( frac)
  ( scale to 0-999 )
  1  3  dpl @ -  0 ?do 10 * loop  *
  r>  1000 *  ( scale whole )
  + ;         ( add frac )

: t  bl word count /float u. ;

t 1.234
t 1.2
t 1.2345
t 1