HSPTV!掲示板

現在製作しているプログラムで、
全角スペースを半角スペースに置き換える作業が必要なのですが、
以下のプログラムがうまく動作しません。
どうやら、全角スペースと「ー」の両方が半角スペースに置き換えられているようです。
どのように改善すればよいでしょうか？
もしよろしければ指摘をお願いします。

	a=""
	b="スタート　ゴール"
	c=0
	d=""
	repeat
	getstr a,b,c,'　'
	if a="" : break
	c+=strsize+1
	d+=a+" "
	loop
	mes d

全角スペースは２バイト
getstr は１バイト用みたいですね
strlen　だとうまくいくようです
以下は1文字の全角スペースを半角スペースに変換します

a=0
b="スタート　ゴール"
c=0
d=""
c=strlen(b)
a=instr(b,0,"　")
d=strmid(b,0,a)
d=d+" "
d=d+strmid(b,a+2,c-a-2)
mes d
stop

間違えました　strlen だとうまく・・・　-> instr　です

ありがとうございました。