2765 GOSUB 650