9000  REM ****DEPCOM****BUSINESS PROGRAM
9002  REM DEPCOM********VERSION #1  (7/31/69)****DEPRECIATION COMPARISON
9004  PRINT "** DEPRECIATION METHOD COMPARISON **"
9006  PRINT 
9008  PRINT "THIS PROGRAM COMPUTES AND PRINTS DEPRECIATION BY MONTHS BY"
9010  PRINT "FOUR METHODS: STRAIGHT LINE, DOUBLE DECLINING BALANCE, SUM-OF-"
9012  PRINT "THE-YEARS-DIGITS, AND 150 PERCENT DECLINING BALANCE."
9014  PRINT 
9016  PRINT "IF ONLY A YEARLY SUMMARY IS DESIRED TYPE Y, OTHERWISE N."
9018  INPUT Z$
9020  PRINT 
9022  PRINT 
9024  PRINT "WHAT IS THE AMOUNT OF YOUR INVESTMENT?";
9026  INPUT I1
9028  PRINT 
9030  PRINT "WHAT IS THE SALVAGE VALUE?";
9032  INPUT S1
9034  PRINT 
9036  PRINT "WHAT IS THE DEPRECIABLE LIFE (IN YEARS)?";
9038  INPUT L1
9040  IF L1 >= 2 THEN 9046
9042  PRINT "LIFE TOO SHORT TO PROVIDE MEANINGFUL RESULTS."
9044  STOP 
9046  IF L1 <= 75 THEN 9052
9048  PRINT "LIFE TOO LONG, PLEASE TRY A VALUE LESS THAN 76."
9050  STOP 
9052  PRINT 
9054  PRINT "IN WHICH MONTH, AND IN WHICH YEAR, IS YOUR INVESTMENT MADE?"
9056  PRINT "(PLEASE ENTER AS MM,19YY)";
9058  INPUT A1,Z1
9060  PRINT 
9062  PRINT "WHAT IS THE DISCOUNT RATE (IN DECIMAL NOTATION) FOR COMPUTING"
9064  PRINT "THE PRESENT VALUE OF THE ANNUAL DEPRECIATION?";
9066  INPUT R
9068  PRINT 
9070  PRINT "YOU HAVE THE OPTION TO SWITCHOVER FROM THE DOUBLE DECLINING"
9072  PRINT "BALANCE METHOD TO THE STRAIGHTLINE METHOD AT APPROPRIATE TIMES."
9074  PRINT "TO PREVENT ANY SWITCHOVER PLEASE TYPE 0."
9076  PRINT "TO SPECIFY A SPECIFIC YEAR OF SWITCHOVER, PLEASE TYPE THE YEAR."
9078  PRINT "TO OBTAIN AN AUTOMATIC SWITCHOVER WHEN THE ANNUAL STRAIGHTLINE"
9080  PRINT "DEPRECIATION BECOMES GREATER THAN THE DOUBLE DECLINING BALANCE"
9082  PRINT "VALUE, PLEASE TYPE 1.";
9084  INPUT Y
9086  PRINT 
9088  PRINT "********************************************************************"
9090  PRINT 
9092  PRINT "    DATE     STRAIGHTLINE DBL DECLINING  SUM-OF-THE";
9094  PRINT "   150% DECLINING"
9096  PRINT "  YR     MO                 BALANCE     YEARS'-DIGITS";
9098  PRINT "    BALANCE"
9100  LET K=0
9102  LET P=0
9104  LET S=0
9106  LET Q1=Q2=Q3=Q4=0
9108  LET V1=V2=V3=V4=0
9110  DIM W[12],X[12],Y[12],Z[12]
9112  DIM A[75],B[75],C[75],D[75]
9114  DIM H[75],I[75],J[75],K[75]
9116  REM STRAIGHTLINE METHOD
9118  LET N=S1
9120  FOR I=1 TO L1
9122  LET A[I]=(I1-S1)/L1
9124  LET H[I]=A[I]/12
9126  NEXT I
9128  REM DOUBLE DECLINING BALANCE METHOD
9130  LET N=S1
9132  FOR I=1 TO L1
9134  LET B[I]=2*((I1-N)/L1)
9136  LET I[I]=B[I]/12
9138  LET M=N
9140  LET N=N+B[I]
9142  GOTO 9148
9144  NEXT I
9146  GOTO 9194
9148  IF Y<1 THEN 9144
9150  IF Y>1 THEN 9174
9152  IF I=1 THEN 9144
9154  IF P=1 THEN 9168
9156  IF B[I]>A[I] THEN 9144
9158  LET G=L1+1-I
9160  LET P=1
9162  LET B[I]=(I1-M)/G
9164  LET I[I]=B[I]/12
9166  GOTO 9144
9168  LET B[I]=B[I-1]
9170  LET I[I]=B[I]/12
9172  GOTO 9144
9174  LET G=Y+1-Z1
9176  IF I<G THEN 9144
9178  IF P=1 THEN 9188
9180  LET P=1
9182  LET B[I]=((I1-M)/(L1+1-G))
9184  LET I[I]=B[I]/12
9186  GOTO 9144
9188  LET B[I]=B[I-1]
9190  LET I[I]=B[I]/12
9192  GOTO 9144
9194  REM SUM OF THE YEARS DIGITS METHOD
9196  LET N=S1
9198  FOR I=1 TO L1
9200  LET C[I]=(I1-N)*(L1+1-I)*(2/(L1*(L1+1)))
9202  LET J[I]=C[I]/12
9204  NEXT I
9206  REM 150% DECLINING BALANCE
9208  LET N=S1
9210  FOR I=1 TO L1
9212  LET D[I]=1.5*((I1-N)/L1)
9214  LET K[I]=D[I]/12
9216  LET N=N+D[I]
9218  NEXT I
9220  LET I=0
9222  LET K=K+1
9224  LET X=K+(Z1-1)
9226  IF K <= L1+1 THEN 9254
9228  FOR I=1 TO L1
9230  LET V1=V1+A[I]/((1+R)^I)
9232  LET V2=V2+B[I]/((1+R)^I)
9234  LET V3=V3+C[I]/((1+R)^I)
9236  LET V4=V4+D[I]/((1+R)^I)
9238  NEXT I
9240  PRINT 
9242  PRINT "THE PRESENT VALUE OF THE DEPRECIATION AT THE BEGINNING OF "Z1
9244  PRINT "AT"R"IS AS FOLLOWS:"
9246  PRINT " ",V1,V2,V3,V4
9248  PRINT 
9250  PRINT "*********************************************************************"
9252  STOP 
9254  LET I=I+1
9256  IF I>12 THEN 9302
9258  IF I <= A1 THEN 9278
9260  LET S=1
9262  IF K<L1+1 THEN 9268
9264  LET W[I]=X[I]=Y[I]=Z[I]=0
9266  GOTO 9294
9268  LET W[I]=H[K]
9270  LET X[I]=I[K]
9272  LET Y[I]=J[K]
9274  LET Z[I]=K[K]
9276  GOTO 9294
9278  IF S=0 THEN 9290
9280  LET W[I]=H[K-1]
9282  LET X[I]=I[K-1]
9284  LET Y[I]=J[K-1]
9286  LET Z[I]=K[K-1]
9288  GOTO 9294
9290  LET W[I]=X[I]=Y[I]=Z[I]=0
9294  REM PRINTOUT ROUTINE
9296  IF Z$="Y" THEN 9254
9298  PRINT X""I,W[I],X[I],Y[I],Z[I]
9300  GOTO 9254
9302  REM TOTALS ROUTINE
9303  LET S=1
9304  LET T1=T2=T3=T4=0
9306  FOR J=1 TO 12
9308  LET T1=T1+W[J]
9310  LET T2=T2+X[J]
9312  LET T3=T3+Y[J]
9314  LET T4=T4+Z[J]
9316  NEXT J
9318  LET Q1=Q1+T1
9320  LET Q2=Q2+T2
9322  LET Q3=Q3+T3
9324  LET Q4=Q4+T4
9326  PRINT 
9328  PRINT "TOTAL"X,T1,T2,T3,T4
9330  PRINT 
9332  PRINT "CUM DEPR",Q1,Q2,Q3,Q4
9334  PRINT 
9336  LET B1=(I1-S1)-Q1
9338  IF B1>1 THEN 9342
9340  LET B1=0
9342  LET B2=(I1-S1)-Q2
9344  IF B2>1 THEN 9348
9346  LET B2=0
9348  LET B3=(I1-S1)-Q3
9350  IF B3>1 THEN 9354
9352  LET B3=0
9354  LET B4=(I1-S1)-Q4
9356  IF B4>1 THEN 9360
9358  LET B4=0
9360  PRINT "UNDEPR BAL",B1,B2,B3,B4
9362  PRINT 
9364  PRINT "----------"
9366  GOTO 9220
9368  END 
