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 I12 THEN 9302 9258 IF I <= A1 THEN 9278 9260 LET S=1 9262 IF K1 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