9405 XA=X : X=U : P(1)=0 : P(2)=1 : GOSUB 8125