>>305
本当に適当でいいならこんな感じ、汚くてすまん・・・

wx = 640 : wy = 480
x = wx / 2 : y = wy / 2
screen 0, wx, wy, 0 : randomize

repeat
x += rnd(3) - 1
y += rnd(3) - 1

redraw 0
color 0, 0, 0 : boxf
color 255, 0, 0
pos x, y : mes "●"
redraw 1
await 1
loop