I := 0
        goto ITest
ILoop:  J := I
        goto WTest
WLoop:  t1 := 4 * J
        Temp := arr[t1]
        t2 := J - 1        
        t3 := 4 * t2
        arr[t1] := arr[t3]
        arr[t3] := Temp
        J := J - 1
WTest:  if J <= 0 goto IPlus
        t4 := 4 * J
        t5 := arr[t4]
        t6 := J - 1
        t7 = 4 * t6
        t8 := arr[t7]
        if t5 >= t8 goto IPlus
        goto WLoop 
IPlus:  I := I + 1
ITest:  if I < length goto ILoop