DEFINE MULTILINE_TEXT
LOCAL FNAME
LOCAL C
LOCAL T
LOOP
  READ STRING "Enter source 'file name'" FNAME
  TRAP_ERROR
  OPEN_INFILE 1 FNAME
  LET C (CHECK_ERROR)
  EXIT_IF (C=0)
  BEEP
  DISPLAY ("Cannot open file: '"+FNAME+"'")
END_LOOP
TEXT
LOOP
  READ_FILE 1 T
  EXIT_IF (T='END-OF-FILE')
  IF (T='') LET T ' ' END_IF
  T
END_LOOP
CLOSE_FILE 1
END_DEFINE