PROGRAM MORT

C Calculate the length of a morgage in months 
C OUTS - outstanding amount 
C INTR - interest charged
C RATE - monthly interest rate 
C N - number of months
C REPAY - Repayment
      REAL OUTS, INTR, RATE, REPAY
      INTEGER N

C Initial values
      OUTS = 10000.0
      RATE = (6.15 / 100.0) / 12.0
      REPAY = 200.0
      N = 0

10    INTR = OUTS * RATE
      OUTS = OUTS + INTR
      OUTS = OUTS - REPAY
      N = N + 1
      IF (OUTS .GT. 0.0) GO TO 10

20    WRITE (6, FMT=100) N
100   FORMAT (I5)

      CLOSE(6)
      STOP
      END