redraw 0
repeat 40
a = 128+(cnt*5),cnt*5,cnt*5
repeat 3
if a.cnt>255 : a.cnt=255
loop
color a.0,a.1,a.2
font "MS ゴシック",400 - (cnt*10)
pos cnt*3,cnt*3 : mes "●"
loop
redraw
stop