4290 GOSUB 3870