FTRUNC
FTRUNC>S
FTRUNC
FTRUNC
*
FTRUNC
( x -- x' )
FORTH/BASE
floating_misc
ordinary primitive