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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).