line input""a$
b=len(a$)
for i=2to b:s$=s$+" "next
?a$;
for i=1to b
c$=mid$(a$,i,1)
?c$
?mid$(a$,b-i+1,1);
if!i=b?s$;
d$=c$+d$next
?d$