:;U g EE1ACASAPAYMENFIRSBUYBACLJUMPAYBACRE2Z9@ ******************** LEASEINT ********************@@ }""  ŠԠ  THERE ARE MANY TYPES OF %% EQUIPMENT LEASES. ONE TYPE OF((  AUTO LEASE IS CALLED AN OPEN END'' LEASE. THE WAY IT WORKS IS THAT## THE LESSEE PAYS THE LEASING)) !COMPAY A DOWN PAYMENT AND A FIXED%% AMOUNT EACH MONTH FOR A GIVEN ++ #NUMBER OF MONTHS. AT THE END OF THE,, $LEASE PERIOD THE LESSEE MUST PAY THE++ #LEASING COMPANY A PER-AGREED AMOUNT** "(BUY-BACK AMOUNT). THE LESSEE THEN'' OWNS THE CAR. THERE ARE SEVERAL$"" ADVANTAGES TO THE LEASING.%;;@, 7 ENTER ANY CHARACTER TO CONTINUE;& }'@@)** "IF THE INITIAL DOWN PAYMENT IS LOW.,, $AND PAYMENTS ARE LESS PER MONTH THAN3** "ON A STRAIGHT LOAN THEN THE LESSEE8)) !PAYS LESS MONEY EARLY THAN ON THE=** "LOAN. THE BALLOON PAYMENT MAKES UPB++ #FOR THIS LATER. THE PRESENT PROGRAMG++ #COMPUTES AN EFFECTIVE INTEREST RATEL-- %ON THE LEASE GIVEN THE PURCHASE PRICEQ)) !OF THE CAR, THE DOWN PAYMENT, THEV((  MONTHLY PAYMENT, AND THE BUYBACK[ AMOUNT\ ];@,;@,`%% ENTER ANY CHARACTER TO BEGINa  }'' IT IS ASSUMED THAT THE BUY-BACK'' OCCURS ONE MONTH AFTER THE LAST++ #PAYMENT. IF THE LAST PAYMENTAND THE,, $BUY-BACK OCCUR AT THE SAME TIME THEN** "DECREASE THE NUMBER OF PAYMENTS BY** "1 AND INCREASE THE BUY-BACK BY THE! AMOUNT OF ONE PAYMENT.! -- %IN ADDITION, THE FIRST PAYMENT MAY BE$$ AT THE END OF THE 1ST MONTH, 2ND MONTH, ETC.9A, : A, INPUT CASH COST OF ITEM 0: B: A , INPUT DOWN PAYMENT 0: B: A0, INPUT MONTHLY PAYMENT 0: B< A@. INPUT # OF MONTHLY PAYMENTS2< B; AP- INPUT MONTH OF 1ST PAYMENT1; B: A`, INPUT BUY-BACK AMOUNT 0: B +  ''  ǠԠ('6-6-'6-?26-7!-@@! PASS 8K-@@= CURRENT MONTHLY RATE A$%K6-%@< 6-6F 6-%P/-%&@+6-%'+@%,#/ Z6-%'+@%,#+%,dO:, ?PAn!!6-%! A0x+ 6-&6-'@!6-%+ A0PRINTOUT ROUTINE0 ,  ӠΠϠ0 +##6-+@%,#@&@33 MONTHLY INTEREST RATE = A$%33 ANNUAL INTEREST RATE(EFF) = A$%;; ANNUAL INTEREST RATE(SIMP) = A$$@% , , !INTEREST RATE (SIMP) COMPUTED BY  ,, $MULTIPLYING MONTHLY INTEREST RATE BY ((  12 WHILE INTEREST RATE(EFF) IS A  COMPOUNDED MONTHLY RATE.   %! PRESS RETURN TO CONTINUE% } A D:LEASEINT