home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug088.ark / FED941PR.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  4.0 KB  |  130 lines
  1.      rem This is the Federal Form 941 Quarterly Tax Return Printer
  2.  
  3. %INCLUDE ALL.BAS
  4.      dim n(2,20),k$(3,20),h(9),s(9),t(4,9)
  5.      print clear$:print
  6.      RESTORE
  7. 1055 T$="#,###.##"
  8. 1060 U$="##,###.##"
  9. 1065 V$="###,###.##"
  10. 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
  11. 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
  12. 1120 Z9=1
  13. 1145 Z9=0
  14. 1400 REM THIS PART GETS CUTOFFS FOR FICA,SDI,FUTA AND SUTA
  15.      open "b:epc" as 1
  16.      read #1;c1,c2,c3,c4,c5,c6,c7,c8
  17.      close 1
  18. 3000 REM READ NAME FILE SUBROUTINE
  19. 3005 a5=T%(12)
  20. 3080 N(1,10)=20:N(1,11)=20
  21. 3085 Z9=1:FOR Z=3 TO 11:K$(0,Z)=MID$(N$,Z9,N(1,Z)):Z9=Z9+N(1,Z):NEXT Z
  22. 3090 N(1,10)=11:N(1,11)=8
  23. 3125 REM ROUTINE TO ELIMINATE TRAILING BLANKS
  24.      l8=1
  25. 3130 FOR I=3 TO 11
  26.      l9=len(k$(0,i))
  27. 3140 for z=l9 to l8 step -1
  28. 3150 IF MID$(K$(0,I),Z,1)<>" " THEN 3170
  29. 3160 NEXT Z
  30. 3170 Z$=""
  31. 3180 FOR Z0=1 TO Z
  32. 3190 Z$=Z$+MID$(K$(0,I),Z0,1)
  33. 3200 NEXT Z0
  34. 3210 K$(0,I)="":K$(0,I)=Z$
  35. 3220 NEXT I
  36. 6000 REM PRINT FEDERAL FORM 941
  37. 6005 PRINT clear$:PRINT:PRINT "PRINTING FEDERAL FORM 941":P0=1
  38. 6015 open "b:ep" recl 512 as 1
  39. 6020 z3=(size("b:ep")*block.size)/512
  40. 6025 FOR Z2=1 TO Z3
  41. 6030 read #1,z2;N(2,1),N(2,2),N$,N,R,H1,H2,H3
  42. 6035 IF N(2,2)=0 THEN 6045
  43. 6040 NEXT Z2
  44. 6045 close 1
  45. 6050 Z2=Z2-1
  46. 6090 P1=1:P2=8
  47. 6095 open "b:ep" recl 512 as 1
  48. 6100 FOR Z1=1 TO Z2
  49. 9000 REM GET RECORD AND PRINT
  50. 9010 read #1,z1;N(2,1),N(2,2),N$,N,R,H1,H2,H3,\
  51.           E0,E1,E2,F1,F2,F3,E3,E4,E5,E6,E7,E8,S1,S2,S3,M1,M2,M3
  52. 9050 T1=T1+E2:T2=T2+E5
  53. 9060 IF E2>C1 THEN Z6=Z6+C1:GOTO 9080
  54. 9070 Z6=Z6+E2
  55. 9080 NEXT Z1
  56. 9085 close 1
  57. 9100 PRINT clear$:PRINT
  58. 9105 PRINT "ENTER ADJUSTMENT OF WITHHELD INCOME TAX FOR PRECEDING"
  59. 9110 PRINT "QUARTER - LINE 4. ENTER INCREASE AS +, DECREASE AS -"
  60. 9115 PRINT:INPUT T3
  61. 9150 PRINT clear$:PRINT
  62. 9155 PRINT "ENTER TAXABLE TIPS REPORTED - LINE 7."
  63. 9160 PRINT:INPUT Z7
  64. 9200 PRINT clear$:PRINT
  65. 9205 PRINT "ENTER ADJUSTMENT OF FICA TAXES - LINE 9. ENTER INCREASE"
  66. 9210 PRINT "AS +, DECREASE AS -"
  67. 9215 PRINT:INPUT T7
  68. 9250 PRINT clear$:PRINT
  69. 9255 PRINT "SET FORM 941 TO FIRST PRINT LINE.":PRINT
  70. 9260 INPUT "ENTER QUARTER NUMBER (1,2,3 OR 4). ";line temp$
  71.      lprinter
  72. 9270 IF VAL(temp$)=1 THEN print TAB(78);Z2:GOTO 9280
  73. 9280 print TAB(74);:print using v$;t1
  74. 9285 T4=Z6*C2*2:T5=Z7*C2:T6=T4+T5
  75. 9290 print TAB(74);:print using v$;t2
  76. 9295 print TAB(74);:print using v$;t3
  77. 9300 print TAB(74);:print using v$;t2+t3
  78. 9310 print using v$;tab(41);z6;tab(74);t4
  79. 9315 print using v$;tab(41);z7;tab(74);t5
  80. 9320 print using v$;tab(74);t6
  81. 9325 print using v$;tab(74);t7
  82. 9330 print using v$;tab(74);t6+t7
  83. 9335 print using v$;tab(74);t2+t3+t6+t7
  84. 9340 print
  85. 9350 T9=T2+T3+T6+T7
  86.      console
  87. 9400 PRINT clear$:PRINT
  88. 9410 PRINT "ENTER OVERPAYMENT FROM PREVIOUS QUARTER."
  89. 9415 PRINT:INPUT Z
  90.      lprinter
  91. 9420 T4=Z
  92. 9500 T1=0:T2=0:T3=0:T5=0:T6=0
  93. 9510 print TAB(62);:print using v$;z
  94. 9520 open "b:edep" recl 64 as 1
  95. 9525 I=1
  96. 9530 FOR Z1=1 TO 48
  97. 9540 read #1,z1;N(2,1),N(2,2),N(2,3),N(2,4),N(2,5),N$
  98. 9545 IF N(2,1)<>VAL(temp$) THEN 9600
  99. 9550 IF N(2,3)<>4 THEN GOSUB 20000
  100. 9555 IF N(2,3)=4 THEN GOSUB 20500
  101. 9600 NEXT Z1
  102. 9605 close 1
  103. 9610 print using v$;tab(39);t3;tab(62);t4
  104.      console
  105. 9630 PRINT clear$:PRINT
  106. 9640 PRINT "ENTER FINAL DEPOSIT MADE IF NOT INCLUDED ABOVE."
  107. 9650 PRINT:INPUT Z
  108. 9660 PRINT "ENTER DATE OF FINAL DEPOSIT IF ANY."
  109. 9670 PRINT:INPUT Z$
  110.      lprinter
  111. 9680 IF Z>0 THEN print TAB(51);Z$;TAB(62);:print using v$;z:T4=T4+Z:GOTO 9700
  112. 9690 print TAB(62);:print using v$;z
  113. 9700 print:print
  114. 9710 print TAB(74);:print using v$;t4
  115. 9720 print:print:print
  116. 9730 print TAB(74);:print using v$;t9-t4
  117.      print chr$(12)
  118. 9915 console
  119. 9920 CHAIN "master5"
  120. 20000 T1=T1+N(2,4):T2=T2+N(2,5)
  121. 20005 print using v$;tab(39);n(2,4);tab(51);
  122.       PRINT RIGHT$(N$,8);:PRINT USING V$;TAB(62);N(2,5)
  123. 20030 RETURN
  124. 20500 T1=T1+N(2,4):T2=T2+N(2,5)
  125. 20505 print using v$;tab(39);n(2,4);tab(51);
  126.       PRINT RIGHT$(N$,8);:PRINT USING V$;TAB(62);N(2,5)
  127.      print using v$;tab(39);t1;tab(62);t2
  128. 20530 T3=T3+T1:T4=T4+T2:T1=0:T2=0
  129. 20550 RETURN
  130.