JUST
                                   ====

                         Justify text in a field
                         -----------------------

Usage:
------

        PRINT JUST$(jst%, width%, text$)

where
        jst% = -1 => left justified
        jst% =  0 => centered
        jst% =  1 => right justified

        width% = field width 0..32k - 2

and
        text$ is string to be justified


Examples:
---------

        PRINT '"'; JUST$(0, 22, 'ABC'); '"'

returns

        "         ABC          "

You can also do something like

        100 CLS
        110 FOR i = 1 TO 3
        120  PRINT JUST$(-1, 40, JUST$(-1, 10, i) & JUST$(0, 20, 'Text ' & i) & JUST$(1, 10, 'Remark ' & i))
        130 END FOR i

which produces:

        1                Text 1         Remark 1
        2                Text 2         Remark 2
        3                Text 3         Remark 3



Program status as per Knoware.no

V0.03, pjw, May 23rd 2019