ごめんなさい 各行の ? format$("4d$",a) は ? format$("%4d",a) です