Sort a list of object identifiers: Difference between revisions

Content added Content deleted
Line 773: Line 773:
Data "1.3.6.1.4.1.11.2.17.19.3.4.0.10", "1.3.6.1.4.1.11.2.17.5.2.0.79", "1.3.6.1.4.1.11150.3.4.0"
Data "1.3.6.1.4.1.11.2.17.19.3.4.0.10", "1.3.6.1.4.1.11.2.17.5.2.0.79", "1.3.6.1.4.1.11150.3.4.0"
Dim Base 0, arr(Stack.Size)
Dim Base 0, arr(Stack.Size)
i=0 : While not Empty {let arr(i)=piece$(letter$+".", ".") : i++ }
link arr() to arr$()
i=0 : While not Empty {arr$(i)=piece$(letter$+".", ".") : i++ }
}
}

For i=0 to len(arr())-1 {
For i=0 to len(arr())-1 {
Print join$(arr(i))
Print join$(arr(i))