8744 GOSUB 8140