home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug087.ark / EPCUTS.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-10-20  |  4.4 KB  |  140 lines
  1.      rem This is the Payroll Cutoff and Percentage Entry Program
  2.  
  3. %INCLUDE ALL.BAS
  4.      dim n(2,20),k$(6,20),c(10)
  5.      z5$="b:epc":z6$=z5$+"back"
  6.      repeat$="--------------------------------"
  7.      fill$="                               "
  8.      RESTORE
  9. 540 K$(6,1)="1 - ENTER CUTOFFS":K$(6,2)="2 - EXAMINE CUTOFFS"
  10. 550 K$(6,3)="3 - MODIFY CUTOFFS"
  11. 570 K$(6,4)="4 - CREATE NEW FILE":K$(6,5)="5 - CLEAR EXISTING FILE"
  12. 590 K$(6,6)="6 - FINISHED"
  13.      print clear$:print
  14. 1100 K$(1,1)="FICA CUTOFF":K$(1,2)="FICA PERCENT"
  15. 1105 K$(1,3)="STATE DIS INS"
  16. 1110 K$(1,4)="SDI PERCENT"
  17. 1115 K$(1,5)="FED UNEMPLOYMENT"
  18. 1120 K$(1,6)="FUTA PERCENT"
  19. 1125 K$(1,7)="STATE UNEMPLOYMENT"
  20. 1130 K$(1,8)="SUTA PERCENT"
  21. 1200 K$(2,1)="1 - FICA CUTOFF":K$(2,2)="2 - FICA PERCENT"
  22. 1205 K$(2,3)="3 - STATE DIS INS"
  23. 1210 K$(2,4)="4 - SDI PERCENT"
  24. 1215 K$(2,5)="5 - FED UNEMPLOYMENT"
  25. 1220 K$(2,6)="6 - FUTA PERCENT"
  26. 1225 K$(2,7)="7 - STATE UNEMPLOYMENT"
  27. 1230 K$(2,8)="8 - SUTA PERCENT"
  28. 1235 K$(2,9)="9 - NONE"
  29. 1300 N(1,1)=12:N(1,2)=12:N(1,3)=12:N(1,4)=12:N(1,5)=12:N(1,6)=12
  30. 1305 N(1,7)=12:N(1,8)=12
  31.      if end #1 then 6000
  32. 1500 open z5$ as 1
  33.      close 1
  34. 1510 Z1=1:Z2=1
  35. 1600 PRINT clear$
  36. 1605 PRINT
  37. 1650 PRINT "THIS IS A LIST OF OPERATIONS."
  38. 1655 PRINT
  39. 1660 FOR Z=1 TO 6:PRINT K$(6,Z):NEXT Z:PRINT
  40. 1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING"
  41. 1670 PRINT "THE CORRESPONDING NUMBER."
  42. 1675 PRINT
  43. 1680 INPUT Z
  44.     IF Z<1 OR Z>6 then 1600
  45. 1685 ON Z GOSUB 2000,3000,4000,6000,7000,10000
  46. 1690 FOR Z=1 TO 10:C(Z)=0:NEXT Z:N$=""
  47. 1705 GOTO 1600
  48. 2000 PRINT clear$:PRINT
  49. 2005 PRINT "PAYROLL CUTOFF FIGURES ARE USED IN CALCULATING VARIOUS"
  50. 2010 PRINT "PAYROLL DEDUCTIONS. BE SURE THE SUTA PERCENTAGE FIGURE"
  51. 2015 PRINT "IS SET FOR THE CURRENT FIGURE ON YOUR STATE FORMS."
  52. 2025 PRINT
  53. 2040 FOR Z=1 TO 8
  54.     PRINT CUR$
  55. 2045 PRINT TAB(30);left$(repeat$,n(1,z))
  56.     PRINT UP$;
  57. 2050 PRINT K$(1,Z);TAB(28);
  58. 2055 INPUT C(Z):PRINT chr$(13)
  59.     PRINT CLEAR$
  60. 2060 NEXT Z
  61. 2105 PRINT clear$:PRINT
  62. 2115 FOR Z=1 TO 9
  63. 2120 PRINT K$(2,Z);TAB(30);C(Z)
  64. 2125 NEXT Z
  65. 2145 PRINT
  66. 2150 PRINT "IF AN ITEM IS TO BE CHANGED, TYPE THE APPROPRIATE NUMBER."
  67. 2155 PRINT:INPUT Z
  68. 2160 PRINT
  69. 2165 IF Z>8 THEN 2225
  70. 2170 IF Z<1 THEN 2105
  71. 2180 PRINT TAB(30);left$(repeat$,n(1,z))
  72.     PRINT UP$;
  73. 2185 PRINT K$(1,Z);TAB(28);
  74. 2190 INPUT C(Z)
  75. 2225 INPUT "ANY MORE CHANGES";line temp$
  76. 2230 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2105
  77. 2235 PRINT
  78. 2240 INPUT "IS RECORD TO BE ENTERED";line temp$
  79. 2245 PRINT
  80. 2250 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2280
  81. 2255 IF left$(temp$,1)<>"n" AND left$(temp$,1)<>"N" THEN 2235
  82. 2260 PRINT clear$:PRINT
  83. 2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT
  84. 2275 FOR Z=1 TO 200:NEXT Z:RETURN
  85. 2276 Z1=1
  86. 2280 open z5$ as 1
  87.      print #1;c(1),c(2),c(3),c(4),c(5),c(6),c(7),c(8)
  88.      close 1
  89. 2300 RETURN
  90. 3000 PRINT clear$:PRINT
  91. 3010 open z5$ as 1
  92.      read #1;c(1),c(2),c(3),c(4),c(5),c(6),c(7),c(8)
  93.      close 1
  94. 3030 PRINT
  95.     PRINT "Should this be a 'hard-copy' listing (Y or N)?"
  96.     INPUT LINE LIST$
  97.     IF LIST$="y" OR LIST$="Y" THEN LPRINTER
  98. 3035 FOR Z=1 TO 8
  99. 3040 PRINT K$(1,Z);TAB(30);C(Z)
  100. 3045 NEXT Z
  101.     PRINT CHR$(13):PRINT CHR$(12)
  102.     CONSOLE
  103. 3070 PRINT
  104. 3080 PRINT "IF FINISHED, TYPE F - RETURN.":PRINT
  105. 3085 INPUT line temp$
  106. 3095 RETURN
  107. 4000 PRINT clear$:PRINT
  108. 4010 open z5$ as 1
  109.      read #1;c(1),c(2),c(3),c(4),c(5),c(6),c(7),c(8)
  110.      close 1
  111. 4070 GOTO 2105
  112. 6000 PRINT clear$:PRINT
  113. 6005 PRINT "IF YOU HAVE ARRIVED HERE, AND HAVE A CUTOFF FILE"
  114. 6010 PRINT "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN"
  115. 6015 PRINT "TYPE THE LETTER C FOLLOWED BY A RETURN TO CONTINUE."
  116. 6020 PRINT
  117. 6025 PRINT "IF YOU WISH TO CREATE A NEW FILE, TYPE THE LETTER N"
  118. 6030 PRINT "FOLLOWED BY RETURN.":PRINT
  119. 6035 INPUT line temp$
  120. 6040 IF temp$="c" OR temp$="C" THEN INITIALIZE:GOTO 1500
  121. 6045 PRINT clear$:PRINT
  122. 6055 create z5$ as 1
  123.      print #1;c(1),c(2),c(3),c(4),c(5),c(6),c(7),c(8)
  124.      close 1
  125. 6095 PRINT clear$:PRINT
  126. 6100 PRINT "CUTOFF FILE CREATED AND CLEARED.":PRINT
  127. 6110 PRINT "TO CONTINUE, TYPE RETURN.":INPUT line temp$
  128. 6115 GOTO 1600
  129. 7000 INPUT "ARE YOU SURE !!! (YES OR NO)";line temp$
  130. 7007 IF temp$<>"YES" THEN RETURN
  131. 7010 open z5$ as 1
  132.      print #1;c(1),c(2),c(3),c(4),c(5),c(6),c(7),c(8)
  133.      close 1
  134. 7035 PRINT clear$:PRINT
  135. 7040 PRINT "CUTOFF FILE CLEARED!":PRINT
  136. 7045 PRINT "TO CONTINUE, TYPE RETURN."
  137. 7050 INPUT line temp$
  138. 7060 RETURN
  139. 10000 CHAIN "MASTER15"
  140.