9760 GOSUB 8140