3245 GOSUB 650