home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / apit / analysis.bas < prev    next >
Encoding:
BASIC Source File  |  1990-09-29  |  3.7 KB  |  104 lines
  1. 10 CLS:WIDTH 80:WIDTH "LPT1:",80:SP$=STRING$(42,32)
  2. 20 KEY OFF:F$="\ \###,###.##  \         \"
  3. 30 PRINT STRING$(29,42);" ASSET VALUE ANALYSIS ";
  4. 40 PRINT STRING$(29,42)
  5. 50 INPUT "ASSET BEING ANALYZED";NA$
  6. 60 PRINT "CURRENT AVAILABLE INTEREST RATE, AFTER TAX";
  7. 70 INPUT " (%)";CRT
  8. 80 PRINT "ASSET OWNER'S MARGINAL INCOME-TAX BRACKET";
  9. 90 INPUT " (%)";BKT:PRINT
  10. 100 INPUT "ASSET'S CURRENT MARKET VALUE ($)";AVL
  11. 110 INPUT "ASSET'S CURRENT DEBT BALANCE ($)";DBT
  12. 120 PRINT "ASSET'S ESTIMATED NET APPRECIATION RATE";
  13. 130 INPUT " (% PER YEAR)";ARP
  14. 140 PRINT "ASSET'S OWNING/OPERATING COST";
  15. 150 INPUT " (% PER MONTH)";OPC
  16. 160 PRINT "ASSET'S TAX-DEDUCTIBLE COSTS";
  17. 170 INPUT " (% PER MONTH)";DED
  18. 180 INPUT "ASSET'S UTILITY VALUE ($ PER MONTH)";UTV
  19. 190 EQT=AVL-DBT
  20. 200 FZE=INT(EQT*CRT)/100
  21. 210 TAC=OPC*12+FZE
  22. 220 TXB=INT(DED*12*BKT)/100
  23. 230 AYP=AVL*ARP/100
  24. 240 TPV=TXB+AYP+UTV*12
  25. 250 W=(57-LEN(NA$))/2
  26. 260 LPRINT STRING$(W,32);"VALUE ANALYSIS FOR ";NA$
  27. 270 LPRINT
  28. 280 LPRINT STRING$(35,43);" DATA ";STRING$(35,43)
  29. 290 LPRINT:Y=CRT:GOSUB 2000
  30. 300 LPRINT "CURRENT AVAILABLE INTEREST, AFTER TAX = ";
  31. 310 LPRINT Y$;"%"
  32. 320 Y=BKT:GOSUB 2000
  33. 330 LPRINT "ASSET OWNER'S INCOME-TAX BRACKET";
  34. 340 LPRINT STRING$(6,32);"= ";Y$;"%"
  35. 350 Y=ARP:GOSUB 2000
  36. 360 LPRINT "ASSET'S ESTIMATED APPRECIATION RATE*";
  37. 370 LPRINT STRING$(2,32);"= ";Y$;"% PER YEAR"
  38. 380 Y=AVL:GOSUB 2000
  39. 390 LPRINT "ASSET'S CURRENT MARKET VALUE";
  40. 400 LPRINT STRING$(10,32);"= $";Y$
  41. 410 Y=DBT:GOSUB 2000
  42. 420 LPRINT "ASSET'S CURRENT DEBT BALANCE";
  43. 430 LPRINT STRING$(10,32);"= $";Y$
  44. 440 Y=OPC:GOSUB 2000
  45. 450 LPRINT "ASSET'S OWNING/OPERATING COST";
  46. 460 LPRINT STRING$(9,32);"= $";Y$;" PER MONTH"
  47. 470 Y=DED:GOSUB 2000
  48. 480 LPRINT STRING$(8,32);"TAX-DEDUCTIBLE PORTION";
  49. 490 LPRINT STRING$(8,32);"= $";Y$;" PER MONTH"
  50. 500 Y=UTV:GOSUB 2000
  51. 510 LPRINT "ASSET'S UTILITY VALUE";STRING$(17,32);
  52. 520 LPRINT "= $";Y$;" PER MONTH":LPRINT
  53. 530 LPRINT STRING$(33,43);" ANALYSIS ";STRING$(33,43)
  54. 540 LPRINT
  55. 550 LPRINT "OWNER'S EQUITY IN ASSET";STRING$(5,32);
  56. 560 LPRINT USING F$;"= $";EQT
  57. 570 LPRINT STRING$(76,45)
  58. 580 LPRINT "OWNING/OPERATING COST";STRING$(7,32);
  59. 590 LPRINT USING F$;"= $";OPC*12;"PER YEAR"
  60. 600 Y=OPC:GOSUB 2000
  61. 610 LPRINT SP$;"($";Y$;" PER MONTH)"
  62. 620 LPRINT "FROZEN EQUITY COST";STRING$(10,32);
  63. 630 LPRINT USING F$;"= $";FZE;"PER YEAR"
  64. 640 Y=CRT:GOSUB 2000
  65. 650 LPRINT SP$;"(";Y$;"% INTEREST ON $";
  66. 660 Y=EQT:GOSUB 2000
  67. 670 LPRINT Y$;" EQUITY)"
  68. 680 LPRINT STRING$(31,32);"----------"
  69. 690 LPRINT "TOTAL ASSET COST";STRING$(12,32);
  70. 700 LPRINT USING F$;"= $";TAC;"PER YEAR"
  71. 710 Y=INT(TAC/12):GOSUB 2000
  72. 720 LPRINT SP$;"($";Y$;" PER MONTH)"
  73. 730 LPRINT STRING$(76,45)
  74. 740 LPRINT "INCOME-TAX BENEFIT";STRING$(10,32);
  75. 750 LPRINT USING F$;"= $";TXB;"PER YEAR"
  76. 760 Y=BKT:GOSUB 2000
  77. 770 LPRINT SP$;"(";Y$;"% TAX BRACKET"
  78. 780 Y=DED*12:GOSUB 2000
  79. 790 LPRINT SP$;" x $";Y$;" DEDUCTIBLE COST)"
  80. 800 LPRINT "NET APPRECIATION ESTIMATE";STRING$(3,32);
  81. 810 LPRINT USING F$;"= $";AYP;"PER YEAR"
  82. 820 Y=ARP:GOSUB 2000
  83. 830 LPRINT SP$;"(";Y$;"% APPRECIATION"
  84. 840 Y=AVL:GOSUB 2000
  85. 850 LPRINT SP$;" ON $";Y$;" ASSET VALUE)"
  86. 860 LPRINT "UTILITY VALUE";STRING$(15,32);
  87. 870 LPRINT USING F$;"= $";UTV*12;"PER YEAR"
  88. 880 Y=UTV:GOSUB 2000
  89. 890 LPRINT SP$;"($";Y$;" PER MONTH)"
  90. 900 LPRINT STRING$(31,32);"----------"
  91. 910 LPRINT "TOTAL ASSET VALUE";STRING$(11,32);
  92. 920 LPRINT USING F$;"= $";TPV;"PER YEAR"
  93. 930 Y=INT(TPV/12):GOSUB 2000
  94. 940 LPRINT SP$;"($";Y$;" PER MONTH)"
  95. 950 LPRINT:LPRINT STRING$(76,42)
  96. 960 LPRINT " NET ASSET VALUE";STRING$(12,32);
  97. 970 LPRINT USING F$;"= $";TPV-TAC;"PER YEAR"
  98. 980 Y=INT((TPV-TAC)/12):GOSUB 2000
  99. 990 LPRINT SP$;"($";Y$;" PER MONTH)"
  100. 1000 LPRINT STRING$(76,42)
  101. 1010 END
  102. 2000 Y$=STR$(Y):IF Y<0 THEN RETURN
  103. 2010 Y$=RIGHT$(Y$,LEN(Y$)-1):RETURN
  104.