home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast2.iso
/
calculat
/
calc_v22.zip
/
LOAN.CLC
< prev
next >
Wrap
Text File
|
1991-01-22
|
400b
|
17 lines
define amortize() {
print( "what is the principal? " );
read( prin );
print( "what is the term in months? " );
read( term );
print( "what is the interest rate? " );
read( interest );
tmp = scale;
scale = 2;
payment = loan( prin , term , interest , 0 );
print( "\nyour monthly payment will be: %d\n" , payment );
scale = tmp;
return payment;
}