home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / desqview / taskman.arc / SAMPDOC.DOC < prev    next >
Encoding:
Text File  |  1989-01-20  |  1021 b   |  24 lines
  1. Joe: 
  2.  
  3. When we were talking last week, you mentioned that you were thinking about
  4. buying a house.  I went through that exercise recently and wrote a BASIC
  5. program to help me sort out my options.  It lets you see how your monthly
  6. payments would vary for different interest rates and lengths of mortgage.
  7. Here it is:
  8.  
  9. 100 PRINT:PRINT:INPUT "What principal amount";PRIN
  10. 110 PRINT:PRINT:PRINT USING "\        \ $$###,###";"Principal:",PRIN
  11. 120 PRINT:PRINT:PRINT "                  Monthly Payment vs. Years"
  12. 130 PRINT "Interest      20      25      30      35      40"
  13. 140 PRINT "--------   ------  ------  ------  ------  ------"
  14. 150 FMT$=" ##.##    $$#,### $$#,### $$#,### $$#,### $$#,###"
  15. 160 FOR I=1 TO 10:RATE=9.5+.5*I
  16. 170 FOR J=1 TO 5:YEARS=15+5*J:GOSUB 500:PYM(J)=PAYM:NEXT J
  17. 180 PRINT USING FMT$;RATE,PYM(1),PYM(2),PYM(3),PYM(4),PYM(5):NEXT I
  18. 190 PRINT:PRINT:STOP
  19. 500 PAYM=PRIN*(RATE/1200)/(1-((1+RATE/1200)^(-YEARS*12))):RETURN
  20.  
  21. I have a few other programs that might help you out too.
  22.  
  23. Gary
  24.