INTEGER LINE(80)
      INTEGER SENTNL
      OPEN (UNIT=00,FILE='APPHXL.HEX',MODE='ASCII')
   10 READ (UNIT=05,FMT=20) SENTNL
   20 FORMAT (A1)
      READ (UNIT=00,FMT=25,END=999) LINE
   25 FORMAT(80A1)
      WRITE (UNIT=05,FMT=30) LINE
   30 FORMAT(80A1)
      GO TO 10
  999 STOP
      END