(FILECREATED " 8-Oct-85 13:11:19" {PHYLUM}<TAMARIN>LISP>INTRATE.;1
 1100   

      changes to:  (VARS INTRATECOMS)
		   (FNS PrintEquity IntRate))


(PRETTYCOMPRINT INTRATECOMS)

(RPAQQ INTRATECOMS
 ((FNS IntRate PrintEquity)))
(DEFINEQ

(IntRate

  [LAMBDA (rate payments)                                    (* edited: "22-Apr-85 14:56")

    (
SETQ
 b (
EXPT
 (
FPLUS
 1.0 rate)
		  payments))
    (
SETQ
 tt (
FQUOTIENT
 (
FTIMES
 rate b)
			(
FDIFFERENCE
 b 1.0])

(PrintEquity

  [LAMBDA (principal amt rate)                               (* edited: "15-Sep-85 11:53")

    (
PROG
 (curprin (month 0))
          (
SETQ
 curprin principal)
      L1  (
SETQ
 month (
ADD1
 month))
          (
SETQ
 monint (
TIMES
 rate curprin))
          (
SETQ
 monprin (
DIFFERENCE
 amt monint))
          (printout
 NIL month 10 curprin 20 monprin 30 monint T)
          (
SETQ
 curprin (
DIFFERENCE
 curprin monprin))
          (if
 (
GREATERP
 curprin 0.0)
	      then
 (
GO
 L1])
)
(PUTPROPS INTRATE COPYRIGHT (NONE))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (236 1042 (IntRate 246 . 495) (PrintEquity 497 . 1040)))))
STOP