6006 GOSUB 650