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
