Set System Variable in a program

[Angus]

Apparently I am stuck again and need help....

When in RPN I can change Base Variable as follows:
2 'Base' ►
The only question I have HERE is why 2 is still resident on the stack. Is Base being evaluated after storing and can I turn that off?


However in a program I encountered serious difficulties with the above.
Part of my user keyboard is the following

Code:


base_active:=3;
base_key:=1;
SymbBaseMenu()
BEGIN
  LOCAL btn:=SoftMenu({{"hex","dec","bin","2int","2Real","#"},base_key});
  CASE
    IF btn=1 THEN base_key:=1 ; base_active:=4; RETURN " 32 4 R→B(3)"; END;
    IF btn=2 THEN base_key:=2 ; base_active:=3; RETURN " 32 3 R→B(3)"; END;
    IF btn=3 THEN base_key:=3 ; base_active:=1; RETURN " 32 1 R→B(3)"; END;
    IF btn=4 THEN 3 'Base' ► ;  END; //How to set Base to some value prior to RETURN statement above...
    IF btn=5 THEN RETURN "B→R()"; END;
    IF btn=6 THEN "#"; END;
   DEFAULT "";     
  END;

END;

What I tried to do is set Base to the corresponding value in CASE1..3 instead of the 'base_active' variable. I just can't get it to work... Is it too simple to see atm?
So can anybody help here? I remember someone (was it TW?) explained a non-cas program being executed in home Mode. So if you are able to store it in HOME, a program should be, too.


Tahnk you very much


suggestion: RETURN(30) at the end of a program seems to be still broken. I can't imagine why the people at HP don't see the beauty and the need of having something like above evaluated instantly, but returning ENTER would be, if working, a way to try.