1 %RegisteredObject 0 Sorteert de opgegeven lijst zelf. Maakt geen nieuwe lijst aan. 1 TeSorteren:%ListOfDataTypes,Comparator:TECH.Comparator.IComparator 0) && (Comparator.IsKleinerDan(Hulp,TeSorteren.GetAt(k)))) { Do TeSorteren.SetAt(TeSorteren.GetAt(k),k+1) Set k = k - 1 } Do TeSorteren.SetAt(Hulp,k+1) } ]]>