TOP:
PRINT "Enter Number Of Items to Generate";
INPUT ITEMS
IF ITEMS > 200 THEN GOTO TOP
IF ITEMS < 2 THEN GOTO TOP

DIM A(ITEMS)
RANDOMIZE TIMER / 3

FOR NUM = 1 TO ITEMS
        LET A(NUM) = INT(100 * RND) + 1
NEXT NUM

FOR OUTER = 1 TO ITEMS - 1
        FOR INNER = OUTER + 1 TO ITEMS
                IF A(OUTER) <= A(INNER) THEN GOTO NOSWAP
                SWAP A(OUTER), A(INNER)
NOSWAP:
        NEXT INNER
        PRINT ".";
NEXT OUTER
PRINT

IF ITEMS / 2 = INT(ITEMS / 2) THEN GOTO EVEN
PRINT A(ITEMS / 2); "Is the Median."
GOTO DONE

EVEN:
LET MID1 = INT(ITEMS / 2)
LET MID2 = MID1 + 1
MEDIAN = (A(MID1) + A(MID2)) / 2
PRINT MEDIAN; "Is the Median."

DONE:
END