4280 GOSUB 650