Compucolor.org – Virtual Media

Listing of file='LNTERM.BAS;01' on disk='vmedia/ncc_8_real-sector.ccvf'

10 PLOT 12,14,10,10,6,6
30 PRINT TAB( 25)"TERM OF A LOAN":PLOT 10,15
40 PRINT "THIS PROGRAM CALCULATES THE PERIOD OF TIME NEEDED TO REPAY A"
50 PRINT :PRINT "LOAN.   YOU WILL NEED TO PROVIDE THE AMOUNT OF THE LOAN, THE"
60 PRINT :PRINT "PAYMENT AMOUNT, THE NUMBER OF PAYMENTS PER YEAR,  AND THE"
70 PRINT :PRINT "ANNUAL INTEREST RATE ON THE LOAN.  ALL PAYMENTS ARE ASSUMED"
80 PRINT :PRINT "TO BE EQUAL...."
90 PRINT :PRINT :INPUT "HIT -RETURN- TO CONTINUE   ";G
100 PLOT 14,12,10,10,6,1
110 PRINT TAB( 12)"REGULAR PAYMENT =         ";:INPUT R
120 PRINT TAB( 12)"PRINCIPAL =               ";:INPUT P
130 PRINT TAB( 12)"ANNUAL INTEREST RATE =    ";:INPUT I
140 PRINT TAB( 12)"# OF PAYMENTS PER YEAR =  ";:INPUT N
150 Y= - (LOG (1- (P* (I/ 100))/ (N* R))/ (LOG (1+ I/ 100/ N)* N))
160 M = INT (Y* 12+ .5)
170 Y0= INT (M/ 12)
180 M= M- Y0* 12
190 PRINT :PRINT TAB( 15)"TERM  ="Y0" YEARS,"M" MONTHS"
200 PLOT 10,15,6,2
210 INPUT "MORE DATA ?...(1=YES, 0=NO)      ";X
220 IF X= 1THEN 100
230 PLOT 1