2225 IF NP=0 THEN 2245