daily_automated

2023-03-13 08:36:51 +00:00
parent 5347889cd2
commit f29dcc4188
5439 changed files with 1065799 additions and 0 deletions
--- a/trunk/workspace/SharpTools/Scripts.win/tap2bas.cmd
+++ b/trunk/workspace/SharpTools/Scripts.win/tap2bas.cmd
@@ -0,0 +1,89 @@
+@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