' Prints text in the center of line Y
' assuming 80x25 text mode.
'
' Example:
'
'   CLS
'   CENTER 11, "Hello World"
'
'   This would print "Hello World"
'   in the center of the screen.
'
SUB CENTER (Y, T$)
    L = LEN(T$): X = 1
    IF L < 79 THEN X = FIX(40 - L / 2)
    LOCATE Y, X: PRINT LEFT$(T$, 80);
END SUB