10 CLS
20 INPUT "How many Names do You wanna sort";N
30 REM  Read Name into array
40 IF N = 0 THEN DA$ = "42D" : N = VAL(DA$) : GOTO 50 ELSE 110
50 DIM N$(N)
60 FOR I = 1 TO N
70 READ N$(I)
80 IF LEN(N$(I)) < 5 THEN N$(I) = N$(I) + "     "
90 NEXT I
100 GOTO 180
110 PRINT "Enter the names one at a time."
120 DIM N$(N)
130 FOR X = 1 TO N
140 INPUT N$(X)
150 IF LEN(N$(X)) < 5 THEN N$(X) = N$(X) + "     "
160 NEXT X
170 CLS
180 TITLE$ = "Unsorted Data"
190 A = 3 : B = 10
200 GOSUB 340
210 REM  Bubble Sort Routine!
220 REM
230 REM
240 FOR X = 1 TO N-1
250 FOR Y = N TO X+1 STEP -1
260 IF N$(Y) < N$(Y-1) THEN TEMP$ = N$(Y):N$(Y) = N$(Y-1):N$(Y-1) = TEMP$
270 NEXT Y
280 NEXT X
290 A = 18 : B = 10
300 TITLE$ = "Sorted Data"
310 CLS
320 GOSUB 340
330 GOTO 470
340 REM
350 REM  Output the DATA
360 REM
370 LOCATE A,B
380 PRINT TITLE$
390 PRINT
400 FOR Y = 1 TO N
410 IF LEN(N$(Y)) > 12 THEN PRINT
420 PRINT "Name";Y;"- ";N$(Y),
430 NEXT Y
440 IF DA$ = "42D" THEN 460
450 FOR X = 1 TO 150 :LOCATE 2,1:PRINT X:NEXT
460 RETURN
470 ERASE N$
480 RESTORE
490 DATA KWAME,WHEELER,LINKA,"MATE",ALPHA,"DONKEY KONG","DIDDY KONG",                    "CANDY KONG","EDDIE SEGOURA","BILLY YOST","BARBARA DOLGINS",                    "FIOR 6097","HmArOnE PASSWORD","WALTER Z. JONES","RYAN STEEL"
500 DATA "ROBERT STEAL","KAITLIN STAR","FUNKY KONG","CAPTAIN GAMEPLAY",                  "SAMUS ARAN","KIMBERLY JOHNSON","J.B REESE",TRAVIS YOUNGER,BENEATHA
510 DATA "CRANKY KONG",MARIO,LUIGI,HASHEM,JAFAR,ZORDON,GRIMLORD,                         "KING K. ROOL","RITA REPULSA",BOWSER,IAGO,LINK,ZELDA,DENNIS,                    PETER,RAY,WINSTON,EGON