9404 XN=N : GOSUB 9860 : CA=FA