home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / calculat / calc_v22.zip / LOAN.CLC < prev    next >
Text File  |  1991-01-22  |  400b  |  17 lines

  1. define amortize() {
  2.    print( "what is the principal? " );
  3.    read( prin );
  4.    print( "what is the term in months? " );
  5.    read( term );
  6.    print( "what is the interest rate? " );
  7.    read( interest );
  8.    tmp = scale;
  9.    scale = 2;
  10.    payment = loan( prin , term , interest , 0 );
  11.    print( "\nyour monthly payment will be: %d\n" , payment );
  12.    scale = tmp;
  13.    return payment;
  14.    }
  15.  
  16.  
  17.