9460 GOSUB 8140