うーん、また素人解決法で書くので過不足があるやも。 近いイメージはこうだったという感じ…です。 ACLS GFILL 100,20,200,200,RGB(255,0,0) @LOOP VSYNC B==16 THEN BEEP 99 GOSUB @DOA GOTO @LOOP @DOA FOR T=0 TO 20 GBOX 100+T,20,200,200,RGP(255,255,255) WAIT　3’この部分でループごとに時間を… NEXT RETURN