9840 GOSUB 8140