7805 IF X6 THEN GOSUB 900 : RETURN