7710 IF X100 THEN GOSUB 900 : RETURN