WinSizeX = 600 : WinSizeY = 480 screen 0, WinSizeX, WinSizeY, 0, (ginfo_dispx - WinSizeX) / 2, (ginfo_dispy - WinSizeY) / 2 title "" : font "", 40 : randomize #const NUM 3 #const SIZEX 100 #const SIZEY 100 dim Number, NUM : GoNum = 0 dim PosX, NUM : dim PosY, NUM PosXIdx = (ginfo_winx - SIZEX * (NUM * 2 - 1)) / 2 *main //数値を決める NowSec = gettime(6) if NowSec ! PreSec { //1秒毎の処理 if GoNum = 0 : Number(GoNum) = Number(1) * 2 if GoNum = 1 : Number(GoNum) = rnd(100) if GoNum = 2 : Number(GoNum) = rnd(10) * 10 GoNum ++ : if GoNum = NUM : GoNum = 0 } PreSec = gettime(6) //描画 redraw 0 color 255, 0, 128 repeat NUM _cnt = cnt * 2 PosX(cnt) = _cnt * SIZEX + PosXIdx : PosY(cnt) = (ginfo_winy - SIZEY) / 2 boxf PosX(cnt), PosY(cnt), PosX(cnt) + SIZEX, PosY(cnt) + SIZEY loop color 255, 255, 128 repeat NUM pos PosX(cnt) + 30, PosY(cnt) + 30 : mes Number(cnt) loop redraw 1 await : goto *main