1790 GOSUB 650