そもそも何故>>349は5ドットずつ動かしてたのを
わざわざ1ドットずつ動かすようにしたいんだ？
フレームレートあげたら5ドットずつでも結構滑らかだと思うが
;>>370のモジュール入れてること前提
#include "tmanage3.as"
oldTime=gmsec()
oldSec=gettime(6):fps=0:cntFps=0
speed=5 ;箱のスクロール速度
repeat
getkey esc,27:if esc:break ;ESC押したら終了
frame=cnt : cntFps++
redraw 0
color 0, 0, 0:boxf
color 255,255,255:pos 10,10:mes "FPS : "+fps+"\nFRAME : "+frame
color 0,128,255:boxf (frame*speed)\740-100,200,(frame*speed)\740,300
redraw 1
repeat 100000 ;無限ループ防止のため100000回
nowTime=gmsec()
if (nowTime-oldTime>=17) & (frame\3!0):break ;1フレーム16.6666…
if (nowTime-oldTime>=16) & (frame\3=0):break ;なので2回に分けて処理
if nowTime-oldTime<5:await 1 ;余裕あったらCPU消費量を押さえる
loop
oldTime=nowTime
if oldSec!gettime(6):fps=cntFps:cntFps=0:oldSec=gettime(6)
asleep 0
loop
end