RANDOMIZE TIMER / 3
CLS

getcount:
PRINT "Enter Number of Random Digits to Generate, between 5 and 20 ";
INPUT NUMS
IF NUMS < 5 OR NUMS > 20 THEN GOTO getcount

DIM NUMBER(NUMS), NUMBER$(NUMS)
CLS
LOCATE 1, 2

PRINT "Unsorted List"

FOR N = 1 TO NUMS
    NUMBER(N) = INT(50 * RND) + 1
    LOCATE N + 2, 2
    PRINT NUMBER(N)
NEXT N
BEEP

FOR OUTER = 1 TO NUMS - 1
    FOR INNER = OUTER TO NUMS
        IF NUMBER(INNER) < NUMBER(OUTER) THEN SWAP NUMBER(INNER), NUMBER(OUTER)
    NEXT INNER
NEXT OUTER

LOCATE 1, 26
PRINT "Sorted As Numbers"
FOR N = 1 TO NUMS
    LOCATE N + 2, 26
    PRINT NUMBER(N)
NEXT N
BEEP

FOR N = 1 TO NUMS
    NUMBER$(N) = STR$(NUMBER(N))
NEXT N

FOR OUTER = 1 TO NUMS - 1
    FOR INNER = OUTER TO NUMS
        IF NUMBER$(INNER) < NUMBER$(OUTER) THEN SWAP NUMBER$(INNER), NUMBER$(OUTER)
    NEXT INNER
NEXT OUTER

LOCATE 1, 52
PRINT "Sorted as Characters"
FOR N = 1 TO NUMS
    LOCATE N + 2, 52
    PRINT NUMBER$(N)
NEXT N
BEEP

END