repeat x=peek(0):?chr$(mod(x*7+7,256));until(x<0)