8784 GOSUB 8140