Do it BLACK ANOTHER by pooq

do
z=peek(0)
line input""a$
a$=chr$(z)+a$
for i=1to 7c$=mid$(a$,i,1)
m=m+("-"=c$)
u=u+("_"=c$)next
s=s+m
if m?s
s=s+u
if u?s
m=0
u=0loop

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

download

return to the top page