initial commit

kratom.pb

@@ -0,0 +1,24 @@
+; 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