超適当

button gosub "",*t
repeat
await 5
color 255,255,255
boxf
color 0,0,0
pos 0,30
mes cnt
redraw 1
redraw 0
loop
stop
*t
screen 1
mes "画面をクリック"
repeat
getkey j,1
if (j==1):break
loop
gsel 1,-2
gsel 0
return