3715 IP=1 : GOSUB 8140