Re: LF/CR conversion

["mmphosis" <markstock@mail.com>]

REM convert linefeed to return
REM * Applesoft BASIC, DOS 3.3 (might work with PRODOS)
REM * maximum line length limited to 255 characters
REM * use of GET may be slow

10 FR$ = "SOURCE.TXT"
20 FW$ = "DESTINATION.TXT"
30 D$ = CHR$(4) : M$ = CHR$(13) : J$ = CHR$(10) : ?
D$"OPEN"FR$M$D$"OPEN"FW$
40 ONERR GOTO 80
50 ? D$"READ"FR$
60 GET C$ : IF C$ <> J$ THEN T$ = T$ + C$: IF LEN(T$) < 255 THEN 60
70 ? M$D$"WRITE"FW$M$T$ : T$ = "" : GOTO 50
80 POKE 216,0 : E = PEEK(222) : IF E = 5 THEN IF LEN(T$) THEN ?
M$D$"WRITE"FW$T$
90 ? D$"CLOSE"FW$M$D$"CLOSE"FR$ : IF E <> 5 THEN ? "ERROR "E : STOP