89 lines
1.9 KiB
Batchfile
89 lines
1.9 KiB
Batchfile
|
@echo Tap2Bas is running...
|
||
|
|
@rem open console, change to directory
|
||
|
|
@rem and start batch with "tap2bas FILENAM" (without .tap)
|
||
|
|
@rem FileToOpen needed: http://www.horstmuc.de/win/wfile.zip
|
||
|
|
@echo off
|
||
|
|
if not exist GetFName.cmd (
|
||
|
|
%~d0
|
||
|
|
cd %~dp0
|
||
|
|
)
|
||
|
|
call SHARPSET
|
||
|
|
set fnamex=.tap
|
||
|
|
set fnamedp=%TAPDIR%\
|
||
|
|
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%" "%1"
|
||
|
|
if not exist %fnamef% (
|
||
|
|
echo Error: File %fnamef% does not exist! - Ctrl+C
|
||
|
|
goto end
|
||
|
|
)
|
||
|
|
|
||
|
|
if errorlevel 1 goto error
|
||
|
|
rem pause
|
||
|
|
echo.
|
||
|
|
|
||
|
|
rem @echo on
|
||
|
|
wav2bin --type=bas --utf8=no --tap %fnamef% %BASDIR%\%fnamen%.BAS --pc=%SHARPC% -l 0x40 %2 %3
|
||
|
|
@echo off
|
||
|
|
rem --utf8=no 2asc %temp%\%fnamen%%fnamex% -l 0x840 -l 0xC0 -l 0x2001 -l 0x0400 -c 1.778 --pc=%SHARPC%
|
||
|
|
|
||
|
|
if errorlevel 1 goto error
|
||
|
|
|
||
|
|
echo ---------------------------------------------
|
||
|
|
echo.
|
||
|
|
echo Please read the messages above!
|
||
|
|
pause
|
||
|
|
|
||
|
|
|
||
|
|
start %EDITOR% %BASDIR%\%fnamen%.BAS
|
||
|
|
goto :EOF
|
||
|
|
|
||
|
|
:error
|
||
|
|
if errorlevel 10 goto E10
|
||
|
|
if errorlevel 9 goto E9
|
||
|
|
if errorlevel 8 goto E8
|
||
|
|
if errorlevel 7 goto E7
|
||
|
|
if errorlevel 6 goto E6
|
||
|
|
if errorlevel 5 goto E5
|
||
|
|
if errorlevel 4 goto E4
|
||
|
|
if errorlevel 3 goto E3
|
||
|
|
if errorlevel 2 goto E2
|
||
|
|
if errorlevel 1 goto E1
|
||
|
|
echo bad error value
|
||
|
|
goto end
|
||
|
|
|
||
|
|
:E10
|
||
|
|
echo To many minor errors found in the wave file!
|
||
|
|
echo Last error: %ERRORLEVEL%
|
||
|
|
goto end
|
||
|
|
:E9
|
||
|
|
echo Synchronisation not found or lost inside wave file!
|
||
|
|
goto end
|
||
|
|
:E8
|
||
|
|
echo Checksum error or unexpected end of file!
|
||
|
|
goto end
|
||
|
|
:E7
|
||
|
|
echo Format of the wave file or SHARP data is illegal!
|
||
|
|
goto end
|
||
|
|
:E6
|
||
|
|
echo Buffer/Memory overflow or to long lines!
|
||
|
|
goto end
|
||
|
|
:E5
|
||
|
|
echo File I/O-Error!
|
||
|
|
goto end
|
||
|
|
:E4
|
||
|
|
echo Invalid BASIC line numbers!
|
||
|
|
goto end
|
||
|
|
:E3
|
||
|
|
echo Invalid argument or unsupported device!
|
||
|
|
goto end
|
||
|
|
:E2
|
||
|
|
echo Invalid bit structure of a byte !
|
||
|
|
goto end
|
||
|
|
:E1
|
||
|
|
echo Argument Syntax Error!
|
||
|
|
|
||
|
|
:end
|
||
|
|
pause
|