Sorting Alphabetically

[jelamb]

Old timer trying to recreat a sort routine I did back in the 80s to sort a list of items alphabetically according to the variable ID$. See code below that does not seem to work. Success seems to hinge on comparing value of the string variable.
Any Suggestions??
700 REM ALPHABETIZE DATA BY DESCRIPTION = ID$
        FOR N = 1 TO NOR
        FOR M = 1 TO NOR - 1
        IF ID$(M)> ID$(M + 1) THEN GOTO 720 ELSE GOTO 799
720    SCTEMP$ = SC$(M)
        IDTEMP$ = ID$(M)
        UCSTTEMP = UCST(M)
        TQTYTEMP = TQTY(M)
    REM SWAP LINE ITEMS IN LIST
        SC$(M) = SC$(M + 1)
        ID$(M) = ID$(M + 1)
        UCST(M) = UCST(M + 1)
        TQTY(M) = TQTY(M + 1)
        SC$(M + 1) = SCTEMP$
        ID$(M + 1) = IDTEMP$
        UCST(M + 1) = UCSTTEMP
        TQTY(M + 1) = TQTYTEMP
799    NEXT M
      NEXT N
        RETURN 502