a=1 b=-15 c=20 d=-1 if:dms>d thengoto1end :dp1+=:dps*a e=:dp1
ife<b thene=b elseife>c thene=c endend :dp1=e :dp2=e :dp3=e goto1