8872 P(1)=0 : P(2)=1 : GOSUB 8140