2 ! ZERO MST BALANCE FORWARD EXP. AND REV.
5 ! PROGRAM NAME:"ZEROBF" - BY JAC
10 OPEN "DK1:GLFILE.MST" AS FILE 1%:DIM #1%,G$(4000%)=64%,G%(0%):G%=G%(0%)
15 OPEN "DK1:GLFILE.NEW" AS FILE 2%:DIM #2%,G1$(4000%)=64%,G1%(0%):G1%=0%
20 FOR K%=1% TO G%:IF MID(G$(K%),11%,4%)>="2000" THEN G1%=G1%+1%:
	G1$(G1%)=G$(K%)
30 NEXT K%:G1%(0%)=G1%:PRINT G%;"ITEMS IN OLD MST":PRINT G1%;
	"ITEMS IN NEW MST":CLOSE 1%,2%
35 NAME "DK1:GLFILE.MST" AS "DK1:GLFILE.OLD":NAME "DK1:GLFILE.NEW" AS
	"DK1:GLFILE.MST"
40 OPEN "DK1:GLFILE.BBF" AS FILE 1%:DIM #1%,B$(4000%)=64%:
	OPEN "DK1:GLFILE.MST" AS FILE 2%:DIM #2%,H$(4000%)=64%,H%(0%)
50 B$(0%)=CVT%$(H%(0%)):N%=H%(0%):B$(K%)=H$(K%) FOR K%=1% TO N%:
	CLOSE 1%,2%
60 END