:ar=(:ar+:ars*0.5)*(:ar>=0)-:ar>20 goto1