XP CMD-Box RAM/Speicherüberlauf

@echo off
SETLOCAL ENABLEDELAYEDEXPANSION

set Ctry=AA
set Ctry0=%Ctry:~0,1%
set Proj=ABCD EFGH IJKL MNOP QRST  ## das ist statisch, aber damit kann ich leben
## Faulheitsgrund ist, dass ich diese Proj…ekte 2x brauche, daher Variable für Schleife

i:
cd \Ordner
call :Gestern ## das Datum ist wichtiger als die Proj's
set Datum=%MonatG%%TagG%
echo.
if %1! == /?! goto Syntax
if %1! == c! goto CPFR
if %1! == C! goto CPFR
if not %1! == ! (
 set Datum=%1
)

rem Diskrepanz Choice.Com (32bit) und Choice.Exe (64bit)
echo ANSAGE %Ctry0%, %Datum% zusammenkopieren? (J/N - N in 5s)
choice /c:jn /n /t:n,5 
if errorlevel 2 goto Machen
goto CPFR

:Machen
echo COPY ProdDum.sve ProdDay.spl
copy proddumm.sve prodday.spl
ton 2000,10 ## eben dafür brauch ich diese Pieps-Anwendung! (Selbetgemachte EXE aus QBasic {hüstel…})
pause ## manchmal ist dieses File auf de Server gelockt = Unfall. Wird in einer SubBatch verwendet, aber nur für schnödes COPY
for %%a in (%Proj%) do (
 set b=%%a
 set c=!b:~0,1!
 set /a d=!c!*1
 if !d! == 0 (
  set Bus=xx ## Bus ist der oben erwähnte Schalter 1,2,3 / 4,5
  ) else (
  set Bus=yy
 )
 call :SubBauen %%a
)
ton 3000,20
goto Ente

:CPFR
if not %2! == ! (
 set Datum=%2
)
set FREQ=freqdumm.txt ## …dummY…
for %%a in (%Proj%) do (
 set FREQ=!FREQ! + %%afreq.txt ## diese ›FREQ‹-Dateien sind es die erzeugt werden - oder eben nicht…
)
echo COPY %FREQ% %Ctry0%_fr%Datum%.txt
copy %FREQ% %Ctry0%_fr%Datum%.txt
copy ?_fr%Datum%.txt a_fr%Datum%.txt
move *_fr*.txt i:\Ordner2\freq\ ## hmmm… das i: ist eigentlich unnötig…
goto Ente

:SubBauen
echo SUBBATCH1 %Ctry% %Bus% %Datum% %~1 %JahrG% %Ctry%
call subbatch1 %Ctry% %Bus% %Datum% %~1 %JahrG% %Ctry%
echo DIR %~1freq.txt ## Sichtprüfung!
dir %~1freq.txt /b
ton 5000,10
echo Alles klar mit der FREQ-Datei? (J/N - Ja in 15s)
choice /c:jn /n /t:j,15
if errorlevel 2 goto Ente
goto :eof


::----------------------------------------  (kennt jemand einen kürzeren Trick in Batch..?)
:Gestern
if %date:~2,1% == . goto TMJ
::JJJJ-MM-TT
set Jahr0=%date:~0,4%
set Monat0=%date:~5,2%
set Tag0=%date:~8,2%
goto Aufbauen
:TMJ
::TT.MM.JJJJ
set Jahr0=%date:~6,4%
set Monat0=%date:~3,2%
set Tag0=%date:~0,2%

:Aufbauen
::Gestern aufbauen - für Gewaltmaßnahmen
::set JahrG=2009
::set MonatG=01
::set TagG=01
set JahrG=%Jahr0%
set MonatG=%Monat0%
set TagG=%Tag0%

::Heutiger Tag Minus 1 - Nullnummer?
set /a JahrX=TagG-1
if not %JahrX%!==-1! goto TagNull
set /a JahrX=%TagG:~1,1%-1

:TagNull
set TagG=%JahrX%
::Nur so ist der f³hrenden Null beizukommen:
set TagG=0%TagG%
set TagG=%TagG:~-2%
if not %TagG%==00 goto :eof

set /a JahrX=MonatG-1
if not %JahrX%!==-1! goto MonNull
set /a JahrX=%MonatG:~1,1%-1

:MonNull
::Heutiger Monat Minus 1...
set MonatG=%JahrX%
set MonatG=0%MonatG%
set MonatG=%MonatG:~-2%

::Verteilen nach Zahlen
if %MonatG%==00 goto Dez
if %MonatG%==04 goto DreiNull
if %MonatG%==06 goto DreiNull
if %MonatG%==09 goto DreiNull
if %MonatG%==11 goto DreiNull
if %MonatG%==02 goto Feb

set TagG=31
goto :eof

:Feb
set TagG=28
::ein wenig Pfusch
set /a JahrX=%JahrG%*10/4
::wir brauchen hier nur einen Test-Wert
if %Jahrx:~-1%==0 set TagG=29
goto :eof

:DreiNull
set TagG=30
goto :eof

:Dez
set /a JahrG=%JahrG%-1
set MonatG=12
set TagG=31
goto :eof
::----------------------------------------

:Syntax
echo.

[CUT]

:Ente
rem nötig für Ordnung ## oder auch nicht, zeigt aber den Variablenbedarf
ENDLOCAL
Set Proj=
Set Bus=
Set Ctry=
Set Ctry0=
Set FREQ=
Set Datum=
Set Jahr0=
Set Monat0=
set Tag0=
Set JahrG=
Set MonatG=
set TagG=
set JahrX=