2 ! ARRANGES GENERAL LEDGERS GENERAL FUND BY PROGRAM, THEN CHAINS TO PRINT
	AN EXPENDITURE REPORT BY PROGRAM.
5 ! PROGRAM NAME:"ARGPGM" - BY JAC
10 OPEN "DK1:GLFILE.MBK" AS FILE 1%:DIM #1%,G$(4000%)=64%,G%(0%)
15 OPEN "DK1:GLFILE.GFD" AS FILE 2%:DIM #2%,R$(2900)=64%
20 DIM J%(2900%),I%(2900%):N%=G%(0%)
25 GOTO 30 IF MID(G$(S%),4%,2%)="01" FOR S%=1% TO N%
30 J%(K%-S%+1%)=VAL(MID (G$(K%),7%,4%)) FOR K%=S% WHILE MID(G$(K%),4%,2%)="01"
35 I%(K%-S%+1%)=K%-S%+1% FOR K%=S% WHILE MID(G$(K%),4%,2%)="01"
40 N%=K%-S%:FOR K%=1% TO N%-1%:IF J%(K%)<=J%(K%+1%) THEN 55
	ELSE T%=J%(K%+1%):J%(K%+1%)=J%(K%):T1%=I%(K%+1%):I%(K%+1%)=I%(K%)
45 FOR J%=K% TO 2 STEP -1%:IF J%(J%-1%)<=T% THEN
	J%(J%)=T%:I%(J%)=T1%:GOTO 55
50 J%(J%)=J%(J%-1%):I%(J%)=I%(J%-1%):NEXT J%:J%(1%)=T%:I%(1%)=T1%
55 NEXT K%
60 R$(K%)=G$(I%(K%)) FOR K%=1% TO N%
65 R$(0%)=NUM$(N%):CLOSE 1%,2%:CHAIN "DT0:GFPMEX"
70 END