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