home *** CD-ROM | disk | FTP | other *** search
/ Dream 45 / Amiga_Dream_45.iso / Amiga / Internet / Minitel / AmiTEL310.lha / rexx / SendVideotex.amtl < prev    next >
Text File  |  1995-09-15  |  2KB  |  69 lines
  1. /*--------------------------------------*/
  2. /* SendVideotex.rexx v1.2   ⌐ 1995 Ldfa */
  3. /*                                      */
  4. /*  Envoi filtrΘ d'un fichier Videotex  */
  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.     "VidΘotex prΘparΘ α l'avance sur un serveur" || NL,
  26.     "en filtrant certains codes VidΘotex." || 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. Char = 'A'
  44.  
  45. do while eof('Fichier') == 0
  46.    Char = readch('Fichier',1)
  47.    select
  48. /*    when Char = '08'x then SEND '$08' */
  49. /*    when Char = '09'x then SEND '$09' */
  50. /*    when Char = '0a'x then SEND '$0a' */
  51. /*    when Char = '0b'x then SEND '$0b' */
  52.       when Char = '0c'x then SEND '$0c'
  53.       when Char = '0d'x then SEND '$0d'
  54.       when Char = '0e'x then SEND '$0e'
  55.       when Char = '0f'x then SEND '$0f'
  56. /*    when Char = '19'x then SEND '$19' */
  57.       when Char = '1b'x then SEND '#'
  58.       when Char = '1f'x then SEND '$1f'
  59.       when Char = '23'x then SEND '$23'
  60.       when Char = '24'x then SEND '$24'
  61.       when Char = '2a'x then SEND '$2a'
  62.       otherwise              SEND Char
  63.    end
  64.    DELAY 1                /* Attend 1 seconde */
  65. end
  66.  
  67. REQINFO "Envoi du fichier terminΘ."
  68.  
  69.