2395 GOSUB 650