      CHARACTER*60 LINE
   1  CALL OPEN (1,'IT3   SRC')
   2  READ (1,*,END=1) LINE
      WRITE (8,*) LINE
      GO TO 2
      END
