proc main
   string sNum

   if fopen 0 "numbers.txt" READ TEXT              ;Open text file containing list of connections
      while not feof 0                             ;While data remains in the file
         fgets 0 sNum                              ;Get entry from file
         if not nullstr sNum                       ;If entry is not blank
            dial DATA sNum                         ;Then dial it
            while $DIALING                         ;Pause while dialing
               yield
            endwhile
            if $CARRIER                            ;If connected...
            ;perform operations here once connected...
            endif
         endif
      endwhile
   endif
   fclose 0                                        ;Close data file
endproc