home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / database / scrivner.lbr / DEPREC.SCR < prev    next >
Encoding:
Text File  |  1986-12-13  |  512 b   |  14 lines
  1. #input _NAME_,,Enter the name of the asset (max 20 letters)
  2. #input _COST_,,The cost of the asset was
  3. #input _LIFE_,,Enter the estimated lifetime of the asset
  4. #input _EDV_,,Enter the estimated disposal value of the asset
  5. [[def 8.6]]
  6. [[d of=(_EDV_/_COST_)]]
  7. [[d root=of^(1/_LIFE_)]]
  8. [[d rate=100-(100*(root))]]
  9. [[def 8.3]]
  10. #overtype
  11. [[dm deprec.out]]
  12. [[dp the rate of depreciation of the _NAME_                 is      ,,rate,,^j^j^m]]
  13. #insert
  14.