10 open "lines.wrk" for input as #1
20 open "lines.out" for output as #2
30 while not eof(1)
40   line input #1,x$
50   IF LEN(x$) < 31 then 80
60   IF MID$(x$,27,5) <> "     " then x$=left$(x$,31)+" ________"
80   ? #2,x$
90 wend
100 close: system