DIM DIC$[ASC("ン")] で、文字配列DIC$を定義すれば動くと思います。