If OpenWindow(0, 0, 0, 250, 100, "Заголовок", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)  

EndIf
ButtonGadget(1, 20, 20, 80, 20, "кнопка 1")
ButtonGadget(2, 20, 50, 80, 20, "кнопка 2")  
TextGadget(77, 135, 20, 250, 15, "позиция 1")
TextGadget(78, 135, 50, 250, 15, "позиция 3")
Repeat
Event= WaitWindowEvent()  
  Select Event
  Case #PB_Event_Gadget
  Select EventGadget()
  Case 1
  Toggle = Toggle ! 1
  If Toggle  
  SetGadgetText(77,"позиция 2")
  Else  
  SetGadgetText(77,"позиция 1")
  EndIf
  Case 2
  Toggle = Toggle ! 1
  If Toggle  
  SetGadgetText(78,"позиция 4")
  Else  
  SetGadgetText(78,"позиция 3")
  EndIf  
  EndSelect
  EndSelect
   
If Event=#PB_Event_CloseWindow
Break
EndIf
ForEver