6N plus minus one by pooq

do
input""p
n=int((p+p^0)/6)
?p," = 6 * ",n," ",chr$(44-p+6*n)," 1"loop

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

download

return to the top page