... 02 CREATE CLASS TIPClientFTP FROM TIPClient 03 04 VAR nDataPort 05 VAR cDataServer 06 VAR bUsePasv INIT .T. 07 VAR RegBytes 08 VAR RegPasv 09 // Socket opened in response to a port command 10 VAR SocketControl 11 VAR SocketPortServer 12 13 METHOD New( oUrl, xTrace, oCredentials ) 14 METHOD Open( ...