 # Auto Loan Calc .bas
# example HotPaw Basic applet
for i=0 to 17:s$(i)="":next i
s$(0)= "(hit Calc for loan payment)"
s$(2)="Price"
s$(4)="% tax" : s$(5)="8.25"
s$(6)="fees"
s$(8)="trade-in"
s$(10)="down pmt."
s$(12)="% int. rate":s$(13)="10"
s$(14)="months" : s$(15)="48"
while (1)
j = form(12,0,"Auto Loan Calculator")
if j=0 then end
p=val(s$(3))
p=p*(1 + val(s$(5))/100)
p=p+val(s$(7))
p=p-val(s$(9))-val(s$(11))
i=(val(s$(13))/100)/12
n=val(s$(15))
a=fn pmt(p,i,n)
a$=str$(a,6,2)
t1=n*a - p
t2=n*a
t1$=str$(t1,6,2)
t2$=str$(t2,7,2)
s$(16)="Pmt ="
s$(17)="$"+a$
if (j=3)
s$(1)="$"+t2$
else
s$(1)="$"+t1$
endif
wend
end
 