home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / insertansi.raz < prev    next >
Encoding:
Text File  |  1994-11-23  |  3.0 KB  |  64 lines
  1. /** $VER: InsertANSI.raz 1.1 (23.11.94)
  2.  **
  3.  ** Insère une séquence de codes ANSI
  4.  **/
  5.  
  6. OPTIONS RESULTS
  7.  
  8. list1 = "Normal\nGras\nLéger\nItaliques\nSouligné\nInversé\nCaché\nCouleur normale\nFin Italiques\nFin Souligné\nFin Inversé\nFin Caché\n"
  9. list2 = "Texte 0\nTexte 1\nTexte 2\nTexte 3\nTexte 4\nTexte 5\nTexte 6\nTexte 7\nTexte Défaut\n"
  10. list3 = "Fond Texte 0\nFond Texte 1\nFond Texte 2\nFond Texte 3\nFond Texte 4\nFond Texte 5\nFond Texte 6\nFond Texte 7\nFond Texte Défaut\n"
  11. list4 = "Fond Doc 0\nFond Doc 1\nFond Doc 2\nFond Doc 3\nFond Doc 4\nFond Doc 5\nFond Doc 6\nFond Doc 7\n"
  12.  
  13. ReqList "Attribut" CONVERT LIST list1 || list2 || list3 || list4
  14. IF (RC == 0) THEN DO
  15.     seq = ""
  16.     attr = RESULT
  17.     SELECT
  18.         WHEN attr = "Normal"            THEN seq = "\x9b0m"
  19.         WHEN attr = "Gras"              THEN seq = "\x9b1m"
  20.         WHEN attr = "Léger"             THEN seq = "\x9b2m"
  21.         WHEN attr = "Italiques"         THEN seq = "\x9b3m"
  22.         WHEN attr = "Souligné"          THEN seq = "\x9b4m"
  23.         WHEN attr = "Inversé"           THEN seq = "\x9b7m"
  24.         WHEN attr = "Caché"             THEN seq = "\x9b8m"
  25.         WHEN attr = "Couleur normale"   THEN seq = "\x9b22m"
  26.         WHEN attr = "Fin Italiques"     THEN seq = "\x9b23m"
  27.         WHEN attr = "Fin Souligné"      THEN seq = "\x9b24m"
  28.         WHEN attr = "Fin Inversé"       THEN seq = "\x9b27m"
  29.         WHEN attr = "Fin Caché"         THEN seq = "\x9b28m"
  30.  
  31.         WHEN attr = "Texte 0"           THEN seq = "\x9b30m"
  32.         WHEN attr = "Texte 1"           THEN seq = "\x9b31m"
  33.         WHEN attr = "Texte 2"           THEN seq = "\x9b32m"
  34.         WHEN attr = "Texte 3"           THEN seq = "\x9b33m"
  35.         WHEN attr = "Texte 4"           THEN seq = "\x9b34m"
  36.         WHEN attr = "Texte 5"           THEN seq = "\x9b35m"
  37.         WHEN attr = "Texte 6"           THEN seq = "\x9b36m"
  38.         WHEN attr = "Texte 7"           THEN seq = "\x9b37m"
  39.         WHEN attr = "Texte Défaut"      THEN seq = "\x9b39m"
  40.  
  41.         WHEN attr = "Fond Texte 0"      THEN seq = "\x9b40m"
  42.         WHEN attr = "Fond Texte 1"      THEN seq = "\x9b41m"
  43.         WHEN attr = "Fond Texte 2"      THEN seq = "\x9b42m"
  44.         WHEN attr = "Fond Texte 3"      THEN seq = "\x9b43m"
  45.         WHEN attr = "Fond Texte 4"      THEN seq = "\x9b44m"
  46.         WHEN attr = "Fond Texte 5"      THEN seq = "\x9b45m"
  47.         WHEN attr = "Fond Texte 6"      THEN seq = "\x9b46m"
  48.         WHEN attr = "Fond Texte 7"      THEN seq = "\x9b47m"
  49.         WHEN attr = "Fond Texte Défaut" THEN seq = "\x9b49m"
  50.  
  51.         WHEN attr = "Fond Doc 0"        THEN seq = "\x9b>0m"
  52.         WHEN attr = "Fond Doc 1"        THEN seq = "\x9b>1m"
  53.         WHEN attr = "Fond Doc 2"        THEN seq = "\x9b>2m"
  54.         WHEN attr = "Fond Doc 3"        THEN seq = "\x9b>3m"
  55.         WHEN attr = "Fond Doc 4"        THEN seq = "\x9b>4m"
  56.         WHEN attr = "Fond Doc 5"        THEN seq = "\x9b>5m"
  57.         WHEN attr = "Fond Doc 6"        THEN seq = "\x9b>6m"
  58.         WHEN attr = "Fond Doc 7"        THEN seq = "\x9b>7m"
  59.  
  60.         OTHERWISE NOp
  61.     END
  62.     IF (seq ~= "") THEN Text2Win CONVERT TEXT seq
  63. END
  64.