たけっちです。
ここで最後にぷまさんが示されているプログラムを利用して
速度を計測しました。
http://fs-cgi-basic01.freespace.jp/~hsp/ver3/hsp3.cgi?print+200707/07090030.txt
1つめのリピートで文字列を作って、2個目で表示させています。
/*** 時間測定用のおまけ st, gt (スタートとゴール の差の時間mSec)***/
#uselib "kernel32"
#func QPFreq "QueryPerformanceFrequency" var
#func QPCount "QueryPerformanceCounter" var
#define st _t= 0.:QPFreq _t : QPCount _t.1
#define gt QPCount _t.2 :title strf("%%.3fmSec", (_t.2-_t.1)*1000/_t)
/******************************************************************/
sdim a, 6000000
sdim result, 6000000
// 変数aのデータ作成
; a= "01234567\n"
a= "0123456789"
repeat 10
poke a, i, a : i+= strsize
loop
st // 時間計測開始
repeat 10
mes a
loop
gt // 時間計測終了