' For Each $f in $Forum.Forums
' $Contains = 0
' If $f.Private and $Login
' $GID = $f.GID
' $Contains = $Groups.$GID.Users.Contains $Login.ID
' EndIf
' If ! $f.Private or $Contains
' If ! $Forum.Tops and $Contains
 $f.Name (Exclusive to $Groups.$GID.Name) |
' Elif ! $Forum.Tops
| $f.Name |
' Elif ! $f.WhatsNew.Count
|
| $f.Name |
' If $Contains
| (Exclusive to $Groups.$GID.Name) |
' EndIf
' Else
|
' $Count = 0
' For Each $s in $f.WhatsNew
' If $Count = 0
| $f.Name |
' Elif ($Count = 1) and $Contains
| (Exclusive to $Groups.$GID.Name) |
' Elif $Count != $Forum.Tops
|
' EndIf
' If $Count != $Forum.Tops
 $s.Subject |
' $AID = $s.Articles.Head
' Set $a = $s.Articles.$AID
' $t = $s.TimeStamp
' If $t.Date = $Date
($a.Head$... $t.hour:$t.Minute00 $t.AMPM) |
' Else
($a.Head$... $t.Day $t.month) |
' EndIf
' Inc $Count
' Elif ($Count = 1) and $Contains
' EndIf
' Next
' If $Contains and ($f.WhatsNew.Count = 1)
| (Exclusive to $Groups.$GID.Name) |
' EndIf
' EndIf
' EndIf
' Next
' If $Forum.Tops
|
' EndIf
' If ! $Login
| [Display the Group-Exclusive Forum] |
' EndIf