9080 GOSUB 8140