diff --git a/archinstall/chrootinstall.sh b/archinstall/chrootinstall.sh
index 970cab5..b7cf6fd 100755
--- a/archinstall/chrootinstall.sh
+++ b/archinstall/chrootinstall.sh
@@ -134,131 +134,84 @@ pacman -S xf86-video-vesa mesa-libgl --noconfirm
 function programasguiuser {
 clear
 mostrardialog "Leer" "Ahora se le presenta la opcion de elegir que programas quieres que sean instalados, cosa que recomendamos, aunque, dejamos tambien una opcion rapida, que instalara lo basico y recomendado desde nuestro punto de vista."
+#Seleccion de programas predeterminados
+opt1="1 6"
+opt2="1 5"
+opt3="1"
+opt5="1"
+mostrardialog "Leer" "Ahora se le presenta la opcion de elegir que programas quieres que sean instalados, cosa que recomendamos, aunque, dejamos tambien una opcion rapida, que instalara lo basico y recomendado desde nuestro punto de vista."
 tipoinstall=`dialog --stdout --nocancel --menu "¿Elegir los programas que quiere?" 0 0 5 1 "Si, elegir (Muy recomendado)" 2 "No, opcion rapida (No recomendado)"`
 case $tipoinstall in
-	1) 
-		# Instalación personalizada de los programas
-		mostrardialog "Leer" "Ahora podras elegir los programas pasando por varias categorias. Puede seleccionar 'cancelar' en cualquier apartado para no instalar ninguno \n \n Se seleccionan o des seleccionan con la tecla espacio, y con el enter se acepta la seleccion"
-
-		##Navegadores
-		opt=`dialog --stdout --checklist "¿Que navegador web quieres?" 0 0 6 1 "Firefox" on 2 "Chrome" off 3 "Chromium" off 4 "Opera" off 5 "Otter Browser" off 6 "Soporte Flash Player" on`
-
-		case $opt in
-			*1*)
-				packages="firefox";;&
-			*2*) 
-				packages="$packages google-chrome";;&
-			*3*)
-				packages="$packages chromium";;&
-			*4*)
-				packages="$packages opera";;&
-			*5*)
-				packages="$packages otter-browser";;&
-			*6*)
-				packages="$packages flashplugin";;&
+	1)
+		until [[ $surep -eq 1 ]]
+		do
+		optprogramas=`dialog --stdout --nocancel --scrollbar --menu "Categorías" 0 0 7 1 "Navegadores web" 2 "Editores de texto y Office" 3 "Audio y Video" 4 "Imagen" 5 "Fuentes/Tipos de letra" 6 "Utilidades varias" I "Instalar"`
+		#Menu con cada una de las categorias
+		case $optprogramas in
+			1)	opt1=`dialog --stdout --checklist "Anterior selección: $(echo $opt1)" 0 0 6 1 "Firefox" on 2 "Chrome" off 3 "Chromium" off 4 "Opera" off 5 "Otter Browser" off 6 "Soporte Flash Player" on`;;
+			2)	opt2=`dialog --stdout --scrollbar --checklist "Anterior selección: $(echo $opt2)" 0 0 7 1 "Libreoffice (Recomendado)" on 2 "AbiWord" off 3 "Gnumeric" off 4 "WPS Office" off 5 "leafpad (Bloc de notas)" on 6 "gedit" off 7 "notepadqq" off`;;
+			3)	opt3=`dialog --stdout --checklist "Anterior selección: $(echo $opt3)" 0 0 6 1 "VLC (Recomendado)" on 2 "SMPlayer" off 3 "Totem" off 4 "Clementine" off 5 "Banshee" off`;;
+			4)	opt4=`dialog --stdout --checklist "Anterior selección: $(echo $opt4)" 0 0 6 1 "GIMP" off 2 "Inkscape" off 3 "Pinta" off`;;
+			5)	opt5=`dialog --stdout --checklist "Anterior selección: $(echo $opt5)" 0 0 6 1 "noto-fonts (Muy recomendado)" on 2 "Microsoft Fonts" off 3 "Recopilatorio de fuentes de Google (mas de 300)" off`;;
+			6)	opt6=`dialog --stdout --scrollbar --checklist "Anterior selección: $(echo $opt2)" 0 0 8 1 "Dropbox" off 2 "MEGA" off 3 "Visor de correo Evolution" off 4 "Grabador de discos (k3b)" off 5 "Java (jre8)" off 6 "Wine ('Emulador' de programas de Windows)" off 7 "BleachBit (Limpiador de disco duro)" off`;;
+			"I")
+				#Instalar
+				surep=1
+				break;;
 		esac
-		pacman -S $packages --noconfirm
-		packages=""
-		
-		##Editores de texto/Office
-		opt=`dialog --stdout --scrollbar --checklist "¿Editores de texto y/o office?" 0 0 6 1 "Libreoffice (Recomendado)" on 2 "AbiWord" off 3 "Gnumeric" off 4 "WPS Office" off 5 "leafpad (Bloc de notas)" on 6 "gedit" off 7 "notepadqq" off`
-
-		case $opt in
-			*1*)
-				packages="libreoffice-fresh";;&
-			*2*) 
-				packages="$packages abiword";;&
-			*3*)
-				packages="$packages gnumeric";;&
-			*4*)
-				packages="$packages wps-office";;&
-			*5*)
-				packages="$packages leafpad";;&
-			*6*)
-				packages="$packages gedit";;&
-			*7*)
-				packages="$packages notepadqq";;&
-		esac
-		pacman -S $packages --noconfirm
-		packages=""
-		
-		##Audio y video
-		opt=`dialog --stdout --checklist "Audio y Video" 0 0 6 1 "VLC (Recomendado)" on 2 "SMPlayer" off 3 "Totem" off 4 "Clementine" off 5 "Banshee" off`
-
-		case $opt in
-			*1*)
-				packages="vlc qt4";;&
-			*2*) 
-				packages="$packages smplayer";;&
-			*3*)
-				packages="$packages totem";;&
-			*4*)
-				packages="$packages clementine";;&
-			*5*)
-				packages="$packages banshee";;&
-		esac
-		pacman -S $packages --noconfirm
-		packages=""
-		
-		##Imagen
-		opt=`dialog --stdout --checklist "Imagen" 0 0 6 1 "GIMP" off 2 "Inkscape" off 3 "Pinta" off`
-
-		case $opt in
-			*1*)
-				packages="gimp";;&
-			*2*) 
-				packages="$packages inkscape";;&
-			*3*)
-				packages="$packages pinta";;&
-		esac
-		pacman -S $packages --noconfirm
-		packages=""
-
-		##Fuentes del sistema
-		opt=`dialog --stdout --checklist "Fuentes/Tipos de letra" 0 0 6 1 "noto-fonts (Muy recomendado)" on 2 "Microsoft Fonts" off 3 "Recopilatorio de fuentes de Google (mas de 300)" off`
-
-		case $opt in
-			*1*)
-				packages="noto-fonts";;&
-			*2*) 
-				packages="$packages ttf-ms-fonts";;&
-			*3*)
-				packages="$packages ttf-google-fonts-git";;&
-		esac
-		pacman -S $packages --noconfirm
-		packages=""
-
-		##Utilidades varias
-		opt=`dialog --stdout --checklist "Utilidades varias" 0 0 8 1 "Dropbox" off 2 "MEGA" off 3 "Visor de correo Evolution" off 4 "Grabador de discos (k3b)" off 5 "Java (jre8)" off 6 "Wine ('Emulador' de programas de Windows)" off 7 "BleachBit (Limpiador de disco duro)" off`
-
-		case $opt in
-			*1*)
-				packages="dropbox";;&
-			*2*) 
-				packages="$packages megasync";;&
-			*3*)
-				packages="$packages geary";;&
-			*4*)
-				packages="$packages k3b";;&
-			*5*)
-				packages="$packages jre8-openjdk";;&
-			*6*)
-				packages="$packages wine-staging wine_gecko winetricks"
-				inswine=1
-				;;&
-			*7*)
-				packages="$packages bleachbit";;&
-		esac
-		pacman -S $packages --noconfirm
-		if [[ $inswine = 1 ]];then
-			su $nameuser -c "WINEARCH=win32 wineboot -u"
-		fi
-		packages=""
-		##Fin de la personalizacion
+		done
 		;;
-	2)
-		pacman -S firefox flashplugin vlc qt4 libreoffice-fresh leafpad noto-fonts --noconfirm ;;
+	2)	mostrardialog "Programas predeterminados" "Ahora se van a instalar los programas predeterminados, espere"
 esac
+case $opt1 in
+	*1*)	packages="firefox";;&
+	*2*)	packages="$packages google-chrome";;&
+	*3*)	packages="$packages chromium";;&
+	*4*)	packages="$packages opera";;&
+	*5*)	packages="$packages otter-browser";;&
+	*6*)	packages="$packages flashplugin";;&
+esac
+case $opt2 in
+	*1*)	packages="$packages libreoffice-fresh";;&
+	*2*)	packages="$packages abiword";;&
+	*3*)	packages="$packages gnumeric";;&
+	*4*)	packages="$packages wps-office";;&
+	*5*)	packages="$packages leafpad";;&
+	*6*)	packages="$packages gedit";;&
+	*7*)	packages="$packages notepadqq";;&
+esac
+case $opt3 in
+	*1*)	packages="$packages vlc qt4";;&
+	*2*)	packages="$packages smplayer";;&
+	*3*)	packages="$packages totem";;&
+	*4*)	packages="$packages clementine";;&
+	*5*)	packages="$packages banshee";;&
+esac
+case $opt4 in
+	*1*)	packages="$packages gimp";;&
+	*2*)	packages="$packages inkscape";;&
+	*3*)	packages="$packages pinta";;&
+esac
+case $opt5 in
+	*1*)	packages="$packages noto-fonts";;&
+	*2*)	packages="$packages ttf-ms-fonts";;&
+	*3*)	packages="$packages ttf-google-fonts-git";;&
+esac
+case $opt6 in
+	*1*)	packages="$packages dropbox";;&
+	*2*)	packages="$packages megasync";;&
+	*3*)	packages="$packages geary";;&
+	*4*)	packages="$packages k3b";;&
+	*5*)	packages="$packages jre8-openjdk";;&
+	*6*)	packages="$packages wine-staging wine_gecko winetricks"
+		inswine=1;;&
+	*7*)	packages="$packages bleachbit";;&
+esac
+pacman -S $packages --noconfirm
+if [[ $inswine = 1 ]];then
+	su $nameuser -c "WINEARCH=win32 wineboot -u"
+fi
+packages=""
 }
 
 function baseconX {