Dim $Group[7]

$Group[0] = ""

$Group[1] = "Group1","Group2","Group3","Group4"

$Group[2] = "Group5"

$Group[3] = "Group6"

$Group[4] = "Group7"

$Group[5] = "Group8"

$Group[6] = ""

$Group[7] = ""



for $weekday=1 to 7

    if vartype($Group[$weekday]) = 8192

        for each $Grp in $Group[$weekday]

            if INGROUP($Grp)

                Do Something...

            endif

        next

    else

        if INGROUP($Group[$weekday])

            Do Something...

        endif

    endif

next