if exist pcbstuff.kbd del pcbstuff.kbd >NUL
l:\mailfile\newfiles l:\mailfile\flatfile.dat >pcbdoor.txt
if errorlevel 3 goto usersys
if errorlevel 2 goto args
if errorlevel 1 pcboard
  copy l:\mailfile\filelist.hdr+pcbdoor.txt pcbdoor2.txt >NUL
  del pcbdoor.txt >NUL
  ren pcbdoor2.txt pcbdoor.txt >NUL
  goto end
:usersys
  echo Could not open USER.SYS!>pcbdoor.txt
:pcboard
  echo Could not open PCBOARD.SYS>pcbdoor.txt
  got end
:args
  echo Not enough arguments!>pcbdoor.txt
:end
l:\pcb\board