if exist pcbstuff.kbd del pcbstuff.kbd >NUL
l:\mailfile\send %PCBDAT% l:\mailfile\flatfile.dat
if errorlevel 5 goto nouser
if errorlevel 4 goto pcbdoor
if errorlevel 2 goto args
if errorlevel 1 pcboard
  echo File sent to User.>pcbdoor.txt
  goto end
:pcboard
  echo Could not open PCBOARD.SYS>pcbdoor.txt
  goto end
:args
  echo Not enough arguments!>pcbdoor.txt
  goto end
:pcbdoor
  echo Could not find the PCBDOOR variable!>pcbdoor.txt
  goto end
:nouser
  echo The User which the file is address to is not a member of this bbs>pcbdoor.txt
:end
L:\pcb\board