Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!uflorida!haven!adm!xadmx!MATHRICH@umcvmb.missouri.edu
From: MATHRICH@umcvmb.missouri.edu (Rich Winkel UMC Math Department)
Newsgroups: comp.lang.pascal
Subject: re: Left Justifying
Message-ID: <20814@adm.BRL.MIL>
Date: 11 Sep 89 21:40:29 GMT
Sender: news@adm.BRL.MIL
Lines: 23

>From: Byron 'Maxwell' Guernsey 
>Is there any buily in way to left justify fields in the write or writeln
>statements? I have been unable to find one, and just assumed that all fields
>were right justified. If your lost consider the following.....
>WRITELN('This text.':12);
>would yield the output...
>  This text.
>Suppose I wanted it to justify into the left field.. like so...
>WRITELN('This text.':12,'foo');
>This text.  foo
>Is there a way other than a user procedure to do this?

If you're talking about TP, you could use the LEFT() function in my
STRINGS.TPU:

writeln(left('This text.',12,' ')) prints 'This text.  '
(the third argument is the pad character)
Being written in assembler, it's likely to be as fast as any built-in
function might be.
Send me mail for further info.

MATHRICH@UMCVMB.MISSOURI.EDU
MATHRICH@UMCVMB.BITNET