home *** CD-ROM | disk | FTP | other *** search
/ Dream 45 / Amiga_Dream_45.iso / Amiga / Internet / Minitel / AmiTEL310.lha / rexx / SendTexte.amtl < prev    next >
Text File  |  1995-10-21  |  2KB  |  82 lines
  1. /*-----------------------------------*/
  2. /* SendTexte.rexx v1.3   ⌐ 1995 Ldfa */
  3. /*                                   */
  4. /*  Envoi filtrΘ d'un fichier Ascii  */
  5. /*  sur un serveur pour AmiTEL 2.2   */
  6. /*                                   */
  7. /*-----------------------------------*/
  8.  
  9. NL        = '0a'x
  10. Return        = '0d'x
  11. Envoi        = '13 41'x
  12. Retour        = '13 42'x
  13. Repetition    = '13 43'x
  14. Guide        = '13 44'x
  15. Annulation    = '13 45'x
  16. Sommaire    = '13 46'x
  17. Correction    = '13 47'x
  18. Suite        = '13 48'x
  19.  
  20. ADDRESS AMITEL_REXX
  21.  
  22. OPTIONS results
  23.  
  24. REQINFO "Ce programme permet d'envoyer un fichier" || NL,
  25.     "Ascii prΘparΘ α l'avance sur un serveur" || NL,
  26.     "en filtrant les caractΦres acentuΘs." || NL,
  27.     "Voulez vous continuer?"
  28.  
  29. if RESULT == 0 then exit
  30.  
  31. REQFILE "Nom du Fichier α envoyer"
  32.  
  33. if RESULT == "RESULT" then exit
  34.  
  35. Success = open('Fichier',RESULT,'R')
  36.  
  37. if Success == 0 then
  38.    do
  39.       REQINFO "Fichier non trouvΘ!"
  40.       exit
  41.    end
  42.  
  43. do while eof('Fichier') == 0
  44.    Char = readch('Fichier',1)
  45.    select
  46.       when Char = '0a'x then        /* Si fin de la ligne */
  47.         do
  48.           DELAY 2            /* Attend 2 secondes */
  49.           SEND Suite            /* Envoi touche SUITE */
  50.           DELAY 1            /* Attend 1 seconde */
  51.         end
  52.       when Char = 'ú'   then SEND '19 23'x
  53.       when Char = 'º'   then SEND '19 27'x
  54.       when Char = '░'   then SEND '19 30'x
  55.       when Char = '▒'   then SEND '19 31'x
  56.       when Char = '≈'   then SEND '19 38'x
  57.       when Char = '╝'   then SEND '19 3c'x
  58.       when Char = '╜'   then SEND '19 3d'x
  59.       when Char = '╛'   then SEND '19 3e'x
  60.       when Char = 'α'   then SEND '19 41 61'x
  61.       when Char = 'Φ'   then SEND '19 41 65'x
  62.       when Char = '∙'   then SEND '19 41 75'x
  63.       when Char = 'Θ'   then SEND '19 42 65'x
  64.       when Char = 'Γ'   then SEND '19 43 61'x
  65.       when Char = 'Ω'   then SEND '19 43 65'x
  66.       when Char = 'ε'   then SEND '19 43 69'x
  67.       when Char = '⌠'   then SEND '19 43 6f'x
  68.       when Char = '√'   then SEND '19 43 75'x
  69.       when Char = 'Σ'   then SEND '19 48 61'x
  70.       when Char = 'δ'   then SEND '19 48 65'x
  71.       when Char = '∩'   then SEND '19 48 69'x
  72.       when Char = '÷'   then SEND '19 48 6f'x
  73.       when Char = 'ⁿ'   then SEND '19 48 75'x
  74.       when Char = 'τ'   then SEND '19 4b 63'x
  75.       when Char = '▀'   then SEND '19 7b'x
  76.       otherwise              SEND Char
  77.    end
  78. end
  79.  
  80. REQINFO "Envoi du fichier terminΘ."
  81.  
  82.