@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 RETURNHope this help.