2 ! ARRANGES UER FILE! 5 ! PROGRAM NAME:"ARGUER" - BY JAC 10 OPEN "DK1:ACCPAY.UER" AS FILE 1%:DIM #1%,X$(1400%)=128%,X%(0%),U1%(0%): X%=X%(0%):DIM I%(1400%) 15 OPEN "DK1:ACCPAY.ARG" AS FILE 2%:DIM #2%,J(1400%) 20 J(K%)=VAL(MID(X$(K%),41%,2%)+MID(X$(K%),54%,5%)+MID(X$(K%),6%,6%)+ MID(X$(K%),64%,1%))*100%+ASCII(MID(X$(K%),70%,1%)) FOR K%=1% TO X% 25 I%(K%)=0% FOR K%=1% TO X% 30 M=J(1%):FOR K%=2% TO X%:IF J(K%)>M THEN M=J(K%):GOTO 45 35 T=J(K%):FOR J%=K%-1% TO 1% STEP -1%:IF J(J%)>T THEN I%(K%)=I%(K%)-1%: I%(J%)=I%(J%)+1% 40 NEXT J% 45 NEXT K%:FOR K%=1% TO X%:IF I%(K%)=0% THEN 55 ELSE J%=K%:T$=X$(K%) 50 T1$=X$(J%+I%(J%)):X$(J%+I%(J%))=T$:L%=J%:J%=L%+I%(L%):I%(L%)=0%:T$=T1$: GOTO 50 IF J%<>K% 55 NEXT K%:CLOSE 1%,2%:KILL "DK1:ACCPAY.ARG":CHAIN "DT0:UNEXRT.BAS" 110 60 END