50 lines
1.4 KiB
Batchfile
50 lines
1.4 KiB
Batchfile
@rem This file is only usable for Ascii DATA, NOT for Basic sources
|
|
@echo Dasc2Wav is running...
|
|
@rem open console,
|
|
@rem change to directory and start batch with "asc2wav FILENAM"
|
|
@rem FileToOpen needed: http://www.horstmuc.de/win/wfile.zip
|
|
|
|
@echo off
|
|
if not exist GetFName.cmd (
|
|
%~d0
|
|
cd %~dp0
|
|
)
|
|
call SHARPSET
|
|
set fnamex=.ASC
|
|
set fnamedp=%BASDIR%\
|
|
set fnamen=%1
|
|
set fnamef=%fnamedp%%fnamen%%fnamex%
|
|
|
|
Rem Note: Filenames with 1-7 characters are recommended!
|
|
if not exist %fnamef% call GetFName %fnamedp% "*%fnamex%;*.IMG;*.BAS;*.DAT" "%1"
|
|
if not exist %fnamef% (
|
|
echo Error: File %fnamef% does not exist! - Ctrl+C
|
|
goto end
|
|
)
|
|
|
|
set fnamenS=%fnamen:~0,7%
|
|
set sharpc1=%SHARPC:~0,1%
|
|
set sharpc2=%SHARPC:~0,2%
|
|
if "%sharpc1%" == "E" set fnamenS=%fnamen:~0,8%
|
|
if "%sharpc2%" == "G8" set fnamenS=%fnamen:~0,8%
|
|
if "%sharpc2%" == "15" set fnamenS=%fnamen:~0,8%
|
|
if "%sharpc2%" == "16" set fnamenS=%fnamen:~0,8%
|
|
if not "%fnamenS%" == "%fnamen%" (
|
|
echo Note: Filename with less characters is recommended!
|
|
rem goto end
|
|
)
|
|
set sharpc1=
|
|
set sharpc2=
|
|
rem @echo on
|
|
bin2wav --type=asc --pc=%SHARPC% --name=%fnamenS% %fnamef% %WAVDIR%\%fnamen%.wav -l 0x40 %2 %3
|
|
@echo off
|
|
Rem -l 0x40 convert stings -l 0x50 --sync=3
|
|
if errorlevel 1 goto end
|
|
|
|
echo.
|
|
echo Switch to Run Mode and start INPUT# (device CAS:) and press a key...
|
|
pause
|
|
start %WAVDIR%\%fnamen%.wav
|
|
goto :EOF
|
|
:end
|
|
pause |