WCOLS( ) Function Example

The following example centers a short output message in the last row of a window of unknown size.

CLEAR
DO SendMesg WITH 'Message', WCOLS( ), WROWS( ) –1

*** SendMesg ***

PROCEDURE SendMesg
PARAMETERS gcMsg, gnCol, gnRow
STORE (gnCol – LEN(gcMsg))/2 TO gnCol
@ gnRow, gnCol SAY gcMsg
RETURN