DECLARE FUNCTION center% (str2$)

LOCATE 12, center("Hello")
PRINT "Hello"

FUNCTION center% (str2$)
    colpos = LEN(str2$)
    IF colpos < 80 THEN
        colpos = INT((80 - colpos) / 2)
    ELSE
        colpos = 0
    END IF
    center = colpos
END FUNCTION