3775 GOSUB 650