Регистрация | Вход
Graphics 640,480,0,2SetFont(LoadFont("system"))Function Button(x,y,w,h,mx,my,s$)Rect(x,y,w,h,0)Text(x,y,s$)If MouseHit(1)If(mx>x And my>y And mx<(x+w) And my<(y+h))Return TrueEndIfReturn FalseEnd FunctionWhile(Not(KeyHit(1)))If Button(200,100,50,20,MouseX(),MouseY(),"button")Print("button pressed")Wend