\ numberalign 1/12/1999 DOL
\ Aligned numeric display words
needs textalign
: d>str ( d -- a n )
dup >r dabs <# #s r> sign #> ;
: ud>str ( ud -- a n )
<# #s #> ;
: n>str ( n -- a n )
s>d d>str ;
: u>str ( u -- a n )
0 d>str ;
: .r >r n>str r> type.right ;
: .c >r n>str r> type.center ;
: .l >r n>str r> type.left ;
: d.r >r d>str r> type.right ;
: d.c >r d>str r> type.center ;
: d.l >r d>str r> type.left ;
: u.r >r u>str r> type.right ;
: u.c >r u>str r> type.center ;
: u.l >r u>str r> type.left ;
: ud.r >r ud>str r> type.right ;
: ud.c >r ud>str r> type.center ;
: ud.l >r ud>str r> type.left ;