pro closeall, dummy
;
;
;
for i=100,128 do free_lun, i
end