Screen field with 2 colours

[Albino Sousa <ASousa@xxxxxxxxxxxxx>]

Thanks to all of you that answer to my question. I did get it to work in
following way:


    if        wapoi <> *blanks
    eval      xapoi = X'3A'      (now it's blue)
    eval      xapoi = %trimr(xapoi) + a44cod
    eval      wapoi = %trimr(wapoi) + xapoi
    else
    movel     a44cod        wapoi
    endif

By the way, i have to change the field in screen from 4 to 5 positions, cos
the hex attribute leave only one char free.

Thanks anyway.