home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / basic / deprec.bzs / DEPREC.BAS
Encoding:
BASIC Source File  |  1987-07-05  |  2.4 KB  |  81 lines
  1. 10 REM  DEPRECIATION PROGRAM
  2. 20 DIM I$(25), DP$(8), Z$(3)
  3. 30 PRINT
  4. 40 PRINT "  TAX DEPRECIATION"
  5. 50 PRINT
  6. 60 REM *** INPUT DATA ***
  7. 70 INPUT "NAME OF ITEM"; I$
  8. 80 INPUT "ENTER TODAYS DATE (MM/DD/YY)"; DP$
  9. 90 INPUT "PURCHASE DATE (MM/DD/YY)"; D$
  10. 100 INPUT "COST OF ITEM"; C
  11. 110 INPUT "USEFUL LIFE"; L
  12. 120 PRINT "DEPRECIATION RATE"
  13. 121 INPUT "(NEW=200%; USED=150%)"; R
  14. 130 REM *** CALCULATE YEARLY RATE ***
  15. 140 YR = R / (100 * L)
  16. 150 REM *** CALCULATE EXTRA FIRST YR DEPRECIATION ***
  17. 160 IF L > = 6 THEN ED = .2 * C
  18. 165 IF L < 6 THEN ED = 0
  19. 170 CV = C - ED
  20. 180 REM *** CALCULATE INVESTMENT CREDIT ***
  21. 190 IF L < 3 THEN IC = 0
  22. 200 IF L > = 3 THEN IC = C / 30
  23. 210 IF L > = 5 THEN IC = C / 15
  24. 220 IF L > = 7 THEN IC = C / 10
  25. 230 MM = VAL ( LEFT$ (D$,2))
  26. 240 DD = VAL ( MID$ (D$,4,2))
  27. 250 YY = VAL ( RIGHT$ (D$,2))
  28. 260 IF DD < = 15 THEN FY = 13 - MM
  29. 270 IF DD > 15 THEN FY = 12 - MM
  30. 275 LY = 12 - FY
  31. 280 REM *** FIRST YEAR DEPRECIATION ***
  32. 290 CY = 1
  33. 300 D(CY) = CV * YR * (FY / 12)
  34. 310 CV = CV - D(CY)
  35. 320 REM *** MIDDLE YEARS DEPRECIATION ***
  36. 330 FOR CY = 2 TO L
  37. 340   D(CY) = YR * CV
  38. 350   CV = CV - D(CY)
  39. 360 NEXT 
  40. 370 REM *** LAST YEAR DEPRECIATION ***
  41. 380 IF CY = 0 THEN 410
  42. 385 CY = L + 1
  43. 390 D(CY) = YR * CV * (LY / 12)
  44. 400 CV = CV - D(CY)
  45. 410 REM *** OUTPUT TO SCREEN ***
  46. 420 PRINT : PRINT
  47. 430 PRINT TAB(6) "DEPRECIATION ANALYSIS FOR ";I$
  48. 440 PRINT TAB(10) "DATE PREPARED; ",DP$
  49. 450 PRINT
  50. 460 PRINT "ITEM NAME: "; TAB(20) I$
  51. 470 PRINT "DATE OF PURCHASE: "; TAB(20) D$
  52. 480 PRINT "COST: "; TAB(17);
  53. 481 PRINT USING "$$#,###.##"; C
  54. 490 PRINT "USEFUL LIFE: "; TAB(20) L; "YEARS"
  55. 500 PRINT "DEPRECIATION RATE: "; TAB(20); R; "%"
  56. 510 PRINT
  57. 520 CY = 1
  58. 530 Y = 1899 + YY
  59. 540 INPUT "PRESS RETURN TO CONTINUE "; Z$
  60. 550 PRINT
  61. 560 PRINT " YEAR"; TAB(10);"INVESTMENT CREDIT";
  62.  
  63.     TAB(30);"EXTRA FIRST YEAR DEPRECIATION"
  64. 570 PRINT Y + CY; TAB(10);
  65. 571 PRINT USING "###.##";IC;
  66. 572 PRINT TAB(30);
  67. 573 PRINT USING "###.##";ED
  68. 580 PRINT
  69. 590 PRINT " YEAR"; TAB(10) "DEPRECIATION"
  70. 600 IF LY <> 0 THEN 620
  71. 610 FOR CY = 1 TO L: GOTO 630
  72. 630   PRINT Y + CY; TAB(9);
  73. 631   PRINT USING "#,###.##"; D(CY)
  74. 640 NEXT
  75. 650 IF D(CY) < = 0 THEN 670
  76. 660 PRINT
  77. 670 PRINT "SALVAGE VALUE AT END OF";CY+Y-1;"IS";
  78. 671 PRINT USING "$$#,###.##"; CV
  79. 680 REM *** PRINTOUT ROUTINE GOES HERE ***
  80. 70 PRINT "SALVAGE VALUE AT END OF";CY+Y-1;"IS";
  81. 671 PRINT USING "$$#,###.##"; CV
  82. 680 REM *** PRI