7725 IP=1 : GOSUB 8005