home *** CD-ROM | disk | FTP | other *** search
- REM Installation der Sharewareversion
- ECHO Off
- CLS
-
- ECHO.
- ECHO ┌────────────────────────────────────────────────────────┐
- ECHO │ SCHWEDISCH FÜR DEUTSCHE -- Computersprachkurs │
- ECHO │ nichtregistrierte Sharewareversion │
- ECHO │ (C) 1993-1996 Gerster CALL-Systeme │
- ECHO ├────────────────────────────────────────────────────────┤
- ECHO │ INSTALLATIONSPROGRAMM ! │
- ECHO └────────────────────────────────────────────────────────┘
- ECHO.
-
- IF "%1" == "" GOTO KeineParameter
- IF "%2" == "" GOTO KeineParameter
-
- ECHO.
- ECHO Schwedisch für Deutsche wird installiert in
- ECHO.
- ECHO %1%2
- ECHO.
- ECHO Wenn das Okay ist, drücken Sie Return.
- ECHO Ansonsten brechen Sie jetzt ab mit (CTRL)+(C)
- ECHO.
- PAUSE > NUL
- GOTO laufwerk
-
- :KeineParameter
- CLS
- ECHO.
- ECHO Die Parameter sind unvollständig. So sollte es aussehen:
- ECHO.
- ECHO INSTALL Laufwerk: \Pfad
- ECHO.
- ECHO Also zum Beispiel:
- ECHO.
- ECHO INSTALL D: \SCHWEDEN
- ECHO.
- ECHO Der Doppelpunkt und der Backslash(\) sind wichtig!
- ECHO.
- ECHO Aber noch ist nicht alles verloren:
- ECHO Wenn Sie möchten, daß die Lernsoftware im Standardverzeichnis
- ECHO.
- ECHO C:\SCHWEDEN
- ECHO.
- ECHO installiert wird, drücken Sie jetzt einfach Return.
- ECHO Ansonsten brechen Sie jetzt ab mit (CTRL)+(C) und
- ECHO rufen INSTALL erneut auf.
- ECHO.
- PAUSE > NUL
- %0 C: \SCHWEDEN
- exit
-
- :laufwerk
- IF NOT EXIST %1%2\DGSD.exe MD %1%2 > NUL
- CD > %1%2\lwtest
- IF NOT EXIST %1%2\lwtest GOTO FalscheParameter
- DEL %1%2\lwtest
-
- CLS
- ECHO.
- ECHO Die Dateien werden auf Ihre Festplatte kopiert...
- ECHO.
- COPY DGSD.PAK %1%2\DGSD_.EXE /v >NUL
- COPY YES.* %1%2 /v >NUL
- COPY *.txt %1%2 /v >NUL
- COPY *.doc %1%2 /v >NUL
-
- %1
- CD %2
-
- CLS
- ECHO.
- ECHO Die Dateien werden entpackt...
- ECHO.
- IF NOT EXIST %1%2\DGSD.DAT goto ENTPACK
- REM Konfigurationsdatei existiert bereits
- ECHO ==========================================================
- ECHO Eine Datei mit Ihren Lernfortschritten existiert bereits!
- ECHO Diese Datei wird in die neue Version übernommen.
- ECHO ==========================================================
- ECHO.
- pause
- RENAME DGSD.DAT !DGSDDAT!.OLD
- :ENTPACK
- DGSD_.EXE < yes.
- DEL DGSD_.EXE > NUL
-
- IF NOT EXIST %1%2\!DGSDDAT!.OLD goto ENTPACKVOCS
- DEL DGSD.DAT
- RENAME !DGSDDAT!.OLD DGSD.DAT
- REM Wenn Update, VOCS nicht noch einmal entpacken!
- DEL VOC!.PAK > NUL
- IF NOT EXIST %1%2\DGSD.DAT goto InstallFehler
- ECHO Schwedisch für Deutsche wurde korrekt upgedatet!
- goto Ende
-
- :ENTPACKVOCS
- MD VOC > nul
- COPY VOC!.PAK VOC\VOC!.EXE > NUL
- DEL VOC!.PAK > NUL
- CD VOC > nul
- VOC!.EXE
- DEL VOC!.EXE > NUL
- 001VOCS.EXE
- 002VOCS.EXE
- 003VOCS.EXE
- cd .. > nul
-
- CLS
- IF NOT EXIST %1%2\VOC\L1S1.VOC GOTO InstallFehler
- ECHO.
- ECHO Schwedisch für Deutsche wurde korrekt installiert.
- ECHO Um das Programm zu starten, geben Sie ein:
- ECHO.
- ECHO %1%2\DGSD.EXE
- ECHO.
- ECHO Zuvor sollten Sie aber noch die Datei README.DOC lesen.
- ECHO Das geht am einfachsten, indem Sie eingeben:
- ECHO.
- ECHO "TYPE README.DOC | MORE"
- ECHO.
- GOTO ende
-
- :InstallFehler
- ECHO.
- ECHO FEHLER BEI DER INSTALLATION!
- ECHO.
- ECHO Das Programm wurde nicht vollständig installiert.
- ECHO Bitte wiederholen Sie den Installationsvorgang.
- ECHO.
- PAUSE >NUL
- GOTO ende
-
-
- :FalscheParameter
- CLS
- ECHO.
- ECHO Bitte rufen Sie INSTALL mit zwei Parametern auf:
- ECHO INSTALL Laufwerk: \Pfad
- ECHO.
- ECHO Also zum Beispiel:
- ECHO INSTALL D: \SCHWEDEN
- ECHO Der Doppelpunkt und der Backslash(\) sind wichtig!
- ECHO.
- ECHO.
- ECHO Weiter mit beliebiger Taste ...
- PAUSE >NUL
- GOTO ende
-
- :ende
- ECHO ON