Click above to get retro games delivered to your door ever month!

  Name:     m_trapfree() - release mousetrap() without resetting it
  Usage:    m_trapfree()
  Params:   none
  Returns:  nothing

 ---------------------------------- Example ---------------------------------

                 set key 28 to HELPME

                 * bait the mousetrap()
                 mousetrap(0,28)
                 mousetrap(1,27)
                 mousetrap(2,19,4,5,24)

                 m_trapset()    && activate the event trapper

                 memvar = space(20)
                 @ 10,0 say "Enter Data:" get memvar
                 read

                 m_trapfree() && release trap so no keys are stuffed

            PROC HELPME
            para d1,d2,d3

                 m_trapfree()   && release the trap

                 print(0,0,"You rang......")
                 print(1,0,"Click left mouse button to continue.")
                 m_inbutton(0)

                 m_trapset()    && reset the mousetrap
                 return

  Warning:  If you have set a mousetrap(), you MUST use m_trapfree()
            before you RUN any external programs. If the mousetrap
            remains in effect outside of your Clipper program your
            computer will hang if you cause a mouse event that you
            are trapping.