const DoorHook_Cfg = TrdParty + "\" + PROGRAM_DIR + "\DOORHOOK.CFG"
     const DoorHook_Dat = TrdParty + "\" + PROGRAM_DIR + "\DOORHOOK.DAT"
     const DoorHook_Des = TrdParty + "\" + PROGRAM_DIR + "\DOORHOOK.DES"
     const DoorHead_BBS = TrdParty + "\" + PROGRAM_DIR + "\DOORHEAD.BBS"
     const DoorBody_BBS = TrdParty + "\" + PROGRAM_DIR + "\DOORBODY.BBS"
     const DoorTail_BBS = TrdParty + "\" + PROGRAM_DIR + "\DOORTAIL.BBS"

     const DoorHook_Config_Version            = "1.5"

     const DoorHook_Config_Default_Cost       = 1
     const DoorHook_Config_Default_Cost_Delta = 1
     const DoorHook_Config_Default_Cost_Min   = 1
     const DoorHook_Config_Default_Cost_Max   = 32767
     const DoorHook_Config_Default_Last_Door  = 10

     type DoorHook_Config_Type
       Cost       as integer
       Cost_Delta as integer
       Cost_Min   as integer
       Cost_Max   as integer
       Last_Door  as integer
     end type

     type Door_Data_Type
       Enabled         as boolean
       WCX_Hook        as boolean
       WCX_Path        as string*255
       Cost            as integer
       Total           as long
       Display_Total   as boolean
       Last_Update     as Date
       Usages_Recent   as long
       Usages_Total    as long
       Income_Per_Week as real
       Cost_Delta      as integer
       Cost_Min        as integer
       Cost_Max        as integer
       Decreased       as boolean
       Record_Number   as integer
     end type

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

     declare sub Description_Load ( \
                   Description  as string,  \
             byval Door_Num     as integer )

     declare sub Description_Save ( \
             byval Description  as string,  \
             byval Door_Num     as integer )

     declare sub Description_Pre ( \
       Door_Data as Door_Data_Type, \
       Door_Num  as integer )

     declare sub Description_Pre_File ( \
       Door_Data as Door_Data_Type, \
       Door_Num  as integer, \
       File_Num  as integer )

     declare sub DoorHook_Config_Init ( \
       Config as DoorHook_Config_Type )

     declare sub DoorHook_Config_Load ( \
       Config as DoorHook_Config_Type )

     declare sub DoorHook_Config_Save ( \
       Config as DoorHook_Config_Type )

     declare sub DoorHook_Event ( \
           byval Registration as string, \
           byval Copyright    as string, \
                 Config       as DoorHook_Config_Type )

     declare sub Door_Data_Default ( \
       Door_Data as Door_Data_Type, \
       Config    as DoorHook_Config_Type )

     declare sub Door_Data_Load ( \
                   Description  as string,  \
                   Door_Data    as Door_Data_Type, \
             byval Door_Num     as integer )

     declare sub Door_Data_Save ( \
             byval Description  as string, \
                   Door_Data    as Door_Data_Type, \
             byval Door_Num     as integer )

     declare sub Menu_SysOp ( \
             Config        as DoorHook_Config_Type, \
             Description   as string              , \
             Door_Data     as Door_Data_Type      , \
       byval Door_Num      as integer             , \
       byval Copyright     as string              , \
       byval Registration  as string )

     declare function Menu_User ( \
       Config as DoorHook_Config_Type ) as integer

     declare sub Menu_User_Make ( \
       Config as DoorHook_Config_Type )

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