Center Text

[Torahteen]

So using his example, you can make a simple SUB to print centered text on the screen:

Code:

DECLARE SUB printc(text AS STRING, y AS INTEGER)
DIM l AS INTEGER
DIM c AS INTEGER

l = LEN(text)     'Get's length of our string
c = l/2

LOCATE y, 40-c
PRINT text
END SUB

*Note: This has not been tested, there may be errors.