Dim out As Integer
Dim i1%, i2%, i3%, i4%, i5%, i6%
out = FreeFile
 
Open ("C:\daten\6er-Kombis.txt") For Output As out
 
'Die Motorzahlen als Feld erstellen
Dim mot(13983816, 6) As Integer
zw = 0
For i1 = 1 To 44
s21 = i1 + 1
For i2 = s21 To 45
s31 = i2 + 1
For i3 = s31 To 46
s41 = i3 + 1
For i4 = s41 To 47
s51 = i4 + 1
For i5 = s51 To 48
s61 = i5 + 1
For i6 = s61 To 49
 
 
 
zw = zw + 1
mot(zw, 1) = i1
mot(zw, 2) = i2
mot(zw, 3) = i3
mot(zw, 4) = i4
mot(zw, 5) = i5
mot(zw, 6) = i6
 
ff:
Next i6, i5, i4, i3, i2, i1
 
 
zw = 0
mot:
zw = zw + 1
If mot(zw, 1) = 0 Then GoTo motaus
i1 = mot(zw, 1)
i2 = mot(zw, 2)
i3 = mot(zw, 3)
i4 = mot(zw, 4)
i5 = mot(zw, 5)
i6 = mot(zw, 6)
 
Print #out, i1; ","; i2; ","; i3; ","; i4; ","; i5; ","; i6
 
 
GoTo mot
 
motaus:
 
Close #out