L S =INPUT :F() F =45 M T =S D =C N C =C + (EQ(ORD(T),F) 1) T =LNE(T,'') SUBSTR(T,2) :S(N) OUTPUT =NE(C,D) C F =NE(F,95) 95 :S(M) F(L) END
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page