dim i,j,k
for i=1 to 14
    j="Q1_"+Ctext(i)
    if (Eval(j)) <> NULL then
        k="R"+Ctext(Eval(j))
        Q1=Q1+Ccategorical(k)
    End if
Next
'===========================================
dim i,j,k
for i=1 to 14
    j="Q1_"+Ctext(i)
if (Eval(j)) is NULL then
        Exit for
        Else
            k="R"+Ctext(Eval(j))
            Q1=Q1+Ccategorical(k)
    End if
Next