1770 GOSUB 650