- 533 名前：530 mailto:sage [2005/06/24(金) 20:03:57 ID:636hqtKo]
- おぉ、できてるじゃん
サブルーチン化しなくてもいけそうですよ
*slowdsp
getparam $inp_str,%wait_time
;入力文字列、表示ウェイト時間
len %strlen,$inp_str ;len関数で返る値は全角１文字に対して２です
for %i=1 to %strlen step 2 ;２バイト分ずつ参照
mid $wchar,$inp_str,%i-1,2 ;２バイト分ずつ読み込んで全角１文字ずつ表示
$wchar/
resettimer ;内部タイマーリセット
waittimer %wait_time ;指定時間経過するまでウェイト
next
