Appears on
Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.
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