'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