 
 		D.AllKeyboards := []
 		D.CurrentKind := ""
-		D.CurrentIndex := 1
+		D.KindIndex := {}
 
 		For I, K In KeyboardKinds
 		{

			ExitApp, 1
		}

		D.CurrentKeyboard := D.Keyboards[D.CurrentKind][D.CurrentIndex]
	}

	SetKeyboard(KeyboardsData[1].CurrentKeyboard)

			{
				D.CurrentKind := K
			}

			D.KindIndex[K] := 1
		}

		If (D.AllKeyboards.Length() = 0 Or Not D.CurrentKind)
