Listing of file='ALPHA.BAS;01' on disk='vmedia/nsw_ug_1-sideA-sector.ccvf'
53770 <0xCA> 2000 20 DIM A$(25) 30 PRINT "ALPHABET ORDERING PROGRAM" 40 PRINT :INPUT "NUMBER OF ITEMS:";N:PRINT 50 FOR I= 1TO N 60 INPUT "ITEM - ";A$(I)<0xC7> <0xFB> VAL U<0xD6> <0xCC> 70 NEXT I 80 PRINT :M= N 90 M= INT (M/ 2):IF M= 0THEN 200 100 K= N- M 110 J= 1 120 I= J 130 L= I+ M 140 IF A$(I)< = A$(L)THEN 170 150 T$= A$(I):A$(I)= A$(L):A$(L)= T$:I= I- M 160 IF I> = 1THEN 130 170 J= J+ 1 180 IF J> KTHEN 90 190 GOTO 120 200 FOR I= 1TO N 210 PRINT A$(I) 220 NEXT I 230 PRINT 240 INPUT "PRESS RETURN TO REPEAT - (M) FOR MENU ";RE$ 250 IF RE$= "M"THEN PLOT 1 260 GOTO 10