2 ! ARRANGES PAYROLL JOURNAL EXPENSE FILE! 5 ! PROGRAM NAME:"ARGPRJ" - BY JAC 10 OPEN "DK1:PAYROL.PRJ" AS FILE 1%:DIM #1%,J$(1500%)=64%,J%(0%):N%=J%(0%): DIM I%(1500%) 12 OPEN "DK1:PAYROL.ARG" AS FILE 2%:DIM #2%,J(1500%) 15 J(K%)=VAL(MID(J$(K%),27%,4%)) FOR K%=1% TO N% 20 I%(K%)=0% FOR K%=1% TO N%:GOSUB 200 25 J(K%)=VAL(MID(J$(K%),48%,2%)+MID(J$(K%),55%,6%)+MID(J$(K%),51%,4%)+ MID(J$(K%),45%,3%)+MID(J$(K%),50%,1%)) FOR K%=1% TO N% 30 GOSUB 200:CLOSE 1%,2%:KILL "DK1:PAYROL.ARG":CHAIN "DT0:PRTPRJ.BAS" 200 M=J(1%):FOR K%=2% TO N%:IF J(K%)>M THEN M=J(K%):GOTO 215 205 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% 210 NEXT J% 215 NEXT K% 220 FOR K%=1% TO N%:IF I%(K%)=0% THEN 230 ELSE J%=K%:T$=J$(K%) 225 T1$=J$(J%+I%(J%)):J$(J%+I%(J%))=T$:L%=J%:J%=L%+I%(L%):I%(L%)=0%:T$=T1$: GOTO 225 IF J%<>K% 230 NEXT K%:RETURN 240 END