; Main Code File

XIncludeFile "kratomfrm1.pbf"

Openkrt1()

Repeat
    Event = WaitWindowEvent()
    
    Select EventWindow()
      Case krt1
        krt1_Events(Event) ; This procedure name is always window name followed by '_Events'
        
      ;Case DateWindow
        ;DateWindow_Events(Event)
        
    EndSelect
    
  Until Event = #PB_Event_CloseWindow ; Quit on any window close

; IDE Options = PureBasic 6.12 LTS (Linux - x64)
; CursorPosition = 11
; EnableXP
; DPIAware