a=(:scan+(:rc==2)+(:rc==3)+:cas)*(:ap==0)  b=((:rc==3)+:cas)*(:ap==0)
:rf1=(a>0) :rf2=(b>0) if b>0 and :mine==0 then :agl=1 end goto1