7965 GOSUB 950