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