' ******************************************
' *  EMPRUNT:  CALCUL  du  TAUX  d'INTERET *
' *    EDTION  TABLEAU  REMBOURSEMENT      *
' ******************************************
' * C:\\AAMICHEL\\TXEMPR\\EMPRUNT1.BAS        *
' ******************************************
'AUTEUR DU PROGRAMME: MICHEL (SFLPMEA)
'DATES: 25/02/1994 - 03/03/1994 - 11/12/2005 - 11/01/2006
'DATE: 07/04/06 : Sortie du Tableau de remboursement sur
                ' C:\\AAMICHEL\\TXEMPR\\EMPRUNT1.TXT
                ' En prendre connaissance et ‚diter avec "EDIT"
    OPTION BASE 1: CLEAR : SCREEN 12: WINDOW SCREEN (1, 1)-(640, 480)
    DEFSTR A-Z
   
    ON ERROR GOTO E99.ERREUR
 
    DIM Nb.Mois%(42)    ' ** Nombre de remboursements par periode
    DIM Nbrm(42)        ' ** Idem en alphanum‚rique
    DIM Mt.Mois#(42)    ' ** Montant de chaque remboursemet par periode
    DIM Mt.M(42)        ' ** Idem en alphanum‚rique
    DIM TOT.Rbt#(1000)  ' ** Table complete des remboursements
    DIM J.Mois%(12)     ' ** Jours par mois
    WIDTH 80, 43: WIDTH LPRINT 80
 
' ***** Definition des traits doubles
    H = CHR$(205): V = CHR$(186): Chg = CHR$(201): Chd = CHR$(187)
    Cbg = CHR$(200): Cbd = CHR$(188): Vd = CHR$(204): Vg = CHR$(185)
    Hb = CHR$(203): Hh = CHR$(202): Crx = CHR$(206)
   
' ***** Les COULEURS *****
    Cfd% = 0               ' COUL DE FOND ECRAN
    Ccv% = 10              ' COUL CADRE VIDE
    Cct% = 11: Cte% = 15   ' COUL CADRE/TITRE
    Cds% = 15              ' COUL DONNEES APRES SAISIE
   
' ***** AFFICHAGE ECRAN DE SAISIE des DONNEES *****
    LOCATE 1, 1: COLOR Cfd%: PRINT SPACE$(3440);
    Titre = "  *** EMPRUNT & TABLEAU de REMBOURSEMENT ***  "
    L% = 1: C% = 1: GOSUB E05.TITRE
    Lchg% = 1: Cchg% = 49: Lcbd% = 4: Ccbd% = 80: GOSUB E08.CVIDE
    Lchg% = 4: Cchg% = 1: Lcbd% = 42: GOSUB E08.CVIDE
    LOCATE 3, 49: PRINT Vd; STRING$(30, H); CHR$(185)
    LOCATE 4, 49: PRINT Cbd: LOCATE 4, 80: PRINT V
    COLOR 7: LOCATE 2, 50: PRINT SPACE$(30)
    LOCATE 4, 50: PRINT SPACE$(30): Ccv1% = 15: Ccv2% = 2
    Lchg% = 5: Cchg% = 2: Lcbd% = 8: Ccbd% = 79: GOSUB E08.CVIDE
    Ccv1% = 14: Ccv2% = 0
    Lchg% = 9: Cchg% = 2: Lcbd% = 13: Ccbd% = 37: GOSUB E08.CVIDE
    COLOR 7: LOCATE 10, 3: PRINT SPACE$(34): LOCATE 11, 3: PRINT SPACE$(34)
    LOCATE 12, 3: PRINT SPACE$(34)
    Lchg% = 9: Cchg% = 40: Lcbd% = 13: Ccbd% = 79: GOSUB E08.CVIDE
    COLOR 7: LOCATE 10, 41: PRINT SPACE$(38)
             LOCATE 11, 41: PRINT SPACE$(38)
    LOCATE 12, 41: PRINT SPACE$(38): Ccv1% = 1: Ccv2% = 2
    Cct% = 14: Cct2% = 0: Cte1% = 14: Cte2% = 4
    Titre = " ** R E M B O U R S E M E N T ** "
    L% = 15: C% = 23: GOSUB E05.TITRE: COLOR 7
    FOR L% = 18 TO 35
        LOCATE L%, 4: PRINT SPACE$(24): LOCATE L%, 29: PRINT SPACE$(24)
        LOCATE L%, 54: PRINT SPACE$(24)
    NEXT L%
    COLOR 14
    FOR C% = 4 TO 54 STEP 25
        LOCATE 18, C%: PRINT Chg; H; H; Hb; H; H; H; H; H; Hb;
                       PRINT STRING$(13, H); Chd;
        LOCATE 35, C%: PRINT Cbg; H; H; Hh; H; H; H; H; H; Hh;
                       PRINT STRING$(13, H); Cbd;
    NEXT C%
E51: DATA 4, 7, 13, 27, 29, 32, 38, 52, 54, 57, 63, 77
    FOR L% = 19 TO 34
       RESTORE E51
       FOR I% = 1 TO 12: READ C%: LOCATE L%, C%: PRINT V: NEXT I%
    NEXT L%
    FOR C% = 4 TO 54 STEP 25
        LOCATE 20, C%: PRINT Vd; H; H; CHR$(206);
        PRINT STRING$(5, H); CHR$(206);
        PRINT STRING$(13, H); CHR$(185);
    NEXT C%
    COLOR 15: LOCATE 2, 50: PRINT "-> REFERENCE :"
    LOCATE 4, 50: PRINT "-> DATE      :"
    COLOR 15: LOCATE 6, 3: PRINT "  OBJET   : "
    LOCATE 7, 3: PRINT "  PRETEUR : "
    COLOR 15: LOCATE 10, 5: PRINT "CAPITAL EMPRUNTE"
    LOCATE 11, 5: PRINT "REMBOURSEMENTS"
    LOCATE 12, 5: PRINT "TOTAL INTERETS"
    LOCATE 10, 45: PRINT "PERIODICITE de REMBOURSEMENT"
    LOCATE 11, 42: PRINT "par Mois, Trimestre ou Ann‚e :"
    COLOR 12: LOCATE 11, 46: PRINT "M": LOCATE 11, 52: PRINT "T"
    LOCATE 11, 65: PRINT "A"
    COLOR 15: LOCATE 12, 42: PRINT "TM Echu (E), … Echoir (A) :"
    COLOR 12: LOCATE 12, 51: PRINT "E": LOCATE 12, 65: PRINT "A"
    COLOR 14
    FOR C% = 5 TO 55 STEP 25
        LOCATE 19, C%: PRINT "Nø": LOCATE 19, C% + 3: PRINT "Nombr"
        LOCATE 19, C% + 12: PRINT "Montant"
    NEXT C%
    COLOR 11
    FOR L% = 21 TO 34
         LOCATE L%, 5: PRINT USING "##"; L% - 20
         LOCATE L%, 30: PRINT USING "##"; L% - 6
         LOCATE L%, 55: PRINT USING "##"; L% + 8
    NEXT L%
    Cct% = 15: Cct2% = 1: Cte1% = 0: Cte2% = 3
    Titre = " CAPITAL RESIDUEL :               "
    L% = 36: C% = 3: GOSUB E05.TITRE
    Titre = " Tx par           :                   "
    L% = 36: C% = 39: GOSUB E05.TITRE
 
' ***** VALEURS INITIALES *****
E52: Ref.Pr = SPACE$(10): Date.Pr = "JJMMAAAA"
    Objet.Pr = SPACE$(59): Preteur.Pr = SPACE$(59)
    U.Tps.Pr = "?": Terme.Pr = "?": Cap.pr# = 0#
    Residuel.Pr = "0"
    FOR I% = 1 TO 42: Nbrm(I%) = "0": Mt.M(I%) = "0": NEXT I%
 
' ***** SAISIE ou REPRISE *****
E53: Fin% = 0: Tot.Rmbt# = 0#: CEFINI = "NON": PG% = 0
    MENS1# = 0: YNT1# = 0: CAPR1# = 0
    MENS2# = 0: YNT2# = 0: CAPR2# = 0
 
' ***** REFERENCE *****
    Titre = "  FACULTATIVE, MAIS CONSEILLEE (Entree si correcte)                       "
    Cct% = 4: Cte% = 11' Cte2% = 1
    L% = 39: C% = 3: GOSUB E05.TITRE
    L% = 2: C% = 65: S.Pr = Ref.Pr: Nbc% = 10: Colfond% = 7
    GOSUB E03.ALPHA: Reference = SAISIE: Ref.Pr = SAISIE
 
' ***** DATE *****
E54: DATA 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31
    RESTORE E54: FOR I% = 1 TO 12: READ J.Mois%(I%): NEXT I%
E55: LOCATE 40, 5: COLOR 11: PRINT " OBLIGATOIRE ET VALABLE (Entree si correcte)      "
    L% = 4: C% = 65: S.Pr = Date.Pr: Nbc% = 8
    GOSUB E03.ALPHA: Date = SAISIE: Date.Pr = SAISIE
    JJ% = VAL(LEFT$(Date, 2)): MM% = VAL(MID$(Date, 3, 2)): AA% = VAL(RIGHT$(Date, 4))
    IF AA% MOD 4 = 0 THEN J.Mois%(2) = 29 ELSE J.Mois%(2) = 28
    IF MM% < 1 OR MM% > 12 THEN
        Faux = " ---> MOIS INVALIDE !!!!  "
E55A:   GOSUB E01.ERR: GOTO E55
    END IF
    IF JJ% < 1 OR JJ% > J.Mois%(MM%) THEN
        Faux = " ---> JOUR INVALIDE !!!!  ": GOTO E55A
    END IF
    IF AA% < 1950 OR AA% > 3000 THEN
        Faux = " ---> Les ANNEES ACCEPTABLES vont de 1950 … 3000 !!!!  "
        GOTO E55A
    END IF
 
' ***** OBJET *****
E56: LOCATE 40, 5: COLOR 11: PRINT " OBLIGATOIRE (Entree si correcte)                 "
    L% = 6: C% = 15: S.Pr = Objet.Pr: Nbc% = 59: Colfond% = 3
    GOSUB E03.ALPHA: Objet = SAISIE: Objet.Pr = SAISIE
    IF Objet = SPACE$(59) THEN
        Faux = " ---> OBJET de l' EMPRUNT INDISPENSABLE !!!!  "
        GOSUB E01.ERR: GOTO E56
    END IF
 
' ***** PRETEUR *****
E57: L% = 7: C% = 15: S.Pr = Preteur.Pr: Nbc% = 59: Colfond% = 3
    GOSUB E03.ALPHA: Preteur = SAISIE: Preteur.Pr = SAISIE
    IF Preteur = SPACE$(59) THEN
        Faux = " ---> PRETEUR INDISPENSABLE !!!!  ": GOSUB E01.ERR: GOTO E57
    END IF
 
' ***** MONTANT EMPRUNT INITIAL *****
E58: LOCATE 40, 5: COLOR 11: PRINT " MONTANT avec DEUX decimales au maximum (Entree si correct)"
    L% = 10: C% = 23: Nbc% = 10: S.Pr = Cap.pr: GOSUB E03.ALPHA
    Ndp# = VAL(S): IF Ndp# = 0 THEN Ndp# = Cap.pr#
    Ndp = LTRIM$(STR$(Ndp#))
    IF Ndp <> RTRIM$(S) THEN
        Faux = " ---> Quel DROLE de Valeur ????  "
E58A:   GOSUB E01.ERR: GOTO E58
    END IF
    IF Ndp# < 1 THEN
        Faux = " ---> CAPITAL EMPRUNTE NUL ou NEGATIF ????  ": GOTO E58A
    END IF
    IF Ndp# > 9999999.99# THEN
        Faux = " ---> Valeur > 9999999.99 (MAXIMUM PREVU) ?? . . . ": GOTO E58A
    END IF
    Ndp1& = Ndp# * 100: Ndp2# = Ndp1& / 100
    IF Ndp# <> Ndp2# THEN
        Faux = " Seulement 2 D‚cimales,  S. V. P. !!! ": GOTO E58A
    END IF
    Cap# = Ndp#: LOCATE L%, C%: COLOR Cds%: PRINT USING "#######.##"; Cap#
    Tot.Rmbt# = 0: LOCATE 11, 23: PRINT USING "#######.##"; Tot.Rmbt#
    Interets# = Tot.Rmbt# - Cap#: Cap.pr = S
    LOCATE 12, 23: PRINT USING "#######.##"; Interets#
 
' ***** PERIODICITE de REMBOURSEMENT *****
E59: LOCATE 40, 5: COLOR 11: PRINT " Possibilites : M, T, A (Entree si correct)                "
    L% = 11: C% = 73: S.Pr = U.Tps.Pr: Nbc% = 1: Colfond% = 7
    GOSUB E03.ALPHA: U.Tps = SAISIE: U.Tps.Pr = SAISIE: COLOR 14
    SELECT CASE UCASE$(U.Tps)
        CASE "M":
            Tx# = 2: U.Tps = "MOIS": KM1% = 1: K.TX# = 12
            LOCATE 11, 46: PRINT U.Tps; : GOTO E59A
        CASE "T":
            Tx# = 8: U.Tps = "TRIMESTRE": KM1% = 3: K.TX# = 4
            LOCATE 11, 52: PRINT U.Tps; : GOTO E59A
        CASE "A":
            Tx# = 24: U.Tps = "ANNEE": KM1% = 12
            LOCATE 11, 65: PRINT U.Tps; : GOTO E59A
        CASE ELSE:
            Faux = " ---> Les REPONSES POSSIBLES  sont:  M, m, T, t, A ou a .....  "
            GOSUB E01.ERR: GOTO E59
    END SELECT
E59A: LOCATE 37, 48: PRINT "         ";
    COLOR 14: LOCATE 37, 48: PRINT U.Tps;
 
' ***** TM ECHU ou … ECHOIR *****
E60: LOCATE 40, 5: COLOR 11: PRINT " Possibilites : E, A (Entree si correct)                   "
    L% = 12: C% = 73: S.Pr = Terme.Pr: Nbc% = 1: Colfond% = 7
    GOSUB E03.ALPHA: Terme = SAISIE: Terme.Pr = SAISIE: COLOR 14
    SELECT CASE UCASE$(Terme)
        CASE "E": Terme = "E": LOCATE 12, 42: PRINT " Terme ECHU"; : GOTO E61
        CASE "A": Terme = "A": LOCATE 12, 55: PRINT "A ECHOIR"; : GOTO E61
        CASE ELSE:
            Faux = " ---> Les REPONSES POSSIBLES sont:  E, e, A ou a .....  "
            GOSUB E01.ERR: GOTO E60
    END SELECT
 
' ***** REMBOURSEMENTS ********
' ** Nombre par periode
E61: FOR N% = 1 TO 42
    IF N% < 15 THEN L% = N% + 20: C% = 9
    IF N% > 14 AND N% < 29 THEN L% = N% + 6: C% = 34
    IF N% > 28 THEN L% = N% - 8: C% = 59
E62: LOCATE 40, 5: COLOR 14
    PRINT " Nombre de Rmbt pour cette p‚riode (Entr‚e si correct, 0 si FIN)   "
    Nbc% = 3: S.Pr = Nbrm(N%): GOSUB E03.ALPHA
    Nint! = VAL(S): Nbrm(N%) = S
    Nint = LTRIM$(STR$(Nint!))
    IF Nint <> RTRIM$(S) THEN
        Faux = " ---> Quelle DROLE de Nombre ????  "
E62A:   GOSUB E01.ERR: GOTO E62
    END IF
    IF Nint! < 0 THEN
        Faux = " ---> Cette VALEUR ne peut ˆtre  N E G A T I V E  !!!!   "
        GOTO E62A
    END IF
    IF Nint! <> INT(Nint!) THEN
        Faux = " ---> Cette VALEUR DOIT ETRE UN ENTIER  !!!!   "
        GOTO E62A
    END IF
    IF Nint! >= 300 THEN
        Faux = " ---> Deja 25 ANNEES ou PLUS !!!!  (a decomposer) ....."
        GOTO E62A
    END IF
    Nint% = Nint!: Nb.Mois%(N%) = Nint%
    LOCATE L%, C%: PRINT USING "###"; Nint%
    IF Nint% = 0 THEN
        Fin% = N%: N% = 42: GOTO E64
    END IF
 
' ***** Montant *****
    C% = C% + 5
E63: LOCATE 40, 5: COLOR 14
    PRINT " Montant de chaque RBMT (> 0, ZERO ou < 0)     (Entr‚e si correct)   "
    Nbc% = 10: S.Pr = Mt.M(N%): GOSUB E03.ALPHA
    Ndp# = VAL(S): IF Ndp# = 0 THEN Ndp# = VAL(Mt.M(N%))
    Ndp = LTRIM$(STR$(Ndp#))
    IF Ndp <> RTRIM$(S) THEN
        Faux = " ---> Quelle DROLE de Valeur ????  ": GOTO E63A
    END IF
    IF Ndp# > 9999999.99# THEN
        Faux = " ---> Valeur > 9999999.99 ?? . . . "
E63A:   GOSUB E01.ERR: GOTO E63
    END IF
    Ndp1& = Ndp# * 100: Ndp2# = Ndp1& / 100
    IF Ndp# <> Ndp2# THEN
        Faux = " Seulement 2 D‚cimales,  S. V. P. !!! ": GOTO E63A
    END IF
    LOCATE L%, C%: COLOR Cds%: PRINT USING "#######.##"; Ndp#
    C% = C% - 5: Mt.Mois#(N%) = Ndp#: MtM(N%) = S
    Tot.Rmbt# = Tot.Rmbt# + (Mt.Mois#(N%) * Nb.Mois%(N%))
    COLOR 14: LOCATE 11, 23: PRINT USING "#######.##"; Tot.Rmbt#
    Interets# = Tot.Rmbt# - Cap#: Mt.M(N%) = S
    LOCATE 12, 23: PRINT USING "#######.##"; Interets#
E64: NEXT N%
    COLOR 7: IF Fin% = 0 THEN GOTO E65
    FOR N% = Fin% TO 42
        Nb.Mois%(N%) = 0: Mt.Mois#(N%) = 0
        IF N% < 15 THEN
             L% = N% + 20: C% = 9
        ELSEIF N% > 14 AND N% < 29 THEN
             L% = N% + 6: C% = 34
        ELSEIF N% > 28 THEN
             L% = N% - 8: C% = 59
        END IF
        LOCATE L%, C% - 1: PRINT SPACE$(5)
        LOCATE L%, C% + 5: PRINT SPACE$(13)
    NEXT N%
 
' ***** CONTROLE DUREE DU REMBOURSEMENT *****
E65: LOCATE 40, 5: PRINT SPACE$(65)
    N% = 0: FOR I% = 1 TO 42: N% = N% + Nb.Mois%(I%): NEXT I%
    IF U.Tps = "MOIS" THEN
        N% = N% / 12
    ELSEIF U.Tps = "TRIMESTRE" THEN
        N% = N% / 4
    END IF
    IF N% < 30 THEN GOTO E68
E66: Titre = " ---> REMBOURSEMENT sur" + STR$(N%) + " ANS ?? (0 = Correct, 1 = Erreur)       "
    Cct% = 14: Cct2% = 0: Cte1% = 15: Cte2% = 1: L% = 39: C% = 7: GOSUB E05.TITRE
    L% = 40: C% = 69: S.Pr = "?": Nbc% = 1: Colfond% = 1: GOSUB E03.ALPHA
    IF SAISIE = "0" THEN
        COLOR 3: GOSUB E67: GOTO E68
    ELSEIF SAISIE = "1" THEN
        COLOR 3: GOSUB E67: GOTO E53
    ELSE
        Faux = " --->  REPONDEZ 0 ou 1   ....    "
        GOSUB E01.ERR: GOTO E66
    END IF
E67: FOR L% = 39 TO 41: LOCATE L%, 2: PRINT SPACE$(78); : NEXT L%: RETURN
 
' ***** CAPITAL RESIDUEL (EVENTUEL) *****
E68: LOCATE 40, 5: COLOR 14: PRINT " Montant eventuel avec 2 decimales maximum (Entr‚e si correct)   "
    L% = 37: C% = 24: Nbc% = 10: S.Pr = Residuel.Pr: GOSUB E03.ALPHA
    Ndp# = VAL(S): IF Ndp# = 0 THEN Ndp# = VAL(Residuel.Pr)
    Ndp = LTRIM$(STR$(Ndp#))
    IF Ndp <> RTRIM$(S) THEN
        Faux = " ---> Quel DROLE de Valeur ????  "
E68A:   GOSUB E01.ERR: GOTO E68
    END IF
    IF Ndp# > 9999999.99# THEN
        Faux = " ---> Valeur > 9999999.99 ?? . . . "
        GOSUB E01.ERR: GOTO E68
    END IF
    Ndp1& = Ndp# * 100: Ndp2# = Ndp1& / 100
    IF Ndp# <> Ndp2# THEN
        Faux = " Seulement 2 D‚cimales,  S. V. P. !!! ": GOTO E68A
    END IF
    IF Residuel# < 0 THEN
        Faux = " ---> CAPITAL RESIDUEL NEGATIF ????  ": GOTO E68A
    END IF
    Residuel# = Ndp#
    LOCATE 37, 24: COLOR Cds%: PRINT USING "#######.##"; Ndp#
    Tot.Rmbt# = Tot.Rmbt# + Residuel#: COLOR 14
    LOCATE 11, 23: PRINT USING "#######.##"; Tot.Rmbt#
    Interets# = Tot.Rmbt# - Cap#
    LOCATE 12, 23: PRINT USING "#######.##"; Interets#
    LOCATE 40, 5: PRINT SPACE$(65)
' ***** CONTROLE: REMBOURSEMENT > EMPRUNT ??? *****
E69: IF Tot.Rmbt# < Cap# THEN
         Faux = " --->  REMBOURSEMENT < EMPRUNT  ?????    "
         GOSUB E01.ERR: Tot.Rmbt# = 0: GOTO E61
     END IF
     IF Tot.Rmbt# = Cap# THEN Tx# = 0
 
' ***** DEMANDE  ACCORD *****
E70: Titre = "  * * * ETES-VOUS d'ACCORD sur ces DONNEES (0 = OK, 1 = ERREUR)           "
    Cct% = 15: Cct2% = 5: Cte1% = 14: Cte2% = 2
    L% = 39: C% = 3: GOSUB E05.TITRE
    L% = 40: C% = 72: S.Pr = "?": Nbc% = 1: GOSUB E03.ALPHA
    SELECT CASE S
        CASE "0": COLOR 3: GOSUB E67: GOTO E71
        CASE "1": COLOR 3: GOSUB E67: GOTO E53
        CASE ELSE: Faux = " --->  REPONDEZ 0 ou 1   ....    "
            GOSUB E01.ERR: GOTO E70
     END SELECT
' ***** MISE EN TABLE UNIQUE  DES  REMBOURSEMENTS *****
E71: ERASE TOT.Rbt#: Ech% = 0
    FOR I% = 1 TO 42
        IF Nb.Mois%(I%) = 0 THEN I% = 42: EXIT FOR
            FOR Nb.Mois% = 1 TO Nb.Mois%(I%)
                Ech% = Ech% + 1
                    IF Ech% > 999 THEN
                        Faux = " ---> PLUS de 999 REMBOURSEMENTS"
                        Faux = Faux + ", C'EST TROP POUR MOI !! "
                        GOSUB E01.ERR: GOTO E73A
                    END IF
                TOT.Rbt#(Ech%) = Mt.Mois#(I%)
            NEXT Nb.Mois%
E71A: NEXT I%
    IF Residuel# = 0 GOTO E71B
    IF Terme = "A" THEN Ech% = Ech% + 1
    TOT.Rbt#(Ech%) = TOT.Rbt#(Ech%) + Residuel#
E71B: Bouclette% = 0: YNT1# = 0
' ***** CALCUL DU TAUX D' INTERET *****
E72: LOCATE 37, 62: COLOR 14: PRINT USING "###.############"; Tx#
    CAP1# = Cap#: YNT# = 0: Bouclette% = Bouclette% + 1
        IF Bouclette% > 50 THEN
            Faux = " ???? CAS INSOLUBLE pour ma MODESTE PERSONNE ????"
            GOSUB E01.ERR: GOTO E73A
        END IF
    LOCATE 43, 10: PRINT USING " Bouclettes de calculs ### "; Bouclette%;
        FOR I% = 1 TO Ech%
            IF I% = 1 AND Terme = "A" THEN
                CAP1# = CAP1# - TOT.Rbt#(1): GOTO E72A
            END IF
            I# = INT(CAP1# * Tx# + .5) / 100
            YNT# = YNT# + I#
            CAP1# = CAP1# - TOT.Rbt#(I%) + I#
            CAP1# = CAP1# * 100 + .5: CAP1# = INT(CAP1#) / 100
E72A:   NEXT I%
       IF Tx# = TX1# OR ABS(YNT# - Interets#) = 0 THEN GOTO E73
       IF ABS(YNT# - YNT1#) = 0 OR ABS(CAP1#) = 0 THEN GOTO E73
       IF Bouclette% < 7 THEN K% = 2 ELSE K% = 1
    TX0# = Tx#: X1# = TX1# - Tx#: X2# = Tot.Rmbt# - Cap# - YNT#: X3# = YNT1# - YNT#
    Tx# = ABS(Tx# + X1# * X2# / X3# / K%): TX1# = TX0#: YNT1# = YNT#
    GOTO E72
 
' ***** TAUX TROUVE  DEMANDE SI DESIR EDITION *****
E73: LOCATE 37, 62: COLOR 15: PRINT USING "##.#############"; Tx#
    Titre = "  D‚sirez-vous l' EDITION du TABLEAU de REMBOURSEMENT (OUI, NON)          "
    Cct% = 14: Cte% = 14: L% = 39: C% = 3: GOSUB E05.TITRE
    COLOR 4: LOCATE 40, 59: PRINT "O"; : LOCATE 40, 64: PRINT "N";
    L% = 40: C% = 73: S.Pr = "?": Nbc% = 1: Colfond% = 1: GOSUB E03.ALPHA
        SELECT CASE S:
            CASE "O": GOTO E74
            CASE "N": GOTO E73A
            CASE ELSE:
                Faux = "---> Les REPONSES POSSIBLES SONT O, o, N ou n .....  "
                GOSUB E01.ERR: GOTO E73
        END SELECT
 
' ***** FIN DES  OPERATIONS ????? ******
E73A: Titre = "  D‚sirez-vous EFFECTUER un AUTRE CALCUL              (OUI, NON)          "
    Cct% = 14: Cte% = 14: L% = 39: C% = 3: GOSUB E05.TITRE
    COLOR 4: LOCATE 40, 59: PRINT "O"; : LOCATE 40, 64: PRINT "N";
    L% = 40: C% = 73: S.Pr = "?": Nbc% = 1: Colfond% = 1: GOSUB E03.ALPHA
        IF UCASE$(S) = "O" THEN
            LOCATE 37, 62: PRINT STRING$(16, " ");
            LOCATE 43, 1: PRINT SPACE$(80);
            GOTO E53
        ELSEIF UCASE$(S) = "N" THEN
            CLS : SYSTEM
        ELSE Faux = "---> Les REPONSES POSSIBLES SONT O, o, N ou n .....  "
            GOSUB E01.ERR: GOTO E73A
        END IF
 
' ***** EDITION TABLEAU DE REMBOURSEMENT *****
E74: CLOSE : OPEN "C:\\AAMICHEL\\TXEMPR\\TAUXEMP1.TXT" FOR OUTPUT AS 1
    Ec(1) = " ÉÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍ»"
    Ec(2) = " º   DATE   º   CAPITAL  º  MONTANT   º  MONTANT   º  CAPITAL   º  CAPITAL   º"
    Ec(3) = " º          ºDEB/PERIODE ºREMBOURSEMT º  INTERETS  º REMBOURSE  º RESTANT DU º"
    Ec(4) = " ºÍÍÍÍÍÍÍÍÍͺÍÍÍÍÍÍÍÍÍÍÍͺÍÍÍÍÍÍÍÍÍÍÍͺÍÍÍÍÍÍÍÍÍÍÍͺÍÍÍÍÍÍÍÍÍÍÍͺÍÍÍÍÍÍÍÍÍÍÍͺ"
    Ec(5) = " º          º            º------------º------------º------------º            º"
    Ec(6) = " ÈÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍͼ"
    Mq = "#########.##&": GOTO E78
 
E75: PG% = PG% + 1 ' ***** EN-TETE *****
    PRINT #1, "EMPRUNT - TABLEAU de REMBOURSEMENT": PRINT #1, E31G
        IF PG% > 1 THEN GOTO E75A ELSE GOSUB E76
E75A:   GOSUB E77: RETURN
 
E76: PRINT #1, "  R‚f‚rence  : "; Reference ' ***** COMPLEMENT EN-TETE PAGE UN *****
    PRINT #1, "  DATE       : "; LEFT$(Date, 2); "/"; MID$(Date, 3, 2); "/";
    PRINT #1, RIGHT$(Date, 4)
    PRINT #1, "  OBJET      : "; : PRINT #1, RTRIM$(Objet)
    PRINT #1, "  Prˆteur    : "; : PRINT #1, RTRIM$(Preteur)
    PRINT #1, USING "  MONTANT de l'EMPRUNT : #######.##"; Cap#
    PRINT #1, USING "  Taux par & ###.######## %"; U.Tps; Tx#;
        IF U.Tps <> "ANNEE" THEN
            TXAN# = Tx# * K.TX#
            PRINT #1, USING "    SOIT par AN ###.######## %"; TXAN#
        END IF
    RETURN
' ***** EDITION CADRE *****
E77: PRINT #1, SPACE$(70); "Page "; PG%
    FOR I% = 1 TO 4: PRINT #1, Ec(I%): NEXT I%: Ligne% = 0
        IF PG% = 1 THEN LG.MAX% = 44 ELSE LG.MAX% = 49 ' A modifier si besoin
        ' pour tenir compte du nombre maximum de lignes par page ‚dit‚e
    RETURN
 
E78:  GOSUB E75: M% = 0: MENS1# = 0: YNT1# = 0: CAPR1# = 0
        IF Terme = "A" THEN MM% = MM% - KM1%
' ***** BOUCLE REMBOURSEMENTS *****
E79:  M% = M% + 1
        IF M% > Ech% THEN GOTO E82.CEFINI
        IF Ligne% > LG.MAX% THEN
            PRINT #1, : PRINT #1, SPACE$(70); ".../..."; CHR$(12)
            GOSUB E75
        END IF
    MM% = MM% + KM1%
        IF MM% > 12 THEN GOSUB E80: MM% = MM% - 12: AA% = AA% + 1
    GOTO E81
' ***** TOTAUX DE l'ANNEE *****
E80: IF U.Tps = "ANNEE" AND Ligne% > 0 THEN
        PRINT #1, Ec(5): Ligne% = Ligne% - 1: GOTO E80A
     END IF
     IF Ligne% = 0 AND MENS1# = 0 AND YNT1# = 0 AND CAPR1# = 0 THEN GOTO E80B
    PRINT #1, Ec(5): PRINT #1, USING " &TOTAL ####&&&"; V; AA%; V; SPACE$(12); V;
    PRINT #1, USING Mq; MENS1#; V; : PRINT #1, USING Mq; YNT1#; V;
    PRINT #1, USING Mq; CAPR1#; V; : PRINT #1, SPACE$(12); V
E80A: MENS2# = MENS2# + MENS1#: MENS1# = 0: YNT2# = YNT2# + YNT1#: YNT1# = 0
    CAPR2# = CAPR2# + CAPR1#: CAPR1# = 0: Ligne% = Ligne% + 4
    PRINT #1, USING " &CUM/F ####&&&"; V; AA%; V; SPACE$(12); V;
    PRINT #1, USING Mq; MENS2#; V; : PRINT #1, USING Mq; YNT2#; V;
    PRINT #1, USING Mq; CAPR2#; V; : PRINT #1, SPACE$(12); V
    IF CEFINI = "NON" THEN PRINT #1, Ec(5) ELSE PRINT #1, Ec(6)
E80B: RETURN
' ***** SUITE EDITION *****
E81: IF M% = 1 AND Terme = "A" THEN YNT# = 0 ELSE YNT# = INT(Cap# * Tx# + .5) / 100
    CAPR# = TOT.Rbt#(M%) - YNT#: CAP1# = Cap# - CAPR#
    IF M% = Ech% THEN YNT# = YNT# - CAP1#: CAPR# = Cap#: CAP1# = 0: CEFINI = "OUI"
    MENS1# = MENS1# + TOT.Rbt#(M%): YNT1# = YNT1# + YNT#: CAPR1# = CAPR1# + CAPR#
    Bissext% = (AA% MOD 4)
    IF Bissext% = 0 THEN J.Mois%(2) = 29 ELSE J.Mois%(2) = 28
    IF JJ% > J.Mois%(MM%) THEN J1% = J.Mois%(MM%) ELSE J1% = JJ%
    PRINT #1, USING " &##/##/####&"; V; J1%; MM%; AA%; V;
    PRINT #1, USING Mq; Cap#; V; : PRINT #1, USING Mq; TOT.Rbt#(M%); V;
    PRINT #1, USING Mq; YNT#; V; : PRINT #1, USING Mq; CAPR#; V;
    PRINT #1, USING Mq; CAP1#; V
    Cap# = CAP1#: Ligne% = Ligne% + 1: GOTO E79
E82.CEFINI: GOSUB E80: PRINT #1, : PRINT #1, CHR$(12): GOTO E73A
 
' ***** SIRENE ET AFFICHAGE MESSAGE en Ligne 43 *****
E01.SIRENE: FOR Z% = 500 TO 100 STEP -5: SOUND Z%, Z% / 5000: NEXT Z%: RETURN
E01.ERR: BEEP: LOCATE 43, 10: COLOR 14: PRINT Faux; : GOSUB E02.ATT
    IF K = CHR$(27) THEN CLS : COLOR 15: END
    LOCATE 43, 1: COLOR Cfd%: PRINT SPACE$(80); : RETURN
E02.ATT: K = INKEY$: IF K = "" GOTO E02.ATT
    RETURN
 
E03.ALPHA: ' ***** SAISIE ALPHANUMERIQUE *****
    Lsp% = LEN(S.Pr): IF Lsp% < Nbc% THEN S.Pr = S.Pr + SPACE$(Nbc% - Lsp%)
    P% = 0: S = S.Pr
E03A: COLOR 15: LOCATE L%, C%: PRINT S
    COLOR 11: LOCATE L%, C% + P%: PRINT MID$(S, P% + 1, 1);
    IF MID$(S, P% + 1, 1) = " " THEN LOCATE L%, C% + P%: PRINT CHR$(1