do?chr$(n+(13-26*!mod(n,32)<14)*!n<65);:n=peek(0)loop