Listing of file='ALPHA.BAS;01' on disk='vmedia/ncc_4-sector.ccvf'
5 REM THIS PROGRAM ALPHABETIZES A LIST OF WORDS AS LONG AS YOU LIKE 6 REM SUBMITTED BY VICKI OLIVER 10 PRINT "ALPHABETIZE" 20 PRINT 30 PRINT "(TO END PROGRAM ENTER ZERO)" 40 PRINT "NUMBER OF ITEMS"; 50 INPUT Y 59 REM END PROGRAM? 69 REM LIMIT ARRAY TO MAXIMUM NUMBER OF ITEMS TO BE ENTERED IN ONE RUN 70 DIM A$(25) 80 FOR I= 1TO Y 90 PRINT "ITEM";I; 100 INPUT A$(I) 110 NEXT I 119 REM LOOP TO ALPHAVETIZE DATA 1010 M= Y 1017 REM THE SORT TECHNIQUE USED IN LINES 1000-1180 COMPARES DATA ITEMS IN DIMINISHING INCREMENTS 1018 REM THE FIRST PASS COMPARES ITEMS N/2 ELEMENTS APART, THE SECOND (N/2)/2 ELEMENTS APART 1019 REM AND SO ON UNTIL THE INCREMENT IS EXHAUSTED 1020 M= INT (M/ 2) 1030 IF M= 0THEN 1190 1040 K= Y- M 1050 J= 1 1060 I= J 1070 L= I+ M 1090 IF A$(I)< = A$(L)THEN 1160 1095 N= N+ 1 1100 T$= A$(I) 1120 A$(I)= A$(L) 1130 A$(L)= T$ 1140 I= I- M 1150 IF I> = 1THEN 1070 1160 J= J+ 1 1170 IF J> KTHEN 1020 1180 GOTO 1060 1190 FOR I= 1TO Y 1200 PRINT A$(I) 1210 NEXT I 1220 GOTO 40 1230 END