Strange error in an input form

[cahlucas]

Hello all,

In a subroutine I get a strange error with regard to an input form. The subroutine in question asks for a name to be entered via the input form. When this is entered and OK is pressed, I get the error message "Bad Argument Type". When I then press OK again, I see a number of Externals and some strings that appear on the screen from the menu or the message handler. The message handler is responsible for the soft menu in this case. I have enclosed the code below. The local variable "LAM cfgl" is declared in the main program, in which this code can be executed. This variable contains a list. I hope someone can help me solve this problem. Sincerely, Karel.

Code:


::
 "Name:"
 BINT2
 BINT32
 'DROPFALSE
 BINT23
 BINT30
 BINT102
 BINT8
 BINT1
 {
    BINT6
 }
 BINT4
 " Enter a name"
 MINUSONE
 DUP
 NULLID
 DUP
 BINT1
 BINT1
 '
 ::
     ID IFMH1
 :
 "NAME YOUR CONFIGURATION'
 FPTR 4 20
 NOT?SEMI
 LAM cfgl
 OVER
 >TCOMP
 '
 LAM cfgl
 STO
 xRCLF
 xRCLKEYS
 TWO{}N
 SWAP
 %3
 %>TAG
 xSTO
;
@

[b]IFMH1:[/b]

::
 BINT15
 #<>
 caseFALSE
 '
 ::
   NoExitAction
   {
       {
          ::
           TakeOver
           5GETLAM
           PTR 63E42
           ITE
           "EDIT"
           NULL$
          :
          ::
           TakeOver
           FPTR 2 B5
           :
       }
       {
           ::
             TakeOver
             5GETLAM
             PTR 63E7E
             ITE
             "CHOOS"
             NULL$
            :
            ::
              TakeOver
              FPTR 2 B6
            :
        }
        {
              ::
               TakeOver
               PTR 63ED8
               ITE
               PTR 63CFC
               NULL$
              ;
              ::
                TakeOver
                FPTR 2 B7
              ;
        }
        {
              "RESET"
              ::
                TakeOver
                FPTR 2 B8
              ;
        }
        {
              "CANCL"
              ::
                TakeOver
                FPTR 2 AF
              ;
        }
        {
              "OK"
              ::
                TakeOver
                FPTR 2 B4
              ;
        }
     }
   ;
 TRUE
;
@