10 ! PROGRAM TO FIX BATCH LOG FILE FOR EDITING
15 DIM A$[80]V,NA$[20]V
20 INPUT "NAME OF BATCH FILE (INCLUDE VERSION #) ";NA$
21 OPEN #3, NA$+"/RO"
30 INPUT "NAME OF OUTPUT FILE ";NA$
31 OPEN #4, NA$+"/WR"
35 IF END #3 THEN 100
50 INPUT LINE #3,A$
55 IF LEN(A$)<4 THEN 50
60 PRINT #4, SBS$(A$,2,LEN(A$)-1)
65 GOTO 50
100 CLOSE