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