home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug088.ark / EPCLEAR.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  947 b   |  30 lines
  1. 1000 rem THIS IS THE EMPLOYEE PAYROLL CLEARING PROGRAM (EPCLEAR)
  2. 1300 DIM N(2,5),N$(250)
  3.      z5$="b:ep"
  4.      if end #1 then 10000
  5. 1500 open z5$ recl 512 as 1
  6.      z3=(size(z5$)*2048)/512
  7.      for z2=1 to z3
  8.      read #1,z2;n(2,1),n(2,2),n$
  9.      if n(2,2)=0 then 1530
  10.      next z2
  11. 1530 z3=int(z3)-1
  12.      close 1
  13. 1610 z2=z2-1
  14. 6000 open z5$ recl 512 as 1
  15. 6010 N$=""
  16. 6020 FOR I=1 TO Z2
  17.      read #1,I;n(2,1),n(2,2),n$,n,r,h1,h2,h3,e0,e1,e2,f1,f2,f3,\
  18.           e3,e4,e5,e6,e7,e8,s1,s2,s3,m1,m2,m3
  19. 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
  20. 8010 F1=0:F2=0:F3=0:S1=0:S2=0:S3=0:M1=0:M2=0:M3=0
  21.      print #1,I;n(2,1),n(2,2),n$,n,r,h1,h2,h3,e0,e1,e2,f1,f2,f3,\
  22.           e3,e4,e5,e6,e7,e8,s1,s2,s3,m1,m2,m3
  23. 9015 N$=""
  24. 9020 NEXT I
  25.      STOP
  26. 10000 print:print:print "Please install employee payroll file in"
  27.       print "drive B, then type return to continue.":print
  28.       input line temp$
  29.       goto 1500
  30.