Source Code
5 REM DEPRECIATION AND INCOME TAXES(DEPTAX)
6 PRINT TAB (2);"DEPRECIATION AND INCOME TAXES"
7 PRINT
10 PRINT "ENTER SALES"
15 INPUT A
16 PRINT A
20 PRINT "ENTER COST OF GOODS SOLD,EXCEPT DEPRECIATION"
25 INPUT B
26 PRINT B
30 LET C=A-B
31 PRINT "ENTER OPER.EXP."
32 INPUT D
33 PRINT D
40 PRINT "ENTER COST"
41 INPUT E
42 PRINT E
43 PRINT "ENTER SCRAP"
44 INPUT S
45 PRINT S
46 PRINT "ENTER LIFE OF ASSET"
47 INPUT N
48 PRINT N
70 LET F=INT ((E-S)/N)
80 LET G=(N**2+N)/2
90 LET H=INT (N/G*(E-S))
100 LET I=C-(D+F)
110 LET J=C-(D+H)
111 LET T=I
112 GOSUB 411
113 LET K=T1
114 LET T=J
115 GOSUB 411
116 LET L=T1
126 GOTO 140
140 LET M=T-K
150 LET O=J-L
160 LET Z=Z+1
170 PRINT
190 PRINT "YEAR";Z
300 PRINT ,"ST.LINE","SOYD"
310 PRINT "NET SALES",A,A
320 PRINT "CGS",B,B
330 PRINT "GROSS PROFIT",C,C
340 PRINT "OPER.EXP.",D,D
350 PRINT "DEPRECIATION",F,H
360 PRINT "INC.BEF.TAX",I,J
370 PRINT "INCOME TAX",K,L
380 PRINT "NET INCOME",M,O
390 IF N=1 THEN GOTO 430
400 LET N=N-1
410 GOTO 90
411 IF T>100000 THEN GOTO 417
412 IF T>75000 THEN GOTO 419
413 IF T>50000 THEN GOTO 421
414 IF T>25000 THEN GOTO 423
415 LET T1=INT (.17*T)
416 GOTO 424
417 LET T1=26750+INT (.46*(T-100000))
418 GOTO 424
419 LET T1=16750+INT (.40*(T-75000))
420 GOTO 424
421 LET T1=9250+INT (.30*(T-50000))
422 GOTO 424
423 LET T1=4250+INT (.20*(T-25000))
424 RETURN
430 STOP
440 SAVE "1012%0"
450 RUN
