@r,c get MyVar WHEN chgcolor('A') VALID chgcolor('')
READ

*********************
FUNCTION chgcolor
***********************
PARAMETERS clrcode
var1=varread()

   IF clrcode="A"
      getclr="w+/n,w+/n"
   ELSE
      getclr=set('color')
   ENDIF

SHOW get &var1 color &getclr

RETURN