dim x$(1) line input""s$ d=token(s$,x$(),",") a=val(x$(1)) for i=1to val(x$(2))a=mod(a*8,13) for j=1to a?" ";next ?x$(3)next
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page