CLS
PRINT "Enter the number of names to sort:";
INPUT NUMBER
DIM NAM$(NUMBER)



FOR N = 1 TO NUMBER
        PRINT "Enter Name #"; N;
        INPUT N$



        FOR CHARACTER = LEN(N$) TO 1 STEP -1
                IF MID$(N$, CHARACTER, 1) = " " THEN GOTO SKIPREST
        NEXT CHARACTER
SKIPREST:
        LET NAM$(N) = RIGHT$(N$, LEN(N$) - CHARACTER) + " " + LEFT$(N$, CHARACTER - 1)


NEXT N


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

FOR N = 1 TO NUMBER
        FOR CHAR = 1 TO LEN(NAM$(N))
                IF MID$(NAM$(N), CHAR, 1) = " " THEN GOTO SKIPREST2
        NEXT CHAR
SKIPREST2:
        PRINT RIGHT$(NAM$(N), LEN(NAM$(N)) - CHAR); " "; LEFT$(NAM$(N), CHAR - 1)
NEXT N
END