>LOCAL lnFor
>thisform.text42.Value = thisform.list1.value
>CLOSE all
>SELECT 0
>USE dnc
>lnFor                   = VAL(SUBSTR(thisform.text42.Value,2))
>LOCATE FOR flag1        = m.lnFor
>ThisForm.Label1.Caption = q1
>ThisForm.Label2.Caption = q11
>CLOSE all
>USE answers
>