proc loan start=1998:12 noprint outsum=loans
   amount=150000 life=360;

   fixed rate=7.5 life=180 prepayment=500
         label='BANK1, Fixed Rate';

   arm rate=5.5 estimatedcase=(12=7.5 18=8)
       label='BANK1, Adjustable Rate';

   buydown rate=7 interval=semimonth init=15000
           bdrates=(3=9 10=10) label='BANK2, Buydown';

   arm rate=5.75 worstcase caps=(0.5 2.5)
       adjustfreq=6 label='BANK3, Adjustable Rate'
       prepayments=(12=2000 36=5000);

   balloon rate=7.5 life=480
       points=1100 balloonpayment=(15=2000 48=2000)
       label='BANK4, with Balloon Payment';

   compare at=(120 360) all marr=7 tax=33 outcomp=comp;
run;

proc print data=loans;
run;

proc print data=comp;
run;