C
C -- APPLBT.FOR -- sends Apple II hex loader to Apple, unguarded.
C -- Runs under DEC-10/20 Fortran v6 or later.
C
      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 READ (UNIT=05,FMT=20) SENTNL
      STOP
      END
