HP48G soft menu toggle: How?

[DavidM]

There are several ways to approach this. If you want to use the same "flag 60" mechanism that the Equation Library uses, something like the following might work if you need a custom menu and don't want to use the pre-existing one that comes with the Equation Library:

Code:

SETMENU
\<<
  @ Place the MakeStdLabel and MakeBoxLabel SYSEVAL codes on the stack
  #3A328h #3A38Ah

  @ If flag 60 is set, SWAP the two SYSEVAL codes
  60 FS? ::SWAP IFT

  @ Create the appropriate GROB for SI
  "SI" SWAP SYSEVAL

  @ Append the code to be run when SI is pressed
  \<< 60 CF SETMENU \>> 2 \->LIST

  @ Create the appropriate GROB for ENGL
  "ENGL" ROT SYSEVAL

  @ Append the code to be run when ENGL is pressed
  \<< 60 SF SETMENU \>> 2 \->LIST

  @ Build the menu definition list and activate it
  2 \->LIST TMENU
\>>

The above requires that the program is named "SETMENU", but that could be changed by updating the program references in the menu item assignments in the code.