Metropoli BBS
VIEWER: pcbtest.btm MODE: TEXT (ASCII)
@echo off
if exist pcbpass.txt del pcbpass.txt
if exist pcbfail.txt del pcbfail.txt
if %@ext[%1]==gif goto gif
if %@ext[%1]==zip goto zip
goto crc

:gif
if %2 == test goto gift
giftest %1 /C:GIFTEST.CNF /F:%3 > PCBPASS.TXT
if errorlevel == 25 goto badgif
if errorlevel == 20 goto badgif
if errorlevel == 10 goto end
if errorlevel == 1 goto badgif
goto end

:gift
echo Testing GIF file...
giftest %1 > PCBPASS.TXT
if errorlevel == 25 goto badgif
if errorlevel == 20 goto badgif
if errorlevel == 10 goto end
if errorlevel == 1 goto badgif
goto end

:badgif
beep
move PCBPASS.TXT PCBFAIL.TXT
goto end

:zip
ptest %1 ptest.cfg
if %2 == test goto end
if exist pcbfail.txt goto end

:crc
if exist pcbpass.txt del pcbpass.txt
rem proecho 1 ~Adding %@name[%1] to CRC database...
zdcsfc %1 %2 %3
goto end

:end

:asta
if exist PCBPASS.TXT type PCBPASS.TXT >> f:\pcb\PCBPASS.LOG
if exist PCBFAIL.TXT type PCBFAIL.TXT >> f:\pcb\PCBFAIL.LOG
if exist PCBFAIL.TXT move %1 h:\hold /q
if exist %3 type %3 >> f:\pcb\desc
[ RETURN TO DIRECTORY ]