character c;1 n=k>64.and.k<91;m=fget(c);k=c>"";k=xor(ichar(c),k*n*32);goto(1)fput(char(k))**m;end