RxFTP Sınıfı - Örnek Uygulama
    =============================

    "RxFTP" sınıfındaki yöntemler kullanılarak oluşturulan
    örnek bir uygulama, izleyen satırlarda yer aldığı gibidir.

    /*==============================================================*/
    /* cmd/reply seyri oturumu ile bir dosyanın gönderimini         */
    /* örnekleyen basit bir RxFTP uygulaması.                       */
    /*==============================================================*/

    /* Gerekli değişkenlerin tanımlanması : */

    server = ’127.0.0.1’ /* IP bulunağı ya da sunucu adı */
    userid = ’remote_user_ID’
    passwd = ’password_of_remote_user’
    trclog = ’logfile.txt’ /* İzleme dosyasının tanımı */
    RC = 0   /* Dönüş düzgüsünün sıfıra ayarlanması */

    myftp = .rxftp~new()

    /* FTP buyruklarının izlenmesi işleminin başlatılması ve */
    /* yanıtların seyir defterine yazılması işlemi.          */
    RC = myftp~FtpTrace()
    RC = myftp~FtpTraceLog( trclog, ’1’)
    If RC = 0 then Say ’ Yanıtlar izleme dosyasına yazılacaktır: ’trclog’.’
    Else Say ’ Olasılıkla izleme dosyasına yazılamadı: ’trclog’ için.’

    /* Oturum boyunca uzak ana bilgisayarın ve kullanıcı */
    /* izminin kullanılması amacıyla tanımlanması.       */
    RC = myftp~FtpSetUser(server, userid, passwd)
    If RC = 0 then Say ’ Bağlantı kuruldu. ’
    Else Call Terminate " *** Bağlantı kurulamadı."

    /* Bir ASCII dosyasının uzak FTP sunucusuna aktarımı */
    RC = FtpPut(’sample.rex’, ’sample.put’, ’ASCII’)
    If RC = 0 then Call Terminate ’ Dosya gönderildi. ’
    Else Call Terminate " *** Dosya gönderilemedi."

    /* Aktarım işleminin sonlandırılması */
    Terminate:
    Parse Arg Message
    Say Message

    RC = myftp~FtpLogoff()

    RC = myftp~FtpTraceLogoff()
    RC = myftp~FtpTrace()

    Exit RC