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