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