8500 XN=(AL+BE-1) : GOSUB 9868