DEF VAR body AS CHARACTER NO-UNDO.
DEF VAR charsPerLine AS INTEGER NO-UNDO.
DEF VAR totalLines  AS INTEGER NO-UNDO.

body = "The following example uses SIZE phrases to set the initial dimensions of the rectangle rec and to set the dimensions of the frame sz-frame. When you choose the b_size button, the rectangle is randomly resized.".

charsPerLine = 60.

DEFINE FRAME hFrame
    body VIEW-AS EDITOR INNER-LINES 5 INNER-CHARS 60.

ASSIGN body:INNER-CHARS IN FRAME hFrame = charsPerLine
       FRAME hFrame:HIDDEN              = yes.

DISPLAY body WITH FRAME hFrame.

totalLines = body:NUM-LINES IN FRAME hFrame.

DISPLAY totalLines.