' Permutationengenerator

Const k As Integer = 2
Const xMax As Integer = 80

Dim begriffe(...) As String => { "Schaufel", "Hammer", "Stiefel", "Handschuh", "Nagel", _
   "Leim", !"Steckschl\129ssel", "Schraubenzieher", "Helm" }

Dim Shared xPos As Integer, z As LongInt

Sub Ausgeben(kom As String)
	Dim h As String

	z+=1
	h = Str(z) + " "
	if xPos > 0 Then
		If xPos + 1 + Len(h) + Len(kom) > xMax - 1 Then
			Print
			xPos = -1
		Else
			Print " ";
		EndIf
	EndIf
	Color 12
	Print h;
	Color 7
	Print kom;
	xPos += 1 + Len(h) + Len(kom)
End Sub

Sub Generiere(begr()As String, komb As String, e As Integer, s As Integer)
	
	Dim i As Integer, h As String
	
	For i = s To UBound(begr)
		h = komb + begr(i)
		Ausgeben h
		If e < k Then
			Generiere begr(), h, e + 1, i + 1
		EndIf
	Next i
End Sub

ScreenRes 8 * xMax, 480
Width xMax, 30

z = 0
xPos = 0

Generiere begriffe(), "", 0, LBound(begriffe)

Print
Color 10
Print "Total " + Str(z) + " Kombinationen"
Sleep