2 ! SETS UP NEW MONTHS PAYROLL DISK AND ZEROS ZERO BALANCES IN ASC FILE.
5 ! PROGRAM NAME:"NEWPRZ" - BY JAC
10 PRINT "MOUNT THE PAST MONTHS PAYROLL DISK ON DISK"
15 PRINT "DRIVE 1 AND THE NEXT MONTHS PAYROLL DISK ON DISK"
20 INPUT "DRIVE 2.  ARE THEY READY? - Y OR N";A$
25 IF A$<>"Y" THEN 10
30 OPEN "DK1:PAYROL.MST" AS FILE 1%:DIM #1%,A$(1500%)=128%,A%(0%)
35 OPEN "DK2:PAYROL.MST" AS FILE 2%:DIM #2%,A1$(1500%)=128%,A1%(0%)
40 N%=A%(0%):A1%(0%)=N%:F%=VAL(RIGHT(DATE$(0%),9%))+1%:F$=MID(NUM$(F%),2%,1%)
45 A1$(K%)=LEFT(A$(K%),58%)+F$+RIGHT(A$(K%),60%) FOR K%=0% TO N%
50 CLOSE 1%,2%
55 OPEN "DK1:PAYROL.MDR" AS FILE 1%:DIM #1%,M$(1500%)=128%,M%(0%),D$(0%)=8%
60 OPEN "DK2:PAYROL.MDR" AS FILE 2%:DIM #2%,M1$(1500%)=128%,M1%(0%),D1$(0%)=8%
65 M1%(0%)=N%:D1$(0%)=SPACE$(8%)
70 M1$(K%)=M$(K%) FOR K%=0% TO N%
75 CLOSE 1%,2%
80 OPEN "DK1:PAYROL.SCR" AS FILE 1%:DIM #1%,S$(1500%)=128%,S%(0%)
85 OPEN "DK2:PAYROL.SCR" AS FILE 2%:DIM #2%,S1$(1500%)=128%,S1%(0%)
90 S1%(0%)=N%
95 S1$(K%)=S$(K%) FOR K%=0% TO N%
100 CLOSE 1%,2%
105 OPEN "DK2:PAYROL.TCF" AS FILE 1%:DIM #1%,T$(500%)=64%,T%(0%)
110 T%(0%)=0%:CLOSE 1%
115 OPEN "DK2:PAYROL.PLF" AS FILE 1%:DIM #1%,L$(200%)=64%,L%(0%)
120 L%(0%)=0%:CLOSE 1%
125 OPEN "DK2:PAYROL.PAF" AS FILE 1%:DIM #1%,A2$(100%)=64%,A2%(0%)
130 A2%(0%)=0%:CLOSE 1%
135 OPEN "DK2:PAYROL.PRJ" AS FILE 1%:DIM #1%,J$(1500%)=64%,J%(0%)
140 J%(0%)=0%:CLOSE 1%
142 OPEN "DK1:PAYROL.PRO" AS FILE 1%:DIM #1%,O$(700%)=64%,O%(0%):
	O%(0%)=0%:CLOSE 1%
145 OPEN "DK2:PAYROL.RCP" AS FILE 1%:DIM #1%,R$(1000%)=64%,R%(0%)
150 R%(0%)=0%:CLOSE 1%
155 OPEN "DK1:PAYROL.YTD" AS FILE 1%:DIM #1%,Y$(1500%)=64%,Y%(0%)
160 OPEN "DK2:PAYROL.YTD" AS FILE 2%:DIM #2%,Y1$(1500%)=64%,Y1%(0%)
165 Y1%(0%)=N%
170 Y1$(K%)=Y$(K%) FOR K%=0% TO N%
175 CLOSE 1%,2%
180 OPEN "DK1:PAYROL.QRT" AS FILE 1%:DIM #1%,Q$(1500%)=64%,Q%(0%)
185 OPEN "DK2:PAYROL.QRT" AS FILE 2%:DIM #2%,Q1$(1500%)=64%,Q1%(0%)
190 Q1%(0%)=N%
195 Q1$(K%)=Q$(K%) FOR K%=0% TO N%
200 CLOSE 1%,2%
205 OPEN "DK1:PAYROL.DED" AS FILE 1%:DIM #1%,D2$(30%)=32%,D2%(0%)
210 OPEN "DK2:PAYROL.DED" AS FILE 2%:DIM #2%,D3$(30%)=32%,D3%(0%)
215 N%=D2%(0%):D3%(0%)=N%
220 D3$(K%)=D2$(K%) FOR K%=1% TO N%
225 CLOSE 1%,2%
230 OPEN "DK2:PAYROL.CHK" AS FILE 1%:DIM #1%,C3$(1000%)=64%,C3%(0%)
235 C3%(0%)=0%:CLOSE 1%
240 OPEN "DK1:PAYROL.FND" AS FILE 1%:DIM #1%,F$(20%)=32%,F%(0%)
245 OPEN "DK2:PAYROL.FND" AS FILE 2%:DIM #2%,F1$(20%)=32%,F1%(0%)
250 N%=F%(0%):F1%(0%)=N%
255 F1$(K%)=F$(K%) FOR K%=1% TO N%
260 CLOSE 1%,2%
265 OPEN "DK2:PAYROL.TPY" AS FILE 1%:DIM #1%,T1$(700%)=64%,T1%(0%)
270 T1%(0%)=0%:CLOSE 1%
275 OPEN "DK1:PAYROL.ASC" AS FILE 1%:DIM #1%,C$(700%,20%)=64%,C%(0%)
280 OPEN "DK2:PAYROL.ASC" AS FILE 2%:DIM #2%,C1$(700%,20%)=64%,C1%(0%)
285 N%=C%(0%):I%=0%:C$(0%,J%)=SPACE$(64%) FOR J%=0% TO 20%
290 FOR K%=1% TO N%:IF MID(C$(K%,0%),43%,1%)="Z" THEN 294 ELSE I%=I%+1%
292 C1$(I%,J%)=C$(K%,J%) FOR J%=0% TO 20%
294 NEXT K%:C1%(0%)=I%
295 CLOSE 1%,2%:PRINT "NEXT MONTHS PAYROLL DISK IS READY."
300 END