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
V0.03, pjw, May 23rd 2019
Conditions of use and DISCLAIMER as per Knoware.no
QL Software
