2 ! SETS UP ORIGINAL ACCOUNTS PAYABLE DISK FILES!
5 ! PROGRAM NAME: "SUPAPD" - BY JAC.
10 W%=1%:D9$="DK1:ACCPAY.":OPEN D9$+"VBK" AS FILE W%:DIM #1%,V$(3500%)=128%,
	V%(0%):V%(0%),V%=0%:CLOSE W%
15 OPEN D9$+"INV" AS FILE W%:DIM #1%,I1$(600%)=128%,I%(0%):I%(0%)=V%:CLOSE W%
20 OPEN D9$+"PO" AS FILE W%:DIM #1%,P1$(1000%)=64%,P%(0%):P%(0%)=V%:CLOSE W%
25 OPEN D9$+"GJ" AS FILE W%:DIM #1%,G1$(50%)=128%,G%(0%):G%(0%)=V%:CLOSE W%
30 OPEN D9$+"PKC" AS FILE W%:DIM #1%,H1$(500%)=64%,H%(0%):H%(0%)=V%:CLOSE W%
35 OPEN "DK1:ACCREC.BNK" AS FILE W%:DIM #1%,B1$(250%)=64%,B%(0%):B%(V%)=V%:
	CLOSE W%
40 OPEN "DK1:ACCREC.CSH" AS FILE W%:DIM #1%,C1$(500%)=64%,C%(0%):C%(V%)=V%:
	CLOSE W%
45 OPEN "DK1:ACCREC.YEL" AS FILE W%:DIM #1%,Y1$(100%)=64%,Y%(0%):Y%(V%)=V%:
	CLOSE W%
50 OPEN "DK1:GLFILE.BDG" AS FILE W%:DIM #1%,M1$(500%)=64%,M%(0%):M%(V%)=V%:
	CLOSE W%
55 OPEN "DK1:GLFILE.JV" AS FILE W%:DIM #1%,V1$(1000%)=64%,V1%(0%):V1%(V%)=V%:
	CLOSE W%
60 OPEN D9$+"UER" AS FILE W%:DIM #1%,X$(1400%)=128%,X%(0%),U1%(0%):
	X%(V%),U1%(V%)=V%:CLOSE W%
65 OPEN D9$+"DEB" AS FILE W%:DIM #1%,D4$(25%)=64%,D%(0%):D%(V%)=V%:CLOSE W%
70 OPEN D9$+"CHK" AS FILE W%:DIM #1%,C$(1000%)=64%,C1%(0%):C1%(0%)=V%:CLOSE W%
80 END