COPY命令で16個の数字をDATA命令から配列変数に 読み込むように指定していますがDATA命令に記述された 数字が足らないためにマップのデータの文字列を読み 込もうとしてType mismatchが出ているのだと思います。 70行目のDATA命令に記述している数字の数が16個未満だと このようなエラーになりますよ。