//////////////////////////////////////////////////////////////////////
     //////////////////////////////////////////////////////////////////////

     // Assumes no two users have same name (UserID_From_UserName)
     // Door counter needs to be safe for multinode

     const Log_Str_Scanned         = "Log Scan:  activity log scanned"
     const Log_Str_Wrong_Password  = "SECURITY VERIFICATION ERROR: Wrong password"
     const Log_Str_Door            = "* DOOR : Door "
     const Log_Str_Downloaded      = "] downloaded from (AREA "
     const Log_Str_Dropped_Carrier = "Off by DROPPING CARRIER."
     const Log_Str_Login           = " on "

     const DoorSort_BBS = TrdParty + "\" + PROGRAM_DIR + "\" + "DoorSort.BBS"
     const DropCarr_BBS = TrdParty + "\" + PROGRAM_DIR + "\" + "DropCarr.BBS"

     const Doors_BBS    = "Disp\Doors.BBS"
     const Doors_Old    = "Disp\Doors.Old"
     const DoorList_BBS = TrdParty + "\" + PROGRAM_DIR + "\" + "DoorList.BBS"
     const DoorHead_BBS = TrdParty + "\" + PROGRAM_DIR + "\" + "DoorHead.BBS"
     const DoorTail_BBS = TrdParty + "\" + PROGRAM_DIR + "\" + "DoorTail.BBS"
     const Download_Pre = "LogScanD."
     const Download_Txt = "Download.Txt"
     const Unevaled_Txt = "Unevaled.Txt"

     const Door_Max = 99
     dim Door_Count ( Door_Max ) as long

     //////////////////////////////////////////////////////////////////////
     //////////////////////////////////////////////////////////////////////

     declare sub Door_Opened ( \
       byval Line as string )

     declare sub Door_Sort_Init

     declare sub Door_Sort ( \
       byval Copyright as string )

     declare sub Downloaded ( byval Line as string, \
       byval Download_Tmp as string )

     declare sub Downloads_By_Users

     declare sub Dropped_Carrier_Add ( \
       byval User_Name as string )

     declare sub Log_Scan_Start ( \
       byval Registration as string, \
       byval Copyright as string )

     declare function Login ( byval Line as string ) as string

     declare sub Main_Loop ( \
             Downloads_Found as boolean, \
       byval First_Sweep as boolean, \
       byval Temp_File as string, \
       byval Copyright as string,\
       byval Node_Str as string, \
       byval Download_Tmp as string )

     declare sub Menu ( \
       byval Registration as string, \
       byval Copyright as string )

     declare sub Menu_Bulletins ( \
       byval Registration as string, \
       byval Copyright as string )

     declare sub Wrong_Password ( \
       Line as string, \
       byval Temp_File as string, \
       byval Copyright as string )