01-19-2020, 08:00 PM
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.
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
;
@