page-1983-101-timex-sinclair-programming-tricks

50 NEXT L60 PRINT100 PRINT "PURCHASE PRICE ?"110 INPUT T120 CLS130 PRINT "DOWN PAYMENT ?"140 INPUT R150 CLS160 PRINT "NUMBER OF MONTHS ?"170 INPUT N180 CLS190 PRINT "ANNUAL INTEREST ?n200 INPUT I210 LET I=(O.Ol*I)/12220 CLS230 LET P=(T-R)*I/(1-1/(l+I)**N)240 LET P=INT(lOO*P+.5)/100250 PRINT •PAYMENT WILL BE"260 PRINT "$";P;" A MONTH"Sample Run**************CAR PAYMENTPURCHASE PRICE $ ?8000DOWN PAYMENT $ ?1000NUMBER OF MONTHS ?36MONTHLY INTEREST ?15/12PAYMENT: $ 242.669070 To Nearest 95 CentsMany companies like to price their goods at a figure