'PROGRAM TO GENERATE THE SEXEHEXES
Dim exist As Boolean, B(130) As String
N = 0
For TIMES = 1 To 2  '2 TIMES FLIPABLE/ONE-SIDE

If TIMES = 1 Then
    Print "92 FLIPABLE SEXEHEXES:"
Else
    Print "TO 130 ONE-SIDE SEXEHEXES:"
End If

For J = -1 To 1
For K = -1 To 1
For H = -1 To 1
For T = -1 To 1
For U = -1 To 1
For W = -1 To 1
If J = -1 Then A$ = "-"
If J = 0 Then A$ = "F"
If J = 1 Then A$ = "M"
If K = -1 Then A$ = A$ + "-"
If K = 0 Then A$ = A$ + "F"
If K = 1 Then A$ = A$ + "M"
If H = -1 Then A$ = A$ + "-"
If H = 0 Then A$ = A$ + "F"
If H = 1 Then A$ = A$ + "M"
If T = -1 Then A$ = A$ + "-"
If T = 0 Then A$ = A$ + "F"
If T = 1 Then A$ = A$ + "M"
If U = -1 Then A$ = A$ + "-"
If U = 0 Then A$ = A$ + "F"
If U = 1 Then A$ = A$ + "M"
If W = -1 Then A$ = A$ + "-"
If W = 0 Then A$ = A$ + "F"
If W = 1 Then A$ = A$ + "M"

exist = False   'TEST IF IT EXIST YET
For S = 1 To N
    For R = 0 To 5           'ROTATE
        A$ = Right$(A$, 5) + Left$(A$, 1)
        If A$ = B(S) Then exist = True
    Next R
    
    If TIMES = 1 Then        'FLIP:
        C$ = A$
        A$ = Right(A$, 1) + Mid(A$, 5, 1) + Mid(A$, 4, 1) + Mid(A$, 3, 1) + Mid(A$, 2, 1) + Left(A$, 1)
        For R = 0 To 5       'ROTATE
            A$ = Right$(A$, 5) + Left$(A$, 1)
            If A$ = B(S) Then exist = True
        Next R
        A$ = C$
    End If

Next S

If Not exist Then       'OUTPUT
    N = N + 1
    B(N) = A$
    Print Str(N) + Chr$(9) + A$ + Chr$(13) + Chr$(10)
End If

Next W
Next U
Next T
Next H
Next K
Next J
Next TIMES

END

    Source: geocities.com/liviozuc/download

               ( geocities.com/liviozuc)