do?chr$(n);:n=peek(0)
if asc(mid$("mariko@",i+1))=n*!k n=n-32:i=i+1:k=1
k=k*!n=10loop