home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug005.ark / RECOVERY.ASC < prev    next >
Encoding:
Text File  |  1984-04-29  |  960 b   |  30 lines
  1.  
  2. 100 'THIS TRIVIAL ROUTINE CALCULATE THE PRESENT VALUE
  3. 110 'OF A NON-CASH SECURITY WHICH AMORTIZES AND/OR PAYS INTEREST
  4. 120 'OR DIVIDENDS.
  5. 130 'USEFUL IN EVALUATING THE TREATMENT OF A CLAIM BY CHAPTER X
  6. 140 'PLAN OF RE-ORG. OR XI ARRANGEMENT (OR SECT 77 RAILROAD REORG.)
  7. 1000 REM PV OF CASH FLOW STREAM OF RE-PAYMENTS
  8. 2000 DIM B(50),C(50),P(50)
  9. 3000 INPUT"STARTING PRINCIPAL";A1
  10. 4000 INPUT"DISCOUNT RATE, IN %";A2
  11. 5000 FOR N=1 TO 999
  12. 6000 INPUT"PAYMENTS AND TIME FROM START IN YEARS";B(N),C(N)
  13. 7000 N1=N1+1
  14. 8000 A1=A1-B(N)
  15. 9000 GOSUB 13000
  16. 10000 PRINT A1,P(N),P2
  17. 11000 IF A1<1E-08 THEN 16000
  18. 12000 NEXT N
  19. 13000 P(N)=B(N)/(1+A2/100)^C(N)
  20. 14000 P2=P2+P
  21. 15000 RETURN
  22. 16000 PRINT:PRINT
  23. 17000 PRINT"PAYMENT #","AMOUNT","AFTER YRS.","PRES. VAL."
  24. 18000 FOR N=1 TO N1
  25. 19000 PRINT N,B(N),C(N),P(N)
  26. 20000 B1=B1+B(N):C1=C1+C(N):P1=P1+P(N)
  27. 21000 NEXT N
  28. 22000 PRINT"---------","----------","-------","----------"
  29. 23000 PRINT"TOTAL",B1,"N/A",P1
  30.