Re: text centering function?
Posted in 1994
From Marc Ries: * * * Before I reinvent the wheel, does anyone have a quick function * to "center" text [something like txtcntr("text", line_width)]? Try this one: ############################################################################## # # Center text based on length in string and return # ############################################################################## FUNCTION centerit( str, len ) DEFINE str CHAR( 80 ), len SMALLINT IF LENGTH( str ) > len THEN RETURN str END IF LET str = ( len - LENGTH( str ) ) / 2 SPACES, str CLIPPED RETURN str END FUNCTION Hope this helps. Robert Minter |Data Systems Support| \\\\\\_/// Programmer, Software Development | Orange, CA | ( _ _ ) internet: rob@dssmktg.com | Tel: 714.771.0454 | (| ^ |) bangpath: uunet.uu.net!dssmktg!rob| Fax: 714.771.3028 | \\`-'/ I used to not know, now I know I don't know. \\_/