2875 IF NC>0 THEN GOSUB 500