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