5470 IF NG>0 THEN GOSUB 6745