1c=peek(0):l=l+1:if c>0s$=s$+" "+chr$(c):b$=b$+" ":goto 1
for i=2to l
x$=mid$(b$,i)
?x$+mid$(s$,(l-i+1)*2)+x$next