Listing of file='NUMSRT.BAS;01' on disk='vmedia/chip_128-sector.ccvf'
100 PLOT 12,6,1:INPUT "HOW MANY NUMBERS? ";N 110 DIM X(N):KE= 1 120 FOR X= 1TO N:INPUT X(X):NEXT X 130 GOSUB 150 140 FOR X= 1TO N:PRINT X(X):NEXT :END 150 INC= (2^ INT (LOG (N)/ LOG (2)))- 1 160 INC= INT (INC/ 2) 170 IF INC< 1THEN RETURN 180 FOR I= 1TO INC 190 FOR J= I+ INCTO NSTEP INC 200 K= J:TEMP= X(K) 210 IF X(K- INC)< = TEMPTHEN 250 220 X(K)= X(K- INC) 230 K= K- INC 240 IF K> INCTHEN 210 250 X(K)= TEMP 260 NEXT J 270 NEXT I 280 GOTO 160