script that connects to any FTP site

this peice of code connects to and logs into an FTP site depending from what you type in for the account information...

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    ` reads from account.txt and converts info into variables
open to read 1, "account.txt"
read string 1, url$
read string 1, user$
read string 1, pass$
read string 1, dir$
ftp connect url$, user$, pass$
ftp set dir dir$

`finds and lists all files in the current ftp directory
   ftp find first
   while get ftp file type()<>-1
      print get ftp file name$();" (";
      print get ftp file size();" bytes)"
      if get ftp file type()=0 then filename$=get ftp file name$()
      if get ftp file type()=1 then dirname$=get ftp file name$()
      ftp find next
   endwhile
   print : sleep 100
return
do
loop