2 ! ARRANGES MST FOR LOCATION EXPENDITURE REPORT!
5 ! PROGRAM NAME:"ARGLOC" - BY JAC.
10 OPEN "DK1:GLFILE.MST" AS FILE 1%:DIM #1%,G$(4000%)=64%,G%(0%):G%=G%(0%)
15 OPEN "DK1:GLFILE.ARG" AS FILE 2%:DIM #2%,J(4000%):DIM I%(4000%)
20 J(K%)=VAL(LEFT(G$(K%),5%)+MID(G$(K%),11%,6%)+MID(G$(K%),7%,4%)+
	MID(G$(K%),6%,1%)) FOR K%=1% TO G%
25 I%(K%)=0% FOR K%=1% TO G%
30 M=J(1%):FOR K%=2% TO G%:IF J(K%)>M THEN M=J(K%):GOTO 45
35 T=J(K%):FOR J%=1% TO K%-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 G%:GOTO 55 IF I%(K%)=0%:J%=K%:T$=G$(K%)
50 T1$=G$(J%+I%(J%)):G$(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:GLFILE.ARG":PRINT "MST READY FOR LOCEXP AT",
	TIME$(0%)
60 END