刚刚测试过第8楼的代码，虽然不会提示错误了，编译的程序在运行时屏幕停住了，不会继续执行下去。文件并不大，只有十多行仅200多字节。
希望moz再完善一下，让它完美下去。

真的很抱歉，人老了，很多事情就记不清楚了，请多愿谅。

open "旧文件名" for binary as #1
a$=input$([color=0000FF]16383,1[/color]) 
close #1
i&=1
do while k&<=len(a$)
   k&=k&+1
   if mid$(a$,k&,1)=chr$([color=0000FF]13[/color]) then
      i&=i&+1
      k&=k&+1
      if mid$(a$,k&,1)<>chr$([color=0000FF]10[/color]) then a$=left$(a$,k&-1)+chr$([color=0000FF]10[/color])+mid$(a$,k&)
      k&=k&+1
      select case i&
      case 5,6:a$=left$(a$,k&-1)+"A"+mid$(a$,k&)
      case 7,8:a$=left$(a$,k&-1)+mid$(a$,k&+1)
      case else: k&=k&-1
      end select
   endif
[color=FF00FF]loop[/color]
open "新文件名" for output as #2
print #2,a$;
close #2