character c;n=7-mod(loc(n),3)*6;1 call fget(c,k);i=ichar(c) if(i>64.and.i/=95)i=mod(and(i,31)+n,26)+1+i/32*32;print'(a1$)',i;goto(1)1-k;end