#$NABEBUBBLESORTTIMBSBSBS SORT ROUTINE TESTj#(}TEST ROUTINE GENERATES TWOJ("IDENTICAL LISTS OF 12 DIGIT RANDOMj(NUMBERS AND THEN SORTS THEM-()(ENTER NUMBER OF RANDOM NUMBERS-4( (LOAD SORTING ROUTINES* B 4 B! ;@$,;@$,7($(GENERATE LIST OF 12 DIGIT7(RANDOM NUMBERS-@$@--67<,.=:P:F:B7p,$@'AV,,$   6..C-@6-@$?(7&@<,7&@<,C 8S(( START SORT1 AS6-?:C:,1 THEN BSX=USR(1568,P5,P6){{SORT PARAMETERS{99-P1: POSITION IN RECORD OF FIRST BYTE OF SORT FIELD{88-P2: POSITION IN RECORD OF LAST BYTE OF SORT FIELD{&&-P3: RECORD LENGTH (<=150 BYTES){$$-P4: 0=ASCENDING, 1=DESCENDING{<<-P5: ADDRESS OF STRING CONTAINING RECORDS TO BE SORTED{))-P6: NUMBER OF RECORDS TO BE SORTED {2 #Bh!-AhA%"+/ 2$P{104,104,133,217,104,133V{216,104,133,209,104,133\{208,169,0,133,218,133b{207,162,1,165,216,133h{214,165,217,133,215,24n{165,214,133,212,101,205t{133,214,165,215,133,213z{105,0,133,215,164,203{165,206,240,10,177,214{209,212,144,44,240,12{176,19,177,214,209,212{144,13,240,2,176,30{200,196,204,240,227,176{23,144,223,169,1,133{218,164,205,136,177,214{72,177,212,145,214,104{145,212,192,0,208,241{232,224,0,208,2,230{207,228,208,208,172,165{209,197,207,208,166,165{218,201,0,208,144,96d}e}Ԡf}ŠŠԠg}FROM ANTIC, OCT/NOV 1982h}i}BBGOSUB 32120 FROM MAIN PROGRAM TO TO LOAD ML SORT SUBROUTINE,j}22THEN CALL BUBBLESORT FROM BASIC PROGRAM WITHk}77BSX=USR(ADR(BUBBLESORT$),P1,P2,P3,P4.1,P4.2,P4.3)l}m}SORT PARAMETERSn}<<-P1: ADDRESS OF STRING CONTAINING RECORDS TO BE SORTEDo}%%-P2:RECORD LENGTH (<=256 BYTES)p}((-P3:NUMBER OF RECORDS TO BE SORTEDq}..-P4.1,P4.2,P4.3:DEFINITION OF SORT FIELDr}GG-(THESE THREE NUMBERS ARE ONE SORT FIELD SET. ANY NUMBER OF SORTs}EE-FIELD SETS MAY BE SPECIED, IN MAJOR TO MINOR ORDER OF SORTING)t}66--POSITION IN RECORD OF FIRST BYTE OF SORT FIELDu}//--LENGTH OF SORT FIELD (<= RECORD LENGTH)v}!!--0=ASCENDING, 1=DESCENDINGw}x};A,}}: #B!0!-@A%"367<,.>:,7 :$}ll216,104,56,233,3,133,217,104,133,204,104,133,203,104,133,215,104,133,214,104,133,210,104,133,209,162,0}kk104,104,157,0,1,232,228,217,208,246,56,165,209,233,2,133,209,165,210,233,0,133,210,48,108,165,209,133}ll211,165,210,133,212,165,204,133,206,133,208,165,203,133,205,24,101,214,133,207,165,208,101,215,133,208}ll160,0,185,0,1,190,2,1,134,218,190,1,1,200,200,200,132,216,168,136,177,205,209,207,240,12,165,218,208,4}kk144,16,176,46,144,44,176,10,200,202,208,234,164,216,196,217,208,210,198,211,169,255,197,211,208,6,166}jj212,240,11,198,212,165,208,133,206,165,207,24,144,172,165,213,240,4,134,213,208,148,96,134,213,160,0}II177,205,170,177,207,145,205,138,145,207,200,196,214,208,241,240,203 D:BBLSORT.BAS