9236 GOSUB 8140