N ****** THIS PROGRAM COMPARES THE SPEED OF A HEAP SORT TO THAT OF ***** ****** A BUBBLE SORT. YOU DETERMINE HOW MANY RANDOM NUMBERS WILL **** ****** BE SORTED. THE PROGRAM WILL THEN RANDOM SET ARRAYS FOR ****5 ****** EACH SORT, RUN THROUGH THE SORT, DISPLAY THE SORTED ARRAY **** ****** AND WHEN BOTH ARRAYS ARE DONE THE TIME IT TOOK EACH SORT **** ****** TYPE. CAUTION: NUMBERS OVER 25 TAKE A LONG TIME. START SMALL.* ****** WRITTEN ON THE 128. 64 HAS ERROR ON LINE 10 ******************" / A(100)V"HOW MANY NUMBERS TO BE SORTED";ZgTI$"000000" T1 Z:A(T)((0)1000): T PHASE 1MZ L(M2) 1 1BA(L) 1150$ L. PHASE 28 L1B MZ1 1 1LBA(M1)!VA(M1)A(1),` 11504j MPt 2000: RETURN]~ TOHEAPeILoJII JM 1250JM 1210A(J1)A(J) JJ1 BA(J) 1250A(I)A(J)IJ 1170A(I)B H$TI$: T1 Z:A(T);: T ::+ TI$"000000"O T1 Z:A(T)((0)1000): T_ X1 Z1} : A(X)A(X1) 3100 : DA(X) : A(X)A(X1) : A(X1)D : 3020  :  :  X & : 0 B$TI$: T1 Z:A(T);: T!: ::"!D "BUBBLE =";B$,"HEAP=";H$