Code:
$=SetOption("WrapAtEOL","ON")
For $p1= 1 to 2
 For $p2 = 1 to 2
  For Each $c1 in Split("n b g c r m y w")
   For Each $c2 in Split("n b g c r m y w")
    $FG=$c1+SubStr("+",$p1,1)
    $BG=$c2+SubStr("+",$p2,1)
    If $FG<>$BG
     Color $FG/$BG "<"+$FG+"/"+$BG+"> "
    EndIf
   Next
  Next
 Next
Next