/* REXX     Uebersicht ueber die Speicherung der CUAATTR im ISPSPROF

            N.Haas, 11.12.2001

zcuaattr = '600100720220620504120400520622400100720504400700' !! ,
           '504400400100700100720720700100500620220100520520'

            Es bedeuten die Zahlen als Trippel (zB 6 0 0):
            6 = Yellow, 0 = Low, 0 = None

            Die Reihenfolge der Trippel ist der folgenden Tabelle
            zu entnehmen. Der Active Window Frame wird hier nicht
            gespeichert, die Point-and-Shoot Felder belegen Trippel
            31 und 32. Die Farben, Intensitaet und Highligh stehen
            weiter unten in der Tabelle.

     +---------------------------------------------------------------+
 Trip| Panel Element                  Color    Intensity  Highlight  |
     |                                                               |
    1| AB Selected Choice . . . . . . YELLOW   LOW        NONE       |
    2| AB Separator Line  . . . . . . BLUE     LOW        NONE       |
    3| AB Unselected Choice . . . . . WHITE    HIGH       NONE       |
    4| Action Message Text  . . . . . RED      HIGH       NONE       |
   --| Active Window Frame  . . . . . BLUE     HIGH                  |
    5| Caution Text . . . . . . . . . YELLOW   HIGH       NONE       |
    6| Choice Entry Field . . . . . . TURQ     LOW        USCORE     |
    7| Column Heading . . . . . . . . BLUE     HIGH       NONE       |
    8| Descriptive Text . . . . . . . GREEN    LOW        NONE       |
    9| Emphasized Text  . . . . . . . TURQ     HIGH       NONE       |
   10| Error Emphasis . . . . . . . . YELLOW   HIGH       REVERSE    |
   11| Field Prompt . . . . . . . . . GREEN    LOW        NONE       |
   12| Function Keys  . . . . . . . . BLUE     LOW        NONE       |
   13| Informational Message Text . . WHITE    HIGH       NONE       |
   14| List Entry Field . . . . . . . TURQ     LOW        USCORE     |
   15| List Item Description  . . . . GREEN    LOW        NONE       |
   16| List Items . . . . . . . . . . WHITE    LOW        NONE       |
   17| Normal Entry Field . . . . . . TURQ     LOW        USCORE     |
   18| Normal Text  . . . . . . . . . GREEN    LOW        NONE       |
   19| Panel Instruction  . . . . . . GREEN    LOW        NONE       |
   20| Panel Title  . . . . . . . . . BLUE     LOW        NONE       |
31/32| Point-and-Shoot  . . . . . . . TURQ     HIGH       NONE       |
   21| PD Available Choices . . . . . WHITE    LOW        NONE       |
   22| PD Unavailable Choices . . . . BLUE     LOW        NONE       |
   23| Reference Phrase . . . . . . . WHITE    HIGH       NONE       |
   24| Scroll Information . . . . . . WHITE    HIGH       NONE       |
   25| Sel. Available Choices . . . . WHITE    LOW        NONE       |
   26| Sel. Unavailable Choices . . . BLUE     LOW        NONE       |
   27| Variable Output Info.  . . . . TURQ     LOW        NONE       |
   28| Warning Message Text . . . . . YELLOW   HIGH       NONE       |
   29| Warning Text . . . . . . . . . RED      HIGH       NONE       |
   30| Work Area Separator Line . . . BLUE     LOW        NONE       |
     +---------------------------------------------------------------+

     Color:          Intensity:       Highlight:
         1  Blue         0  Low           0  None
         2  Red          1  ---           1  Blink
         3  Pink         2  High          2  Reverse
         4  Green                         3  ---
         5  Turq                          4  Uscore
         6  Yellow
         7  White                                                     */

"ISPEXEC TBSTATS ispsprof STATUS1 (st1) STATUS2 (st2)"
"ISPEXEC TBTOP ispsprof"
"ISPEXEC TBSKIP ispsprof"
"ISPEXEC TBGET ispsprof"

SAY zcuaattr

color.   = '-nn------'
color.1  = 'Blue     '
color.2  = 'Red      '
color.3  = 'Pink     '
color.4  = 'Green    '
color.5  = 'Turquoise'
color.6  = 'Yellow   '
color.7  = 'White    '

intens.  = '-nn------'
intens.0 = 'LOW      '
intens.1 = '??????   '
intens.2 = 'HIGH     '

high.    = '-nn------'
high.0   = 'NONE     '
high.1   = 'BLINK    '
high.2   = 'REVERSE  '
high.3   = '??????   '
high.4   = 'USCOREE  '

DO i = 1 TO LENGTH(zcuaattr) BY 3
   i0 = i + 0
   i1 = i + 1
   i2 = i + 2
   c0 = SUBSTR(zcuaattr,i0,1)
   c1 = SUBSTR(zcuaattr,i1,1)
   c2 = SUBSTR(zcuaattr,i2,1)
   SAY FORMAT(i,2) '-' c0 c1 c2 '-' color.c0 intens.c1 high.c2
END

EXIT