character c;n=1;1 k=fget(c);if(c=='"')n=-n;if(c>"".or.n<0)m=fput(c);goto(1)1-k;end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page