deux lignes ( pas de programme )
tiré du magazine Hebdogiciel N°127

	Jean-Luc MOULIN vous trie alphabétiquement n'importe quoi. Si vous n'avez pas d'imprimante, remplacez LPRINT par PRINT.

Programme :
1 CLEAR 999:INPUT N:DIM A$(N+1):FOR K=1 TO N:INPUT A$(K):NEXT:FOR I=1 TO N+1:LPRINT A$(I-1)
2 FOR J=I TO N:IF A$(J)>A$(I) THEN NEXT J,I ELSE T$=A$(I):A$(I)=A$(J):A$(J)=T$:NEXT J,I