input""a$
if"decode"=a$do?chr$(dec(chr$(peek(0))+chr$(peek(0))));loop
1n=b
b=peek(0)
if!b<0?upper$(hex$(b));:goto 1
if n=52?"A"