1 ' SAVE "TRIEXT.BAS 
100 REM  INITIALISATION 
110 PRINT "- JE LIS D'ABORD LE NOMBRE DE NOMS."
120 READ N
130 PRINT "- IL Y A ";N:"NONS." 
140 PRINT "- JE RESERVE DE LA PLACE NEMO IRE,PUIS"
150 DIM T$(N) 
160 PRINT " JE CHARGE LES DONNEES DANS LE TABLEAU."
170 FOR I=1 TO N 
180 READ T$(I) 
190 NEXT I
200 PRINT "CASE ( CONTENU DU TABLEAU >" 
210 GOSUB 1020 
220 PRINT "- JE VAIS TRIER CE TABLEAU." 
230 PRINT "NB: UN NOM EST PLUS PETIT QU' UN AUTRE"
240 PRINT " S'IL EST AVANT LUI DANS L'ORDRE ALPHABETIQUE" 
300 REM ----PROGRAMME DE TRI  
310 FOR P1=1 TO N-1 
320 PRINT "- JE CONSIDERE LE CONTENU DE LA CASE":P1;" COMME LE MINIMUM."
330 P=P1 340 PRINT " JE VAIS PARCOURIR LE TABLEA U DE LA CASE ";P1+1;" A LA CASE";N-J 
350 PRINT " POUR VOIR S'IL Y EN A UN PLUS PETIT." 
360 FOR P2=PI+1 TO N 
370 E=E+1 
380 PRINT "? JE COMPARE LE MINIMUM A VEC LE CONTENU DE ";P2:"." 
390 PRINT " JE CONSTATE QUE '";TSIP
400 IF TS(P)>TS(P2) THEN 440 
410 PRINT "N'EST PAS PLUS GRAND QU E '";TSIP2);"'."
420 PRINT " DONC JE N'AI RIEN A F AIRE." 
430 GOTO 470 
440 PRINT "EST PLUS GRAND QUE '";T $(P2);"'." 
450 PRINT "'":”(P2);"' DEVIENT LE MINIMUM (CASE ";P2;")."
460 P=P2 
470 GOSUB 1020 
480 NEXT P2 
490 PRINT "LE MINIMUM EST EN CASE ":P:" DONC:" 
500 PRINT "J'ÉCHANGE LES CONTENUS DES CA SES";P;" ET ":P1;"."
510 WS=TS(P)
520 TS(P)=TSIP1) 
530 TSIP1)=WS 
540 PRINT "LE TABLEAU EST TRIE JUSQU'A L A CASE ";P1 
550 NEXT PI 
560 PRINT "- TABLEAU TRIE! EN ";E:"FOIS" 
570 END 
1000 REM  SOUS PROGRAMME  
1010 REM ---AFFICHAGE DU TABLEAU 
1020 PRINT " "
1030 FOR I=1 TO N 
1040 PRINT I;
1050 IF I>=P1 THEN 1080
1060 PRINT " T "; 
1070 GOTO 1150 
1080 IF 'OP THEN 1110 
1090 PRINT "M< ":
1100 GOTO 1150 
1110 IF IC>P1 AND I<>P2 THEN 1140 
1120 PRINT "-> ";
1130 GOTO 1150 
1140 PRINT " ";
1150 PRINT MI)
1160 NEXT I 
1170 INPUT " SUITE";RS 
1180 RETURN 
9000 REM--DONNEES A TRIER  
9010 DATA 8
9020 DATA GEORGES,JEAN-PAUL,VICTOR,JEAN-JACQUES
9030 DATA ALBERT,EDOUARD,CHARLES,HECTOR,JEAN-LOUP