3565 GOSUB 650