sub JoinConf_Start ( \
           byval Registration as string, \
           byval Copyright    as string )
     //////////////////////////////////////////////////////////////////////
       dim Conf_Name as string
       dim Conf_Num as integer
       dim File_Num as integer
       const Offset = 100
       dim Option as string*5
       dim JoinConf_Dat as string
     //////////////////////////////////////////////////////////////////////
       cls
       ? Copyright; ".  Reg. No.:  "; Registration
       ?
       MorePrompt Off
       File_Num = FreeFile
       Conf_Num = Offset
       JoinConf_Dat = TrdParty + "\" + PROGRAM_DIR + "\JoinConf.Dat"
       open JoinConf_Dat for input as File_Num
       do
         input #File_Num, Conf_Name
         ? FormatNumber ( Conf_Num, "@####:  " ); Conf_Name
         Conf_Num = Conf_Num + 1
         if Conf_Num mod 20 = 0 then
           ?
           ? "Enter conference number to join, ";
           ? "[Q]uit, or [ENTER] for next:  ";
           input Option
           Option = UCase ( Option )
           if Option = "Q" then
             exit do
           elseif Option <> "" then
             Join ( Val ( Option ) )
             ReadMessages
             exit do
           end if
           ?
           cls
         end if
       loop
       close ( File_Num )
     end sub