[Apple II]
Type=Paste

[Data]

NEW

1  REM  ************************
2  REM   ALTAIR LOAN
3  REM  ==================
4  REM
7  REM  ADAPTED FOR THE APPLE II AND SLIGHTLY IMPROVED BY MOOSE O'MALLEY 6-MAR-2002
8  REM
9  REM  ************************
10 PRINT "REGULAR PAYMENTS ON A LOAN"
20 PRINT
30 INPUT "LOAN TERM IN YEARS          : ";Y
50 INPUT "LOAN PRINCIPLE              : ";P
70 INPUT "ANNUAL INTEREST RATE        : ";I
90 INPUT "NUMBER OF PAYMENTS PER YEAR : ";N
110 R=((I/100)*P/N)/(1-1/((I/100)/N+1)^(N*Y))
120 PRINT
130 PRINT "REGULAR PAYMENT = $"; INT(R*100+.5)/100
500 END
