@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