RosettaCodeData/Task/Sort-an-integer-array/Liberty-BASIC/sort-an-integer-array.basic

N =20
dim IntArray( N)

print "Original order"
for i =1 to N
    t =int( 1000 *rnd( 1))
    IntArray( i) =t
    print t
next i

sort IntArray(), 1, N

print "Sorted oprder"
for i =1 to N
    print IntArray( i)
next i