0 '"PC-LF.BAS" -- Adds LF to CR on PC. Phil Wheeler [71266,125] - 5/12/87
10 CLEAR:DEFINT I-Z:DEFSTR A-H:E=CHR$(27)
60 LOCATE 3,25:PRINT "LF Util for GW-BASIC/BASICA"
80 PRINT:FILES:PRINT:PRINT "     File to Process <CR to end>";:INPUT F
85 IF F="" THEN 150 ELSE PRINT:PRINT "           Output File          ";:INPUT G
90 OPEN F FOR INPUT AS 1:OPEN G FOR OUTPUT AS 2:CLS:locate 10,30:PRINT "Working..."
120 H=INPUT$(1,1)
130 IF H<>CHR$(13) THEN GOTO 140 ELSE H=H+CHR$(10):GOTO 140
140 PRINT #2,H;
145 IF EOF(1) THEN:CLOSE :BEEP :GOTO 10: ELSE 120
150 SYSTEM