2 ! SETS UP NEW MONTHS ACCOUNTS PAYABLE DISK
5 ! PROGRAM NAME:"NEWAPD" - BY JAC
7 PRINT "MOUNT THE PAST MONTHS GENERAL LEDGER DISK ON DRIVE 1"
8 PRINT "AND THE NEXT MONTHS GENERAL LEDGER DISK ON DRIVE 2!"
9 INPUT "ARE THEY READY - Y OR N";A$:IF A$<>"Y" THEN 7
10 OPEN "DK1:ACCPAY.VBK" AS FILE 1%:DIM #1%,V$(3500%)=128%,V%(0%)
15 OPEN "DK2:ACCPAY.VBK" AS FILE 2%:DIM #2%,V1$(3500%)=128%,V1%(0%)
20 N%=V%(0%):V1%(0%)=N%
25 V1$(K%)=V$(K%) FOR K%=1% TO N%
30 CLOSE 1%,2%:NAME "DK2:ACCPAY.VBK" AS "DK2:ACCPAY.VBK<48>"
35 OPEN "DK2:ACCPAY.INV" AS FILE 1%:DIM #1%,I1$(600%)=128%,I%(0%)
40 I%(0%)=0%:CLOSE 1%
45 OPEN "DK1:ACCPAY.PO" AS FILE 1%:DIM #1%,P1$(1000%)=64%,P1%(0%)
50 OPEN "DK2:ACCPAY.PO" AS FILE 2%:DIM #2%,P$(1000%)=64%,P%(0%)
55 N%=P1%(0%):P%(0%)=N%
60 P$(K%)=P1$(K%) FOR K%=1% TO N%
65 CLOSE 1%,2%
70 OPEN "DK2:ACCREC.BNK" AS FILE 1%:DIM #1%,B1$(250%)=64%,B%(0%)
75 B%(0%)=0%:CLOSE 1%
80 OPEN "DK2:ACCREC.CSH" AS FILE 1%:DIM #1%,C1$(500%)=64%,C1%(0%)
85 C1%(0%)=0%:CLOSE 1%
90 OPEN "DK2:GLFILE.BDG" AS FILE 1%:DIM #1%,M1$(500%)=64%,M1%(0%)
95 M1%(0%)=0%:CLOSE 1%
100 OPEN "DK2:ACCPAY.PKC" AS FILE 1%:DIM #1%,H1$(500%)=64%,H1%(0%)
105 H1%(0%)=0%:CLOSE 1%
110 OPEN "DK2:ACCPAY.GJ" AS FILE 1%:DIM #1%,G1$(50%)=128%,G1%(0%)
115 G1%(0%)=0%:CLOSE 1%
120 OPEN "DK2:ACCREC.YEL" AS FILE 1%:DIM #1%,Y1$(100%)=64%,Y1%(0%)
125 Y1%(0%)=0%:CLOSE 1%
130 OPEN "DK2:GLFILE.JV" AS FILE 1%:DIM #1%,V2$(1000%)=64%,V2%(0%)
135 V2%(0%)=0%:CLOSE 1%
140 OPEN "DK2:ACCPAY.UER" AS FILE 1%:DIM #1%,X$(1400%)=128%,X%(0%),U%(0%)
145 X%(0%)=0%:U%(0%)=0%:CLOSE 1%
150 OPEN "DK1:ACCPAY.DEB" AS FILE 1%:DIM #1%,D4$(25%)=64%,D4%(0%)
155 OPEN "DK2:ACCPAY.DEB" AS FILE 2%:DIM #2%,D3$(25%)=64%,D3%(0%)
160 N%=D4%(0%):D3%(0%)=N%
165 D3$(K%)=D4$(K%) FOR K%=1% TO N%
170 CLOSE 1%,2%
175 OPEN "DK2:ACCPAY.CHK" AS FILE 1%:DIM #1%,C$(1000%)=64%,C%(0%)
180 C%(0%)=0%:CLOSE 1%
190 END