home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug087.ark / EFENTRY.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-10-20  |  7.0 KB  |  203 lines
  1.      rem This is the Federal Tax Table Entry Program
  2.  
  3. %INCLUDE ALL.BAS
  4.      dim c(8,5),b(8,5)
  5.      dim n(2,20),k$(3,20)
  6.      l$="$##,###.##":u$=".###":r$="###.##  "
  7.      z5$="b:ef"
  8.      RESTORE
  9. 540 K$(3,1)="1 - ENTER FED TABLES":K$(3,2)="2 - EXAMINE FED TABLES"
  10. 550 K$(3,3)="3 - MODIFY FED TABLES"
  11. 570 K$(3,4)="4 - CREATE NEW FILE":K$(3,5)="5 - CLEAR EXISTING FILE"
  12. 590 K$(3,6)="6 - LIST FED TABLES":K$(3,7)="7 - FINISHED"
  13.      print clear$:print
  14. 1100 K$(1,1)="AT LEAST":K$(1,2)="BUT NOT OVER"
  15. 1110 K$(1,3)="BASE":K$(1,4)="%":K$(1,5)="OF EXCESS OVER"
  16. 1200 K$(2,1)="SINGLE TAXPAYER ANNUAL TABLES"
  17. 1210 K$(2,2)="MARRIED TAXPAYER ANNUAL TABLE"
  18. 1220 K$(2,3)="HEAD OF HOUSEHOLD ANNUAL TABLE"
  19. 1230 K$(2,4)="CALIFORNIA TAX CREDIT TABLE"
  20. 1250 N(1,1)=12:N(1,2)=12:N(1,3)=12:N(1,4)=12:N(1,5)=12
  21.      if end #1 then 6000
  22. 1500 open z5$ as 1
  23.      close 1
  24. 1510 Z1=1:Z2=1
  25. 1600 PRINT clear$
  26. 1605 PRINT
  27. 1650 PRINT "THIS IS A LIST OF OPERATIONS."
  28. 1655 PRINT
  29. 1660 FOR Z=1 TO 7:PRINT K$(3,Z):NEXT Z:PRINT
  30. 1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING"
  31. 1670 PRINT "THE CORRESPONDING NUMBER."
  32. 1675 PRINT
  33. 1680 INPUT Z
  34. 1685 ON Z GOSUB 2000,3000,4000,6000,7000,9000,10000
  35. 1690 FOR X=1 to 8:FOR Y=1 TO 5:c(X,Y)=0:B(X,Y)=0:NEXT Y:NEXT X
  36. 1705 GOTO 1600
  37. 2000 GOSUB 20000
  38. 2105 PRINT clear$:print
  39. 2110 GOSUB 40000
  40. 2225 INPUT "ANY MORE CHANGES";line temp$
  41. 2230 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2105
  42. 2235 PRINT
  43. 2240 INPUT "IS RECORD TO BE ENTERED";line temp$
  44. 2245 PRINT
  45. 2250 IF left$(temp$,1)="y" OR left$(temp$,1)="Y" THEN 2280
  46. 2255 IF left$(temp$,1)<>"n" AND left$(temp$,1)<>"N" THEN 2235
  47. 2260 PRINT clear$:PRINT
  48. 2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT
  49. 2275 FOR Z=1 TO 200:NEXT Z:RETURN
  50. 2280 open z5$ as 1
  51.      for x=1 to 8
  52.      print #1;c(x,1),c(x,2),c(x,3),c(x,4),c(x,5)
  53.      print #1;b(x,1),b(x,2),b(x,3),b(x,4),b(x,5)
  54.      next x
  55.      close 1
  56. 2995 RETURN
  57. 3000 PRINT clear$:PRINT
  58. 3002 open z5$ as 1
  59.      for x=1 to 8
  60.      read #1;c(x,1),c(x,2),c(x,3),c(x,4),c(x,5)
  61.      read #1;b(x,1),b(x,2),b(x,3),b(x,4),b(x,5)
  62.      next x
  63.      close 1
  64. 3400 PRINT clear$
  65. 3506 PRINT K$(2,1)
  66. 3508 PRINT "ROW";TAB(6);K$(1,1);TAB(21);K$(1,2);TAB(36);K$(1,3);TAB(51);
  67. 3510 PRINT K$(1,4);TAB(61);K$(1,5)
  68. 3512 FOR X=1 to 8
  69. 3516 print x;tab(6);:print using l$;c(x,1);tab(21);c(x,2);tab(36);c(x,3);
  70.      print using u$;tab(51);c(x,4);:print using l$;tab(61);c(x,5)
  71. 3520 NEXT X
  72. 3525 INPUT "FOR NEXT CHART TYPE RETURN.";line temp$
  73. 3600 PRINT clear$:PRINT:PRINT K$(2,2)
  74. 3608 PRINT "ROW";TAB(6);K$(1,1);TAB(21);K$(1,2);TAB(36);K$(1,3);TAB(51);
  75. 3610 PRINT K$(1,4);TAB(61);K$(1,5)
  76. 3612 FOR X=1 to 8
  77. 3616 print x;tab(6);:print using l$;b(x,1);tab(21);b(x,2);tab(36);b(x,3);
  78.      print using u$;tab(51);b(x,4);:print using l$;tab(61);b(x,5)
  79. 3620 NEXT X
  80. 3895 PRINT
  81. 3950 INPUT "WHEN FINISHED TYPE RETURN.";line temp$
  82. 3995 RETURN
  83. 4000 PRINT clear$:PRINT
  84. 4002 open z5$ as 1
  85.      for x=1 to 8
  86.      read #1;c(x,1),c(x,2),c(x,3),c(x,4),c(x,5)
  87.      read #1;b(x,1),b(x,2),b(x,3),b(x,4),b(x,5)
  88.      next x
  89.      close 1
  90. 4995 GOTO 2105
  91. 6000 PRINT clear$:PRINT
  92. 6005 PRINT "IF YOU HAVE ARRIVED HERE, AND HAVE A FED TABLES FILE"
  93. 6010 PRINT "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN"
  94. 6015 PRINT "TYPE THE LETTER C FOLLOWED BY A RETURN TO CONTINUE."
  95. 6020 PRINT
  96. 6025 PRINT "IF YOU WISH TO CREATE A NEW FILE, TYPE THE LETTER N"
  97. 6030 PRINT "FOLLOWED BY RETURN.":PRINT
  98. 6035 INPUT line temp$
  99. 6040 IF temp$="c" OR temp$="C" THEN INITIALIZE:GOTO 1500
  100. 6045 PRINT clear$:PRINT
  101. 6065 create z5$ as 1
  102.      for x=1 to 8
  103.      print #1;c(x,1),c(x,2),c(x,3),c(x,4),c(x,5)
  104.      print #1;b(x,1),b(x,2),b(x,3),b(x,4),b(x,5)
  105.      next x
  106.      close 1
  107. 6495 PRINT clear$:PRINT
  108. 6500 PRINT "FED TABLES FILE CREATED AND CLEARED.":PRINT
  109. 6510 PRINT "TO CONTINUE, TYPE RETURN.":INPUT line temp$
  110. 6515 GOTO 1600
  111. 7000 INPUT "ARE YOU SURE !!! (YES OR NO)";line temp$
  112. 7002 IF temp$<>"YES" THEN RETURN
  113.      for x=1 to 8:for y=1 to 5:c(x,y)=0:b(x,y)=0:next y:next x
  114. 7004 open z5$ as 1
  115.      for x=1 to 8
  116.      print #1;c(x,1),c(x,2),c(x,3),c(x,4),c(x,5)
  117.      print #1;b(x,1),b(x,2),b(x,3),b(x,4),b(x,5)
  118.      next x
  119.      close 1
  120. 7935 PRINT clear$:PRINT
  121. 7940 PRINT "FED TABLES FILE CLEARED!":PRINT
  122. 7945 PRINT "TO CONTINUE, TYPE RETURN."
  123. 7950 INPUT line temp$
  124. 7960 RETURN
  125. 9000 PRINT clear$:PRINT
  126.      print "Listing":print
  127.      lprinter
  128. 9002 open z5$ as 1
  129.      for x=1 to 8
  130.      read #1;c(x,1),c(x,2),c(x,3),c(x,4),c(x,5)
  131.      read #1;b(x,1),b(x,2),b(x,3),b(x,4),b(x,5)
  132.      next x
  133.      close 1
  134. 9506 PRINT K$(2,1)
  135. 9508 PRINT "ROW";TAB(6);K$(1,1);TAB(21);K$(1,2);TAB(36);K$(1,3);TAB(51);
  136. 9510 PRINT K$(1,4);TAB(61);K$(1,5)
  137. 9512 FOR X=1 to 8
  138. 9516 print x;tab(6);:print using l$;c(x,1);tab(21);c(x,2);tab(36);c(x,3);
  139.      print using u$;tab(51);c(x,4);:print using l$;tab(61);c(x,5)
  140. 9520 NEXT X
  141. 9600 PRINT:PRINT K$(2,2)
  142. 9608 PRINT "ROW";TAB(6);K$(1,1);TAB(21);K$(1,2);TAB(36);K$(1,3);TAB(51);
  143. 9610 PRINT K$(1,4);TAB(61);K$(1,5)
  144. 9612 FOR X=1 to 8
  145. 9616 print x;tab(6);:print using l$;b(x,1);tab(21);b(x,2);tab(36);b(x,3);
  146.      print using u$;tab(51);b(x,4);:print using l$;tab(61);b(x,5)
  147. 9620 NEXT X
  148. 9895 PRINT
  149.      print chr$(12):for z=1 to 100:next z:print chr$(12)
  150.      console
  151. 9995 RETURN
  152. 10000 CHAIN "bizmii"
  153. 20000 PRINT clear$:PRINT
  154. 20010 Z1=1
  155. 20020 PRINT K$(2,Z1)
  156. 20030 FOR X=1 to 8
  157. 20040 PRINT "VALUES FOR ROW ";X
  158. 20050 FOR Y=1 TO 5
  159. 20060 PRINT TAB(30);"------------"
  160.     PRINT UP$;
  161. 20070 PRINT K$(1,Y);TAB(30);
  162. 20080 IF Z1=1 THEN INPUT c(X,Y):PRINT chr$(13)
  163. 20090 IF Z1=2 THEN INPUT B(X,Y):PRINT chr$(13)
  164. 20110 NEXT Y
  165. 20120 PRINT clear$:PRINT:PRINT K$(2,Z1)
  166. 20130 NEXT X
  167. 20140 IF Z1<2 THEN Z1=Z1+1:PRINT clear$:PRINT:GOTO 20020
  168. 20150 RETURN
  169. 40000 PRINT K$(2,1)
  170. 40008 PRINT "ROW";TAB(6);K$(1,1);TAB(21);K$(1,2);TAB(36);K$(1,3);TAB(51);
  171. 40010 PRINT K$(1,4);TAB(61);K$(1,5)
  172. 40012 FOR X=1 to 8
  173. 40016 print x;tab(6);:print using l$;c(x,1);tab(21);c(x,2);tab(36);c(x,3);
  174.       print using u$;tab(51);c(x,4);:print using l$;tab(61);c(x,5)
  175. 40020 NEXT X
  176. 40030 PRINT "TO CHANGE AN ITEM TYPE S FOLLOWED BY ROW AND COLUMN"
  177. 40040 PRINT "TYPE F FOLLOWED BY RETURN IF NO CHANGES"
  178. 40050 INPUT line temp$
  179. 40055 IF temp$="F" THEN 41000
  180. 40060 INPUT "ROW ";X:INPUT "COLUMN ";Y
  181. 40065 IF temp$<>"S" THEN PRINT clear$:PRINT:GOTO 40000
  182. 40070 PRINT TAB(30);"------------"
  183.     PRINT UP$;
  184. 40075 PRINT K$(1,Y);TAB(30);
  185. 40080 INPUT c(X,Y):PRINT clear$:PRINT:GOTO 40000
  186. 41000 PRINT clear$:PRINT:PRINT K$(2,2)
  187. 41008 PRINT "ROW";TAB(6);K$(1,1);TAB(21);K$(1,2);TAB(36);K$(1,3);TAB(51);
  188. 41010 PRINT K$(1,4);TAB(61);K$(1,5)
  189. 41012 FOR X=1 to 8
  190. 41016 print x;tab(6);:print using l$;b(x,1);tab(21);b(x,2);tab(36);b(x,3);
  191.       print using u$;tab(51);b(x,4);:print using l$;tab(61);b(x,5)
  192. 41020 NEXT X
  193. 41030 PRINT "TO CHANGE AN ITEM TYPE M FOLLOWED BY ROW AND COLUMN"
  194. 41040 PRINT "TYPE F FOLLOWED BY RETURN IF NO CHANGES"
  195. 41050 INPUT line temp$
  196. 41055 IF temp$="F" THEN return
  197. 41060 INPUT "ROW ";X:INPUT "COLUMN ";Y
  198. 41065 IF temp$<>"M" THEN PRINT clear$:PRINT:GOTO 41000
  199. 41070 PRINT TAB(30);"------------"
  200.     PRINT UP$;
  201. 41075 PRINT K$(1,Y);TAB(30);
  202. 41080 INPUT B(X,Y):PRINT clear$:PRINT:GOTO 41000
  203.