CLS
DEFINT A-Z
DATA Clarke,Joe,Aeh,Laura,Vince,Tyla,Mary,Nehemiah,Jennica,Naomi,Noah,Natalia
n=12
DIM x$(n)
FOR i = 1 TO n
  READ x$(i)
NEXT
10 FOR i = 1 TO n - 1
  IF x$(i) > x$(i + 1) THEN SWAP x$(i), x$(i + 1): GOTO 10
NEXT
FOR i = 1 TO n
  PRINT x$(i)
NEXT