$ PROGRAM TITLE\ LOANPAY1  VERSI 3.0 " JULY 30,1977 HBR * A USEFUL LOAN REPAYMENT PROGRAM....  F ADD'L SOFTWARE FROM\ SOFTWARE,BOX AF, WOODBRIDGE,CT. 06525    &2 N9$30),A9$30),A8$30),D9$20) n 26) 2 \ " DECLINING INTEREST CALCULATION PROGRAM" B \"THIS PROGRAM PRODUCES MORTGAGE AMORIZATION SCHEDUALS"\\ "PROGRAM RUN FOR ",N9$  "ADDRESS ",A9$ . "CITY & STATE (USE NO COMMAS ) ",A8$  "TODAY'S DATE ",D9$ , \" ENTER THE AMOUNT OF THE LOAN: $",A , \" ENTER THE INTEREST RATE % : ",R - \" ENTER THE LOAN LENGTH (MONTHS): ",M  MM) - \"*** WANT PAYMENT CALCULATED....",B$ S \\ %$10F2,A," FOR ",%3I, M," MONTHS AT ",%6F2,R," PERCENT INTEREST....."\  B$1,1)"Y" . \" WHAT'S THE MONTHLY PAYMENT....",P POOT RR1200  B$1,1)"Y"   C1R)M  PARC)C1)) PP100)1\ PP)\PP100 ? \\ 20),"****",30),"MONTHLY PAYMENT = ",%$12F2,P\\ 1 \\\" WANT A MONTHLY BREAKDOWN.......",B$  B$1,1)"N" "  B$1,1)"Y" % " WANT PRINTED OUTPUT.....",D$ , D$1,1)"Y" P81 \ TURN SWITCH  \ : 25),"** MORTGAGE AMORIZATION SCHEDUAL ***"\\ 8 10),N9$\10),A9$,\50),D9$\10),A8$\\\ ) \"MONTHLY PAYMENT = ",%$12F2,P\\ ( 36),"INTEREST",60),"PRINCIPLE" A "MONTH",12),"BALANCE",24),"INTEREST",36),"TO DATE ", ( 48),"PRINCIPLE",60),"TO DATE"  " Z0\TZ\I2Z\N2Z\P2Z ' BA , K1 M 6 IBR ; II100)1\II)\II100 @ KM PB1 J P2P2P T ^ NPI\BBN\I2I2I\N2N2N c B$1,1)"N" r -h K,10),"$",B,25),"$",I,37),"$",I2, j 50),"$",N,62),"$",N2 r K 2w\\ \ 40)," * FINAL PAYMENT = ",%$12F2,P y 2| \40)," * TOTAL PAYMENTS= ",%$12F2,P2\\ -~ D$1,1)"Y" P80\ TURN OFF SWITCH  \\ % " WANT TO DO IT AGAIN.....",B$  B$1,1)"Y"  B$1,1)"N"   *^^!_t^^ _^^^^^^^HBR O^1 ^1 ^1