Listing of file='WRDSRT.BAS;01' on disk='vmedia/chip_128-sector.ccvf'
100 CLEAR 200 110 PLOT 12,6,1:INPUT "HOW MANY WORDS? ";N 120 DIM X$(N):KE= 10 130 FOR X= 1TO N:INPUT X$(X):NEXT X 140 GOSUB 160 150 FOR X= 1TO N:PRINT X$(X):NEXT :END 160 L= (2^ INT (LOG (N)/ LOG (2)))- 1 170 L= INT (L/ 2):IF L< 1THEN RETURN 180 FOR I= 1TO L:FOR J= I+ LTO NSTEP L:K= J:T$= X$(K) 190 IF LEFT$ (X$(K- L),KE)< = LEFT$ (T$,KE)THEN 210 200 X$(K)= X$(K- L):K= K- L:IF K> LTHEN 190 210 X$(K)= T$:NEXT J,I:GOTO 170