2365 GOSUB 650