#define MAX 7
sdim moji,4,12,MAX
moji.0.0="ち","ん","こ","音","頭"
moji.0.1="Ｂ","Ｍ","Ｓ"
moji.0.2="ど","こ","に","公","開"
moji.0.3="さ","れ","て","ま","す","か","？"
randomize
dim x,12,MAX:dim y,12,MAX:dim c,3,MAX
gsel 0,-1:bgscr 2,dispx,dispy:mouse -1
repeat MAX:i=cnt:repeat 12:if moji.cnt.i="":mmoji.i=cnt:break:loop
loop
*main
wait 1:redraw 0:color 0,0,0:boxf
repeat MAX:n=cnt
if t.n=0{
rnd st.n,24:st.n+=16:rnd x.0.n,winx:rnd y.0.n,winy:y.0.n+=winy
repeat 12:y.cnt.n=y.0.n:x.cnt.n=x.0.n:loop:t.n=1
repeat 3:rnd c.cnt.n,128:c.cnt.n+=128:loop
}
color c.0.n,c.1.n,c.2.n
repeat mmoji.n
if st.n<12:x.cnt.n-=mmoji.n/2-cnt*2
if moji.cnt.n="":break
pos x.cnt.n,y.cnt.n:mes moji.cnt.n:y.cnt.n-=st.n
loop
if y.cnt.n<winy:st.n--
if (y.cnt.n>winx) & (st.n<0):t.n=0
loop
redraw 1
goto main