CLS
DIM NAM$(100), SCORE(100)
GETCOUNT:
PRINT "Enter Number of Students";
INPUT NUMBER
IF NUMBER < 100 AND NUMBER > 0 THEN GOTO GETSTUDENTS
PRINT " That's Too Many Students!!!  Try Again"
GOTO GETCOUNT

GETSTUDENTS:
FOR N = 1 TO NUMBER
        PRINT "Enter Student #"; N; " Name";
        INPUT NAM$(N)
        PRINT "Enter Test Score For "; NAM$(N);
        INPUT SCORE(N)
NEXT N

FOR OUTER = 1 TO NUMBER - 1
        FOR INNER = OUTER + 1 TO NUMBER
                IF SCORE(OUTER) >= SCORE(INNER) THEN GOTO NOSWAP
                SWAP SCORE(OUTER), SCORE(INNER)
                SWAP NAM$(OUTER), NAM$(INNER)
NOSWAP:
        NEXT INNER
NEXT OUTER

CLS
PRINT "Name", "Score"
PRINT
FOR N = 1 TO NUMBER
        PRINT NAM$(N), SCORE(N)
NEXT N
END