Sub FixAppIni()
        Dim AppIni As New PrivateIniFile("c:\iris\ini\appini.ini")

        AppIni.WriteString("Pos", "RegNum", CStrNull(99))
        AppIni.DeleteKey("Pos", "CfgConcept")
        AppIni.DeleteSection("KITCHEN_SCHEMES")
        AppIni.DeleteSection("Printer_SCHEMES")
        AppIni.WriteString("Printer_SCHEMES", "1", "Default")
        If PosMaint.IsHVMonitors Then
            AppIni.WriteString("KITCHEN_SCHEMES", "1", "Low Volume")
            AppIni.WriteString("KITCHEN_SCHEMES", "2", "High Volume")
            If PosMaint.MonitorsDefinedList.Contains("Grill3") Then
                AppIni.WriteString("KITCHEN_SCHEMES", "3", "OverDrive")
            End If
            'AppIni.WriteString("KITCHEN_SCHEMES", "3", "Backup")
        Else
            AppIni.WriteString("KITCHEN_SCHEMES", "1", "Default")
        End If
        For xLoop As Integer = 0 To PosMaint.RegisterInformations.Count - 1
            Dim RegInfo As RegInfo = PosMaint.RegisterInformations(xLoop)
            AppIni.SetFileName("c:\iris\reginfo\Reg" & RegInfo.RegisterNumber & "\ini\appini.ini")
            AppIni.DeleteSection("KITCHEN_SCHEMES")
            AppIni.DeleteSection("Printer_SCHEMES")
            AppIni.WriteString("Printer_SCHEMES", "1", "Default")
            If PosMaint.IsHVMonitors Then
                AppIni.WriteString("KITCHEN_SCHEMES", "1", "Low Volume")
                AppIni.WriteString("KITCHEN_SCHEMES", "2", "High Volume")
                If PosMaint.HasGrill3Monitor Then
                    AppIni.WriteString("KITCHEN_SCHEMES", "3", "Overdrive")
                End If
                'AppIni.WriteString("KITCHEN_SCHEMES", "3", "Backup")
            Else
                AppIni.WriteString("KITCHEN_SCHEMES", "1", "Default")
            End If
            AppIni.WriteInteger("Pos", "RegNum", RegInfo.RegisterNumber)
            AppIni.WriteString("Pos", "BRRegType", RegInfo.DefaultConcept.ToString)
            If RegInfo.DefaultConcept = eDefaultConcept.Fountain Then
                AppIni.WriteString("Pos", "QuickOrder", "1")
            Else
                AppIni.WriteString("Pos", "QuickOrder", "0")
            End If
        Next
        AppIni = Nothing
    End Sub