2920 IP=1 : P(1)=GL(4) : GOSUB 9125