home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG055.ARC / AMORTIZR.BAS < prev    next >
BASIC Source File  |  1979-12-31  |  2KB  |  91 lines
  1. 10 PRINT
  2. 20 PRINT "LOAN AMORTIZATION"
  3. 30 PRINT
  4. 40 PRINT
  5. 50 INPUT "ENTER INTEREST RATE"; PERCENT
  6. 60 PRINT
  7. 70 FMT$ = "##/##  #,###.##  #,###.##  ##,###.##  ###,###.##"
  8. 80 IF PERCENT = 0 GOTO 100
  9. 90 IF PERCENT < 1 GOTO 130
  10. 100 PRINT "INTEREST MUST BE DECIMAL FRACTION!!"
  11. 110 PRINT
  12. 120 GOTO 50
  13. 130 INPUT "ENTER PRINCIPAL"; PRINCIPAL#
  14. 140 PRINT
  15. 150 IF PRINCIPAL# > 0 GOTO 190
  16. 160 PRINT "PRINCIPAL MUST BE IN DOLLARS AND CENTS!!"
  17. 170 PRINT
  18. 180 GOTO 130
  19. 190 INPUT "ENTER MONTHLY PAYMENT"; PAYMENT
  20. 200 PRINT
  21. 210 IF PAYMENT > 0 GOTO 250
  22. 220 PRINT "MONTHLY PMT MUST BE IN DOLLARS AND CENTS!!"
  23. 230 PRINT
  24. 240 GOTO 190
  25. 250 INPUT "ENTER STARTING MONTH (1-12)"; MONTH
  26. 260 PRINT
  27. 270 IF MONTH > 0 THEN IF MONTH < 13 GOTO 310
  28. 280 PRINT "MONTH MUST BE 1 THRU 12!!"
  29. 290 PRINT
  30. 300 GOTO 250
  31. 310 INPUT "ENTER STARTING YEAR (YY)"; YEAR
  32. 320 IF YEAR > 0 GOTO 370
  33. 330 PRINT
  34. 340 PRINT "YEAR MUST BE ENTERED!!"
  35. 350 PRINT
  36. 360 GOTO 310
  37. 370 MPERCENT = PERCENT / 12
  38. 380 PRINT
  39. 390 PRINT
  40. 400 PRINT
  41. 410 PRINT
  42. 420 PRINT
  43. 430 PRINT " DATE   PAYMENT  INTEREST  PRINCIPAL    BALANCE"
  44. 440 PRINT
  45. 450 FOR I = MONTH TO 12
  46. 460   IF PRINCIPAL# = 0 GOTO 530
  47. 470   PAIDINT = PRINCIPAL# * MPERCENT 
  48. 480   PAIDINT = PAIDINT * 100
  49. 490   PAIDINT = INT (PAIDINT)
  50. 500   PAIDINT = PAIDINT / 100
  51. 510   PAIDPRIN = PAYMENT - PAIDINT 
  52. 520   PRINCIPAL# = PRINCIPAL# - PAIDPRIN 
  53. 530   PRINT USING FMT$; MONTH, YEAR, PAYMENT, PAIDINT, PAIDPRIN, PRINCIPAL#
  54. 540   TOTINT = TOTINT + PAIDINT
  55. 550   TOTPRIN = TOTPRIN + PAIDPRIN
  56. 560   MONTH = MONTH + 1
  57. 570   IF PRINCIPAL# = 0 GOTO 600
  58. 580   IF PRINCIPAL# < PAYMENT THEN GOSUB 810
  59. 590 NEXT I
  60. 600 PRINT  
  61. 610 A = YEAR + 1900
  62. 620 PRINT A; "TOTALS:   ";
  63. 630 PRINT USING "##,###.##"; TOTINT,
  64. 640 PRINT USING " ###,###.##"; TOTPRIN
  65. 650 TOTINT = 0
  66. 660 TOTPRIN = 0
  67. 670 FOR I = MONTH TO 12
  68. 680   PRINT
  69. 690 NEXT I
  70. 700 IF PRINCIPAL# = 0 GOTO 860
  71. 710 PRINT
  72. 720 PRINT
  73. 730 PRINT
  74. 740 PRINT "CONTINUE";
  75. 750 INPUT X$
  76. 760 IF X$ <> "y" THEN IF X$ <> "Y" GOTO 880
  77. 770 MONTH = 1
  78. 780 PRINCIPAL# = 0
  79. 790 YEAR = YEAR + 1
  80. 800 GOTO 380
  81. 810 PAIDINT = PRINCIPAL# * MPERCENT
  82. 820 PAYMENT = PRINCIPAL# + PAIDINT
  83. 830 PAIDPRIN = PRINCIPAL# 
  84. 840 PRINCIPAL# = 0
  85. 850 RETURN
  86. 860 PRINT
  87. 870 PRINT
  88. 880 END
  89. 820 PAYMENT = PRINCIPAL# + PAIDINT
  90. 830 PAIDPRIN = PRINCIPAL# 
  91. 840