How do I create a Subroutine using System RPL?

[wmundstock]

Suppose I have the following code and I wanted to have a subroutine for when values are equal or when they are different. How do I define a subroutine?

Code:


RPL
::
    CK2
    ::
    CK&DISPATCH1
        #1 :: ( Parameter is of type Real )
          SWAP
          CK&DISPATCH1
          #1 :: ( Parameter is of type Real )
            SWAP
            %=
            ITE
            :: ValuesAreEqual ;
            :: ValuesAreDifferent ;
          ;
        ;
    ;
;

I tried as below and that result in crash:

Code:


NULLNAME ValuesAreEqual
::
   "Equal are the values"
;

Thank you!