   10 *NAME ADDLF
   15 REM Modified version to produce QL compatible ascii files ie LF on end of each line.
   20 B$=CHR$(1)+"B":FL$=CHR$(1)+"F"
   30 CLS:PRINT TAB(31,0)B$"Z88 ADDLF Utility"B$
   40 PRINT TAB(18,2)"File to process <ENTER to end>: ";:INPUTF$
   50 IF F$="" THEN CLS:END ELSE PRINT TAB(18,3)"                   Output File: ";:INPUTG$
   60 F=OPENIN(F$):G=OPENOUT(G$)
   70 PRINT TAB(35,5)FL$"Working..."FL$
   80 H=BGET#F:IF H=10 THEN 120
   85 IF H<>13 THEN 90 ELSE BPUT#G,10:GOTO 100
   90 BPUT#G,H
  100 IF EOF#F THEN CLOSE#0:PRINTCHR$(7);:GOTO 30 ELSE 80
  120 PRINT CHR$(7)TAB(14,5)B$"This file ALREADY has at least one LF=CHR$(10) in it"B$:CLOSE#0:END

