3645 GOSUB 3240 : CLOSE #M