onkey gosub *key k = 0 *main redraw 1 await 1000 ;わかりやすいよう極端に長いwait redraw 0 : color 255, 255, 255 : boxf : color : pos 0,0 frame++ mes "frame : "+frame mes "hit : " + k goto *main *key k++ return