home *** CD-ROM | disk | FTP | other *** search
/ Dream 45 / Amiga_Dream_45.iso / Amiga / Internet / Minitel / AmiTEL310.lha / rexx / Teaser.amtl < prev   
Text File  |  1996-10-20  |  2KB  |  60 lines
  1. /*-------------------------------------*/
  2. /* Teaser.rexx v1.2      (c) 1996 Ldfa */
  3. /*                                     */
  4. /* Script de connection sur le serveur */
  5. /*    Teaser en T2 pour AmiTEL 3.0     */
  6. /*                                     */
  7. /*-------------------------------------*/
  8.  
  9. Envoi        = '13 41'x
  10. Retour        = '13 42'x
  11. Repetition    = '13 43'x
  12. Guide        = '13 44'x
  13. Annulation    = '13 45'x
  14. Sommaire    = '13 46'x
  15. Correction    = '13 47'x
  16. Suite        = '13 48'x
  17.  
  18. Login  = "Mon pseudo"            /* Inscrire ici votre pseudonyme */
  19. Passwd = "Mon mot de passe"        /* et votre mot de passe         */
  20.  
  21. address AMITEL_REXX            /* Nom du Port ARexx d'AmiTEL */
  22.  
  23. options results
  24.  
  25. TIMEOUT 60                /* Temps d'attente maximum */
  26.  
  27. WAIT "service:"                /* Attend 'service:' */
  28. if RC ~= 0 then                /* Si temps d'attente dΘpassΘ */
  29.    do
  30.       REQINFO "Le serveur ne rΘpond pas!"    /* Affiche Resquester */
  31.       exit                    /* Fin du programme */
  32.    end
  33.  
  34. SEND "178270383" || Envoi        /* Envoi '178270383' */
  35.  
  36. DELAY 5                    /* Attend 5 secondes */
  37. SEND Suite                /* Envoi SUITE */
  38. SEND Suite                /* Envoi SUITE */
  39.  
  40. DELAY 5                    /* Attend 5 secondes */
  41. SEND Suite                /* Envoi SUITE */
  42.  
  43. WAIT "Pseudo"                /* Attend 'Pseudo' */
  44. if RC ~= 0 then                /* Si temps d'attente dΘpassΘ */
  45.    do
  46.       REQINFO "Le serveur ne rΘpond pas!"    /* Affiche Resquester */
  47.       exit                    /* Fin du programme */
  48.    end
  49.  
  50. SEND Login || Envoi            /* Envoi pseudonyme */
  51.  
  52. WAIT "Pass"                /* Attend 'Pass' */
  53. if RC ~= 0 then                /* Si temps d'attente dΘpassΘ */
  54.    do
  55.       REQINFO "Le serveur ne rΘpond pas!"    /* Affiche Resquester */
  56.       exit                    /* Fin du programme */
  57.    end
  58.  
  59. SEND Passwd || Envoi            /* Envoi mot de passe */
  60.