4H§ ’ Œ>F >ÿÿ~4BÉ ¤ 10: I5=0 & «:ƒ "MORTGAGE AMORTIZATION TABLE":ª  ƒ . ¡ - STATEMENTS 30 TO 150 REQUEST USER INPUT  ƒ "REGULAR PAYMENT"; ( – R1 2 ƒ "TERM IN YEARS"; < – Y3 F ƒ "PRINCIPAL"; P – P1 Z ƒ "ANNUAL INTEREST RATE"; d – I4 m ¡ - CONVERT FROM % TO DECIMAL n I4=I4/100 x# ƒ "NUMBER OF PAYMENTS PER YEAR"; ‚ – N2 Œ% ƒ "START PRINTING WITH WHAT YEAR"; – – X3 Ÿ* ¡ - START PRINTING AT BEGINNING OF YEAR © ¡ - INITIALISE VARIABLES ª C1=0 ´ I2=0 ¹ R2=R1 ¾ I3=0 È J0=0 Ò N1=N2 Ü K=66 æ B0=P1 ð A1=0 ú A2=0  ¡ - TERM LESS THAN ONE YEA?  „ Y3>=1 ‰ 270 / ¡ - ADJUST VARIABLES TO PRINT A PARTIAL YEAR  N1=(Ð(Y3)*12)/12*N2  J0=J0+1  280   ¡ - LOOP FOR EACH YEAR  Š J0=1 ™ Y3  ¡ - START PRINTING?  „ J0N2*Y3 ‰ 520 à R1=R1+B0 ê A3=A3+B0 ô A1=A1+B0 þ B0=0  ¡ - SUM INTEREST PAID DATE  I2=I2+I1 " ¡ - SUM INTEREST PAID THIS YEAR  I3=I3+I1 : I5=I5+I1 % ¡ - SUM AMOUNT AMORTIZED THIS YEAR  A2=A2+A3 %? ¡ - STARTED PRINTING? IF YES, PRINT COMPUTED VALUES IN TABLE & „ J00 ‰ 565 ˆ ƒ "YEAR ";J0 2A ƒ " PRINCIPAL $";P1;" AT ";I4*100;"% FOR ";Y3; "YEARS" 34 ƒ " REGULAR PAYMENT = $";[F8.2 R2]:ƒ 4 ‘ 5 L6$ =Þ$:U=Å(L6$) 7 „ U = 32 ‰ 569 ˆ 570 9( L6$=Þ$:U=Å(L6$):„ U <> 32 ‰ 569 : ‹ J1 C- ¡ - LAST PAYMENT? IF YES, ROUND OFF, PRINT D „ C1<>N2*Y3 ‰ 600 N0 ƒ:ƒ " LAST PAYMENT = $";(R1*100+.5)/100 W4 ¡ - STARTED PRINTING? IF YES, PRINT YEARLY TOTALS X „ J0Y3 ‰ 720 ‰" ¡- REINITIALIZE YEARLY VAIABLES Š I3=0 ” A2=0 ž ‹ J0 §# ¡ - NEED TO PRINT A PARTIAL YEAR ¨ „ Y3<>J0 ‰ 262 Ð ƒ Ù ¡ - RESTART OR END PROGRAM? Ú/ ƒ "CHANGE DATA AND RECOMPUTE (1=YES, 0=NO)"; ä – Z î „ Z=1 ‰ 20 ø ‘ ÿÿLOANS€,192,32,16,8,4,4,2,3,3,2,2,2,2,4,4 Ø) ” 0,3,