3240 GOSUB 650