open "旧文件名" for binary as #1
a$=input$(16383,1) 
close #1
i&=1
do while k&<=len(a$)
   k&=k&+1
   if mid$(a$,k&,1)=chr$(13) then
      i&=i&+1
      k&=k&+1
      if mid$(a$,k&,1)<>chr$(10) then a$=left$(a$,k&-1)+chr$(10)+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
loop
open "新文件名" for output as #2
print #2,a$;
close #2

以上是一段写文件的操作，能不能解释一下呢？
我想在一个文件中的第三行（有字符的行）后面加上指定字符，如何写呢？