4715 GOSUB 650