7730 IF X1000 THEN GOSUB 900 : RETURN