@echo off
rem     ┌─────────────────────────────────────────────────────────────┐
rem     │ program:  RUNFD.BAT                                         │
rem     │ function: Main FrontDoor batchfile                          │
rem     │ author:   The Mighty SCI! for Underground Empire 1996       │
rem     └─────────────────────────────────────────────────────────────┘

:exit
        del endpcb
        if %FD%!==! PATH %PATH%;D:\FD
        if %FD%!==! SET FD=D:\FD
        SET PCB=/SWAP
        SET DSZPORT=1
        if not exist %FD%\FDCOMPNL.NOW goto start
        FDNC /F
        erase %FD%\FDCOMPNL.NOW
:start
        d:
        cd \FD
        X00 E 1 B,0,38400 T=512 R=1024
:loop
        XU CAPTURE
        FD
        if errorlevel 255 goto mailin
        if errorlevel 250 goto bbs
        if errorlevel  10 goto done
        if errorlevel   1 goto err
        goto loop
:mailin
        rem Process received mail here, etc.

        goto loop
:err
        echo.
        echo FrontDoor reported error %ERRORLEVEL%
        echo.
        goto done
:bbs
        dobbs0
:done
        X00