/* Reser multi lines */
PARSE ARG TXT
TXT=NFLOW(TXT,80)
WT=WORDS(TXT)
FL=-1-WT
J=1
DO I=FL
   'RESER' I 'RED ON BRI WHI' CENTER(WORD(TXT,J),80)
   J=J+1
   IF J>WT THEN LEAVE
END
EXIT

/***get nflow */
/*** NFLOW(S,N) - return S split at length N */
/*** Lines are space delimited, spaces within each line are replaced */
/*** by D2C(255) */
NFLOW: PROCEDURE
PARSE ARG S, LEN
IF LENGTH(S)<=LEN THEN RETURN TRANSLATE(S,D2C(255),' ')
'KEDIT FLOW.TMP (NEW'
'SET WORDWRAP ON'
'SET MARGINS 1' LEN
'I'
'TEXT' S
'FLOW'

'TOP'
R=''
DO FOREVER
   'NEXT'
   IF RC>0 THEN LEAVE
   R=R TRANSLATE(CURLINE.3(),D2C(255),' ')
END
'QQUIT'
RETURN R