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