PRIVATE VAR val := NIL;

PROC SetVal(x) IS 
  IF REAL(x) -> val := x FI 
END;

UI SetTool(SetVal);

UI Param(SetVal, 5);

UI Param(SetVal, PS.MoveTo);

UI Param(SetVal, foo);