'OUTFILE' BLOB.FR
      'HEAD'  TEST OF STRAN PREPROCESSOR
      'INCLUDE' INCLUD,P
      'EJECT'
      DATA ARRAY/'HUMPTY DUMPTY SAT ON A WALL'/
      I=1
      'DO'
         CALL INIT
         CALL PARSE
         'END'
      END