Module Main
 
	Sub Main()
 
 
 
   versetzeTurm(4, "Kupfer", "Silber", "Gold")
   console.ReadLine
 
End Sub
 
Sub bewegung(ByVal n As Integer, ByVal von As Integer, ByVal nach As Integer)
	console.WriteLine("Scheibe" & n & " von " & von & " nach " & nach)
 
End Sub
 
Sub versetzen(ByVal n As Integer, ByVal kupfer As String, ByVal silber As _
  String, ByVal gold As String)
 
	If n > 1 Then 
		versetzeTurm(n - 1, kupfer, silber, gold)
		bewegung(n, kupfer, gold)
		versetzeTurm(n - 1, silber, kupfer, gold)
	Else
	    bewegung(n, kupfer, gold)
 
	End If
End Sub
 
End Module