t=.2 b=0 goto3*:IN a=(:JY*:RZ+:IY*:RY-:HY*:RX) :y+=(a+b)/2*t b=a goto3*:IN