Depreciation and Income Taxes

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.

Gallery

Depreciation and Income Taxes

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 

People

No people associated with this content.

Scroll to Top