4700 GOSUB 650