diff --git a/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb b/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb
index 86c30f3..9ebbd3e 100644
--- a/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb
+++ b/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb
@@ -3,7 +3,7 @@
     Public Shared ComputerInfo(7) As String
     Public Shared IsFree As Boolean
     Public Shared OnceInfo(8) As String
-    Public Shared AvailableFeature(37) As String
+    Public Shared AvailableFeature(41) As String
     Public Shared CLIInterpreter As String
     Public Shared SaveFile As String
     Public Shared Achievement As String
@@ -92,6 +92,10 @@
     '35 = Dual Window Manager [Simple Window Manager for ShiftOS] (default : 0)
     '36 = Shifter [Customization program for ShiftOS, DuWM version] (default : 0)
     '37 = Knowledge Input [Guess how much things as many as you can] (default : 0)
+    '38 = KI Animals [Adds animal category into the Knowledge Input] (default : 0)
+    '39 = KI Fruits [Adds fruit category into the Knowledge Input] (default : 0)
+    '40 = DuWM RGB Support [Adds RGB and its other variant support to DuWM] (default : 0)
+    '41 = DuWM 16 Colors Support [Adds mix of RGB color support into ShiftOS] (default : 0)
     '
     'Features bought hierarchy :
     '
@@ -134,9 +138,11 @@
     '>>>>>>>>>>>>Date by general (DATE, GENERALDATE (95 CP))
     '
     'Chpater 2:
-    '>Dual Window Manager (200 CP)
-    '>>DuWM RGB Support (225 CP)
-    '>>>DuWM 16 Colors Support (275 CP)
-    '>>Shifter (250 CP)
-    '>>Knowledge Input (275 CP)
+    '>Dual Window Manager (DUWM) (200 CP)
+    '>>DuWM RGB Support (DUWMRGB) (225 CP)
+    '>>>DuWM 16 Colors Support (DUWMRGB2) (275 CP)
+    '>>Shifter (SHIFTER) (250 CP)
+    '>>Knowledge Input (KNOWLEDGE) (275 CP)
+    '>>>KI Animals (KI_ANIMALS) (300 CP)
+    '>>>KI Fruits (KI_FRUITS) (300 CP)
 End Class
diff --git a/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb b/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb
index 066b9fd..f525073 100644
--- a/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb
+++ b/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb
@@ -141,6 +141,24 @@
         Else
             If Strings.AvailableFeature(36) = 0 Then
                 NewLine("(shifter | 250 CP) Shifter")
+            Else
+                If Strings.AvailableFeature(40) = 0 Then
+                    NewLine("(duwmrgb | 225 CP) DuWM RGB Support")
+                Else
+                    If Strings.AvailableFeature(41) = 0 Then
+                        NewLine("(duwmrgb2 | 275 CP) DuWM 16 Color Support")
+                    End If
+                End If
+            End If
+                If Strings.AvailableFeature(37) = 0 Then
+                NewLine("(knowledge | 275 CP) Knowledge Input")
+            Else
+                If Strings.AvailableFeature(38) = 0 Then
+                    NewLine("(ki_animals | 300 CP) KI Animals")
+                End If
+                If Strings.AvailableFeature(39) = 0 Then
+                    NewLine("(ki_fruits | 300 CP) KI Fruits")
+                End If
             End If
         End If
     End Sub
@@ -466,6 +484,17 @@
                     NewLine(ManHeader(1))
                     NormalCommand()
                 End If
+            Case "knowledge"
+                If Strings.AvailableFeature(37) = 0 Then
+                    ManHeader(0) = "Knowledge Input"
+                    ManHeader(1) = "275 CP"
+                    NewLine(ManHeader(0))
+                    NewLine(Nothing)
+                    NewLine("Puzzle game where you have to guess as many things as you want")
+                    NewLine(Nothing)
+                    NewLine(ManHeader(1))
+                    NormalCommand()
+                End If
             Case Else
                 NormalCommand()
                 Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"
@@ -584,6 +613,24 @@
             Case "duwm"
                 Shiftorium_InstallFeatures(True, "duwm", 35, 200)
                 NormalCommand()
+            Case "shifter"
+                Shiftorium_InstallFeatures(True, "shifter", 36, 250)
+                NormalCommand()
+            Case "knowledge"
+                Shiftorium_InstallFeatures(True, "knowledge", 37, 275)
+                NormalCommand()
+            Case "ki_animals"
+                Shiftorium_InstallFeatures(True, "ki_animals", 38, 300)
+                NormalCommand()
+            Case "ki_fruits"
+                Shiftorium_InstallFeatures(True, "ki_animals", 39, 300)
+                NormalCommand()
+            Case "duwmrgb"
+                Shiftorium_InstallFeatures(True, "duwmrgb", 40, 225)
+                NormalCommand()
+            Case "duwmrgb2"
+                Shiftorium_InstallFeatures(True, "duwmrgb2", 41, 275)
+                NormalCommand()
             Case Else
                 NormalCommand()
                 NewLine("Shiftorium: Bad command or not available")
@@ -751,6 +798,30 @@
                         Case "duwm"
                             Strings.AvailableFeature(35) = "1"
                             Strings.AvailableFeature(36) = "0"
+                            Strings.AvailableFeature(37) = "0"
+                            success = True
+                        Case "shifter"
+                            Strings.AvailableFeature(36) = "1"
+                            Strings.AvailableFeature(40) = "0"
+                            Strings.AvailableFeature(41) = "0"
+                            success = True
+                        Case "knowledge"
+                            Strings.AvailableFeature(37) = "1"
+                            Strings.AvailableFeature(38) = "0"
+                            Strings.AvailableFeature(39) = "0"
+                            success = True
+                        Case "ki_animals"
+                            Strings.AvailableFeature(38) = "1"
+                            success = True
+                        Case "ki_fruits"
+                            Strings.AvailableFeature(39) = "1"
+                            success = True
+                        Case "duwmrgb"
+                            Strings.AvailableFeature(40) = "1"
+                            success = True
+                        Case "duwmrgb2"
+                            Strings.AvailableFeature(40) = "3"
+                            Strings.AvailableFeature(41) = "1"
                             success = True
                     End Select
                     If success = False Then
diff --git a/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb b/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb
index be9269c..5747e1d 100644
--- a/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb
+++ b/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb
@@ -55,6 +55,11 @@ Module SaveLoadSystem
         Strings.AvailableFeature(34) = "2"
         Strings.AvailableFeature(35) = "2"
         Strings.AvailableFeature(36) = "2"
+        Strings.AvailableFeature(37) = "2"
+        Strings.AvailableFeature(38) = "2"
+        Strings.AvailableFeature(39) = "2"
+        Strings.AvailableFeature(40) = "2"
+        Strings.AvailableFeature(41) = "2"
     End Sub
 
     Public Sub FreeRoamMode()
@@ -105,6 +110,11 @@ Module SaveLoadSystem
         Strings.AvailableFeature(34) = "1"
         Strings.AvailableFeature(35) = "1"
         Strings.AvailableFeature(36) = "1"
+        Strings.AvailableFeature(37) = "1"
+        Strings.AvailableFeature(38) = "1"
+        Strings.AvailableFeature(39) = "1"
+        Strings.AvailableFeature(40) = "3"
+        Strings.AvailableFeature(41) = "1"
     End Sub
 
     Public Sub GodMode()
@@ -153,6 +163,11 @@ Module SaveLoadSystem
         Strings.AvailableFeature(34) = "2"
         Strings.AvailableFeature(35) = "2"
         Strings.AvailableFeature(36) = "2"
+        Strings.AvailableFeature(37) = "2"
+        Strings.AvailableFeature(38) = "2"
+        Strings.AvailableFeature(39) = "2"
+        Strings.AvailableFeature(40) = "2"
+        Strings.AvailableFeature(41) = "2"
     End Sub
 
     Public Sub SaveGame()
@@ -171,4 +186,4 @@ Module SaveLoadSystem
             Strings.AvailableFeature = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\saved\AvailableFeature.sos")
         End If
     End Sub
-End Module
+End Module
\ No newline at end of file
diff --git a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.Designer.vb b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.Designer.vb
index 849c215..f316a71 100644
--- a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.Designer.vb
+++ b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.Designer.vb
@@ -39,12 +39,13 @@ Partial Class DuWM_Shifter_Desktop
         '
         'cmb_DesktopColor
         '
+        Me.cmb_DesktopColor.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
         Me.cmb_DesktopColor.Font = New System.Drawing.Font("Segoe UI", 12.0!)
         Me.cmb_DesktopColor.FormattingEnabled = True
         Me.cmb_DesktopColor.Items.AddRange(New Object() {"Black", "Dark Gray", "Light Gray", "Red", "Dark Red", "Green", "Light Green", "Blue", "Dark Blue", "Yellow", "Dark Yellow", "Purple", "Light Purple", "Aqua", "Light Aqua", "White"})
         Me.cmb_DesktopColor.Location = New System.Drawing.Point(156, 91)
         Me.cmb_DesktopColor.Name = "cmb_DesktopColor"
-        Me.cmb_DesktopColor.Size = New System.Drawing.Size(121, 29)
+        Me.cmb_DesktopColor.Size = New System.Drawing.Size(121, 30)
         Me.cmb_DesktopColor.TabIndex = 1
         '
         'Label1
diff --git a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.vb b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.vb
index 6a476e2..d7f5b26 100644
--- a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.vb
+++ b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/Categories/DuWM_Shifter_Desktop.vb
@@ -3,8 +3,46 @@
         CheckAvailability()
     End Sub
 
-    Private Sub CheckAvailability()
+    Private Sub cmb_DesktopColor_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles cmb_DesktopColor.DrawItem
+        e.DrawBackground()
+        If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
+            e.Graphics.FillRectangle(Brushes.Black, e.Bounds)
+        End If
+        Dim sf As New StringFormat
+        Using b As New SolidBrush(e.ForeColor)
+            e.Graphics.DrawString(cmb_DesktopColor.GetItemText(cmb_DesktopColor.Items(e.Index)), e.Font, b, e.Bounds, sf)
+        End Using
+        e.DrawFocusRectangle()
+    End Sub
 
+    Private Sub CheckAvailability()
+        If Strings.AvailableFeature(40) = 1 Then
+            cmb_DesktopColor.Items.Remove("Yellow")
+            cmb_DesktopColor.Items.Remove("Dark Yellow")
+            cmb_DesktopColor.Items.Remove("Purple")
+            cmb_DesktopColor.Items.Remove("Light Purple")
+            cmb_DesktopColor.Items.Remove("Aqua")
+            cmb_DesktopColor.Items.Remove("Light Aqua")
+        ElseIf Strings.AvailableFeature(40) = 3 Then
+            If Strings.AvailableFeature(41) = 1 Then
+                'NOTHING
+            Else
+                'NOTHING
+            End If
+        Else
+            cmb_DesktopColor.Items.Remove("Red")
+            cmb_DesktopColor.Items.Remove("Dark Red")
+            cmb_DesktopColor.Items.Remove("Green")
+            cmb_DesktopColor.Items.Remove("Light Green")
+            cmb_DesktopColor.Items.Remove("Blue")
+            cmb_DesktopColor.Items.Remove("Dark Blue")
+            cmb_DesktopColor.Items.Remove("Yellow")
+            cmb_DesktopColor.Items.Remove("Dark Yellow")
+            cmb_DesktopColor.Items.Remove("Purple")
+            cmb_DesktopColor.Items.Remove("Light Purple")
+            cmb_DesktopColor.Items.Remove("Aqua")
+            cmb_DesktopColor.Items.Remove("Light Aqua")
+        End If
     End Sub
 
     Private Sub cmb_DesktopColor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmb_DesktopColor.SelectedIndexChanged
diff --git a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.Designer.vb b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.Designer.vb
index a117dfc..97cb13b 100644
--- a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.Designer.vb
+++ b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.Designer.vb
@@ -49,6 +49,7 @@ Partial Class DuWM_Shifter
         Me.lst_Features.BackColor = System.Drawing.Color.Silver
         Me.lst_Features.BorderStyle = System.Windows.Forms.BorderStyle.None
         Me.lst_Features.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.lst_Features.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
         Me.lst_Features.Font = New System.Drawing.Font("Segoe UI", 12.0!)
         Me.lst_Features.FormattingEnabled = True
         Me.lst_Features.ItemHeight = 21
@@ -84,6 +85,7 @@ Partial Class DuWM_Shifter
         '
         Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button3.Font = New System.Drawing.Font("Segoe UI", 8.25!)
         Me.Button3.ForeColor = System.Drawing.Color.White
         Me.Button3.Location = New System.Drawing.Point(351, 10)
         Me.Button3.Name = "Button3"
@@ -96,6 +98,7 @@ Partial Class DuWM_Shifter
         '
         Me.btn_Close.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.btn_Close.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn_Close.Font = New System.Drawing.Font("Segoe UI", 8.25!)
         Me.btn_Close.ForeColor = System.Drawing.Color.White
         Me.btn_Close.Location = New System.Drawing.Point(432, 10)
         Me.btn_Close.Name = "btn_Close"
@@ -108,6 +111,7 @@ Partial Class DuWM_Shifter
         '
         Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Font = New System.Drawing.Font("Segoe UI", 8.25!)
         Me.Button1.ForeColor = System.Drawing.Color.White
         Me.Button1.Location = New System.Drawing.Point(513, 10)
         Me.Button1.Name = "Button1"
diff --git a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb
index 55f0e41..06b35c6 100644
--- a/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb
+++ b/ShiftOS-TheRevival/MainForms/Applications/DuWM/Shifter/DuWM_Shifter.vb
@@ -8,6 +8,18 @@
 
     End Sub
 
+    Private Sub lst_Features_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles lst_Features.DrawItem
+        e.DrawBackground()
+        If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
+            e.Graphics.FillRectangle(Brushes.Black, e.Bounds)
+        End If
+        Dim sf As New StringFormat
+        Using b As New SolidBrush(e.ForeColor)
+            e.Graphics.DrawString(lst_Features.GetItemText(lst_Features.Items(e.Index)), e.Font, b, e.Bounds, sf)
+        End Using
+        e.DrawFocusRectangle()
+    End Sub
+
     Private Sub btn_Close_Click(sender As Object, e As EventArgs) Handles btn_Close.Click
         Close()
     End Sub
diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Animals.txt b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Animals.txt
new file mode 100644
index 0000000..37a793b
--- /dev/null
+++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Animals.txt	
@@ -0,0 +1,227 @@
+aardvark
+albatross
+alligator
+alpaca
+ant
+anteater
+antelope
+ape
+armadillo
+ass
+baboon
+badger
+barracuda
+bat
+bear
+beaver
+bee
+bison
+boar
+buffalo
+butterfly
+camel
+caribou
+cat
+caterpillar
+cow
+chamois
+cheetah
+chicken
+chimpanzee
+chinchilla
+chough
+clam
+cobra
+cockroach
+cod
+cormorant
+coyote
+crab
+crane
+crocodile
+crow
+curlew
+deer
+dinosaur
+dog
+dogfish
+dolphin
+donkey
+dotterel
+dove
+dragonfly
+duck
+dugong
+dunlin
+eagle
+echidna
+eel
+eland
+elephant
+elephant seal
+elk
+emu
+falcon
+ferret
+finch
+fish
+flamingo
+fly
+fox
+frog
+galago
+gaur
+gazelle
+gerbil
+giant panda
+giraffe
+gnat
+gnu
+goat
+goldfinch
+goldfish
+goose
+gorilla
+goshawk
+grasshopper
+grouse
+guanaco
+guineafowl
+guinea pig
+gull
+hamster
+hare
+hawk
+hedgehog
+heron
+herring
+hippopotamus
+hornet
+horse
+human
+humming bird
+hyena
+jackal
+jaguar
+jay
+jellyfish
+kangaroo
+koala
+komodo dragon
+kouprey
+kudu
+lizard
+lark
+lemur
+leopard
+lion
+llama
+lobster
+locust
+loris
+louse
+lyrebird
+magpie
+mallard
+manatee
+marten
+meerkat
+mink
+mole
+monkey
+moose
+mosquito
+mouse
+mule
+narwhal
+newt
+nightingale
+octopus
+okapi
+opossum
+oryx
+ostrich
+otter
+owl
+ox
+oyster
+panther
+parrot
+partridge
+peafowl
+pelican
+penguin
+pheasant
+pig
+pigeon
+pony
+porcupine
+porpoise
+prairie dog
+quail
+quelea
+rabbit
+raccoon
+rail
+ram
+rat
+raven
+red deer
+red panda
+reindeer
+rhinoceros
+rook
+ruff
+salamander
+salmon
+sand dollar
+sandpiper
+sardine
+scorpion
+sea lion
+sea urchin
+seahorse
+seal
+shark
+sheep
+shrew
+shrimp
+skunk
+snail
+snake
+spider
+squid
+squirrel
+starling
+stingray
+stink bug
+stork
+swallow
+swan
+tapir
+tarsier
+termite
+tiger
+toad
+trout
+turkey
+turtle
+vicuña
+viper
+vulture
+wallaby
+walrus
+wasp
+water buffalo
+weasel
+whale
+wolf
+wolverine
+wombat
+woodcock
+woodpecker
+worm
+wren
+yak
+zebra
+bird
\ No newline at end of file
diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Countries.txt b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Countries.txt
new file mode 100644
index 0000000..568a289
--- /dev/null
+++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Countries.txt	
@@ -0,0 +1,194 @@
+afghanistan
+albania
+algeria
+andorra
+angola
+antigua and barbuda
+argentina
+armenia
+australia
+austia
+azerbaijan
+bahamas
+bahrain
+bangladesh
+barbados
+belarus
+belgium
+belize
+benin
+bhutan
+bolivia
+bosnia and herzegovina
+botswana
+brazil
+brunei
+bulgraia
+burkina faso
+burundi
+cambodia
+cameroon
+canada
+cape verde
+central african republic
+chad
+chile
+china
+colombia
+comoros
+democratic republic of the congo
+republic of the congocosta rica
+croatia
+cuba
+cyprus
+czechia
+denmark
+djibouti
+dominica
+dominican republic
+east timor
+ecuador
+egypt
+el salvador
+equatorial guinea
+eritrea
+estonia
+eswatini
+ethiopia
+fiji
+finland
+france
+gabon
+gambia
+georgia
+germany
+ghana
+greece
+grenada
+guatemala
+guinea
+guinea-bissau
+guyana
+haiti
+honduras
+hungary
+iceland
+india
+indonesia
+iran
+iraq
+ireland
+israel
+italy
+ivory coast
+jamaica
+japan
+jordan
+kazakhstan
+kenya
+kiribati
+north korea
+south korea
+kuwait
+kyrgyzstan
+laos
+latvia
+lebanon
+lesotho
+liberia
+libya
+liechtenstein
+lithunania
+luxembourg
+madagascar
+malawi
+malaysia
+maldives
+mali
+malta
+marshall islands
+mauritiania
+mauritius
+mexico
+micronesia
+moldova
+monaco
+mongolia
+montonegro
+morocco
+mozambique
+myanmar
+namibia
+nauru
+nepal
+netherlands
+new zealand
+nicaragua
+niger
+nigeria
+north macedonia
+norway
+oman
+pakistan
+palau
+palestine
+panama
+papua new guinea
+paraguay
+peru
+philippines
+poland
+portugal
+qatar
+romania
+russia
+rwanda
+saint kitts and nevis
+saint lucia
+saint vincent and the grenadines
+samoa
+san marino
+sao tome and principe
+saudi arabia
+senegal
+serbia
+seychelles
+sierra leone
+singapore
+slovakia
+slovenia
+solomon islands
+somalia
+south africa
+south sudan
+spain
+sri lanka
+sudan
+suriname
+sweden
+switzerland
+syria
+tajikistan
+tanzania
+thailand
+togo
+tonga
+trinidad and tobago
+tunisia
+turkey
+turkmenistan
+tuvalu
+uganda
+ukraine
+united arab emirates
+united kingdom
+united states
+uruguay
+uzbekistan
+vanuatu
+vatican city
+venezuela
+vietnam
+yemen
+zambia
+zimbabwe
\ No newline at end of file
diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Fruits.txt b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Fruits.txt
new file mode 100644
index 0000000..96171bb
--- /dev/null
+++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/Fruits.txt	
@@ -0,0 +1,76 @@
+apple
+apricot
+avocado
+banana
+breadfruit
+bilberry
+blackberry
+blackcurrant
+blueberry
+boysenberry
+cantaloupe
+currant
+cherry
+cherimoya
+chili
+cloudberry
+coconut
+damson
+date
+dragonfruit
+durian
+elderberry
+feijoa
+fig
+gooseberry
+grape
+grapefruit
+guava
+huckleberry
+honeydew
+jackfruit
+jambul
+jujube
+kiwi fruit
+kumquat
+legume
+lemon
+lime
+loquat
+lychee
+mango
+melon
+canary melon
+cantaloupe
+honeydew
+watermelon
+rock melon
+nectarine
+nut
+orange
+clementine
+mandarine
+tangerine
+papaya
+passionfruit
+peach
+bell pepper
+pear
+persimmon
+physalis
+plum
+pineapple
+pomegranate
+pomelo
+purple mangosteen
+quince
+raspberry
+rambutan
+redcurrant
+salal berry
+satsuma
+star fruit
+strawberry
+tamarillo
+tomato
+ugli fruit
\ No newline at end of file
diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.Designer.vb b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.Designer.vb
new file mode 100644
index 0000000..29f224a
--- /dev/null
+++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.Designer.vb	
@@ -0,0 +1,254 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.42000
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+    
+    'This class was auto-generated by the StronglyTypedResourceBuilder
+    'class via a tool like ResGen or Visual Studio.
+    'To add or remove a member, edit your .ResX file then rerun ResGen
+    'with the /str option, or rebuild your VS project.
+    '''<summary>
+    '''  A strongly-typed resource class, for looking up localized strings, etc.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
+    Friend Class KnowledgeInputContent
+        
+        Private Shared resourceMan As Global.System.Resources.ResourceManager
+        
+        Private Shared resourceCulture As Global.System.Globalization.CultureInfo
+        
+        <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")>  _
+        Friend Sub New()
+            MyBase.New
+        End Sub
+        
+        '''<summary>
+        '''  Returns the cached ResourceManager instance used by this class.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ShiftOS_TheRevival.KnowledgeInputContent", GetType(KnowledgeInputContent).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Overrides the current thread's CurrentUICulture property for all
+        '''  resource lookups using this strongly typed resource class.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Shared Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set
+                resourceCulture = value
+            End Set
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized string similar to aardvark
+        '''albatross
+        '''alligator
+        '''alpaca
+        '''ant
+        '''anteater
+        '''antelope
+        '''ape
+        '''armadillo
+        '''ass
+        '''baboon
+        '''badger
+        '''barracuda
+        '''bat
+        '''bear
+        '''beaver
+        '''bee
+        '''bison
+        '''boar
+        '''buffalo
+        '''butterfly
+        '''camel
+        '''caribou
+        '''cat
+        '''caterpillar
+        '''cow
+        '''chamois
+        '''cheetah
+        '''chicken
+        '''chimpanzee
+        '''chinchilla
+        '''chough
+        '''clam
+        '''cobra
+        '''cockroach
+        '''cod
+        '''cormorant
+        '''coyote
+        '''crab
+        '''crane
+        '''crocodile
+        '''crow
+        '''curlew
+        '''deer
+        '''dinosaur
+        '''dog
+        '''dogfish
+        '''dolphin
+        '''donkey
+        '''dotterel
+        '''dove
+        '''dragonfly
+        '''duck
+        '''dugong
+        '''dunlin
+        '''eagle
+        '''echidna
+        '''eel
+        '''eland
+        '''elephant
+        '''elephant seal
+        '''elk
+        '''emu
        ''' [rest of string was truncated]&quot;;.
+        '''</summary>
+        Friend Shared ReadOnly Property Animals() As String
+            Get
+                Return ResourceManager.GetString("Animals", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized string similar to afghanistan
+        '''albania
+        '''algeria
+        '''andorra
+        '''angola
+        '''antigua and barbuda
+        '''argentina
+        '''armenia
+        '''australia
+        '''austia
+        '''azerbaijan
+        '''bahamas
+        '''bahrain
+        '''bangladesh
+        '''barbados
+        '''belarus
+        '''belgium
+        '''belize
+        '''benin
+        '''bhutan
+        '''bolivia
+        '''bosnia and herzegovina
+        '''botswana
+        '''brazil
+        '''brunei
+        '''bulgraia
+        '''burkina faso
+        '''burundi
+        '''cambodia
+        '''cameroon
+        '''canada
+        '''cape verde
+        '''central african republic
+        '''chad
+        '''chile
+        '''china
+        '''colombia
+        '''comoros
+        '''democratic republic of the congo
+        '''republic of the congocosta rica
+        '''croatia
+        '''cuba
+        '''cyprus
+        '''czechia
+        '''denmark
+        '''djibou [rest of string was truncated]&quot;;.
+        '''</summary>
+        Friend Shared ReadOnly Property Countries() As String
+            Get
+                Return ResourceManager.GetString("Countries", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized string similar to apple
+        '''apricot
+        '''avocado
+        '''banana
+        '''breadfruit
+        '''bilberry
+        '''blackberry
+        '''blackcurrant
+        '''blueberry
+        '''boysenberry
+        '''cantaloupe
+        '''currant
+        '''cherry
+        '''cherimoya
+        '''chili
+        '''cloudberry
+        '''coconut
+        '''damson
+        '''date
+        '''dragonfruit
+        '''durian
+        '''elderberry
+        '''feijoa
+        '''fig
+        '''gooseberry
+        '''grape
+        '''grapefruit
+        '''guava
+        '''huckleberry
+        '''honeydew
+        '''jackfruit
+        '''jambul
+        '''jujube
+        '''kiwi fruit
+        '''kumquat
+        '''legume
+        '''lemon
+        '''lime
+        '''loquat
+        '''lychee
+        '''mango
+        '''melon
+        '''canary melon
+        '''cantaloupe
+        '''honeydew
+        '''watermelon
+        '''rock melon
+        '''nectarine
+        '''nut
+        '''orange
+        '''clementine
+        '''mandarine
+        '''tangerine
+        '''p [rest of string was truncated]&quot;;.
+        '''</summary>
+        Friend Shared ReadOnly Property Fruits() As String
+            Get
+                Return ResourceManager.GetString("Fruits", resourceCulture)
+            End Get
+        End Property
+    End Class
+End Namespace
diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.resx b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.resx
new file mode 100644
index 0000000..d86df8e
--- /dev/null
+++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Contents/KnowledgeInputContent.resx	
@@ -0,0 +1,130 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="Animals" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>animals.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="Countries" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>countries.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+  <data name="Fruits" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>fruits.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
+  </data>
+</root>
\ No newline at end of file
diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.Designer.vb b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.Designer.vb
index 55c7177..54ccdf0 100644
--- a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.Designer.vb	
+++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.Designer.vb	
@@ -25,6 +25,9 @@ Partial Class Uni_KnowledgeInput
         Me.lbl_Title = New System.Windows.Forms.Label()
         Me.cmb_Category = New System.Windows.Forms.ComboBox()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.lbl_NextLevel = New System.Windows.Forms.Label()
+        Me.lbl_Level = New System.Windows.Forms.Label()
+        Me.lbl_TotalGuess = New System.Windows.Forms.Label()
         Me.txt_InputWord = New System.Windows.Forms.TextBox()
         Me.lst_Guessed = New System.Windows.Forms.ListBox()
         Me.lbl_Guessed = New System.Windows.Forms.Label()
@@ -44,11 +47,12 @@ Partial Class Uni_KnowledgeInput
         'cmb_Category
         '
         Me.cmb_Category.BackColor = System.Drawing.Color.White
+        Me.cmb_Category.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
         Me.cmb_Category.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
         Me.cmb_Category.ForeColor = System.Drawing.Color.Black
         Me.cmb_Category.FormattingEnabled = True
         Me.cmb_Category.Items.AddRange(New Object() {"Animals", "Countries", "Fruits"})
-        Me.cmb_Category.Location = New System.Drawing.Point(20, 73)
+        Me.cmb_Category.Location = New System.Drawing.Point(20, 96)
         Me.cmb_Category.Name = "cmb_Category"
         Me.cmb_Category.Size = New System.Drawing.Size(266, 31)
         Me.cmb_Category.TabIndex = 1
@@ -56,21 +60,54 @@ Partial Class Uni_KnowledgeInput
         '
         'Panel1
         '
+        Me.Panel1.Controls.Add(Me.lbl_NextLevel)
+        Me.Panel1.Controls.Add(Me.lbl_Level)
+        Me.Panel1.Controls.Add(Me.lbl_TotalGuess)
         Me.Panel1.Controls.Add(Me.txt_InputWord)
         Me.Panel1.Controls.Add(Me.lbl_Title)
         Me.Panel1.Controls.Add(Me.cmb_Category)
         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
         Me.Panel1.Location = New System.Drawing.Point(0, 0)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(784, 125)
+        Me.Panel1.Size = New System.Drawing.Size(784, 143)
         Me.Panel1.TabIndex = 2
         '
+        'lbl_NextLevel
+        '
+        Me.lbl_NextLevel.AutoSize = True
+        Me.lbl_NextLevel.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
+        Me.lbl_NextLevel.Location = New System.Drawing.Point(288, 55)
+        Me.lbl_NextLevel.Name = "lbl_NextLevel"
+        Me.lbl_NextLevel.Size = New System.Drawing.Size(223, 23)
+        Me.lbl_NextLevel.TabIndex = 3
+        Me.lbl_NextLevel.Text = "Words until next level ( CP) :"
+        '
+        'lbl_Level
+        '
+        Me.lbl_Level.AutoSize = True
+        Me.lbl_Level.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
+        Me.lbl_Level.Location = New System.Drawing.Point(288, 32)
+        Me.lbl_Level.Name = "lbl_Level"
+        Me.lbl_Level.Size = New System.Drawing.Size(63, 23)
+        Me.lbl_Level.TabIndex = 3
+        Me.lbl_Level.Text = "Level 0"
+        '
+        'lbl_TotalGuess
+        '
+        Me.lbl_TotalGuess.AutoSize = True
+        Me.lbl_TotalGuess.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
+        Me.lbl_TotalGuess.Location = New System.Drawing.Point(288, 9)
+        Me.lbl_TotalGuess.Name = "lbl_TotalGuess"
+        Me.lbl_TotalGuess.Size = New System.Drawing.Size(112, 23)
+        Me.lbl_TotalGuess.TabIndex = 3
+        Me.lbl_TotalGuess.Text = "Guessed : 0/0"
+        '
         'txt_InputWord
         '
         Me.txt_InputWord.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.txt_InputWord.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
-        Me.txt_InputWord.Location = New System.Drawing.Point(292, 73)
+        Me.txt_InputWord.Location = New System.Drawing.Point(292, 96)
         Me.txt_InputWord.Name = "txt_InputWord"
         Me.txt_InputWord.Size = New System.Drawing.Size(470, 30)
         Me.txt_InputWord.TabIndex = 2
@@ -80,6 +117,7 @@ Partial Class Uni_KnowledgeInput
         Me.lst_Guessed.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lst_Guessed.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
         Me.lst_Guessed.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
         Me.lst_Guessed.FormattingEnabled = True
         Me.lst_Guessed.ItemHeight = 23
@@ -92,7 +130,7 @@ Partial Class Uni_KnowledgeInput
         '
         Me.lbl_Guessed.AutoSize = True
         Me.lbl_Guessed.Font = New System.Drawing.Font("Comic Sans MS", 12.0!)
-        Me.lbl_Guessed.Location = New System.Drawing.Point(16, 140)
+        Me.lbl_Guessed.Location = New System.Drawing.Point(16, 146)
         Me.lbl_Guessed.Name = "lbl_Guessed"
         Me.lbl_Guessed.Size = New System.Drawing.Size(132, 23)
         Me.lbl_Guessed.TabIndex = 4
@@ -129,4 +167,7 @@ Partial Class Uni_KnowledgeInput
     Friend WithEvents txt_InputWord As TextBox
     Friend WithEvents lst_Guessed As ListBox
     Friend WithEvents lbl_Guessed As Label
+    Friend WithEvents lbl_TotalGuess As Label
+    Friend WithEvents lbl_Level As Label
+    Friend WithEvents lbl_NextLevel As Label
 End Class
diff --git a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb
index b806e88..a8aa28c 100644
--- a/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb	
+++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/Knowledge Input/Uni_KnowledgeInput.vb	
@@ -1,15 +1,211 @@
-Public Class Uni_KnowledgeInput
-    Dim PrevWidthTxt_InputWord As Integer = 470
+Imports System.IO
+
+Public Class Uni_KnowledgeInput
+    Public Countries(193) As String
+    Public Animals(226) As String
+    Public Fruits(75) As String
+    Public TotalGuessed As Integer
+    Public CurrentCategory As String
+    Public Level As Integer
+    Public ForNextLevel As Integer
+    Public JustStarted As Boolean = True
 
     Private Sub Uni_KnowledgeInput_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        cmb_Category.Items.Remove("Animals")
+        If Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput") = True Then
+            If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Animals.kin") = True Then
+
+            Else
+                If Strings.AvailableFeature(38) = 1 Then
+                    File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Animals.kin", My.Resources.KnowledgeInputContent.Animals)
+                End If
+            End If
+            If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Fruits.kin") = True Then
+
+            Else
+                If Strings.AvailableFeature(39) = 1 Then
+                    File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Fruits.kin", My.Resources.KnowledgeInputContent.Fruits)
+                End If
+            End If
+        Else
+            Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput")
+            File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Countries.kin", My.Resources.KnowledgeInputContent.Countries)
+        End If
+        CurrentCategory = "Select Category"
+        LoadCategory()
+    End Sub
+
+    Private Sub lst_Guessed_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles lst_Guessed.DrawItem
+        e.DrawBackground()
+        If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
+            e.Graphics.FillRectangle(Brushes.Black, e.Bounds)
+        End If
+        Dim sf As New StringFormat
+        Using b As New SolidBrush(e.ForeColor)
+            e.Graphics.DrawString(lst_Guessed.GetItemText(lst_Guessed.Items(e.Index)), e.Font, b, e.Bounds, sf)
+        End Using
+        e.DrawFocusRectangle()
+    End Sub
+
+    Private Sub cmb_Category_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles cmb_Category.DrawItem
+        e.DrawBackground()
+        If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
+            e.Graphics.FillRectangle(Brushes.Black, e.Bounds)
+        End If
+        Dim sf As New StringFormat
+        Using b As New SolidBrush(e.ForeColor)
+            e.Graphics.DrawString(cmb_Category.GetItemText(cmb_Category.Items(e.Index)), e.Font, b, e.Bounds, sf)
+        End Using
+        e.DrawFocusRectangle()
     End Sub
 
     Private Sub txt_InputWord_TextChanged(sender As Object, e As KeyEventArgs) Handles txt_InputWord.KeyDown
         Select Case e.KeyCode
             Case Keys.Enter
-                lst_Guessed.Items.Add(txt_InputWord.Text)
+                CheckCorrect(txt_InputWord.Text.ToLower)
                 txt_InputWord.Text = Nothing
+                JustStarted = False
+        End Select
+    End Sub
+
+    Private Sub cmb_Category_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmb_Category.SelectedIndexChanged
+        Dim Available As Boolean = False
+        JustStarted = True
+        lbl_TotalGuess.Text = "Guessed : 0/0"
+        lst_Guessed.Items.Clear()
+        Select Case cmb_Category.SelectedItem.ToString
+            Case "Countries"
+                If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentCountries.kin") = True Then
+                    lst_Guessed.Items.AddRange(File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentCountries.kin"))
+                End If
+                Available = True
+                Countries = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Countries.kin")
+            Case "Animals"
+                If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentAnimals.kin") = True Then
+                    lst_Guessed.Items.AddRange(File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentAnimals.kin"))
+                End If
+                Available = True
+                Animals = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Animals.kin")
+            Case "Fruits"
+                If File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentFruits.kin") = True Then
+                    lst_Guessed.Items.AddRange(File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentFruits.kin"))
+                End If
+                Available = True
+                Fruits = File.ReadAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Fruits.kin")
+        End Select
+        If Available = True Then
+            TotalGuessed = lst_Guessed.Items.Count
+            lbl_TotalGuess.Text = "Guessed : " & TotalGuessed & "/"
+            Select Case cmb_Category.SelectedItem.ToString
+                Case "Countries"
+                    lbl_TotalGuess.Text = lbl_TotalGuess.Text & Countries.Length
+                Case "Animals"
+                    lbl_TotalGuess.Text = lbl_TotalGuess.Text & Animals.Length
+                Case "Fruits"
+                    lbl_TotalGuess.Text = lbl_TotalGuess.Text & Fruits.Length
+            End Select
+            Level = Math.Ceiling((TotalGuessed / 10))
+            CheckLevel()
+            CurrentCategory = cmb_Category.SelectedItem.ToString
+        End If
+    End Sub
+
+    Private Sub LoadCategory()
+        If Strings.AvailableFeature(38) = 0 Then
+            cmb_Category.Items.Remove("Animals")
+        End If
+        If Strings.AvailableFeature(39) = 0 Then
+            cmb_Category.Items.Remove("Fruits")
+        End If
+    End Sub
+
+    Private Sub CheckLevel()
+        lbl_Level.Text = "Level " & Level
+        ForNextLevel = Math.Abs(TotalGuessed - (Level * 10))
+        If ForNextLevel = 0 Then
+            If JustStarted = False Then
+                ChangeCP(True, Level * 25)
+            End If
+            Level = Level + 1
+            lbl_Level.Text = "Level " & Level
+            ForNextLevel = 10
+        End If
+        lbl_NextLevel.Text = "Words until next level (" & Level * 25 & " CP) : " & ForNextLevel
+    End Sub
+
+    Private Sub CheckCorrect(Input As String)
+        Dim Correct As Boolean = False
+        Select Case cmb_Category.SelectedItem.ToString
+            Case "Countries"
+                Dim Lines As Integer = 0
+                Do
+                    If Lines = Countries.Length Then
+                        Exit Do
+                    End If
+                    If Countries(Lines) = Input Then
+                        Countries(Lines) = "null"
+                        Correct = True
+                        Exit Do
+                    Else
+                        Lines = Lines + 1
+                    End If
+                Loop
+            Case "Animals"
+                Dim Lines As Integer = 0
+                Do
+                    If Lines = Animals.Length Then
+                        Exit Do
+                    End If
+                    If Animals(Lines) = Input Then
+                        Animals(Lines) = "null"
+                        Correct = True
+                        Exit Do
+                    Else
+                        Lines = Lines + 1
+                    End If
+                Loop
+            Case "Fruits"
+                Dim Lines As Integer = 0
+                Do
+                    If Lines = Fruits.Length Then
+                        Exit Do
+                    End If
+                    If Fruits(Lines) = Input Then
+                        Fruits(Lines) = "null"
+                        Correct = True
+                        Exit Do
+                    Else
+                        Lines = Lines + 1
+                    End If
+                Loop
+        End Select
+        If Correct = True Then
+            lst_Guessed.Items.Add(Input)
+            TotalGuessed = lst_Guessed.Items.Count
+            lbl_TotalGuess.Text = "Guessed : " & TotalGuessed & "/"
+            Select Case cmb_Category.SelectedItem.ToString
+                Case "Countries"
+                    lbl_TotalGuess.Text = lbl_TotalGuess.Text & Countries.Length
+                Case "Animals"
+                    lbl_TotalGuess.Text = lbl_TotalGuess.Text & Animals.Length
+                Case "Fruits"
+                    lbl_TotalGuess.Text = lbl_TotalGuess.Text & Fruits.Length
+            End Select
+            CheckLevel()
+            SaveCategory()
+        End If
+    End Sub
+
+    Private Sub SaveCategory()
+        Select Case CurrentCategory
+            Case "Countries"
+                File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Countries.kin", Countries)
+                File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentCountries.kin", lst_Guessed.Items.Cast(Of String).ToArray)
+            Case "Animals"
+                File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Animals.kin", Animals)
+                File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentAnimals.kin", lst_Guessed.Items.Cast(Of String).ToArray)
+            Case "Fruits"
+                File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\Fruits.kin", Fruits)
+                File.WriteAllLines(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\KnowledgeInput\CurrentFruits.kin", lst_Guessed.Items.Cast(Of String).ToArray)
         End Select
     End Sub
 End Class
\ No newline at end of file
diff --git a/ShiftOS-TheRevival/MainForms/DesktopEnvironment/master/Desktop.Designer.vb b/ShiftOS-TheRevival/MainForms/DesktopEnvironment/master/Desktop.Designer.vb
index cc9992e..333299b 100644
--- a/ShiftOS-TheRevival/MainForms/DesktopEnvironment/master/Desktop.Designer.vb
+++ b/ShiftOS-TheRevival/MainForms/DesktopEnvironment/master/Desktop.Designer.vb
@@ -23,29 +23,15 @@ Partial Class Desktop
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Me.Button1 = New System.Windows.Forms.Button()
         Me.DuWM = New System.Windows.Forms.Timer(Me.components)
         Me.SuspendLayout()
         '
-        'Button1
-        '
-        Me.Button1.BackColor = System.Drawing.Color.Black
-        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.Location = New System.Drawing.Point(12, 12)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(75, 23)
-        Me.Button1.TabIndex = 0
-        Me.Button1.Text = "term"
-        Me.Button1.UseVisualStyleBackColor = False
-        Me.Button1.Visible = False
-        '
         'Desktop
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer))
+        Me.BackColor = System.Drawing.Color.Black
         Me.ClientSize = New System.Drawing.Size(800, 450)
-        Me.Controls.Add(Me.Button1)
         Me.ForeColor = System.Drawing.Color.White
         Me.Name = "Desktop"
         Me.ShowIcon = False
@@ -56,7 +42,5 @@ Partial Class Desktop
         Me.ResumeLayout(False)
 
     End Sub
-
-    Friend WithEvents Button1 As Button
     Friend WithEvents DuWM As Timer
 End Class
diff --git a/ShiftOS-TheRevival/MainForms/DesktopEnvironment/master/Desktop.vb b/ShiftOS-TheRevival/MainForms/DesktopEnvironment/master/Desktop.vb
index dcfcf33..404f97a 100644
--- a/ShiftOS-TheRevival/MainForms/DesktopEnvironment/master/Desktop.vb
+++ b/ShiftOS-TheRevival/MainForms/DesktopEnvironment/master/Desktop.vb
@@ -10,7 +10,7 @@
         End If
     End Sub
 
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+    Private Sub Button1_Click(sender As Object, e As EventArgs) 
         'DuWM_FirstWindowSet(Console)
     End Sub
 End Class
\ No newline at end of file
diff --git a/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_Main.vb b/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_Main.vb
index 4a65742..bfef5c7 100644
--- a/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_Main.vb
+++ b/ShiftOS-TheRevival/MainForms/WindowManager/DualWindowManager/DuWM_Main.vb
@@ -50,6 +50,7 @@
             NewWindow.ChildForm.FormBorderStyle = FormBorderStyle.None
             NewWindow.ChildForm.WindowState = FormWindowState.Normal
             NewWindow.ChildForm.Visible = False
+            NewWindow.Text = ProcessName.Text
             NewWindow.DuWM_ContainerPanel.Controls.Add(NewWindow.ChildForm)
             Select Case NewWindow.ChildForm.Visible
                 Case False
diff --git a/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj b/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj
index 567ed45..bbeeccb 100644
--- a/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj
+++ b/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj
@@ -117,6 +117,11 @@
     <Compile Include="MainForms\Applications\DuWM\Shifter\DuWM_Shifter.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="MainForms\Applications\Universal\Knowledge Input\Contents\KnowledgeInputContent.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>KnowledgeInputContent.resx</DependentUpon>
+    </Compile>
     <Compile Include="MainForms\Applications\Universal\Knowledge Input\Uni_KnowledgeInput.Designer.vb">
       <DependentUpon>Uni_KnowledgeInput.vb</DependentUpon>
     </Compile>
@@ -269,6 +274,11 @@
     <EmbeddedResource Include="MainForms\Applications\DuWM\Shifter\DuWM_Shifter.resx">
       <DependentUpon>DuWM_Shifter.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="MainForms\Applications\Universal\Knowledge Input\Contents\KnowledgeInputContent.resx">
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <Generator>ResXFileCodeGenerator</Generator>
+      <LastGenOutput>KnowledgeInputContent.Designer.vb</LastGenOutput>
+    </EmbeddedResource>
     <EmbeddedResource Include="MainForms\Applications\Universal\Knowledge Input\Uni_KnowledgeInput.resx">
       <DependentUpon>Uni_KnowledgeInput.vb</DependentUpon>
     </EmbeddedResource>
@@ -340,6 +350,9 @@
   </ItemGroup>
   <ItemGroup>
     <None Include="Resources\CurrentVersion.txt" />
+    <Content Include="MainForms\Applications\Universal\Knowledge Input\Contents\Animals.txt" />
+    <Content Include="MainForms\Applications\Universal\Knowledge Input\Contents\Countries.txt" />
+    <Content Include="MainForms\Applications\Universal\Knowledge Input\Contents\Fruits.txt" />
     <Content Include="MainForms\rev.txt" />
     <Content Include="Resources\man Manuals\zip.txt" />
     <Content Include="Resources\man Manuals\textpad.txt" />
diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb
index e688e9c..e7b22f1 100644
--- a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb
+++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_App.vb
@@ -7,9 +7,11 @@
             Case 1
                 Select Case AppName
                     Case "knowledge_input"
-                        DuWM_NewProcess(Uni_KnowledgeInput)
+                        If Strings.AvailableFeature(37) = 1 Then
+                            DuWM_NewProcess(Uni_KnowledgeInput)
+                        End If
                     Case "shifter"
-                        If Strings.AvailableFeature(36) = 0 Then
+                        If Strings.AvailableFeature(36) = 1 Then
                             DuWM_NewProcess(DuWM_Shifter)
                         End If
                 End Select