Loan Compare

Source Code

    5 REM loancompar - J. Colonna        Version 1.1  Rev. 7-86
   10 CLS : BORDER 6
   15 LET p=0
   20 GO SUB 500
   25 PRINT : PRINT 
   30 PRINT "  Enter the amount of the loan"
   35 PRINT 
   40 INPUT t
   45 PRINT TAB 14; INVERSE 1;t
   50 GO SUB 600
   55 PRINT 
   60 PRINT "Enter number of monthly payments"
   65 PRINT 
   70 INPUT n
   75 PRINT TAB 15; INVERSE 1;n
   80 GO SUB 600
   85 PRINT 
   90 PRINT " Enter the annual interest rate"
   95 PRINT "     (For Example - 12.5)"
  100 INPUT i
  105 PRINT TAB 13; INVERSE 1;i;" %"
  110 LET i=(0.01*i)/12
  115 PRINT 
  120 LET p=t*i/(1-1/(1+i)^n)
  125 LET p=INT (100*p+.5)/100
  130 GO SUB 500
  135 PRINT : PRINT 
  140 PRINT "Monthly payment will be: $";p
  145 PRINT 
  150 PRINT "Total payment will be: $";p*n
  155 PRINT 
  160 GO SUB 500
  165 INPUT INVERSE 1;"COPY(1) or AGAIN(2)?"; INVERSE 0;" ";a$
  170 IF a$="1" THEN LPRINT ; INVERSE 1;" AMT.  NUMBER OF  INT.  MONTHLY  LOAN  PAYMENTS   RATE  PAYMENT "; INVERSE 0;"$";t;"     ";n;"       ";i*1200;"%   $";p: LPRINT 
  175 IF a$="2" THEN GO TO 1
  180 GO TO 165
  185 STOP 
  500 FOR l=1 TO 32: PRINT INVERSE 1;"$";: NEXT l
  550 RETURN 
  600 FOR l=1 TO 32: PRINT "-";: NEXT l
  650 RETURN 
 9999 CLEAR : CLS : SAVE "loancompar" LINE 1: BEEP 1,25: PRINT "loancompar SAVED": VERIFY "": PRINT "Program VERIFIED": BEEP .5,32: BEEP .5,32