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 / EPLIST.BAS < prev    next >
BASIC Source File  |  1984-04-29  |  2KB  |  61 lines
  1.      rem This is the Payroll File Listing Program
  2.  
  3. %INCLUDE ALL.BAS
  4.      dim k$(4,20),n(2,20)
  5.      l$="$$##,###.##":u$="##########":v$="####"
  6.      z5$="b:ep":z6$=z5$+"back"
  7.      RESTORE
  8.      FOR Z=1 TO 17:READ N(1,Z):NEXT Z
  9.      DATA 8,10,24,24,24,17,2,5,14,11,8,8,1,1,1,4,6
  10. 1010 PRINT clear$:PRINT
  11. 1020 PRINT "*** LISTING ***"
  12. 9001 lprinter
  13. 9002 open z5$ recl 512 as 1
  14. 9003 FOR Z1=1 TO Z2-1
  15.      read #1,z1;N(2,1),N(2,2),N$,N(2,16),N(2,17),N(2,18),N(2,19),N(2,20),\
  16.           N(0,1),N(0,2),N(0,3),N(0,4),N(0,5),N(0,6),N(0,7),\
  17.           N(0,8),N(0,9),N(0,10),N(0,11),N(0,12),N(0,13),\
  18.           N(0,14),N(0,15),N(0,16),N(0,17),N(0,18)
  19. 9006 Z9=1
  20. 9007 FOR Z=3 TO 15:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z
  21.      print delim$:print:print
  22. 9010 PRINT "RECORD NUMBER";z1;TAB(31);
  23. 9012 PRINT "EMPLOYEE #";TAB(46);:print using u$;n(2,1)
  24. 9014 PRINT "ACCT NUMBER";TAB(18);:print using u$;n(2,2);
  25. 9016 PRINT TAB(31);"NAME";TAB(46);K$(3,3)
  26. 9018 PRINT TAB(31);"COMPANY";TAB(46);K$(3,4)
  27. 9020 PRINT TAB(31);"ADDRESS";TAB(46);K$(3,5)
  28. 9022 PRINT TAB(31);"CITY";TAB(46);K$(3,6)
  29. 9024 PRINT TAB(31);"STATE";TAB(46);K$(3,7);TAB(51);"ZIP";
  30. 9026 PRINT TAB(61);K$(3,8)
  31. 9028 PRINT "PHONE";TAB(16);K$(3,9);TAB(31);"SOC SEC #";
  32. 9030 PRINT TAB(46);K$(3,10)
  33. 9032 PRINT "EMPLOYED";TAB(16);K$(3,11);TAB(31);"TERMINATED";
  34. 9034 PRINT TAB(46);K$(3,12)
  35. 9036 PRINT "MARITAL";TAB(16);K$(3,13);TAB(31);"HOUR OR SA";
  36. 9038 PRINT TAB(46);K$(3,14)
  37. 9040 PRINT "PAY PERIOD";TAB(16);K$(3,15);TAB(31);"# OF EXEM";
  38. 9042 PRINT TAB(46);:print using v$;n(2,16);:PRINT TAB(51);"RATE";
  39.      print using l$;n(2,17)
  40.      print delim$
  41. 9046 PRINT TAB(16);"CURRENT";TAB(36);"QUARTER TO DATE";TAB(56);"YEAR TO DATE"
  42.      print "Hours";tab(16);
  43.      print using u$;n(2,18);tab(36);n(2,19);tab(56);n(2,20)
  44.      print "Gross Pay";tab(16);
  45.      print using l$;n(0,1);tab(36);n(0,2);tab(56);n(0,3)
  46.      print "FICA";tab(16);
  47.      print using l$;n(0,4);tab(36);n(0,5);tab(56);n(0,6)
  48.      print "Fed Tax";tab(16);
  49.      print using l$;n(0,7);tab(36);n(0,8);tab(56);n(0,9)
  50.      print "State Tax";tab(16);
  51.      print using l$;n(0,10);tab(36);n(0,11);tab(56);n(0,12)
  52.      print "SDI";tab(16);
  53.      print using l$;n(0,13);tab(36);n(0,14);tab(56);n(0,15)
  54.      print "Misc Ded";tab(16);
  55.      print using l$;n(0,16);tab(36);n(0,17);tab(56);n(0,18)
  56. 9100 print chr$(12)
  57. 9105 NEXT Z1
  58. 9110 close 1
  59. 9115 console
  60. 9120 CHAIN "epentry"
  61.