:calibrate=1
f=0.8 r=1 goto2+:al
:frp=(:gp<-r)*f-(:gp>r)*f-:gp :frr=(:gr<-r)*f-(:gr>r)*f-:gr
:frp=0 :frr=0 goto3*:al