      PROGRAM WRAPEM
        CHARACTER*160 LINE
  101   READ (5,'(A160)',ERR=102,END=102) LINE
        WRITE (6,'(A80/A80)') LINE(1:80),LINE(81:160)
        GO TO 101
  102   STOP
      END
