HSPTV!掲示板

このサブルーチンを使いたいのですが、下記を使うといきなり遅くなります。なぜかわかりません。fontをループに入れると遅くなると聞いたので抜いてみたのですが、あまり変わりません。
単にパソコンが遅いだけでしょうか？将棋をつくろうとしています。なるべくループしないようなコードにしたほうがいいのでしょうか。
*ボードの点表示





color 255,255,255;white
//ボードの一番左上の座標が100,100
//50ドットづつ間隔を開ける
for coordinate_x,100,550,50

for coordinate_y,100,550,50
//ここを文字で表示すれば駒を表示できる

for x,0,9,1 ;二次元配列をひとつづつあたっていく

for y,0,9,1

if KOMA(x,y)==0{

pos ((x+1)*50)-7+50,((y+1)*50)-10+50
mes "";このメッセージの内容を二次配列から取得する

}
if KOMA(x,y)==1{

pos ((x+1)*50)-7+50,((y+1)*50)-10+50
;color 255 - chosen,255,255-chosen
mes "歩";このメッセージの内容を二次配列から取得する

}
if KOMA(x,y)==2{

pos ((x+1)*50)-7+50,((y+1)*50)-10+50
;color 255-chosen,255,255-chosen
mes "角";このメッセージの内容を二次配列から取得する

}
if KOMA(x,y)==3{

;color 255-chosen,255,255-chosen
pos ((x+1)*50)-7+50,((y+1)*50)-10+50
mes "飛";このメッセージの内容を二次配列から取得する

}
if KOMA(x,y)==4 {

;color 255-chosen,255,255-chosen
pos ((x+1)*50)-7+50,((y+1)*50)-10+50
mes "香";このメッセージの内容を二次配列から取得する

}
if KOMA(x,y)==5{

;color 255-chosen,255,255-chosen
pos ((x+1)*50)-7+50,((y+1)*50)-10+50
mes "桂";このメッセージの内容を二次配列から取得する

}
if KOMA(x,y)==6{

; color 255-chosen,255,255-chosen
pos ((x+1)*50)-7,((y+1)*50)-10
mes "銀";このメッセージの内容を二次配列から取得する

}
if KOMA(x,y)==7{

; color 255-chosen,255,255-chosen
pos ((x+1)*50)-7+50,((y+1)*50)-10+50
mes "金";このメッセージの内容を二次配列から取得する

}
if KOMA(x,y)==8{

;color 255-chosen,255,255-chosen
pos ((x+1)*50)-7+50,((y+1)*50)-10+50
mes "王";このメッセージの内容を二次配列から取得する

}
next
next
next
next
return

for coordinate_x,100,550,50
と
for coordinate_y,100,550,50
と
それら用のnextはいらないと思います。

同じ場所に同じものを何度も書いているだけなので
見た目に変化がなくわかりにくいのですが、
posの引数はその場で計算しているので
coordinate_xは使われずに
負荷だけが増しています。

ありがとうございます