4116 GOSUB 3240 : CLOSE#1