FTP with clipper

Just use ftp.exe program

   C_TOFAX = '192.168.0.102'
   HANDLE = FCreate( 'telenv.ff' )
   FWrite( HANDLE, 'user' + Chr( 13 ) + Chr( 10 ) )
   FWrite( HANDLE, 'password' + Chr( 13 ) + Chr( 10 ) )
   FWrite( HANDLE, 'binary' + Chr( 13 )+ Chr( 10 ) )
   FWrite( HANDLE, 'hash' + Chr( 13 ) + Chr( 10 ) )
   FWrite( HANDLE, 'get \money\tcmaximo.key' + Chr( 13 ) + Chr( 10 ) )
   FWrite( HANDLE, 'get \money\tcnews.key' + Chr( 13 ) + Chr( 10 ) )
   FWrite( HANDLE, 'get \money\tcinter.key' + Chr( 13 ) + Chr( 10 ) )
   FWrite( HANDLE, 'get \updates\ALL\casas.key' + Chr( 13 ) + Chr( 10 ) )
   FWrite( HANDLE, 'get \updates\folios.txt' + Chr( 13 ) + Chr( 10 ) )
   FWrite( HANDLE, 'put E'+'myfiles.txt' + Chr( 13 ) + Chr( 10 ) )
   FWrite( HANDLE, 'bye' + Chr( 13 ) + Chr( 10 ) )
   FClose( HANDLE )
   TASK = 'FTP -s:telenv.ff '+TRIM(C_TOFAX)
   cls
   RUN(TASK