9230 P(1)=0 : P(2)=1 : GOSUB 8125