mid弗を使うのであれば、文章の数だけ/=文字の数、配列を用意し、配列分のforループ、一行ごとの文字数のforループ(各行同じ文字数)で、 for i=0 to 行数i 　read a 　for j=0 to 文字数j 　　read val(mid弗(a,j,1)) 　　bgput 0,i,j,キャラ next next と出来るのではないでしょうか？