9490 GOSUB 8970