8492 XN=(AL-1) : GOSUB 9868 : CA=FA