HSPTV!掲示板

文字をスライドインするプログラムを組んだのですが、どうもカクカクするんですよね。
スムースに動かす方法ありますでしょうか。

repeat strlen("tips_line")*6+640
	a=640-cnt
	redraw 0
	color 200,200,200 : boxf 0,417,640,439
	color 0,0,0 : font "ＭＳ ゴシック",10
	pos a,421 : mes "tips_line"
	wait 2
	redraw 1
loop

それほどカクカクしている感じはしませんでしたけども、まあこんな感じでしょうか。
…でもスムースさはそんなに変わってないですね。

#define speed 1.0			//スライドスピード
font "ＭＳ ゴシック",10		//フォント指定は毎回する必要は無い
repeat strlen("tips_line")*6+640		
	a=640.0-speed*cnt
	redraw 0
	color 200,200,200 : boxf 0,417,640,439
	color 0,0,0
	pos a,421 : mes "tips_line"
	redraw 1
	await 16				//リアルタイム系の処理ではwaitでタイミングをとらないほうがいい
loop

ありがとうございます。
ずいぶんスムースになりました。