var c:char;n:byte=96;begin repeat read(c);xor(n,32*ord(c<^!));if c=^`then begin writeln;n:=96end else write(chr(ord(c)mod 32+n))until 1=0end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page