b=2000 c=22
a=:mine*(:cas==0)*:cfr*(:r5<c)*(:r5>1)*(:bat>b) :l5=a goto2