2440 GOSUB 650