Category : Files from Magazines
Archive   : VOL8N5.ZIP
Filename : SORT.BAS

DEFINT A-Z
CLS

DIM Array(20) 'create and fill a test array
FOR X = 0 TO 20
Array(X) = RND(1) * 1000
PRINT Array(X)
NEXT

Done = -1 'this is required to initialize Sort
DO
PRINT "."; 'do anything you want here
GOSUB BSort
LOOP UNTIL Done

FOR X = 0 TO 20 'show that it was sorted correctly
LOCATE X + 1, 15
PRINT Array(X)
NEXT
END

BSort:
IF NOT Done GOTO MoreSort
Size = UBOUND(Array, 1) - 1
LoLimit = LBOUND(Array, 1)
Done = 0
FOR X = Size TO LoBound STEP -1
FOR Y = LoBound TO X
IF Array(Y) > Array(Y + 1) THEN
SWAP Array(Y), Array(Y + 1)
END IF
NEXT
RETURN 'exit after each pass
MoreSort:
NEXT
Done = -1
RETURN