1FORI=0TO135:POKE880+I,4*PEEK(2125+I)-204+(PEEK(2261+I/3)-35)/4^(I-INT(I/3)*3):NEXT 2&"/@q