New RPL: New Commands

[compsystems]

Hello, a command that is important would convert normal algebraic expression to RPN,
This command was available in the hp48gx hidden directory TEACH


RPN->

PHP Code:

« OBJ->
  IF OVER
  THEN -> n f
    « 1 n
      FOR i
        IF DUP TYPE 9 SAME
        THEN ->RPN
        END n ROLLD
      NEXT
      IF DUP TYPE 5 <>
      THEN 1 ->LIST
      END
      IF n 1 >
      THEN 2 n
        START +
        NEXT
      END f +
    »
  ELSE 1 ->LIST SWAP DROP
  END
»