const Copyright    = "BBS Ad v1.2B (C) 1996 David Wallace Croft"
     const BBS_Ad_BBS   = "Menu\BBS_Ad.BBS"
     const BBS_Ad_Bad   = "Menu\BBS_Ad.Bad"
     const BBSAdTmp_BBS = "BBSAdTmp.BBS"
     const BBS_Ad_Tmp   = "Menu\" + BBSAdTmp_BBS

     declare sub      Ad_Info ( \
                        Date_Expires as Date, \
                        Cost_Per_Day as integer, \
                        User_ID      as long, \
                        User_Name    as string, \
                  byval Menu_Dat     as string )

     declare function Ad_Made ( byval Lines as integer ) as boolean

     declare sub Filter_Ad ( byval Ad_Tmp as string )

     declare sub Menu_Info ( \
             Cost             as integer, \
             Date_Expires     as Date, \
             Cost_Per_Day     as integer, \
             Refund_Cost      as integer, \
             Refund_User_ID   as long,    \
             Refund_User_Name as string, \
             Refund_Days      as integer, \
       byval Lines            as integer, \
       byval Menu_Dat         as string, \
       byval Cost_Per_Day_Min as integer, \
       byval Cost_Per_Day_Max as integer, \
       byval Days_Max         as integer )

     declare sub Refund_Send ( \
       byval Menu_Dat         as string , \
       byval Refund_Cost      as integer, \
       byval Refund_User_ID   as long   , \
       byval Refund_User_Name as string , \
       byval Refund_Days      as integer )