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