Text Alignment

jonos · **Posted:** Thu Dec 16, 2004 5:52 pm

That's right little 12 year olds, your favourite "leet" programmer is here with his amazing text alignments. Now I know it is kindof easy and whatnot but I have not touched my little Turing executable in a very long while and I came up with this in computer engineering when my teacher told me to stop screwing around the File.Copy function/whatever one calls it.

And here is it bitches:

code:

%Centering Text
var text : string

proc CentreText (var text : string)
get text:*
locate (1, (maxcol div 2) - (length (text) div 2))
put text
end CentreText

CentreText (text)

code:

%Right text
var text : string

proc RightText (var text : string)
get text:*
locate (1, maxcol - length (text) + 1)
put text
end RightText

RightText (text)

Yo, I know you think I'm stupid, but I don't need some arrogant 12-year old telling me what I already have come to accept. And I am more welcome than any of you on these message boards - basically because I have attempted to learn every language this website supports and have managed to at least succeed to output to the screen.

Out!