dim d$(9) ?"New file" while(a$<>"q")input"*"a$ ?a$ while("i"=a$and"^Z"<>d$(l))q(l+1)wend j=1:while("l"=a$and"^Z"<>d$(s+j))p(j) j=j+1wend s="1d"=a$ if"3Sf"=a$p(3) if"1?Sf"=a$for k=2to 3:p(k):input"O.K.? n"n$:?:next:?"Not found" l=val(a$) if str$(l)=a$p(l):q(l) if"3i"=a$:l=3:q(3):q(4):d$(4)="4":d$(5)="5":d$(6)="^Z" if"1Sf"=a$or "2Sf"=a$p(2) wend ?"Abort edit (Y/N)? y" sub p(m)?" ",m,mid$(": :*",(m=l)*2+1,2),d$(s+m)end sub sub q(m)l=m:input""d$(l):p(m)end sub