numberalign.txt


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


  HTMLized by Forth2HTML