for i=1to 729line input""s$
n=(n<len(s$))*n+1
?mid$(s$,n,1);next