flag = 1
while flag = 1
   flag = 0
   for i = 0 to 271
      if NameList$(i) > NameList$(i+1)
         a$ = NameList$(i)
         NameList$(i) = NameList$(i+1)
         NameList$(i+1) = a$
         flag = 1
      endif
   next i
endwhile