^__ SORTFILEFILE2DRVDR2PROGPROG2SDRV2DRECCRFIELKEORDEMPFLEFPOFNUBA S."D:FIELDSRT""""Ԡ""""(fixed length record sort)"""" "" (}@@ :(Advanced Data Base SystemsLAA(^AR@p@@dB7t@d@.@@K:E( for directionsH(_( for sort programo( |)@(>:,$"@h@$ B$"@@$ A!!@h)@@dgG;@,;@,;@,;@,;@,;A,`6-+I:,&A,g;,i% 6. 67,. %67@,.nm (>:A%, one moment ..* B7(>:A%,:(LAVA ^@@m( p ( (rx@.@@K:>( O( `( t-@Ax sAVA$t-)@6-&@H-(Ž u%"@6-% A v%"@6-@% A w!!@)@Ax 6.6. 6.D6.D( 5 @)!@+( ϠȠ5 A@3 6-B:, 67%@,.=:,367%@,.:&("( &5 @)!@+( ϠȠ5 Ap3 6-B:, 67%@,.=:,367%@,.:7 6-B:,67%@,.&6-B:,767%@,.b(!( %.6-B:,?67%@,.H6-B:,b67%@,.7@,)()(ԠŠˠΠ ))@.@@K:@@@ R@@p(Ӡ٠٠Ϡ})@@(}1.( 7@, 1(5@ AD5@@1)@"AU'@1 A7 (>:, A34( (#(SORT ON WHICH FIELD '4(>:A%,?6-6-'6-36-@?6-5 AD@5@@26-%@%6-%@$+,2)@nF:A,"Ap8(7@, NOT ON DRIVE B BEgTAd67@,.n A (>:,"AQ9"@26-&@+6-%@9AU"AUAi AC6-%@)@ (>:,"AU*"Ai"AU*A"@2AU %@2*6-%6-@  AC *@6-&@*A((RECORD LENGTH IS ##(FIELD TO BE SORTED ON IS (FIELD STARTS AT (FIELD LENGTH IS  A6-%@A 6-& AqB(6(}THERE IS NO FIELD  IN THIS RECORD.B6-@:(3-@A7 :%"9@;&@,+6-&@96-&@,(( 1( 2#"#(3$"@$(4(6+@+@@@ AJ 6-T6-%@^1@17@<@,4 APh67$&<$,.r A@%@%(&@ ( 箮&&6-?:C:,(@7$&<$,H z@ A^&(ٯ1@Q@@K:^)@$"@@$ AP$"@x@$ A !!@)@xA'('R' H(S@s@@K:)@$d"@'6-%+",2@8(};(Z(d AP.$@@$ AU_@.@@K:R(}ٯ_)@"@%4"@x@$+1(basic is4!!@)@xA 'I (}I(;Quick sort was designed to sort fixed length record files.'BB(:The records may be sorted in ascendingor descending order.'EB(:Quicksort will read in one record and display that record.E($'33(+You then choose the field on which to sort.)'p(+( The field choices are numerical.p(@The first field of the record is 1, the second is 2 and so on..'UU(LThe total record length will be dis- played, followed by your field choice,8'JJ(Bits starting position in the record and the length of the field.='''(>'AR@L'@.@@K:@@@!R@@b( To continuet@@"@@( Q'()@@((>:A%,*?@'@@<(?(*kk(cNumerical fields should be padded with zeros so the field is the same length for all entries.+(+&&(100 DIM NUM$(6),Z$(6),REC$(35) +""(110 Z$='000000':INPUT NUM$ +GG(?120 J=LEN(NUM$):L=6:Z$(L-J+1)=NUM$:NUM$=Z$:Z$='''':REM CLEAR Z$+&&(130 J=LEN(REC$):REC$(J+1)=NUM$+EE(=This insures all numbers input will bethe same field length.+'((000001(093454'(123456H+7@@ '@@7( To continueR+xAU@'@@!9@@I( [AU@xF:B2y,@BW+AU@ A.& N ML SORT$N-@A%N"67<,.>:, *Nll216,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,04Noo104,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,211>Nll165,210,133,212,165,204,133,206,133,208,165,203,123,205,24,101,214,133,207,165,208,101,215,133,208,160HNll0,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,144RNoo16,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,212,240\Nnn11,198,212,165,208,133,206,165,207,24,144,172,165,213,240,4,134,213,208,148,96,134,213,160,0,177,205,170fN==177,207,145,205,138,145,207,200,196,214,208,241,240,203N9$9STOP :REM X=USR(ADR(SORT$),ADR(B$),35,REC,1,10,0 D:FILDSORT