home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc3 / finance.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-10-17  |  3.6 KB  |  170 lines
  1. 180  CLS
  2. 200  PRINT TAB(30)" Financial Package "
  3. 210  PRINT:PRINT:
  4. 230  PRINT TAB(26)STRING$(27,42);:
  5. 250  PRINT TAB(29)"By Danny L. Jones"
  6. 260  PRINT TAB(35)"Box 85"
  7. 270  PRINT TAB(28)"Cooperstown, ND    58425
  8. 290  PRINT TAB(26);STRING$(27,42);
  9. 310  FOR PAUSE =1 TO 1000:NEXT
  10. 330  :
  11. 340  CLS
  12. 345  FLAG=0
  13. 350  PRINT:PRINT:PRINT
  14. 360  PRINT TAB(24)"1 -- AMORTIZATION (Printer will Be Used)"
  15. 370  PRINT TAB(24)"2 -- INVESTMENT RATE OF RETURN"
  16. 380  PRINT TAB(24)"3 -- COST OF BORROWING"
  17. 391  PRINT TAB(24)"4 -- RETURN TO SYSTEM"
  18. 410  LOCATE 12,20:PRINT TAB(24)" OPTION  ? ";:X$=INPUT$(1)
  19. 420  IF X$="1"GOTO 680
  20. 430  IF X$="2"GOTO 1600
  21. 440  IF X$="3"THEN FLAG=99:GOTO 680
  22. 451  IF X$="4" THEN CLS:SYSTEM
  23. 460  GOTO 340
  24. 470  :
  25. 480  :
  26. 680  REM     AMORTIZATION/COST OF BORROWING
  27. 690  REM
  28. 700  CLS
  29. 720  PRINT:PRINT
  30. 730  IF FLAG=99 THEN PRINT TAB(30)"Cost of Borrowing":GOTO 760
  31. 740  PRINT TAB(28)"Amortization Schedule"
  32. 745  IF FLAG <> 99 THEN LOCATE 24,25:PRINT "Output will Go to Printer"
  33. 760  '
  34. 770  :
  35. 780  LOCATE 8,25:PRINT " Amount of Loan
  36. 800  LOCATE 10,25:PRINT " Interest Rate
  37. 820  LOCATE 12,25:PRINT " Length of Loan (Y,M)"
  38. 850  C=40
  39. 860  L=6
  40. 870  GOSUB 2120
  41. 880  INPUT A#
  42. 890  C=40
  43. 900  GOSUB 2120
  44. 910  INPUT R
  45. 920  C=46
  46. 930  GOSUB 2120
  47. 940  INPUT Y%,M%
  48. 950  :
  49. 960  :
  50. 970  T%=(Y%*12)+M%
  51. 980  L=L+2
  52. 990  GOSUB 2120
  53. 1000  R=R/1200 :PRINT
  54. 1010  IF FLAG=99 GOTO 1080
  55. 1020  PRINT:PRINT "Want Monthly Payment Calculated? ";:X$=INPUT$(1)
  56. 1030  IF X$="Y" OR X$="y" THEN 1080
  57. 1050  INPUT"Enter the Monthly Payment: ";MP#
  58. 1060  GOTO 1140
  59. 1070  :
  60. 1080  REM     CALCULATE MONTHLY PAYMENT
  61. 1090  H=(R+1)^T%
  62. 1100  MP#=A#*((R*H)/(H-1))
  63. 1110  PRINT
  64. 1120  :
  65. 1130  :
  66. 1140  REM     NOW DO BREAKDOWN
  67. 1150  PRINT
  68. 1160  IF FLAG<>99 THEN GOTO 1170:CLS:PRINT TAB(30)"COST OF BORROWING":PRINT :PRINT:
  69. 1161  PRINT "Amount of Loan ... ";USING"$#,###,###.##";A#;
  70. 1162  PRINT TAB(41);"Term of Loan ..... ";Y%;"Years ";M%;"Months"
  71. 1163  PRINT "Monthly Payment .. ";USING"$#,###,###.##";MP#;
  72. 1164  PRINT TAB(41);"Rate of Interest .. ";R*1200;"%"
  73. 1165  LOCATE 24,30:PRINT "HIT Any Key to CONT":X$=INPUT$(1)
  74. 1166  GOTO 340
  75. 1170  LPRINT ,TAB(30)"AMORTIZATION SCHEDULE"
  76. 1180  LPRINT:LPRINT
  77. 1190  LPRINT "Amount of Loan ... ";USING"$#,###,###.##";A#;
  78. 1200  LPRINT TAB(41);"Term of Loan ...... ";Y%;"Years ";M%;"Months"
  79. 1210  LPRINT "Monthly Payment .. ";USING"$#,###,###.##";MP#;
  80. 1211  LPRINT TAB(41);"Rate of Interest .. ";R*1200;"%"
  81. 1220  LPRINT :LPRINT
  82. 1230  IF FLAG=99 THEN PRINT "WORKING...":GOTO 1260
  83. 1240  LPRINT "MONTH";TAB(12)"BALANCE";TAB(27)"INTEREST";TAB(43)"INT T.D";TAB(54)"PRINCIPAL";TAB(68)"PRINC. T.D."
  84. 1250  LPRINT STRING$(80,61)
  85. 1260  LPRINT
  86. 1270  I2#=0 :N2#=0 :P2#=0
  87. 1280  B#=A#
  88. 1290  J%=0
  89. 1300  FOR K%=1 TO T%
  90. 1310  IF FLAG=99 THEN 1340
  91. 1320  IF J%=12 THEN PRINT   :J%=0
  92. 1330  J%=J%+1
  93. 1340  I#=B#*R
  94. 1350  IF K%=T% THEN MP#=B#+I#
  95. 1360  P2#=P2#+MP#
  96. 1370  N#=MP#-I#: B#=B#-N#: I2#=I2#+I#: N2#=N2#+N#
  97. 1380  :
  98. 1390  REM     PRINT RESULTS
  99. 1400  Z$="##,###.##"
  100. 1410  IF FLAG=99 THEN 1480
  101. 1420  LPRINT TAB(1) K%;TAB(10) USING Z$;B#;:LPRINT TAB(26) USING Z$;I#;:LPRINT TAB(41) USING Z$;I2#;:LPRINT TAB(54) USING Z$;N#;:LPRINT TAB(69) USING Z$;N2#;
  102. 1480  NEXT K%
  103. 1485  Z$="$##,###.##"
  104. 1490  IF FLAG<>99 GOTO 1524
  105. 1520  LPRINT "COST OF BORROWING IS ....... ";USING Z$;P2#-A#
  106. 1524  LPRINT :LPRINT
  107. 1530  LPRINT "TOTAL AMOUNT OF PAYMENTS ... ";USING Z$;P2#
  108. 1540  LPRINT:LPRINT
  109. 1545  LPRINT "FINAL PAYMENT WILL BE ...... ";USING Z$;MP#
  110. 1570  GOTO 340
  111. 1580  :
  112. 1590  :
  113. 1600  REM     INVESTMENT
  114. 1630  CLS
  115. 1645  PRINT ,TAB(27);P$;"INVESTMENT RATE OF RETURN";Q$:
  116. 1650  PRINT
  117. 1660  '
  118. 1680  LOCATE 5,24:PRINT " Inital  Investment"
  119. 1690  :
  120. 1700  LOCATE 7,24:PRINT " Nominal Interest Rate"
  121. 1710  '
  122. 1720  LOCATE 9,24:PRINT " Term (Years,Month)"
  123. 1730  '
  124. 1740  LOCATE 11,24:PRINT " Compounding Periods/Year"
  125. 1750  '
  126. 1760  '
  127. 1770  C=43
  128. 1780  L=3
  129. 1790  GOSUB 2120
  130. 1800  INPUT I1#
  131. 1810  C=46
  132. 1820  GOSUB 2120
  133. 1830  INPUT R
  134. 1840  C=44
  135. 1850  GOSUB 2120
  136. 1860  INPUT Y%,M%
  137. 1870  C=49
  138. 1880  GOSUB 2120
  139. 1890  INPUT N%
  140. 1900  :
  141. 1910  REM     CALCULATE
  142. 1920  CLS
  143. 1925  R2=R
  144. 1930  R=R/N%/100
  145. 1940  Y9=(12*Y%+M%)/12
  146. 1950  T2#=I1#*(1+R)^(N%*Y9)
  147. 1960  I2#=T2#-I1#
  148. 1970  :
  149. 1980  REM     PRINT RESULTS
  150. 1990  Z$="$##,###,###.##"
  151. 2000  PRINT:PRINT
  152. 2010  PRINT,TAB(25);P$;"FUTURE VALUE OF INVESTMENT";Q$
  153. 2020  PRINT:PRINT:PRINT
  154. 2030  PRINT"Initial Investment ......... ";USING Z$;I1#
  155. 2033  PRINT"Rate of Interest ........... %";USING "##########.##";R2
  156. 2035  PRINT"Term of Investment .........";Y%;"Years,";M%;"Months"
  157. 2040  PRINT"Value of Accum. Interest ... ";USING Z$;I2#
  158. 2050  PRINT
  159. 2060  PRINT"TOTAL VALUE OF INVESTMENT .. ";USING Z$;T2#
  160. 2070  LOCATE 25,25:PRINT "Hit Any Key to Continue"
  161. 2080  X$=INPUT$(1)
  162. 2090  GOTO 340
  163. 2100  :
  164. 2110  :
  165. 2120  REM     CURSOR ADDRESSING
  166. 2130  L=L+2
  167. 2140  LOCATE L,C
  168. 2150  RETURN
  169. 2160  END
  170.