10 REM SHELL SORT¢15 REM BY DOUG WHITE¢17 REM (C)1989 ANTIC PUBLISHING INC.¢20 DIM A(1000)¢30 GRAPHICS 0¢40 ? " SHELL SORT"¢50 ? :? "HOW MANY #'S ARE YOU SORTING (< 1000)"¢60 INPUT NUM¢70 IF NUM>1000 THEN 50¢80 ? :? "FILLING THE ARRAY WITH UNSORTED #'S"¢90 FOR N=1 TO NUM¢100 A(N)=INT(10000*SIN(N))¢110 NEXT N¢120 ? :? " *** SORTING ***"¢130 POKE 18,0:POKE 19,0:POKE 20,0¢140 REM ¢500 REM ..... BEGINNING OF SHELL SORT¢510 PSIZE=1¢520 PSIZE=PSIZE*3+1¢530 IF PSIZE<NUM THEN 520¢540 REM ¢550 PSIZE=INT(PSIZE/3)¢560 ? "PARTITION SIZE = ",PSIZE¢570 REM ¢580 FOR N=1+PSIZE TO NUM¢590 TEMP=A(N)¢600 K=N-PSIZE¢610 FOR J=K TO 1 STEP -PSIZE¢620 IF TEMP<A(J) THEN 650¢630 A(J+PSIZE)=A(J)¢640 NEXT J¢650 A(J+PSIZE)=TEMP¢660 NEXT N¢670 IF PSIZE>1 THEN 550¢680 REM ..... END OF SHELL SORT¢1000 REM ¢1010 T=PEEK(20)+256*PEEK(19)¢1020 SOUND 3,100,10,2¢1030 FOR N=1 TO NUM:? N,A(N):NEXT N¢1040 ? :? T/60;" SECONDS "¢1050 END ¢
