1 2 3 4 5 6 7 8 9 10
// s : 2014.06.22 function Closeobj() global Wfile FID; if Wfile~='default' then mclose(FID); FID=[]; end; Wfile='default'; endfunction