Compucolor.org – Virtual Media

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