>>643
bgscr 2,dispx,dispy
randomize
repeat
rnd x,winx
rnd y,winy
font "ＭＳ 明朝",s
pos x,y
mes "無駄"
if cnt\10000:c=255-c:color c,c,c
loop