>>30

screen 0,,,1
sdim a,64,4
a="( ´_ゝ`)",">>1 ハゲ","（・Ａ・）","（^^）"

*main

redraw 1:redraw 0
await 33

color 96,128,128
if (50<mousex)&(mousex<400)&(100<mousey)&(mousey<200){
color 160,192,192
bkey=key
getkey key,1
if bkey=0&key : gosub *push
}
boxf 50,100,400,200

goto *main

*push
rnd t,4
pos 450
mes a.t
return