:rdy=:mm :rdyc=0+(:gen>=75)*2 :rdyb=1-(:gen>=75) goto1