Starburst by pooq

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

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page