8308 XN=AL-1 : GOSUB 9860