7010 IF YF21 THEN 7090