How make a green Background by a Choose Funktion

[DrD]

Like this?

Code:


EXPORT clrs()
BEGIN
  LOCAL  red:=RGB(255,0,0),
       green:=RGB(0,255,0),
        blue:=RGB(0,0,255);

  L0:={"red","green","blue"};  
  CHOOSE(X,"COLORS",L0);
  RECT_P(G0,0,0,320,220,EXPR(L0((X))));
  wait(2);
END;