N =20
dim IntArray$( N, 2)

print "Original order"
for i =1 to N
    name$ =mid$( "SortArrayOfCompositeStructures", int( 25 *rnd( 1)), 1 +int( 4 *rnd( 1)))
    IntArray$( i, 1) =name$
    print name$,
    t$ =str$( int( 1000 *rnd( 1)))
    IntArray$( i, 2) =t$
    print t$
next i

sort IntArray$(), 1, N, 1
print "Sorted by name"  ' (  we specified column 1)
for i =1 to N
    print IntArray$( i, 1), IntArray$( i, 2)
next i