4ô ---------------------------------------------- -ô Shell Sort of A$ array with A% elements 4ô ---------------------------------------------- ( K%=A% 2õ < K%=K% 3 F ç K%=0:K%=1 P õ Z fin%=1 d ã I%=1 ¸ A%-K% n" ç A$(I%)>A$(I%+K%):òswap x í ‚ ý fin%=1 Œ ý K%=1 –à   ª Ýòswap ´fin% = 0 ¾temp$ = A$(I%) ÈA$(I%) = A$(I%+K%) ÒA$(I%+K%) = temp$ Üá ÿ