8840 GOSUB 8464