PROCEDURE showDialogBox:
   DEFINE VARIABLE cEditor AS CHARACTER VIEW-AS EDITOR SIZE 50 BY 1.00 NO-UNDO.
   DEFINE FRAME frMsg cEditor WITH VIEW-AS DIALOG-BOX.

   FRAME frmsg:PARENT = ACTIVE-WINDOW.

   ASSIGN cEditor:read-only IN FRAME frMsg = YES 
          cEditor:width-PIXELS IN FRAME frMsg = 300
          cEditor:screen-value = "Lorem, ipsum dolor sit amet consectetur adipisicing elit. Praesentium magnam eius molestias, illo id repellendus atque in nihil quo distinctio numquam?"        
          FRAME frMsg:height-pixels = 120
          FRAME frMsg:width-pixels = 500
          cEditor:height-PIXELS IN FRAME frMsg = 15 * cEditor:num-lines IN FRAME frMsg.

   ENABLE cEditor AT ROW 2 COL 15 NO-LABELS WITH FRAME frMsg.

   WAIT-FOR WINDOW-CLOSE OF FRAME frMsg.
END PROCEDURE.

OUTPUT to "file.txt".
RUN showDialogBox.
OUTPUT close.