ChipMaster
/
bwBASIC
1
0
Fork 0
Code Issues 22 Pull Requests 0 Releases 17 Wiki Activity
ChipMaster's bwBASIC This also includes history going back to v2.10. *WARN* some binary files might have been corrupted by CRLF.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
11 Commits
3 Branches
4.5 MiB
 
 
 
 
 
 
Tree: 5a220d5b6b
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '5a220d5b6b'
${ noResults }
bwBASIC/C77B/EPCHECKS.BAS

173 lines
3.7 KiB
Raw Blame History 

  1. 1     rem This is the Payroll Check Printer

  2. 

  3. 

  4. %INCLUDE ALL.BAS

  5. 

  6. 500     dim TC%(28),n(2,20),k$(3,20),h(9),s(9),t(4,9)

  7.      print clear$:print

  8. 

  9.  z5$="ep":z6$="tm":z7$="epsize"

  10. 

  11. 

  12.  fmt6$="                                                            "

  13.  fmt6$=fmt6$+"                /...5../"

  14. 

  15.  fmt9$="  ####  ####   ##.##  ####.##  ####.##     -      -   ####.##"

  16.  fmt9$=fmt9$+"    ####.##     ####.##"

  17. 

  18.  fmt12$="                                  SDI       MISC"

  19. 

  20.  fmt13$="                                                           "

  21.  fmt13$=fmt13$+"                 ########"

  22. 

  23.  fmt16$="  ####.##   ####.##   ####.##   ####.##   ####.##          "

  24.  fmt16$=fmt16$+"                  ####.##"

  25. 

  26.  fmt19$=" /...5...10...15...20.../"

  27. 

  28.  fmt20$=" /...5...10/                                                "

  29.  fmt20$=fmt20$+"                 ####.##"

  30. 

  31.  fmt32$="                                           "

  32.  fmt32$=fmt32$+"/...5../   ########      $$#####.##"

  33. 

  34.  fmt33$="        /...5...10...15...20.../"

  35.  fmt34$="        /...5...10...15...20.../"

  36.  fmt35$="        /...5...10...15./, //  /.../"

  37. 

  38.      RESTORE

  39. 1075 N(1,3)=24:N(1,4)=24:N(1,5)=24:N(1,6)=17:N(1,7)=2:N(1,8)=5

  40. 1080 N(1,9)=14:N(1,10)=11:N(1,11)=8:N(1,12)=8:N(1,13)=1:N(1,14)=1:N(1,15)=1

  41. 

  42.  N$=""

  43. 

  44. 8000 PRINT clear$:PRINT

  45. 8050 PRINT "THIS IS THE PAYROLL CHECK PRINTING PROGRAM."

  46. 8060 PRINT

  47. 8070 PRINT "SET PRINTER TO TOP OF FORM ****"

  48. 8080 PRINT

  49. 8100 print "Would you like a ***VOID*** check printed to"

  50.  print "establish print positions ? (Y/N)"

  51. 

  52.  input line temp$

  53. 

  54.  if ucase$(left$(temp$,1))="Y" then GOSUB 10000

  55.  if ucase$(left$(temp$,1))<>"N" then 8000

  56. 

  57. 

  58.  open z7$ as 1

  59.   read #1;z2,z3

  60.   close 1

  61. 

  62. 8240 Z2=z2-1

  63. 8270 PRINT clear$:PRINT

  64. 8290 PRINT "CHECKS TO BE PRINTED = ",Z2

  65. 8300 PRINT

  66. 8310 INPUT "TO PRINT CHECKS, DO CARRIAGE RETURN. ";line temp$

  67. 

  68.  open z5$ recl 512 as 1

  69.  open z6$ recl 128 as 2

  70. 

  71. 8325 lprinter

  72. 8330 FOR Z5=1 TO Z2

  73. 8340 read #1,z5;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

  74. 

  75.  read #2,z5;temp1,temp2,o$,temp3,tips,temp4,temp5,  ot,dt,st,ht,vt

  76. 

  77. 8390 P4=E0-S1-M1-E3-E6-F1

  78. 

  79. 8395 Z9=1:FOR Z=3 TO 15:K$(3,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z

  80. 

  81.  temp5=temp5+st+ht+vt

  82. 

  83.  if ucase$(k$(3,14))="S" then ot=0:dt=0

  84. 

  85.  if ucase$(k$(3,14))="S" and ucase$(k$(3,15))="W" then temp5=40

  86.  if ucase$(k$(3,14))="S" and ucase$(k$(3,15))="B" then temp5=80

  87.  if ucase$(k$(3,14))="S" and ucase$(k$(3,15))="S" then temp5=86.66667

  88.  if ucase$(k$(3,14))="S" and ucase$(k$(3,15))="M" then temp5=173.33333

  89. 

  90.  if E0=0 then 8720   rem skip checks with zero gross pay

  91. 

  92. 8400 REM *** AND PRINT THE CHECK ***

  93. 

  94.  for z=1 to 5:print:next z

  95. 

  96.  print using fmt6$;d$(2)

  97. 

  98.  print:print

  99. 

  100.  print using fmt9$;temp5,ot+dt,r,temp5*r,(ot*r*1.5)+(dt*r*2),  tips,e0-tips,e0

  101. 

  102.  print:print

  103. 

  104.  print fmt12$

  105. 

  106.  print using fmt13$;temp1

  107. 

  108.  print:print

  109. 

  110.  print using fmt16$;f1,e3,e6,s1,m1,s1+f1+e3+e6+m1

  111. 

  112.  print:print

  113. 

  114.  print using fmt19$;o$

  115.  print using fmt20$;k$(3,10),p4

  116. 

  117.  for z=1 to 11:print:next z

  118. 

  119.  print using fmt32$;d$(1),temp1,p4

  120.  print using fmt33$;k$(3,3)

  121.  print using fmt34$;k$(3,5)

  122.  print using fmt35$;k$(3,6),k$(3,7),k$(3,8)

  123. 

  124.  for z=1 to 7:print:next z

  125. 

  126. 

  127. 8720 NEXT Z5

  128. 8730 close 1:close 2

  129. 8740 console

  130. 8750 CHAIN "master5"

  131. 

  132. 

  133. 10000 REM *** AND PRINT A ***VOID*** CHECK ***

  134. 

  135.  lprinter

  136. 

  137.  k$(3,3)="*** VOID ***"

  138. 

  139.  for z=1 to 5:print:next z

  140. 

  141.  print using fmt6$;d$(2)

  142. 

  143.  print:print

  144. 

  145.  print using fmt9$;temp5,ot+dt,r,temp5*r,(ot*r*1.5)+(dt*r*2),  tips,e0-tips,e0

  146. 

  147.  print:print

  148. 

  149.  print fmt12$

  150. 

  151.  print using fmt13$;temp1

  152. 

  153.  print:print

  154. 

  155.  print using fmt16$;f1,e3,e6,s1,m1,s1+f1+e3+e6+m1

  156. 

  157.  print:print

  158. 

  159.  print using fmt19$;o$

  160.  print using fmt20$;k$(3,10),p4

  161. 

  162.  for z=1 to 11:print:next z

  163. 

  164.  print using fmt32$;d$(1),temp1,p4

  165.  print using fmt33$;k$(3,3)

  166.  print using fmt34$;k$(3,5)

  167.  print using fmt35$;k$(3,6),k$(3,7),k$(3,8)

  168. 

  169.  for z=1 to 7:print:next z

  170. 

  171.  console

  172.  RETURN