REM -- Does not notice download after activity log scanned until
     REM -- user logs out.
     REM -- Only scans node 1 activity log.
     REM ------------------------------------------------------------------



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

     // These two should be moved into the configuration record.
     const EvalFile_Reward_Chance            = 1.0
     const EvalFile_File_Cost_Min            = 0

     const Default_Mail_Conference           = 0
     const Default_Bias_Count                = 30
     const Default_Cents_Per_Daily_Downloads = 30
     const Default_Max_Increase              = 0
     const Default_Max_Decrease              = 0

     type Config_Type
       Mail_Conference as integer
       Bias_Count      as integer
       Cents_Per_Daily_Downloads   as integer
       Max_Increase    as integer
       Max_Decrease    as integer
     end type

     dim Config as Config_Type

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

     const EvalFile_Dir = "EVALFILE"
     const FileData_Dir = "FILEDATA"
     const Eval_Dir = TrdParty + "\" + EvalFile_Dir + "\" + FileData_Dir

     const AllFiles_Txt = "ALLFILES.TXT"
     const Bypassed_Txt = "bypassed.txt"
     const EvalFile_Cfg = TrdParty + "\" + PROGRAM_DIR + "\EVALFILE.CFG"
     const EvalFile_Tmp = "EVALFILE.TMP"
     const EvalFile_Tm1 = "EVALFILE.TM1"
     const Pay_Owed_Txt = "PAY_OWED.TXT"
     const Upld_Pay_Txt = "Upld_Pay.Txt"
     const Sort_All_Tmp = TrdParty + "\" + PROGRAM_DIR + "\Sort_All.Tmp"
     const Sort_All_Txt = TrdParty + "\" + PROGRAM_DIR + "\Sort_All.Txt"

     const Scanning_Flag = "EvalFile:  activity log scanned"

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

     declare sub AllFiles_Txt_Make
     declare sub Config_Init
     declare sub Config_Load
     declare sub Config_Save
     declare sub Costs_Update
     declare function Download_Get ( \
       Paid as integer, \
       FileRec as FileRecord, \
       byval File_Name as string ) \
       as boolean
     declare function Download_Strip ( \
       byval File_Name as string ) \
       as boolean
     declare function Downloaded_Already ( \
       byval File_Name as string, \
       byval File_Area as integer ) \
       as boolean
     declare function Eval_Rec_Get ( \
             Rating    as real,      \
             Count     as long,      \
       byval File_Name as string,    \
       byval Bias      as long )     \
       as boolean
     declare sub Eval_Rec_Put (      \
       byval File_Name as string,    \
       byval Eval      as string )
     declare function EvalFile_FileInfo ( \
       byval File_Name as string,    \
       byval File_Area as integer )  \
       as string
     declare sub EvalFile_FileInfo_Show (   \
       File_Rec as FileRecord, \
       byval Rating   as real, \
       byval Count    as long )
     declare sub Evaluate_Files ( \
       Unevaluated as string )
     declare sub Event_Mode
     declare sub File_Bypass ( \
       byval File_Name as string, \
       byval File_Area as integer )
     declare function File_Bypassed ( \
       byval File_Name as string, \
       byval File_Area as integer ) \
       as boolean
     declare function Find_Unevaluated as string
     declare sub Marked_Files_Ratings
     declare sub Menu_Config
     declare sub Menu_File_Records
     declare sub Menu_Maintenance
     declare sub Menu_SysOp
     declare sub Menu_Uploader
//     declare sub Message_Send_Uploader ( \
//       User_Name as string,  \
//       User_ID   as long,    \
//       Cost      as integer, \
//       File_Name as string )
rem     declare sub Message_Send_Downloader ( \
rem       User_Name as string, \
rem       File_List_File as string )
     declare function Reward_Evaluator \
       as boolean
//     declare sub Sort_All_Files
     declare sub Sort_All_Txt_Make
     declare sub Suggest_Files
     declare sub EvalFile_Start ( \
       byval Registration as string, \
       byval Copyright    as string )
     declare function Uploader_Pay_Owed ( \
       byval Uploader_ID   as long, \
       byval Uploader_Name as string ) \
       as boolean
     declare function  Uploader_Payments_Total_Load ( \
       byval Uploader_ID as long, \
       byval Uploader_Name as string ) \
       as integer
     declare sub  Uploader_Payments_Total_Save ( \
       byval Uploader_ID as long, \
       byval Uploader_Name as string, \
       byval Payments_Total as integer )
     declare sub  Uploader_Payments_Total_Sort
     declare function Uploader_Reward ( \
       byval Uploader_Name as string , \
       byval Uploader_ID   as long   , \
       byval Cost          as integer, \
       byval File_Name     as string ) \
       as boolean
     declare sub User_Mode