InvTax

Gallery

Source Code

   5 REM INVTAX(INVENTORY COSTING AD INCOME TAXES
   6 PRINT TAB (10);"INVTAX"
   7 PRINT "A PROGRAM FOR INVENTORY COSTING AND INCOME TAXES"
   8 PRINT 
  10 PRINT "ENTER SALES"
  20 INPUT S
  21 PRINT S
  30 PRINT "ENTER PURCHASE 1"
  31 INPUT P1
  32 PRINT P1
  33 PRINT "ENTER PURCHASE 2"
  34 INPUT P2
  35 PRINT P2
  36 PRINT "ENTER PURCHASE 3"
  37 INPUT P3
  38 PRINT P3
  50 PRINT "ENTER BEG.INVENTORY"
  60 INPUT B
  61 PRINT B
  70 PRINT "ENTER EXPENSES"
  80 INPUT E
  81 PRINT E
  90 PRINT "ENTER FIFO INV.FOR YEAR 1"
  91 INPUT F1
  92 PRINT F1
  93 PRINT "ENTER FIFO INV.FOR YEAR 2"
  94 INPUT F2
  95 PRINT F2
  96 PRINT "ENTER FIFO INV. FOR YEAR 3"
  97 INPUT F3
  98 PRINT F3
 110 PRINT "ENTER LIFO INV. FOR YEAR 1"
 111 INPUT L1
 112 PRINT L1
 113 PRINT "ENTER LIFO INV. FOR YEAR 2"
 114 INPUT L2
 115 PRINT L2
 116 PRINT "ENTER LIFO INV. FOR YEAR 3"
 117 INPUT L3
 118 PRINT L3
 130 LET N1=S-(B+P1-F1)-E
 140 LET N2=S-(F1+P2-F2)-E
 150 LET N3=S-(F2+P3-F3)-E
 160 LET N4=S-(B+P1-L1)-E
 170 LET N5=S-(L1+P2-L2)-E
 180 LET N6=S-(L2+P3-L3)-E
 190 LET I=N1
 200 GOSUB 700
 210 LET T1=T
 220 LET I=N2
 230 GOSUB 700
 240 LET T2=T
 250 LET I=N3
 260 GOSUB 700
 270 LET T3=T
 280 LET I=N4
 290 GOSUB 700
 300 LET T4=T
 310 LET I=N5
 320 GOSUB 700
 330 LET T5=T
 340 LET I=N6
 350 GOSUB 700
 360 LET T6=T
 440 LET I1=N1-T1
 450 LET T2=N2-T2
 460 LET I3=N3-T3
 470 LET I4=N4-T4
 480 LET I5=N5-T5
 490 LET I6=N6-T6
 500 PRINT 
 510 PRINT TAB (10);"LIFO";  "FIFO"
 520 PRINT "YEAR 1"
 530 PRINT "NET INCOME BEFORE TAXES";N4;N1
 540 PRINT "INCOME TAX";T4;T1
 550 PRINT "NET INCOME AFTER TAXES";I4;I1
 570 PRINT 
 580 PRINT "YEAR 2"
 590 PRINT "NET INCOME BEFORE TAXES";N5;N2
 600 PRINT "INCOME TAXES";T5;T2
 610 PRINT "NET INCOME AFTER TAX";I5;I2
 620 PRINT 
 630 PRINT "YEAR 3"
 640 PRINT "NET INCOME BEFORE TAXES";N6;N3
 650 PRINT "INCOME TAX";T6;T3
 670 PRINT "NET INCOME AFTER TAX";I6;I3
 680 GOTO 900
 700 IF I>100000 THEN GOTO 730
 705 IF I>75000 THEN GOTO 740
 710 IF I>50000 THEN GOTO 750
 715 IF I>25000 THEN GOTO 760
 720 LET T=INT (.17*I)
 725 GOTO 765
 730 LET T=26750+INT (.46*(I-100000))
 735 GOTO 765
 740 LET T=16750+INT (.40*(I-75000))
 745 GOTO 765
 750 LET T=9250+INT (.30*(I-50000))
 755 GOTO 765
 760 LET T=4250+INT (.20*(I-25000))
 765 RETURN 
 900 STOP 
 910 SAVE "1012%1"
 920 RUN