* BETA Version implemented

CSE/GUI/F_Main.vb

@@ -226,6 +226,9 @@ Public Class F_Main
                 If RELEASE_CANDIDATE Then
                     logme(7, False, "ATTENTION: RELEASE CANDIDATE, Not FOR CERTIFICATION!")
                 End If
+                If BETA_VERSION Then
+                    logme(7, False, "ATTENTION: BETA VERSION, Not FOR CERTIFICATION!")
+                End If
             End If
 
                 Dim asyncJob As cAsyncJob = e.Result

CSE/GUI/F_VECTOInput.vb

@@ -175,6 +175,8 @@ Public Class F_VECTOInput
         Dim AppVersx As String
         If RELEASE_CANDIDATE Then
             AppVersx = AppVers + " - RELEASE CANDIDATE, NOT FOR CERTIFICATION!"
+        ElseIf BETA_VERSION Then
+            AppVersx = AppVers + " - BETA VERSION, NOT FOR CERTIFICATION!"
         Else
             AppVersx = AppVers
         End If

CSE/declaration_public.vb

@@ -12,10 +12,11 @@
 Module declaration_public
 
     ' Description of the form
-    Public Const AppName As String = "Air Drag - RC"            ' Name of the programm
+    Public Const AppName As String = "Air Drag - BETA"            ' Name of the programm
     Public AppVers As String = Reflection.Assembly.GetExecutingAssembly().GetName().Version.ToString() '"3.1.0"                    ' Version of the Programm
     Public AppDate As String                                    ' Date of the compilation of the programm
-    Public RELEASE_CANDIDATE As Boolean = True
+    Public RELEASE_CANDIDATE As Boolean = False
+    Public BETA_VERSION As Boolean = True
 
     ' Control variables
     Public Const komment = "#"                                  ' Symbol for a comment in the input files