2 ! ARRANGES PAYROLL JOURNAL OBLIGATIONS FILE!
5 ! PROGRAM NAME:"ARGPRO" - BY JAC
10 OPEN "DK1:PAYROL.PRO" AS FILE 1%:DIM #1%,O$(700%)=64%,O%(0%):O%=O%(0%):
	DIM J(700%),I%(700%)
15 J(K%)=VAL(MID(O$(K%),27%,4%)) FOR K%=1% TO O%
20 I%(K%)=0% FOR K%=1% TO O%:GOSUB 200
25 J(K%)=VAL(MID(O$(K%),48%,2%)+MID(O$(K%),55%,6%)+MID(O$(K%),51%,4%)+
	MID(O$(K%),45%,3%)+MID(O$(K%),50%,1%)) FOR K%=1% TO O%
30 GOSUB 200:CLOSE 1%:CHAIN "DT0:PRTPRO.BAS"
200 M=J(1%):FOR K%=2% TO O%:IF J(K%)>M THEN M=J(K%):GOTO 215
205 FOR J%=K%-1% TO 1% STEP -1%:IF J(J%)>J(K%) THEN I%(K%)=I%(K%)-1%:
	I%(J%)=I%(J%)+1%
210 NEXT J%
215 NEXT K%
220 FOR K%=1% TO O%:IF I%(K%)=0% THEN 230 ELSE J%=K%:T$=O$(K%)
225 T1$=O$(J%+I%(J%)):O$(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