9000  REM *****LENDER*****BUSINESS PROGRAM
9010  REM LENDER**********VERSION #1 (7/31/69)*****LOAN ANALYSIS*****
9020  REM
9030  PRINT "*  SIMPLE LOAN ANALYSIS  *"
9040  PRINT 
9050  PRINT "THIS PROGRAM CALCULATES THE MONTHLY INTEREST CHARGES AND OUTSTANDING"
9060  PRINT "BALANCE OF A LOAN THAT MUST BE PAID OFF IN ONE YEAR OR LESS."
9070  PRINT 
9080  PRINT 
9090  PRINT "WHAT IS THE AMOUNT OF THE LOAN";
9100  INPUT B
9110  PRINT 
9120  PRINT "WHAT IS THE MONTHLY PAYMENT";
9130  INPUT M
9140  PRINT 
9150  PRINT "WHAT IS THE INTEREST RATE";
9160  INPUT R
9170  IF R>1 THEN 9200
9180  PRINT "ENTER ABOVE INTEREST AS A PERCENT > 1";
9190  GOTO 9160
9200  PRINT 
9210  DIM N$[3]
9220  LET Z=(B*R)/1200
9230  IF ((Z+B)/12) >= M THEN 9250
9240  GOTO 9300
9250  PRINT 
9260  PRINT "LOAN CANNOT BE PAID OFF IN LESS THAN 1 YEAR."
9270  PRINT "INCREASE YOUR MONTHLY PAYMENT."
9280  PRINT 
9290  GOTO 9610
9300  PRINT "**********************************************************************"
9310  PRINT 
9320  PRINT TAB(9);"PAYMT";TAB(19);"APPLIED TO";TAB(34);"BALANCE"
9330  PRINT "MTH.";TAB(10);"INT.";TAB(22);"LOAN";TAB(35);"DUE"
9340  PRINT "----";TAB(9);"-----";TAB(21);"------";TAB(34);"-------"
9350  LET T=0
9360  LET X=0
9370  FOR N=1 TO 37
9380  LET I=B*R/1200
9390  LET I=INT(100*I+.5)/100
9400  LET B=B+I-M
9410  LET T=T+I
9420  LET X=X+1
9430  PRINT X;TAB(8);I;TAB(17);M-I;TAB(26);B
9440  IF B <= M THEN 9460
9450  NEXT N
9460  LET N=N+1
9470  LET F=B
9480  LET I=B*R/1200
9490  LET I=INT(100*I+.5)/100
9500  LET T=T+I
9510  LET X=X+1
9520  PRINT X;TAB(8);I;TAB(17);F;TAB(27);"0.00"
9530  PRINT 
9540  PRINT "----------------------------------------------------------------------"
9550  PRINT 
9560  PRINT "MONTHS TO PAYOFF LOAN:";N
9570  PRINT "TOTAL INTEREST CHARGES:";T
9580  PRINT 
9590  PRINT "---------------------------------------------------------------------"
9600  PRINT 
9610  PRINT "DO YOU HAVE ANOTHER  CASE";
9620  INPUT N$
9630  PRINT 
9640  IF N$[1,2]="NO" THEN 9660
9650  GOTO 9090
9660  PRINT 
9670  PRINT "**********************************************************************"
9999  END 
