LET ITEMS = 50
DIM A(ITEMS)
RANDOMIZE TIMER / 3
PRINT "Unsorted List:"
FOR NUM = 1 TO ITEMS
        LET A(NUM) = INT(100 * RND) + 1
        PRINT A(NUM),
NEXT NUM

PRINT "Sorting Pass:"
FOR OUTER = 1 TO ITEMS - 1
        PRINT OUTER;
        FOR INNER = OUTER + 1 TO ITEMS
                IF A(OUTER) <= A(INNER) THEN GOTO NOCHANGE
                SWAP A(OUTER), A(INNER)
NOCHANGE:
        NEXT INNER
NEXT OUTER
PRINT "Sorted List:"

FOR NUM = 1 TO ITEMS
        PRINT A(NUM),
NEXT NUM
END