mat による1クリア命令を追加

行列の全ての要素を1クリアする。

例:
dim a(3,3)
mat a:= con
これによって、行列aの全要素が1クリアされる。

mat a:= zer とほぼ同じルーチンなので内部処理を共用化してる。