randomize
screen 0,640,480,1 : cls 4
buffer 2,640,480,1 : cls 4
gsel 0 : gmode 1,300,30
font "ＭＳ ゴシック",30 : redraw 2

repeat
rnd t,256 : rnd x,340 : rnd y,450

repeat 2
repeat 65,n<<5-64
palfade -cnt*n+cnt<<2,t,t
palcolor t
pos x,y : mes "ひろゆ子ですが何か？"
redraw 1 : await 20 : redraw 2
loop
n=2-n
loop
pos x,y : gcopy 2,0,0
loop