a=4000
:wa=:gd*((:c5+:c6+:c8+:c9)<a) :wb=:gd*((:c4+:c5+:c7+:c8)<a) goto2