Start:
OpenWindow(0,10,10,640,480,"Окно")
CreateMenu(0, WindowID(0))
ButtonGadget(1,10,10,100,100,"Добавить")
ButtonGadget(2,120,10,100,100,"Открыть")
      MenuTitle("Категории")
        MenuItem(1, "Добавить")
        MenuBar()
        MenuItem(2, "Открыть")
StringGadget(4,540,20,100,20,"")

Repeat
  Event=WaitWindowEvent()
  If EventGadget()=1
    Goto StSt
  EndIf
    If EventGadget()=2
    Goto StRe
  EndIf
Until Event=#PB_Event_CloseWindow
StSt:
OpenWindow(0,10,10,640,480,"Добавление статьи")
EditorGadget(12,10,10,100,50)
String$ = GetGadgetText(12)
ButtonGadget(9,200,250,100,100,"Добавить")
Repeat
  Event=WaitWindowEvent()
  If EventGadget()=9
    CreateFile(0,"State.txt")
       WriteString(0,""+String$)
          Goto Start
EndIf
Until Event=#PB_Event_CloseWindow
StRe:
OpenWindow(0,10,10,640,480,"")
Tex=ReadFile(0,"State.txt")