input""a$
b=len(a$)
d=b/2+.5
for i=1to b
if i=d?a$:goto 1
for j=1to b
e=j=b-i+1or j=i or j=d
?mid$(" "+a$,e+i*e+!e,1);next
?
1next