7725 IP=1 : X=0 : GOSUB 8060