' *****************************
' * CREATION des FILMS (TOUT) *  ----->  C:\\ACLOCLO\\!19CFT.BAS
' *****************************
' Ecrit par Michel
    OPTION BASE 1: DEFSTR A-Z: CLOSE
    SCREEN 12: WINDOW SCREEN (1, 1)-(640, 480): CLS
    BVR& = 65536 * 5 + 256 * 1 + 11
    PALETTE 0, BVR&
    Cfd% = 0               ' COULEUR DE FOND ECRAN
    Ccv% = 11              ' COULEUR CADRE VIDE
    Cct% = 11: Cte% = 15   ' COULEUR CADRE/TITRE
    Cdd% = 11              ' COULEUR DESIGNATIONS DONNEES
    Cdav% = 13             ' COULEUR DONNEES AVT SAISIE
    Cdas% = 14             ' COULEUR DONNEES … SAISIR
    Cds% = 15              ' COULEUR DONNEES APRES SAISIE
    DIM Acteur.Film(10) AS STRING * 25, Acteur.pr(10) AS STRING * 25
' *** Ouverture des Fichiers
    GOSUB GS21.OPEN ' ***** Réalisateurs
    Nf1.TOT& = LOF(1) / 32
    GOSUB GS22.OPEN ' ***** Metteurs en Scène
    Nf2.TOT& = LOF(2) / 32
    GOSUB GS23.OPEN ' ***** Dialoguistes
    Nf3.TOT& = LOF(3) / 32
    GOSUB GS24.OPEN ' ***** Acteurs
    Nf4.TOT& = LOF(4) / 32
    GOSUB GS25.OPEN ' ***** Films
    Nf5.Libre& = LOF(5) / 400 + 1
    Nf5& = 1: GOSUB GS25.LECTURE
    IF Titre.Film = STRING$(50, CHR$(0)) THEN ' Le fichier n'a jamais ‚t‚ cr‚‚
        Annee = STRING$(4, CHR$(254))
        Realisateur.Film = STRING$(5, CHR$(254))
        Met.en.Scene.Film = STRING$(5, CHR$(254))
        Dialoguiste.Film = STRING$(5, CHR$(254))
        Titre.Film = STRING$(5, CHR$(254)) + " FIN"
        FOR I% = 1 TO 10: Acteur(I%) = STRING$(5, CHR$(254)): NEXT I%
        Sup5 = " ": GOSUB GS25.ECRITURE
    END IF
' ***** Format ECRAN
    Titre = " * * *  C I N E M A  * * * "
    L% = 3: GOSUB GS08.GAUCHE: Cr% = 1: GOSUB GS08.REMPLI
    Titre = " * * *  PAR CLAUDIE   * * * "
    L% = 3: GOSUB GS08.DROIT: Cr% = 1: GOSUB GS08.REMPLI
    Titre = " * * *  CREATION DES FILMS  * * * "
    L% = 6: GOSUB GS08.GAUCHE: Cr% = 4: GOSUB GS08.REMPLI
    Titre = "                            "
    L% = 6: GOSUB GS08.DROIT
    Lchg% = 8: Cchg% = 4: Lcbd% = 10: Ccbd% = 77: GOSUB GS09.CV
    Lchg% = 11: Cchg% = 4: Lcbd% = 15: Ccbd% = 39: GOSUB GS09.CV
    Lchg% = 16: Cchg% = 4: Lcbd% = 28: Ccbd% = 39: GOSUB GS09.CV
    Lchg% = 11: Cchg% = 41: Lcbd% = 22: Ccbd% = 77: GOSUB GS09.CV
    Lchg% = 23: Cchg% = 41: Lcbd% = 28: Ccbd% = 77: GOSUB GS09.CV
    GOSUB GS25.TRI.du.FICHIER
    Dalle = CHR$(1) + CHR$(2) + CHR$(4) + CHR$(8) + CHR$(16)
    Dalle = Dalle + CHR$(32) + CHR$(64) + CHR$(128)
    PAINT (40, 240), Dalle, 11
    K% = 10: GOSUB GS00.CADRE
 
A01A.NOUVEAU.FILM: ' *** Création Nouveau Film
    LOCATE 9, 5: COLOR 10: PRINT "TITRE : "; SPACE$(50) + " Ann‚e :"
    LOCATE 12, 5: COLOR 10: PRINT "R‚al :"
    LOCATE 13, 5:           PRINT "M/Sc :"
    LOCATE 14, 5:           PRINT "Dial :"
    FOR L% = 12 TO 14: LOCATE L%, 12: PRINT SPACE$(25): NEXT L%
    FOR L% = 24 TO 27: LOCATE L%, 42: PRINT SPACE$(35): NEXT L%
    LOCATE 17, 8: COLOR 14: PRINT "ACTEURS : ": COLOR 10
    FOR L% = 18 TO 27
        LOCATE L%, 7: PRINT USING "## :                          "; L% - 17
    NEXT L%
    LOCATE 23, 52: COLOR 14: PRINT " EXPLICATIONS : "
    Film.Pr = SPACE$(50): Annee.Pr = "    "
    Real.Pr = SPACE$(25): M.Sc.Pr = SPACE$(25): Dial.Pr = SPACE$(25)
    FOR I% = 1 TO 10
        Act.pr(I%) = SPACE$(25): Acteur.Film(I%) = SPACE$(25)
    NEXT I%
    
A02A.REPRISE.FILM:
    FOR L% = 12 TO 21: LOCATE L%, 42: PRINT SPACE$(35): NEXT L%
    FOR L% = 24 TO 27: LOCATE L%, 42: PRINT SPACE$(35): NEXT L%
    LOCATE 24, 43: COLOR 15: PRINT "* pour RETOUR au MENU GENERAL"
    LOCATE 25, 43: COLOR 11: PRINT "Saisie normale SEULE POSSIBLE"
    LOCATE 26, 43: COLOR 14: PRINT "OU rechercher (!initiales)"
    LOCATE 27, 43:           PRINT "les Films Existants"
' *** Saisie
    L% = 9: C% = 13: Nbc% = 50: S.Pr = Film.Pr: GOSUB GS07.ALPHA
    IF S = SPACE$(50) THEN RUN "C:\\ACLOCLO\\!00MENU.BAS"
    Inst% = INSTR(S, "!"): IF Inst% = 0 THEN Inst% = INSTR(S, "§")
    Saisie = UCASE$(Saisie)
    IF Inst% = 0 THEN
        Film.Pr = Saisie: Titre.Film = Saisie
        LOCATE L%, C%: PRINT Titre.Film: GOTO A03.ANNEE
    END IF
' *** Consultation de films existants
    A.Chercher = RTRIM$(MID$(Saisie, 2, 10))
    IF LEN(A.Chercher) < 10 THEN
        A.Chercher = A.Chercher + STRING$(10 - LEN(A.Chercher), "?")
    END IF
    FOR L% = 12 TO 21: LOCATE L%, 42: PRINT SPACE$(35): NEXT L%
    LOCATE 12, 45: COLOR 14: PRINT "Films Existants : ";
    COLOR 10: PRINT LEFT$(A.Chercher, 10): Fini = "NON"
    Nf5& = 0
    DO
        Nf5& = Nf5& + 1: GOSUB GS25.LECTURE
        IF Titre.Film >= A.Chercher THEN Nf5h& = Nf5&: EXIT DO
    LOOP
    GOSUB A02C.AFFICHAGE
    FOR L% = 24 TO 27: LOCATE L%, 42: PRINT SPACE$(35): NEXT L%
    LOCATE 24, 42: COLOR 15: PRINT "* pour RETOUR au MENU"
    LOCATE 25, 42: COLOR 11: PRINT "TOUTES Flêches Verticales"
    LOCATE 26, 42:           PRINT "pour naviguer'"
    LOCATE 27, 42: COLOR 14: PRINT "Flèche à gauche pour saisir Titre"
    
A02B.CONSULTATION: Ink = INKEY$: IF Ink = "" GOTO A02B.CONSULTATION
    SELECT CASE Ink
        CASE CHR$(27):          COLOR 15: END
        CASE "*":               RUN "C:\\ACLOCLO\\!00MENU.BAS"
        CASE CHR$(0) + "H":     Nf5h& = Nf5h& - 1
        CASE CHR$(0) + "P":     Nf5h& = Nf5h& + 1
        CASE CHR$(0) + "I":     Nf5h& = Nf5h& - 8
        CASE CHR$(0) + "Q":     Nf5h& = Nf5h& + 8
        CASE CHR$(0) + "K":     GOTO A02A.REPRISE.FILM
        CASE ELSE:              BEEP: GOTO A02B.CONSULTATION
    END SELECT
    IF Nf5h& <= 0 THEN GOSUB GS11.SIRENE: Nf5h& = 1
    IF Nf5h& >= Nf5.Libre& - 1 THEN
        Nf5h& = Nf5.Libre& - 2: GOSUB GS11.SIRENE
    END IF
    GOSUB A02C.AFFICHAGE: GOTO A02B.CONSULTATION
 
A02C.AFFICHAGE: Nf5& = Nf5h&
    FOR Ligne% = 13 TO 21
        IF Ligne% = 13 THEN COLOR 10 ELSE COLOR 15
        GOSUB GS25.LECTURE
        LOCATE Ligne%, 43: PRINT USING "##### &"; Nf5&; LEFT$(Titre.Film, 27)
        Nf5& = Nf5& + 1
    NEXT Ligne%
    RETURN
 
' ***************************************************************************
A03.ANNEE: FOR L% = 24 TO 27: LOCATE L%, 42: PRINT SPACE$(35): NEXT L%
    LOCATE 24, 42: COLOR 15: PRINT "De 1890 à 2050, SVP ..."
    L% = 9: C% = 72: Nbc% = 4: S.Pr = Annee.Pr: GOSUB GS07.ALPHA
    Annee% = VAL(S)
    IF Annee% < 1890 OR Annee% > 2050 THEN GOSUB GS11.SIRENE: GOTO A03.ANNEE
    Annee = Saisie: Annee.Pr = Saisie
 
' ***************************************************************************
A06.REALISATEUR:
    FOR L% = 12 TO 21: LOCATE L%, 42: PRINT SPACE$(35): NEXT L%
    LOCATE 24, 42: COLOR 15: PRINT "* (OU Entrée) si INCONNU"
    LOCATE 25, 42: COLOR 11: PRINT "Saisie normale (FORT Déconseillée)"
    LOCATE 26, 42: COLOR 12: PRINT "Rechercher avec !(§)Initiales"
    L% = 12: C% = 12: Nbc% = 25: S.Pr = Real.Pr: GOSUB GS07.ALPHA
    Inst% = INSTR(S, "!"): IF Inst% = 0 THEN Inst% = INSTR(S, "§")
    Saisie = UCASE$(Saisie): IF Saisie = SPACE$(25) GOTO A07.METTEUR.EN.SCENE
    IF Inst% = 0 THEN
        Realisateur = Saisie: Real.Pr = Saisie
        LOCATE L%, C%: PRINT Realisateur: GOTO A07.METTEUR.EN.SCENE
    END IF
    FOR L% = 24 TO 27: LOCATE L%, 42: PRINT SPACE$(35): NEXT L%
    LOCATE 24, 42: COLOR 15: PRINT "* pour RETOUR au MENU"
    LOCATE 25, 42: COLOR 14: PRINT "TOUTES Flèches pour positionnement "
    LOCATE 26, 42: COLOR 13: PRINT "'Entrée' si Correct"
    LOCATE 27, 42: COLOR 12: PRINT "'Inser' pour une Création"
    LOCATE 12, 43: COLOR 14: PRINT "Réalisateurs Existants : ";
    A.Chercher = UCASE$(RTRIM$(MID$(S, Inst% + 1, 9))): Lg% = LEN(A.Chercher)
    IF Lg% < 9 THEN A.Ch = A.Chercher + STRING$(9 - Lg%, "?")
    COLOR 10: PRINT A.Ch
    Nf1& = 0
    DO
        Nf1& = Nf1& + 1: GOSUB GS21.LECTURE
        IF Realisateur >= A.Chercher THEN Nf1h& = Nf1&: EXIT DO
    LOOP
    GOSUB A06A
A06.CHOIX: Ink = INKEY$: IF Ink = "" GOTO A06.CHOIX
    SELECT CASE Ink
        CASE CHR$(27):          COLOR 15: END
        CASE "*":               RUN "C:\\ACLOCLO\\!00MENU.BAS"
        CASE CHR$(0) + "H":     Nf1h& = Nf1h& - 1
        CASE CHR$(0) + "P":     Nf1h& = Nf1h& + 1
        CASE CHR$(0) + "I":     Nf1h& = Nf1h& - 8
        CASE CHR$(0) + "Q":     Nf1h& = Nf1h& + 8
        CASE CHR$(0) + "R":     GOTO A06.CREATION
        CASE CHR$(13):          GOTO A06.TROUVE
        CASE ELSE:              BEEP: GOTO A06.CHOIX
    END SELECT
    IF Nf1h& < 1 THEN GOSUB GS11.SIRENE: Nf1h& = 1
    IF Nf1h& > Nf1.TOT& - 1 THEN
        Nf1h& = Nf1.TOT& - 1: GOSUB GS11.SIRENE
    END IF
A06.AFFICHAGE: GOSUB A06A: GOTO A06.CHOIX
A06A: Nf1& = Nf1h&
    FOR Ligne% = 13 TO 21
        IF Ligne% = 13 THEN Col% = 11 ELSE Col% = 10
        GOSUB GS21.LECTURE
        IF Ligne% = 13 THEN Realisateur.Film = Realisateur
        LOCATE Ligne%, 43: COLOR Col%
        PRINT USING "##### &"; Nf1&; Realisateur
        Nf1& = Nf1& + 1
    NEXT Ligne%
    RETURN
A06.TROUVE: LOCATE 12, 12: PRINT Realisateur.Film
    Real.Pr = Realisateur.Film: GOTO A07.METTEUR.EN.SCENE
A06.CREATION:
    FOR L% = 12 TO 21: LOCATE L%, 42: PRINT SPACE$(35): NEXT L%
    LOCATE 12, 44: COLOR 13: PRINT "CREATION d'un REALISATEUR :"
    LOCATE 14, 44: COLOR 15: PRINT "SANS Vérification des DOUBLONS"
A06.COMPOSITION: L% = 16: C% = 48: Nbc% = 25
    S.Pr = "?" + SPACE$(24): GOSUB GS07.ALPHA: S = UCASE$(S)
    LOCATE 16, 48: PRINT S: Realisateur = S
A06.ACCORD: LOCATE 18, 42: COLOR 14: PRINT "CORRECT (0 si OK, 1 si Erreur)    "
    L% = 18: C% = 75: Nbc% = 1: S.Pr = "?": GOSUB GS07.ALPHA
    SELECT CASE S
        CASE "0": GOTO A06.OK
        CASE "1": GOTO A06.COMPOSITION
        CASE ELSE: BEEP: GOTO A06.ACCORD
    END SELECT
A06.OK: Real.Pr = Realisateur: LOCATE 12, 12: PRINT Realisateur
    Realisateur.Film = Realisateur
    ' ***** Mise à jour et tri du fichier des réalisateurs
    Nf1.TOT& = Nf1.TOT& + 1: Nf1& = Nf1.TOT&: Sup1 = " "
    GOSUB GS21.ECRITURE: GOSUB G321.TRI.du.FICHIER
 
' ***************************************************************************
A07.METTEUR.EN.SCENE:
    FOR L% = 12 TO 21: LOCATE L%, 42: PRINT SPACE$(35): NEXT L%
    FOR L% = 24 TO 27: LOCATE L%, 42: PRINT SPACE$(35): NEXT L%
    LOCATE 24, 42: COLOR 15: PRINT "* (ou Entrée) si INCONNU"
    LOCATE 25, 42: COLOR 11: PRINT "Saisie normale (FORT Déconseillée)"
    LOCATE 26, 42: COLOR 12: PRINT "Rechercher avec !(§)Initiales"
    L% = 13: C% = 12: Nbc% = 25: S.Pr = M.Sc.Pr: GOSUB GS07.ALPHA
    Saisie = UCASE$(Saisie): IF Saisie = SPACE$(25) GOTO A08.DIALOGUISTE
    Inst% = INSTR(S, "!"): IF Inst% = 0 THEN Inst% = INSTR(S, "§")
    IF Inst% = 0 THEN
        Met.en.Scene.Film = Saisie: M.Sc.Pr = Saisie
        LOCATE L%, C%: PRINT Met.en.Scene.Film: GOTO A08.DIALOGUISTE
    END IF
    FOR L% = 24 TO 27: LOCATE L%, 42: PRINT SPACE$(35): NEXT L%
    LOCATE 24, 42: COLOR 15: PRINT "* pour RETOUR au MENU"
    LOCATE 25, 42: COLOR 14: PRINT "TOUTES Flèches pour positionnement"
    LOCATE 26, 42: COLOR 13: PRINT "'Entrée' si Correct"
    LOCATE 27, 42: COLOR 12: PRINT "'Inser' pour une Création"
    LOCATE 12, 43: COLOR 14: PRINT "Met/en/Scene Existants : ";
    A.Chercher = UCASE$(RTRIM$(MID$(S, Inst% + 1, 9))): Lg% = LEN(A.Chercher)
    IF Lg% < 9 THEN A.Ch = A.Chercher + STRING$(9 - Lg%, "?")
    COLOR 10: PRINT A.Ch
    Nf2& = 0
    DO
        Nf2& = Nf2& + 1: GOSUB GS22.LECTURE
        IF Met.en.Scene >= A.Chercher THEN Nf2h& = Nf2&: EXIT DO
    LOOP
    GOSUB A07A
A07.CHOIX: Ink = INKEY$: IF Ink = "" GOTO A07.CHOIX
    SELECT CASE Ink
        CASE CHR$(27):          COLOR 15: END
        CASE "*":               RUN "C:\\ACLOCLO\\!00MENU.BAS"
        CASE CHR$(0) + "H":     Nf2h& = Nf2h& - 1
        CASE CHR$(0) + "P":     Nf2h& = Nf2h& + 1
        CASE CHR$(0) + "I":     Nf2h& = Nf2h& - 8
        CASE CHR$(0) + "Q":     Nf2h& = Nf2h& + 8
        CASE CHR$(0) + "R":     GOTO A07.CREATION
        CASE CHR$(13):          GOTO A07.TROUVE
        CASE ELSE:              GOTO A07.CHOIX
    END SELECT
    IF Nf2h& < 1 THEN GOSUB GS11.SIRENE: Nf2h& = 1
    IF Nf2h& > Nf2.TOT& - 1 THEN
        Nf2h& = Nf2.TOT& - 1: GOSUB GS11.SIRENE
    END IF
A07.AFFICHAGE: GOSUB A07A: GOTO A07.CHOIX
A07A: Nf2& = Nf2h&
    FOR Ligne% = 13 TO 21
        IF Ligne% = 13 THEN Col% = 11 ELSE Col% = 10
        GOSUB GS22.LECTURE
        IF Ligne% = 13 THEN Met.en.Scene.Film = Metteur.en.Scene
        LOCATE Ligne%, 43: COLOR Col%
        PRINT USING "##### &"; Nf2&; Metteur.en.Scene
        Nf2& = Nf2& + 1
    NEXT Ligne%
    RETURN
A07.TROUVE: LOCATE 13, 12: PRINT Met.en.Scene.Film
    M.Sc.Pr = Met.en.Scene.Film: GOTO A08.DIALOGUISTE
A07.CREATION:
    FOR L% = 12 TO 21: LOCATE L%, 42: PRINT SPACE$(35): NEXT L%
    LOCATE 12, 44: COLOR 13: PRINT "CREATION d'un Met/en/Scène :"
    LOCATE 14, 44: COLOR 15: PRINT "SANS Vérification des DOUBLONS"
A07.COMPOSITION: L% = 16: C% = 48: Nbc% = 25
    S.Pr = "?" + SPACE$(24): GOSUB GS07.ALPHA: S = UCASE$(S)
    LOCATE 16, 48: PRINT S: Metteur.en.Scene = S
A07.ACCORD: LOCATE 18, 42: COLOR 14: PRINT "CORRECT (0 si OK, 1 si Erreur)    "
    L% = 18: C% = 75: Nbc% = 1: S.Pr = "?": GOSUB GS07.ALPHA
    SELECT CASE S
        CASE "0": GOTO A07.OK
        CASE "1": GOTO A07.COMPOSITION
        CASE ELSE: BEEP: GOTO A07.ACCORD
    END SELECT
A07.OK: M.Sc.Pr = Metteur.en.Scene: LOCATE 13, 12: PRINT Metteur.en.Scene
    Met.en.Scene.Film = Metteur.en.Scene
    ' ***** Mise à jour et tri du fichier des Metteurs en Scène
    Nf2.TOT& = Nf2.TOT& + 1: Nf2& = Nf2.TOT&: Sup2 = " "
    GOSUB GS22.ECRITURE: GOSUB GS22.TRI.du.FICHIER
 
' ***************************************************************************
A08.DIALOGUISTE:
    FOR L% = 12 TO 21: LOCATE L%, 42: PRINT SPACE$(35): NEXT L%
    FOR L% = 24 TO 27: LOCATE L%, 42: PRINT SPACE$(35): NEXT L%
    LOCATE 24, 42: COLOR 15: PRINT "* (ou Entrée) si INCONNU"
    LOCATE 25, 42: COLOR 11: PRINT "Saisie normale (FORT Déconseillée)"
    LOCATE 26, 42: COLOR 12: PRINT "Rechercher avec !(õ)Initiales"
    L% = 14: C% = 12: Nbc% = 25: S.Pr = Dial.Pr: GOSUB GS07.ALPHA
    Saisie = UCASE$(Saisie): IF Saisie = SPACE$(25) GOTO A09.ACTEURS
    Inst% = INSTR(S, "!"): IF Inst% = 0 THEN Inst% = INSTR(S, "õ")
    IF Inst% = 0 THEN
        Dialoguiste.Film = Saisie: Dial.Pr = Saisie
        LOCATE L%, C%: PRINT Dialoguiste.Film: GOTO A09.ACTEURS
    END IF
    FOR L% = 24 TO 27: LOCATE L%, 42: PRINT SPACE$(35): NEXT L%
    LOCATE 24, 42: COLOR 15: PRINT "* pour RETOUR au MENU"
    LOCATE 25, 42: COLOR 14: PRINT "TOUTES Flèches positionnement "
    LOCATE 26, 42: COLOR 13: PRINT "'Entrée' si Correct"
    LOCATE 27, 42: COLOR 12: PRINT "'Inser' pour une Création"
    LOCATE 12, 43: COLOR 14: PRINT "Dialoguistes Existants : ";
    A.Chercher = UCASE$(RTRIM$(MID$(S, Inst% + 1, 9))): Lg% = LEN(A.Chercher)
    IF Lg% < 9 THEN A.Ch = A.Chercher + STRING$(9 - Lg%, "?")
    COLOR 10: PRINT A.Ch
    Nf3& = 0
    DO
        Nf3& = Nf3& + 1: GOSUB GS23.LECTURE
        IF Dialoguiste >= A.Chercher THEN Nf3h& = Nf3&: EXIT DO
    LOOP
    GOSUB A08A
A08.CHOIX: Ink = INKEY$: IF Ink = "" GOTO A08.CHOIX
    SELECT CASE Ink
        CASE CHR$(27):          COLOR 15: END
        CASE "*":               RUN "C:\\ACLOCLO\\!00MENU.BAS"
        CASE CHR$(0) + "H":     Nf3h& = Nf3h& - 1
        CASE CHR$(0) + "P":     Nf3h& = Nf3h& + 1
        CASE CHR$(0) + "I":     Nf3h& = Nf3h& - 8
        CASE CHR$(0) + "Q":     Nf3h& = Nf3h& + 8
        CASE CHR$(0) + "R":     GOTO A08.CREATION
        CASE CHR$(13):          GOTO A08.TROUVE
        CASE ELSE:              GOTO A08.CHOIX
    END SELECT
    IF Nf3h& < 1 THEN GOSUB GS11.SIRENE: Nf3h& = 1
    IF Nf3h& > Nf3.TOT& - 1 THEN
        Nf3h& = Nf3.TOT& - 1: GOSUB GS11.SIRENE
    END IF
A08.AFFICHAGE:
    GOSUB A08A: GOTO A08.CHOIX
A08A: Nf3& = Nf3h&
    FOR Ligne% = 13 TO 21
        IF Ligne% = 13 THEN Col% = 11 ELSE Col% = 10
        GOSUB GS23.LECTURE
        IF Ligne% = 13 THEN Dialoguiste.Film = Dialoguiste
        LOCATE Ligne%, 43: COLOR Col%
        PRINT USING "##### &"; Nf3&; Dialoguiste
        Nf3& = Nf3& + 1
    NEXT Ligne%
    RETURN
A08.TROUVE: LOCATE 14, 12: PRINT Dialoguiste.Film
    Dial.Pr = Dialoguiste.Film: GOTO A09.ACTEURS
A08.CREATION:
    FOR L% = 12 TO 21: LOCATE L%, 42: PRINT SPACE$(35): NEXT L%
    LOCATE 12, 44: COLOR 13: PRINT "CREATION d'un Dialoguiste :"
    LOCATE 14, 44: COLOR 15: PRINT "SANS Vérification des DOUBLONS"
A08.COMPOSITION: L% = 16: C% = 48: Nbc% = 25
    S.Pr = "?" + SPACE$(24): GOSUB GS07.ALPHA: S = UCASE$(S)
    LOCATE 16, 48: PRINT S: Dialoguiste = S
A08.ACCORD: LOCATE 18, 42: COLOR 14: PRINT "CORRECT (0 si OK, 1 si Erreur)    "
    L% = 18: C% = 75: Nbc% = 1: S.Pr = "?": GOSUB GS07.ALPHA
    SELECT CASE S
        CASE "0": GOTO A08.OK
        CASE "1": GOTO A08.COMPOSITION
        CASE ELSE: BEEP: GOTO A08.ACCORD
    END SELECT
A08.OK: Dial.Pr = Dialoguiste: LOCATE 14, 12: PRINT Dialoguiste
    Dialoguiste.Film = Dialoguiste
    ' ***** Mise à jour et tri du fichier des Dialoguistes
    Nf3.TOT& = Nf3.TOT& + 1: Nf3& = Nf3.TOT&: Sup3 = " "
    GOSUB GS23.ECRITURE: GOSUB GS23.TRI.du.FICHIER
 
' **************************************************************************
A09.ACTEURS: ' ***** 10 au Maximum
    La% = 17
FOR Act% = 1 TO 10 ' ***** BOUCLETTE POUR LES 10 ACTEURS
    FOR L% = 12 TO 21: LOCATE L%, 42: PRINT SPACE$(35): NEXT L%
    FOR L% = 24 TO 27: LOCATE L%, 42: PRINT SPACE$(35): NEXT L%
    LOCATE 24, 42: COLOR 15: PRINT "* si TERMINE"
    LOCATE 25, 42: COLOR 11: PRINT "Saisie normale (FORT Déconseillée)"
    LOCATE 26, 42: COLOR 12: PRINT "Rechercher avec !(§)Initiales"
    L% = La% + Act%: C% = 12: Nbc% = 25: S.Pr = Act.pr(Act%): GOSUB GS07.ALPHA
    Saisie = UCASE$(S): IF Saisie = SPACE$(25) THEN EXIT FOR
    Inst% = INSTR(S, "!"): IF Inst% = 0 THEN Inst% = INSTR(S, "õ")
    IF Inst% = 0 THEN
        Acteur.Film(Act%) = Saisie: Act.pr(Act%) = Saisie
        LOCATE L%, C%: PRINT Acteur.Film(Act%): GOTO A09.SUIVANT
    END IF
    FOR L% = 24 TO 27: LOCATE L%, 42: PRINT SPACE$(35): NEXT L%
    LOCATE 24, 42: COLOR 15: PRINT "* pour RETOUR au MENU"
    LOCATE 25, 42: COLOR 14: PRINT "TOUTES Flèches positionnement "
    LOCATE 26, 42: COLOR 13: PRINT "'Entrée' si Correct"
    LOCATE 27, 42: COLOR 12: PRINT "'Inser' pour une Création"
    LOCATE 12, 43: COLOR 14: PRINT "Artistes Existants : ";
    A.Chercher = UCASE$(RTRIM$(MID$(S, Inst% + 1, 9))): Lg% = LEN(A.Chercher)
    IF Lg% < 9 THEN A.Ch = A.Chercher + STRING$(9 - Lg%, "?")
    COLOR 10: PRINT A.Ch
    Nf4& = 0
    DO
        Nf4& = Nf4& + 1: GOSUB GS24.LECTURE
        IF Acteur >= A.Chercher THEN Nf4h& = Nf4&: EXIT DO
    LOOP
    GOSUB A09A
A09.CHOIX: Ink = INKEY$: IF Ink = "" GOTO A09.CHOIX
    SELECT CASE Ink
        CASE CHR$(27):          COLOR 15: END
        CASE "*", "µ":          RUN "C:\\ACLOCLO\\!00MENU.BAS"
        CASE CHR$(0) + "H":     Nf4h& = Nf4h& - 1
        CASE CHR$(0) + "P":     Nf4h& = Nf4h& + 1
        CASE CHR$(0) + "I":     Nf4h& = Nf4h& - 8
        CASE CHR$(0) + "Q":     Nf4h& = Nf4h& + 8
        CASE CHR$(0) + "R":     GOTO A09.CREATION
        CASE CHR$(13):          GOTO A09.TROUVE
        CASE ELSE:              GOTO A09.CHOIX
    END SELECT
    IF Nf4h& < 1 THEN GOSUB GS11.SIRENE: Nf4h& = 1
    IF Nf4h& > Nf4.TOT& - 1 THEN
        Nf4h& = Nf4.TOT& - 1: GOSUB GS11.SIRENE
    END IF
A09.AFFICHAGE:
    GOSUB A09A: GOTO A09.CHOIX
A09A: Nf4& = Nf4h&
    FOR Ligne% = 13 TO 21
        IF Ligne% = 13 THEN Col% = 11 ELSE Col% = 10
        GOSUB GS24.LECTURE
        IF Ligne% = 13 THEN Acteur.Film(Act%) = Acteur
        '************************
        LOCATE Ligne%, 43: COLOR Col%: PRINT USING "##### &"; Nf4&; Acteur
        '************************
        Nf4& = Nf4& + 1
    NEXT Ligne%
    RETURN
A09.TROUVE:
    LOCATE 17 + Act%, 12: PRINT Acteur.Film(Act%);
    Act.pr(Act%) = Acteur.Film(Act%)
    GOTO A09.SUIVANT
A09.CREATION:
    FOR L% = 12 TO 21: LOCATE L%, 42: PRINT SPACE$(35): NEXT L%
    LOCATE 12, 44: COLOR 13: PRINT "CREATION d'un Acteur :"
    LOCATE 14, 44: COLOR 15: PRINT "SANS Vérification des DOUBLONS"
A09.COMPOSITION:  L% = 16: C% = 48: Nbc% = 25
    S.Pr = "?" + SPACE$(24): GOSUB GS07.ALPHA: S = UCASE$(S)
    LOCATE 16, 48: PRINT S: Acteur.Film(Act%) = S
A09.ACCORD: LOCATE 18, 42: COLOR 14: