home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG088.ARK
/
EPCLEAR.BAS
< prev
next >
Wrap
BASIC Source File
|
1984-04-29
|
947b
|
30 lines
1000 rem THIS IS THE EMPLOYEE PAYROLL CLEARING PROGRAM (EPCLEAR)
1300 DIM N(2,5),N$(250)
z5$="b:ep"
if end #1 then 10000
1500 open z5$ recl 512 as 1
z3=(size(z5$)*2048)/512
for z2=1 to z3
read #1,z2;n(2,1),n(2,2),n$
if n(2,2)=0 then 1530
next z2
1530 z3=int(z3)-1
close 1
1610 z2=z2-1
6000 open z5$ recl 512 as 1
6010 N$=""
6020 FOR I=1 TO Z2
read #1,I;n(2,1),n(2,2),n$,n,r,h1,h2,h3,e0,e1,e2,f1,f2,f3,\
e3,e4,e5,e6,e7,e8,s1,s2,s3,m1,m2,m3
8000 H1=0:H2=0:H3=0:E0=0:E1=0:E2=0:E3=0:E4=0:E5=0:E6=0:E7=0:E8=0
8010 F1=0:F2=0:F3=0:S1=0:S2=0:S3=0:M1=0:M2=0:M3=0
print #1,I;n(2,1),n(2,2),n$,n,r,h1,h2,h3,e0,e1,e2,f1,f2,f3,\
e3,e4,e5,e6,e7,e8,s1,s2,s3,m1,m2,m3
9015 N$=""
9020 NEXT I
STOP
10000 print:print:print "Please install employee payroll file in"
print "drive B, then type return to continue.":print
input line temp$
goto 1500