@echo off if "%1"=="/?" goto @intro if not "%1"=="" goto %1 call %0 @intro if exist L01.WAV goto @ec echo FEHLER: Das aktuelle Verzeichnis enthlt nicht die auszugebenden .WAV-Dateien! echo Sie mssen diese .BAT mit dem entsprechenden CD-Verzeichnis als aktuelles echo Verzeichnis (fern-)starten, z.B. mit COPYCASS.BAT auf C:, CD-Laufwerk=D: echo d: echo cd \buchtext\wav echo c:copycass goto exi2 :@ec set check=abcdefghijklmnopqrstuvwxyz123456789 if "%check%"=="abcdefghijklmnopqrstuvwxyz123456789" goto env_ok if "%1"=="@ec" goto enverr echo HINWEIS: Ignorieren Sie diese Fehlermeldung. echo. %comspec% /E:2048 /C %0 @ec goto exi :enverr echo FEHLER: Umgebungsspeicher reicht immer noch nicht aus! echo Verndern Sie die Gre in der .PIF-Datei, echo oder modifizieren Sie diese .BAT (suche nach /E:2048)! echo. pause goto exi :env_ok set check= choice /C:DWN "Fr DOS(=Win3.x), Windows9x oder Windows NT " if errorlevel 3 goto winnt if errorlevel 2 goto win9x :dos if not "%blaster%"=="" goto blaster_ok echo WARNUNG: Die BLASTER-Umgebungsvariable ist nicht gesetzt. echo Ist die Soundkarte oder Emulation trotzdem vorhanden, wird das Programm echo funktionieren, jedoch evtl. jede .WAV-Datei mit einem krftigen Knacken echo beginnen (entstehend durch die Auto-Detect-Routine in SAMPLE.EXE). echo choice "Fortsetzen " if errorlevel 2 goto exi goto no_blaster_ok :blaster_ok echo. echo Fein: Ihre BLASTER-Einstellung: "%blaster%". :no_blaster_ok echo WARNUNG: Drcken Sie whrend der Wiedergabe keine Tasten, und echo BETTIGEN SIE NIEMALS STRG+PAUSE, sonst harte Bruchlandung (ist noch ein Bug) set wavo=SAMPLE.EXE goto querycass :winnt rem Windows NT hat kein START.EXE und wartet sowieso auf das Ende set wavo=MPLAYER.EXE /play /close goto win :win9x rem bei Windows 9x mu das Warten auf das Ende mittels START.EXE erreicht werden set wavo=START /m /wait MPLAYER.EXE /play /close :win echo Achten Sie darauf, da die DOS-Box auch im Hintergrund Rechenzeit erhlt, echo und da Sie die Medien-Wiedergabe nicht beeinflussen! :querycass echo. echo Ŀ echo Die Gesamtspielzeit betrgt 4 Stunden = 270 Minuten. echo Sie knnen whlen zwischen 5 C60- oder 3 C90-Kassetten. echo Bei C60 wird die letzte Kassette nur zu einer Seite bespielt. echo echo Das Programm wird eine Kassettenseite komplett ausgeben und - echo nachdem Sie die Kassette gewendet bzw. gewechselt haben - auf echo Tastendruck danach mit dem nchsten Block weitermachen. echo echo Als Vorsehung von Computerpannen knnen Sie auch bei einer echo beliebigen Kassette(nseite) beginnen bzw. fortsetzen. echo choice /C:69 "C60- oder C90-Kassetten " if errorlevel 1 set cass=C60 if errorlevel 2 set cass=C90 goto Start_%cass% :Start_C60 choice /C:12345 "Mit welcher Kassette beginnen " goto Start_CXX :Start_C90 choice /C:123 "Mit welcher Kassette beginnen " goto Start_CXX :Start_CXX if errorlevel 1 set snum=1 if errorlevel 2 set snum=2 if errorlevel 3 set snum=3 if errorlevel 4 set snum=4 if errorlevel 5 set snum=5A if %snum%==5A goto NoQuerySide choice /C:AB "Welche Seite " if errorlevel 1 set next=A if errorlevel 2 set next=B set snum=%snum%%next% :NoQuerySide echo. echo ZUR KONTROLLE: Kassettentyp %cass%, Start mit Kassettenseite %snum% echo Ausgabekommando %wavo% echo. :nextside echo Kassettenrecorder starten, nach ca. 3 Sekunden... pause goto %cass%_%snum% :C60_1A set fstr=01 02_1 02_2 03_1 03_2 04_1 04_2 05_1 05_2 06_1 06_2 07_1 set next=1B goto oneside :C60_1B set fstr=07_2 08_1 08_2 09_1 09_2 10_1 10_2 11_1 11_2 12_1 12_2 set next=2A goto oneside :C60_2A set fstr=13_1 13_2 14_1 14_2 15_1 15_2 16_1 16_2 17_1 17_2 set next=2B goto oneside :C60_2B set fstr=18_1 18_2 19_1 19_2 20_1 20_2 21_1 21_2 set next=3A goto oneside :C60_3A set fstr=22_1 22_2 23_1 23_2 24_1 24_2 25_1 25_2 set next=3B goto oneside :C60_3B set fstr=26_1 26_2 27_1 27_2 28_1 28_2 29_1 29_2 30_1 set next=4A goto oneside :C60_4A set fstr=30_2 31_1 31_2 32_1 32_2 33_1 33_2 34_1 set next=4B goto oneside :C60_4B set fstr=34_2 35_1 35_2 36_1 36_2 37_1 37_2 38_1 set next=5A goto oneside :C60_5A set fstr=38_2 39_1 39_2 40_1 40_2 41 41D1 41D2 41D3 set next= goto oneside :C90_1A set fstr=01 02_1 02_2 03_1 03_2 04_1 04_2 05_1 05_2 06_1 06_2 07_1 07_2 08_1 08_2 09_1 09_2 10_1 set next=1B goto oneside :C90_1B set fstr=10_2 11_1 11_2 12_1 12_2 13_1 13_2 14_1 14_2 15_1 15_2 16_1 16_2 17_1 set next=2A goto oneside :C90_2A set fstr=17_2 18_1 18_2 19_1 19_2 20_1 20_2 21_1 21_2 22_1 22_2 23_1 set next=2B goto oneside :C90_2B set fstr=23_2 24_1 24_2 25_1 25_2 26_1 26_2 27_1 27_2 28_1 28_2 29_1 29_2 set next=3A goto oneside :C90_3A set fstr=30_1 30_2 31_1 31_2 32_1 32_3 33_1 33_2 34_1 34_2 35_1 35_2 36_1 set next=3B goto oneside :C90_3B set fstr=36_2 37_1 37_2 38_1 38_2 39_1 39_2 40_1 40_2 41 41D1 41D2 41D3 set next= goto oneside :oneside rem wegen Kommandozeilen-Lnge rekursiver Aufruf for %%i in (%fstr%) do call %0 @@ %%i if "%next%"=="" goto exi set snum=%next% echo. choice "FORTSETZEN mit Kassettenseite %snum% " if errorlevel 2 goto exi goto nextside :@@ @echo on %wavo% L%2.WAV @echo off goto exi2 :@intro echo ͻ echo WAV-Dateien auf Kassetten kopieren echo fr DOS und SoundBlaster(-emulation) echo oder Win9x/NT und Medienwiedergabe echo haftmann#software 04/2000 echo ͼ goto exi2 :exi set check= set wavo= set cass= set snum= set fstr= set next= :exi2