2 ! SETS UP ORIGINAL GENERAL LEDGER DISK!
5 ! PROGRAM NAME: "SUPGLD" - BY JAC.
10 W%=1%:D9$="DK1:GLFILE.":OPEN D9$+"MST" AS FILE W%:DIM #1%,G$(4000%)=64%,
	G%(0%):G%(0%),V%=0%:CLOSE W%
15 OPEN D9$+"EXP" AS FILE W%:DIM #1%,U1$(4000%)=64%,U%(0%):U%(V%)=V%:CLOSE W%
20 OPEN D9$+"FND" AS FILE W%:DIM #1%,F$(20%)=32%,F%(0%):F%(V%)=V%:CLOSE W%
25 OPEN D9$+"LOC" AS FILE W%:DIM #1%,L$(100%)=32%,L%(0%):L%(V%)=V%:CLOSE W%
30 OPEN D9$+"PGM" AS FILE W%:DIM #1%,P$(300%)=32%,P%(0%):P%(V%)=V%:CLOSE W%
35 OPEN D9$+"BDT" AS FILE W%:DIM #1%,B$(600%)=32%,B%(0%):B%(V%)=V%:CLOSE W%
40 END