3365 GOSUB 650