25 PRINT "ENTER THE AMOUNT OF MORTGAGE";
  30 INPUT B
  35 PRINT "THE ORIGINAL AMOUNT IS",B
  40 PRINT "ENTER THE INTEREST RATE AS A DECIMAL";
  45 INPUT I
  50 PRINT "ENTER THE NUMBER OF MONTHLY PAYMENTS";
  55 INPUT N
  56 PRINT TAB(20) , "MORTGAGE SCHEDULE"
  57 PRINT  "PAYMENT      INTEREST      DEDUCTION    BALANCE"
  60 M = (B*I*(1+I/12)^N)/((12.*(1+I/12.)^N)-12.)
  65 FOR J = 1 TO N
  70 I = (B*I)/12.
  75 D = M - I
  80 B = B - D
  85 IF D <= B THEN 110
  90 D = B
  95 PRINT M,I,D,B
 100 END
 110 PRINT M,I,D,B
 120 NEXT J