CLS
' enter number of numbers you wish to input
INPUT "Enter size of list of numbers: ", n
DIM lst(1 TO n)
PRINT "Enter "; n; " numbers"
FOR i = 1 TO n
INPUT lst(i)
NEXT i
' displaying input list
PRINT "INPUT NUMBERS:"
FOR i = 1 TO n
PRINT lst(i);
NEXT i
' sorting lst in ascending order
' using bubble sort
FOR i = 1 TO n
FOR j = i + 1 TO n
IF lst(i) > lst(j) THEN
SWAP lst(i), lst(j)
END IF
NEXT j
NEXT i
' displaying output list
PRINT ""
PRINT "INPUT NUMBERS IN SORTED ORDER:"
FOR i = 1 TO n
PRINT lst(i);
NEXT i
END