CLS
DIM A(20)
FOR LOOOP = 1 TO 20
        PRINT "Item number"; LOOOP; "is"
NEXT LOOOP

FOR LOOOP = 1 TO 20
        LET A(LOOOP) = INT(50 * RND) + 1
NEXT LOOOP

FOR LOOOP = 1 TO 20
        LOCATE LOOOP, 18
        PRINT A(LOOOP)
NEXT LOOOP
PRINT

PRINT "Sorting the List"
FOR OUTER = 1 TO 19
        FOR INNER = OUTER + 1 TO 20
                IF A(INNER) >= A(OUTER) THEN GOTO NOSWAP
                SWAP A(INNER), A(OUTER)
NOSWAP:
        NEXT INNER
NEXT OUTER

FOR EMPTY = 1 TO 90000
NEXT EMPTY

FOR LOOOP = 1 TO 20
        LOCATE LOOOP, 18
        PRINT A(LOOOP)
NEXT LOOOP

PRINT
PRINT "This Is the Sorted List"
END