10 CLS
20  PRINT"ALPHABETIZE"
30 CLEAR 500
40 DIM A$(25)
50 PRINT 
60 PRINT "(TO END PROGRAM ENTER 0)" 
70 PRINT "NUMBER OF ITEMS"; 
80 INPUT N 
90 IF N=0 THEN 290  
100 FOR I=1 TO N 
110 PRINT "ITEM";I; 
120 INPUT A$(I) 
130 NEXT I 
140 FOR I=1 TO N 
150 FOR J=1 TO N-I 
160 A$=A$(J) 
170 B$=A$(J+1)
180 IF A$<B$ THEN 210  
190 A$(J)=B$ 
200 A$(J+1)=A$ 
210 NEXT J 
220 NEXT I 
230 PRINT 
240 FOR I=1 TO N 
250 PRINT A$(I)
260 NEXT I 
270 PRINT 
280 GOTO 70   
290 END