anarchy golf - the source code

Bisection by pooq

do
input""a$
b=len(a$)/2
?left$(a$,b+0^b)," ",mid$(a$,b+1)loop

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