Mein PC "lacht mich aus"!

REM W-Disk_01/09_07.06.2000/MOR-(c)..bm-magic..Wariablen Setzen
@BE %WORK%\MASK0.TXT
@ECHO OFF
@FOR %%a IN (QHV ZLW ZDIR UVA UVB QDAT) DO SET %%a=
@REM -?- ZielLaufWerk fuer MKHEU setzen
@SET zlw=D:\
@REM -?- ZielUntenVerzeichnis fuer CNF setzen
@SET zdir=CNF
@REM -?- QuelleHauptVerzeichnis setzen
@SET QHV=P:
@REM 0 QuelleHauptVerzeichnis definieren
@IF EXIST c:\bat\version.bat call c:\bat\version
@IF EXIST %QHV%\nul subst %QHV% /d
@SUBST %QHV% c:\%VERSION%
@REM 0 Tagesverzeichnis erstellen
@Qbasic /RUN %WORK%\mkheu.bas
@REM  0 Tagesverzeichniss fuer CNF, Repport und Trace setzen
@CALL %ZLW%setheu.bat
@DEL %ZLW%setheu.bat
@REM 0 QuelleArbeitsVerzeichnis definieren
@Qbasic /RUN %WORK%\lsy.bas
@CALL %HEU%\setlsy.bat
@DEL %HEU%\lsy.txt
@DEL %HEU%\setlsy.bat
@REM 0 QuelleUntenVerzeichnise fuer CNF definieren
@SET UVA=\CNFG
@SET UVB=\PCNFG
@REM 0 DateiTyp fuer CNF definieren
@SET qdat=\*.txt

REM W-Disk_02/03_13.07.2013/MOR-(c)..bm-magic.."Heute" Erstellung  
DEFINT A-F
DEFSTR G-Z
DIM bef AS STRING
DIM dir AS STRING
zlw = ENVIRON$("ZLW")  
heu = RIGHT$(DATE$, 4) + LEFT$(DATE$, 2) + MID$(DATE$, 4, 2)
ziel = zlw + heu
sdir = zlw
such = heu
SHELL "DIR " + sdir + " /B /A:D > " + zlw + "dir.txt"  
OPEN zlw + "dir.txt" FOR INPUT AS #1  
found = 0
WHILE (NOT EOF(1) AND found = 0)
 LINE INPUT #1, a$
 fpos = INSTR((a$), (such))
 IF (fpos > 0) THEN found = 1
WEND
CLOSE #1
IF (found = 0) THEN rueck = "nicht": fpos = 0 ELSE rueck = a$  
'PRINT "Im Pfad "; sdir; " wurde "; such; " als "; rueck; " gefunden."  
IF sdir = zlw AND found = 0 THEN MKDIR zlw + heu:
KILL zlw + "dir.txt"  
OPEN zlw + "setheu.bat" FOR OUTPUT AS #1  
PRINT #1, "SET HEU="; ziel  
CLOSE #1
SYSTEM

REM W-Disk_03/09_07.06.2000/MOR-(c)..bm-magic..CNF Aufruf
@ECHO OFF
@REM  1 CNF nach Tagesverzeichniss\CNF kopieren
Qbasic /RUN %WORK%\cnf.bas
@REM 2 Ergebniss anzeigen
IF %DE%==ON GOTO ENDE
@BE %WORK%\MASK0.TXT
@BE %WORK%\CNFF.TXT
:ENDE

REM W-Disk_03/03_13.07.2013/MOR-(c)..bm-magic..CNF Erstellung
DEFINT A-F
DEFSTR G-Z
DIM bef AS STRING
DIM dir AS STRING
zlw = ENVIRON$("ZLW")  
qpfad = ENVIRON$("QHV") + ENVIRON$("LSYS")  
heu = ENVIRON$("HEU")  
zdir = ENVIRON$("ZDIR")  
zver = heu + "\" + zdir  
qdat = ENVIRON$("QDAT")  
qtext = heu + "\quelle.txt"  
ztext = heu + "\ziel.txt"  
a = 0
b = 0
fh = FREEFILE
sdir = heu
such = zdir
CLS
GOSUB find

fdir:
sdir = heu
such = zdir
IF sdir = heu AND fpos = 0 THEN GOSUB mdir:
RETURN find

mdir:
MKDIR heu + "\" + zdir  
RETURN find

find:
IF sdir = heu AND rueck = zdir THEN KILL zlw + "dir.txt"  
IF sdir = heu AND rueck = zdir THEN GOTO main
SHELL "DIR " + sdir + " /B /A:D > " + zlw + "dir.txt"  
OPEN zlw + "dir.txt" FOR INPUT AS #1  
found = 0
WHILE (NOT EOF(1) AND found = 0)
 LINE INPUT #1, a$
 fpos = INSTR((a$), (such))
 IF (fpos > 0) THEN found = 1
WEND
CLOSE #1
IF (found = 0) THEN rueck = "nicht": fpos = 0 ELSE rueck = a$  
'PRINT "Im Pfad "; sdir; " wurde "; such; " als "; rueck; " gefunden."  
IF sdir = zlw AND found = 0 THEN GOSUB fdir:  ELSE GOSUB fdir
RETURN

main:
qver = ENVIRON$("UVA")  
que = qpfad + qver + qdat
COLOR 10, 0
PRINT "   1. Quelle ist: "; que  
SHELL "DIR " + que + " /W /B /S >" + qtext  
qver = ENVIRON$("UVB")  
que = qpfad + qver + qdat
COLOR 10, 0
PRINT "   2. Quelle ist: "; que  
SHELL "DIR " + que + " /W /B /S >>" + qtext  
COLOR 15
PRINT "   Das Ziel ist: "; zver  
COLOR 0, 7
PRINT "                 ACHTUNG!                            "  
PRINT "     Gleichnamige Dateien werden ueberschrieben!     "  
PRINT "     Mit der richtigen Rheienfolge der Quellen,      "  
PRINT "     kann man die richtige Datei behalten!           "  
PRINT "                **********                           "  
SLEEP 4
COLOR 7, 0
CLS
OPEN qtext FOR INPUT AS #1 'QuellTextdatei oeffnen  
DO UNTIL EOF(1)
LINE INPUT #1, text
bef = "COPY " + text + " " + zver  
COLOR 14, 0
a = a + 1
PRINT "Nun wird "; a; "Datei kopiert: "; bef  
OPEN ztext FOR APPEND AS #2 'ZielTextdatei oeffnen 
PRINT #2, a; bef
CLOSE #2
SHELL bef
LOOP
CLOSE #1
SHELL "DIR " + zver + " /W /B /S > " + ztext  
OPEN ztext FOR INPUT AS #fh 'Zielberichtdatei oeffnen 
DO UNTIL EOF(fh)
LINE INPUT #fh, text
b = b + 1
LOOP
CLOSE #fh
IF a - b > 0 THEN
COLOR 12, 0
PRINT " Es wurden "; a - b; "Dateien ueberschrieben."  
SHELL "FC " + qtext + " " + ztext + " > " + heu + "\bericht.txt"  
PRINT " Vergleiche "; heu; "\bericht.txt"  
SHELL "TYPE " + heu + "\bericht.txt |more"  
SLEEP 3
GOTO kil
END IF
IF a = b THEN
PRINT "   Es wurden "; b; "Dateien erfolgreich kopiert."  
END IF
PRINT "   Sollen die Berichte geloescht werden <j> /\ <n> & <CR>";  
INPUT loes
SELECT CASE loes
 CASE "j"  
  COLOR 12, 0
  PRINT "   Wirklich <j> /\ <n> & <CR>";  
  COLOR 14, 0
  INPUT wir
  SELECT CASE wir
   CASE "j"  
    GOTO kil
    END
   CASE "n"  
    GOTO ber
    END
  END SELECT
 CASE "n"  
ber:
  PRINT "   Die Berichte wurden aufgehoben."  
  COLOR 7, 0
  GOTO ende
  END
END SELECT
kil:
KILL qtext
KILL ztext
COLOR 7, 0
ende:
SYSTEM

:CNF    1 Konfiguration im TagOrdner gesichert

:CNF
@REM 1 Konfiguration im TagOrdner gesichert

 ACHTUNG!  Wurde gelöscht, weil man es, laut @rubberman nicht wiederherstellen kann. SCHADE :-( 

COLOR 7, 0

SLEEP 6
SYSTEM

fh = FREEFILE

Z.B. könnte versucht worden sein, die SWAP-Anweisung auf eine Zeichenkettenvariable und eine numerische Variable anzuwenden, oder auf zwei numerische Variablen unterschiechen Datentyps. ERR-Code: 13 

Sollen die Berichte geloescht werden <