2 ! ARRANGES GENERAL LEDGER BALANCE FORWARD FILE BY A G.L. SORT! 5 ! PROGRAM NAME: "ARGMST" - BY JAC. 10 INPUT "DISK #";D9$:D9$="DK"+D9$+":GLFILE.":W%=1%:X%=2%:Y%=3% :V%=0% 15 OPEN D9$+"MST" AS FILE W%:DIM #1%,G$(4000%)=64%,G%(0%):G%=G%(V%): DIM I%(4000%):OPEN D9$+"ARG" AS FILE X%:DIM #2%, J(4000%) 20 J(K%)=VAL(MID(G$(K%),4%,X%)+MID(G$(K%),11%,6%)+LEFT(G$(K%),Y%)+ MID(G$(K%),7%,4%)+MID(G$(K%),6%,W%)) FOR K%=W% TO G% 25 I%(K%)=V% FOR K%=W% TO G% 30 M=J(W%):FOR K%=X% TO G%:IF J(K%)>M THEN M=J(K%):GOTO 45 35 T=J(K%):FOR J%=K%-W% TO W% STEP -W%:IF J(J%)>T THEN I%(K%)=I%(K%)-W%: I%(J%)=I%(J%)+W% 40 NEXT J% 45 NEXT K%:FOR K%=W% TO G%:IF I%(K%)=V% THEN 55 ELSE J%=K%:T$=G$(K%) 50 T1$=G$(J%+I%(J%)):G$(J%+I%(J%))=T$:L%=J%:J%=L%+I%(L%):I%(L%)=V%:T$=T1$: GOTO 50 IF J%<>K% 55 NEXT K% 70 CLOSE W%,X%:KILL D9$+"ARG":PRINT "GL MST READY AT ";TIME$(V%) 80 END