3005 GOSUB 650