OpenWindow(2,0,0,180,80,"Заголовок окна",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
ButtonGadget(0,54,32,88,24,"Перезапустить")
  
Repeat
 Event=WaitWindowEvent()
 Gadget=EventGadget()
    
  If Event=#PB_Event_Gadget And Gadget=0
   RunProgram(ProgramFilename())
   End
  EndIf 
  
Until Event = #PB_Event_CloseWindow

Procedure Open_Window_1()
  OpenWindow(#Window_1, 0, 0, 500, 400, wn1,#PB_Window_ScreenCentered)
  
  EditorGadget(70,2,2,496,370,#PB_Editor_ReadOnly)
SendMessage_(GadgetID(70), #EM_SETTARGETDEVICE, #Null, 0) ; Перенос по словам

Lang.s="ru"
If GetGadgetState(20)=0
  Lang.s="en"
EndIf
FileStreamIn(70, Left(Lang, 2)+"_avtori.rtf")
  
  ButtonGadget(71,210,373,80,24,"OK")

EndProcedure

Procedure Open_Window_2()
  
OpenWindow(#Window_2,0,0,500,300, wn2,#PB_Window_ScreenCentered)

EditorGadget(72,2,2,496,270,#PB_Editor_ReadOnly)
SendMessage_(GadgetID(72), #EM_SETTARGETDEVICE, #Null, 0) ; Перенос по словам

Lang.s="ru"
If GetGadgetState(20)=0
  Lang.s="en"
EndIf
FileStreamIn(72, Left(Lang, 2)+"_spravka.rtf") 

ButtonGadget(73,210,273,80,24,"OK") 
      
EndProcedure

Procedure Open_Window_3()
    
OpenWindow(#Window_3,0,0,500,400, wn3,#PB_Window_ScreenCentered)

EditorGadget(74,2,2,496,370,#PB_Editor_ReadOnly)
SendMessage_(GadgetID(74), #EM_SETTARGETDEVICE, #Null, 0) ; Перенос по словам

Lang.s="ru"
If GetGadgetState(20)=0
  Lang.s="en"
EndIf
FileStreamIn(74, Left(Lang, 2)+"_histori.rtf")

ButtonGadget(75,210,373,80,24,"OK") 
      
EndProcedure

{----------События компонентов----------
If Event=#PB_Event_Gadget
  Select EventGadget()      
       Case 20     
          Select GetGadgetState(20)
            Case 0
              RunProgram(ProgramFilename())
            Case 1
              RunProgram(ProgramFilename())
          EndSelect                       
           EndSelect                  
EndIf

For i=1 To 20
  a = CreateSemaphore_(#Null,0,1,"Cat's Eye") 
  If a<>0 And GetLastError_()= #ERROR_ALREADY_EXISTS 
    CloseHandle_(a)
    Delay(20)
  Else
    Break
  EndIf 
Next i

If i>=19
  End
EndIf

      Case 20
        If EventType()=1
          OpenPreferences("setting.dat")
          Write_out()
          WritePreferenceString("KEY_LED", Str(GetGadgetState (24)))
          WritePreferenceString("LPT_LED", Str(GetGadgetState (45)))     
          WritePreferenceString("X_form", Str(WindowX(#Window_0)))  
          WritePreferenceString("Y_form", Str(WindowY(#Window_0)))  
          WritePreferenceString("Preset", GetGadgetText(68))  
          WritePreferenceString("Language", GetGadgetText(20))
          WritePreferenceString("Invert", Str(GetGadgetState(69)))
          ClosePreferences() 
          
          RunProgram(ProgramFilename(),"/ShowWindow",GetPathPart(ProgramFilename()))
          End
        EndIf