Регистрация | Вход
Graphics 640,480,0,2Global mouselb=False;Function Button(txt$,x,y,width,height)If(mouselb And MouseX()>=x And MouseY()>=y And MouseX()<=(x+width) And MouseY()<=(y+height)) Then Return True;Text x,y,txt;Rect(x,y,width,height,0)Return FalseEnd FunctionButton("exit",25,25,50,25)While(1)Clsmouselb=False;If MouseHit(1)mouselb=TrueIf Button("exit",25,25,50,25) EndFlipWend