From cc36c6c1daf99764dbf4039b8b29b1e34c683153 Mon Sep 17 00:00:00 2001
From: Jose Alberto Guerra Ugalde <cheveguerra@gmail.com>
Date: Sat, 20 Dec 2025 00:11:24 -0600
Subject: [PATCH] Version 5.12.15.test

---
 B4A/_juntaBas.bat | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 B4A/_juntaBas.bat

diff --git a/B4A/_juntaBas.bat b/B4A/_juntaBas.bat
new file mode 100644
index 0000000..4e4d4f5
--- /dev/null
+++ b/B4A/_juntaBas.bat
@@ -0,0 +1,29 @@
+@echo off
+setlocal EnableDelayedExpansion
+
+:: Nombre del archivo de salida
+set "OutputFile=TODOS_LOS_BAS.txt"
+
+:: Si existe una versión anterior, la elimina para no anexar datos duplicados
+if exist "!OutputFile!" del "!OutputFile!"
+
+echo Iniciando proceso de fusion...
+
+:: Itera sobre todos los archivos .bas en el directorio actual
+for %%F in (*.bas *.b4a *.b4j) do (
+    echo Procesando: %%F
+    
+    :: Agrega un salto de linea y el encabezado al archivo de salida
+    echo. >> "!OutputFile!"
+    echo ====================================== >> "!OutputFile!"
+    echo ARCHIVO: %%F >> "!OutputFile!"
+    echo ====================================== >> "!OutputFile!"
+    echo. >> "!OutputFile!"
+    
+    :: Vuelca el contenido del archivo actual al archivo de salida
+    type "%%F" >> "!OutputFile!"
+)
+
+echo.
+echo Proceso terminado. Se ha creado el archivo: !OutputFile!
+pause
\ No newline at end of file