\ textalign 98.10.13 3:00 am NAB
needs graphics

: type.left
( c-addr u right-margin -- )
  cursor-position drop swap at type ;

: pixel-width ( c-addr u -- width ) 
  swap >abs FntCharsWidth ;

: type.right
( c-addr u right-margin -- )
  >r  2dup pixel-width  r>
  swap - type.left ;

: type.center ( c-addr u center -- )
  >r  2dup pixel-width  r>
  swap 2/ - type.left ;