How to create two or three key strokes bindkeys

Hello,

How can I create two or three key strokes bindkeys without changing the existing bindkeys?

For example, addition of existing bindkeys such as: m -> to activate move

I would like to create new bindkeys such as: jmp -> SKILL code to jump to a certain coordinate

I tried using the following function getc to read the next character from keyboard and it doesn't work.

   procedure( call_2()

        TT = getc()

                if( TT = "p" then

                     ; function to jump

                )

     )

   procedure( call_1()

          TT = getc()

                 if( TT = "m" then

                        call_2()

                 )

      )

hiSetBindKey("Layout" "none<Key>j" "call_1()")

I am using version IC6.1.3

I Appreciate any help that I can get.