@echo off
set ProgramsDir=d:\Programs
set PerlDir=%ProgramsDir%\Perl
set TBDir=%PerlDir%\Quantum\Band\TightBinding

if "%1" == "" goto USAGE

perl %TBDir%\TB.pl %1.in | %ProgramsDir%\bin\ktee %1.out

goto END

:USAGE
echo usage: DoTB.bat SampleFileNameBody
goto :END

:END