Well, I added some code to make your program function, but I don't have time right now to find the bug. Maybe later unless someone else finds it.
Run this and note that sort does not work.
CONST NOR = 5
DIM id$(NOR), sc$(NOR), UCST(NOR), TQTY(NOR)
FOR i = 1 TO NOR
id$(i) = STR$(INT(RND * 1000))
sc$(i) = "SC" + STR$(i)
UCST$(i) = "UCST" + STR$(i)
TQTY$(i) = "TQTY" + STR$(i)
NEXT i
CLS
FOR i = 1 TO NOR
PRINT id$(i), sc$(i)
NEXT i
PRINT "--------"
REM ALPHABETIZE DATA BY DESCRIPTION = ID$
FOR N = 1 TO NOR
FOR M = 1 TO NOR - 1
IF id$(M) > id$(M + 1) THEN
SCTEMP$ = sc$(M)
IDTEMP$ = id$(M)
UCSTTEMP = UCST(M)
TQTYTEMP = TQTY(M)
REM SWAP LINE ITEMS IN LIST
sc$(M + 1) = SCTEMP$
id$(M + 1) = IDTEMP$
UCST(M + 1) = UCSTTEMP
TQTY(M + 1) = TQTYTEMP
END IF
NEXT M
NEXT N
FOR i = 1 TO NOR
PRINT id$(i), sc$(i)
NEXT i