3850 GOSUB 3870