title ""
screen 0,,,,,,320,240
*main
getkey k,1
if(k==1)gosub *iyan
wait 10
goto main
stop

*iyan
title "いやん"
ginfo 2
x=prmx
y=prmy
m=10
for i,0,m
t=(m-i)/2
screen 0,,,,x-t,y-t,320+m-i,240+m-i
await 1
next
title ""
return