iii = FreeFile
Open "D:\11polygonal1areas11Zimmermann11solutions.txt" For Output As #iii

For c1 = 1 To 1
For c2 = 2 To 2
For c3 = 2 To 2
For c4 = 1 To 1
For c5 = 5 To 5
For c6 = 3 To 3
For c7 = 11 To 11
For c8 = 4 To 4
For c9 = 10 To 10
For c10 = 7 To 7
For c11 = 8 To 8
For c12 = 6 To 6
For c13 = 9 To 9
For c14 = 9 To 9
For c15 = 6 To 6
For c16 = 8 To 8
For c17 = 7 To 7
For c18 = 10 To 10
For c19 = 4 To 4
For c20 = 11 To 11
For c21 = 3 To 3
For c22 = 5 To 5

' different coordinates:
If c1 = c3 Or c1 = c5 Or c1 = c7 Or c1 = c9 Or c1 = c11 Or c1 = c13 Or c1 = c15 Or c1 = c17 Or c1 = c19 Or c1 = c21 Then GoTo 1
If c2 = c4 Or c2 = c6 Or c2 = c8 Or c2 = c10 Or c2 = c12 Or c2 = c14 Or c2 = c16 Or c2 = c18 Or c2 = c20 Or c2 = c22 Then GoTo 1
If c3 = c5 Or c3 = c7 Or c3 = c9 Or c3 = c11 Or c3 = c13 Or c3 = c15 Or c3 = c17 Or c3 = c19 Or c3 = c21 Then GoTo 1
If c4 = c6 Or c4 = c8 Or c4 = c10 Or c4 = c12 Or c4 = c14 Or c4 = c16 Or c4 = c18 Or c4 = c20 Or c4 = c22 Then GoTo 1
If c5 = c7 Or c5 = c9 Or c5 = c11 Or c5 = c13 Or c5 = c15 Or c5 = c17 Or c5 = c19 Or c5 = c21 Then GoTo 1
If c6 = c8 Or c6 = c10 Or c6 = c12 Or c6 = c14 Or c6 = c16 Or c6 = c18 Or c6 = c20 Or c6 = c22 Then GoTo 1
If c7 = c9 Or c7 = c11 Or c7 = c13 Or c7 = c15 Or c7 = c17 Or c7 = c19 Or c7 = c21 Then GoTo 1
If c8 = c10 Or c8 = c12 Or c8 = c14 Or c8 = c16 Or c8 = c18 Or c8 = c20 Or c8 = c22 Then GoTo 1
If c9 = c11 Or c9 = c13 Or c9 = c15 Or c9 = c17 Or c9 = c19 Or c9 = c21 Then GoTo 1
If c10 = c12 Or c10 = c14 Or c10 = c16 Or c10 = c18 Or c10 = c20 Or c10 = c22 Then GoTo 1
If c11 = c13 Or c11 = c15 Or c11 = c17 Or c11 = c19 Or c11 = c21 Then GoTo 1
If c12 = c14 Or c12 = c16 Or c12 = c18 Or c12 = c20 Or c12 = c22 Then GoTo 1
If c13 = c15 Or c13 = c17 Or c13 = c19 Or c13 = c21 Then GoTo 1
If c14 = c16 Or c14 = c18 Or c14 = c20 Or c14 = c22 Then GoTo 1
If c15 = c17 Or c15 = c19 Or c15 = c21 Then GoTo 1
If c16 = c18 Or c16 = c20 Or c16 = c22 Then GoTo 1
If c17 = c19 Or c17 = c21 Then GoTo 1
If c18 = c20 Or c18 = c22 Then GoTo 1
If c19 = c21 Then GoTo 1
If c20 = c22 Then GoTo 1

' different slopes or different greadients:
g1 = (c4 - c2) / (c3 - c1)
g2 = (c6 - c4) / (c5 - c3)
g3 = (c8 - c6) / (c7 - c5)
g4 = (c10 - c8) / (c9 - c7)
g5 = (c12 - c10) / (c11 - c9)
g6 = (c14 - c12) / (c13 - c11)
g7 = (c16 - c14) / (c15 - c13)
g8 = (c18 - c16) / (c17 - c15)
g9 = (c20 - c18) / (c19 - c17)
g10 = (c22 - c20) / (c21 - c19)
g11 = (c2 - c22) / (c1 - c21)

If g1 = g2 Or g1 = g3 Or g1 = g4 Or g1 = g5 Or g1 = g6 Or g1 = g7 Or g1 = g8 Or g1 = g9 Or g1 = g10 Or g1 = g11 Then GoTo 1
If g2 = g3 Or g2 = g4 Or g2 = g5 Or g2 = g6 Or g2 = g7 Or g2 = g8 Or g2 = g9 Or g2 = g10 Or g2 = g11 Then GoTo 1
If g3 = g4 Or g3 = g5 Or g3 = g6 Or g3 = g7 Or g3 = g8 Or g3 = g9 Or g3 = g10 Or g3 = g11 Then GoTo 1
If g4 = g5 Or g4 = g6 Or g4 = g7 Or g4 = g8 Or g4 = g9 Or g4 = g10 Or g4 = g11 Then GoTo 1
If g5 = g6 Or g5 = g7 Or g5 = g8 Or g5 = g9 Or g5 = g10 Or g5 = g11 Then GoTo 1
If g6 = g7 Or g6 = g8 Or g6 = g9 Or g6 = g10 Or g6 = g11 Then GoTo 1
If g7 = g8 Or g7 = g9 Or g7 = g10 Or g7 = g11 Then GoTo 1
If g8 = g9 Or g8 = g10 Or g8 = g11 Then GoTo 1
If g9 = g10 Or g9 = g11 Then GoTo 1
If g10 = g11 Then GoTo 1

' printing the solutions if all the coordinates and the slopes are different:
Print #iii, "(", c1, ",", c2, ")", ",", "(", c3, ",", c4, ")", ",", "(", c5, ",", c6, ")", ",", "(", c7, ",", c8, ")", ",", "(", c9, ",", c10, ")", ",", "(", c11, ",", c12, ")", ",", "(", c13, ",", c14, ")", ",", "(", c15, ",", c16, ")", ",", "(", c17, ",", c18, ")", ",", "(", c19, ",", c20, ")", ",", "(", c21, ",", c22, ")"

1 Next c22
Next c21
Next c20
Next c19
Next c18
Next c17
Next c16
Next c15
Next c14
Next c13
Next c12
Next c11
Next c10
Next c9
Next c8
Next c7
Next c6
Next c5
Next c4
Next c3
Next c2
Next c1