1 REM *************************
2 REM  FILE FROM JMOFFAT ARCHIVE
3 REM  MINOR CORRECTIONS
4 REM  RUNS ON SUBASIC ON HP2116/8KW
5 REM  / 2025 MAY, BH
6 REM *************************
100  GOSUB 200
130  PRINT "     DATE","PAYMENT","INTEREST","PRINCIPAL","BALANCE"
140  PRINT 
150  GOTO 1000
200  FOR N=1 TO 5
210  PRINT 
220  NEXT N
230  RETURN 
1000  READ M0,Y0,B,I0,P1,P2,N1,N2
1010  LET I5=P5=R5=P=I=R=0
1020  LET Y0=Y0+1900
1030  PRINT "   "M0;Y0;P,I,R,B
1040  LET Y0=Y0+1
1050  LET I=I5=136
1055  LET B=B+I
1060  PRINT "   "M0;Y0;P,I,R,B
1070  PRINT 
1080  LET P=P1
1090  LET N0=N1
1200  FOR N=1 TO N0
1210  LET I=(INT((100*(B*I0/12))+.5))/100
1220  LET B=(INT((100*(B-I))+.5))/100
1230  LET R=P-I
1240  LET P5=P5+P
1250  LET R5=R5+R
1260  LET I5=I5+I
1270  LET M0=M0+1
1280  IF M0 <= 12 THEN 1400
1290  LET M0=1
1300  LET Y0=Y0+1
1400  PRINT "   "M0;Y0;P,I,R,B
1490  NEXT N
1500  PRINT 
1510  IF N0=N2 THEN 2000
1520  LET N0=N2
1530  LET P=P2
1540  GOTO 1200
2000  PRINT 
2010  PRINT 
2020  PRINT "A TOTAL OF"N1;"PAYMENTS OF $"P1;"AND"N2;"PAYMENTS"
2030  PRINT "OF $"P2;"HAVE BEEN ACCOUNTED FOR A TOTAL OF:"
2040  PRINT 
2050  PRINT "TOTAL OF PAYMENTS $"P5
2060  PRINT "TOTAL APPLIED TO INTEREST $"I5
2070  PRINT "TOTAL APPLIED TO PRINCIPAL $"R5
2080  PRINT " THIS SHOWS AN OVERPAYMENT OF $"(R5-B)
3000  GOSUB 200
8000  DATA 3,66,3400,4.00000E-02,25,50,49,69
9000  PRINT "BY INTERFACE OF CUPERTINO"
9990  END