2 ! SETS UP ORIGINAL PAYROLL DISK
5 ! PROGRAM NAME:"SUPPRD" - BY JAC
10 OPEN "DK1:PAYROL.MST" AS FILE 1%
15 DIM #1%,A$(1500%)=128%,A%(0%):A$(1500%)="":A%(0%)=0%:CLOSE 1%
20 OPEN "DK1:PAYROL.MDR" AS FILE 1%
25 DIM #1%,M$(1500%)=128%,M%(0%),D$(0%)=8%:M$(1500%)="":M%(0%)=0%
30 D$(0%)=SPACE$(8%):CLOSE 1%
35 OPEN "DK1:PAYROL.SCR" AS FILE 1%
40 DIM #1%,S$(1500%)=128%,S%(0%):S$(1500%)="":S%(0%)=0%:CLOSE 1%
45 OPEN "DK1:PAYROL.TCF" AS FILE 1%
50 DIM #1%,T$(500%)=64%,T%(0%):T$(500%)="":T%(0%)=0%:CLOSE 1%
55 OPEN "DK1:PAYROL.PLF" AS FILE 1%
60 DIM #1%,L$(200%)=64%,L%(0%):L$(200%)="":L%(0%)=0%:CLOSE 1%
65 OPEN "DK1:PAYROL.PAF" AS FILE 1%
70 DIM #1%,A1$(100%)=64%,A1%(0%):A1$(100%)="":A1%(0%)=0%:CLOSE 1%
75 OPEN "DK1:PAYROL.PRJ" AS FILE 1%
80 DIM #1%,J$(1500%)=64%,J%(0%):J$(1500%)="":J%(0%)=0%:CLOSE 1%
85 OPEN "DK1:PAYROL.RCP" AS FILE 1%
90 DIM #1%,R$(1000%)=64%,R%(0%):R$(1000%)="":R%(0%)=0%:CLOSE 1%
95 OPEN "DK1:PAYROL.YTD" AS FILE 1%
100 DIM #1%,Y$(1500%)=64%,Y%(0%):Y$(1500%)="":Y%(0%)=0%:CLOSE 1%
105 OPEN "DK1:PAYROL.QRT" AS FILE 1%
110 DIM #1%,Q$(1500%)=64%,Q%(0%):Q$(1500%)="":Q%(0%)=0%:CLOSE 1%
115 OPEN "DK1:PAYROL.DED" AS FILE 1%
120 DIM #1%,D1$(30%)=32%,D%(0%):D1$(30%)="":D%(0%)=0%:CLOSE 1%
125 OPEN "DK1:PAYROL.CHK" AS FILE 1%
130 DIM #1%,C$(1000%)=64%,C%(0%):C$(1000%)="":C%(0%)=0%:CLOSE 1%
135 OPEN "DK1:PAYROL.FND" AS FILE 1%
140 DIM #1%,F$(20%)=32%,F%(0%):F$(20%)="":F%(0%)=0%:CLOSE 1%
145 OPEN "DK1:PAYROL.TPY" AS FILE 1%
150 DIM #1%,T1$(700%)=64%,T1%(0%):T1$(700%)="":T1%(0%)=0%:CLOSE 1%
155 OPEN "DK1:PAYROL.ASC" AS FILE 1%
160 DIM #1%,A2$(700%,20%)=64%,A2%(0%):A2$(700%,20%)="":A2%(0%)=0%:CLOSE 1%
165 END