RANDOMIZE TIMER
DIM n(6)
CLS

' generate 6 randem numbers
FOR x = 1 TO 6
    n(x) = INT(RND * 40)
NEXT

' sort the numbers
s = 1
WHILE s = 1
    s = 0
    FOR x = 1 TO 5
        IF n(x) > n(x + 1) THEN
            t = n(x)
            n(x) = n(x + 1)
            n(x + 1) = t
            s = 1
        END IF
    NEXT
WEND

FOR x = 1 TO 6
        PRINT n(x)
NEXT x