CHARACTER*79 LINE/'THIS IS A LINE'/
      WRITE (4,*) LINE
      WRITE (4,*) 'ALSO,',LINE
      WRITE (4,*) 4,'TEST'
      PAUSE 1
      STOP
      END