'***********************************************
'*  Création des LETTRES pour LES GLOUTONS     *
'***********************************************
'     C:\MIAMMIAM\LETTRES.BAS
    CLS : OPTION BASE 1: SCREEN 12
    DEFSTR A-Z: WIDTH 80, 30: ACCES = "C:\MIAMMIAM\"
    DIM G&(385)
    F% = 0   ' Couleur de fond
    C% = 12  ' Couleur de la lettre

' ***** L *****
    CLS : LINE (1, 1)-(48, 64), F%, BF: LINE (6, 6)-(13, 59), C%, BF
    LINE (14, 52)-(43, 59), C%, BF: LINE (36, 43)-(43, 51), C%, BF
    GET (1, 1)-(48, 64), G&
    LETTRE = "L": GOSUB FICHIER
    SLEEP 1

' ***** A *****
    CLS : LINE (1, 1)-(48, 64), F%, BF
    LINE (22, 6)-(27, 6), C%: LINE (27, 6)-(43, 59), C%
    LINE (43, 59)-(36, 59), C%: LINE (36, 59)-(25, 17), C%
    LINE (24, 17)-(13, 59), C%: LINE (13, 59)-(6, 59), C%
    LINE (6, 59)-(22, 6), C%: LINE (15, 43)-(34, 48), C%, BF
    PAINT (24, 10), C%, C%
    GET (1, 1)-(48, 64), G&
    LETTRE = "A": GOSUB FICHIER
    SLEEP 1

' ***** C *****
    CLS : LINE (1, 1)-(48, 64), F%, BF: LINE (6, 6)-(13, 59), C%, BF
    LINE (6, 6)-(43, 13), C%, BF: LINE (36, 14)-(43, 19), C%, BF
    LINE (6, 52)-(43, 59), C%, BF: LINE (36, 45)-(43, 51), C%, BF
    GET (1, 1)-(48, 64), G&
    LETTRE = "C": GOSUB FICHIER
    SLEEP 1

' ***** H *****
    CLS : LINE (1, 1)-(48, 64), F%, BF: LINE (6, 6)-(13, 59), C%, BF
    LINE (36, 6)-(43, 59), C%, BF: LINE (14, 28)-(35, 35), C%, BF
    GET (1, 1)-(48, 64), G&
    LETTRE = "H": GOSUB FICHIER
    SLEEP 1

' ***** S *****
    CLS : LINE (1, 1)-(48, 64), F%, BF: LINE (36, 14)-(43, 19), C%, BF
    LINE (6, 6)-(43, 13), C%, BF: LINE (6, 14)-(13, 35), C%, BF
    LINE (6, 28)-(43, 35), C%, BF: LINE (36, 36)-(43, 59), C%, BF
    LINE (6, 52)-(35, 59), C%, BF: LINE (6, 47)-(13, 51), C%, BF
    GET (1, 1)-(48, 64), G&
    LETTRE = "S": GOSUB FICHIER
    SLEEP 1

' ***** E *****
    CLS : LINE (1, 1)-(48, 64), F%, BF: LINE (6, 6)-(43, 13), C%, BF
    LINE (6, 14)-(13, 51), C%, BF: LINE (14, 28)-(25, 35), C%, BF
    LINE (6, 52)-(43, 59), C%, BF: LINE (36, 14)-(43, 20), C%, BF
    LINE (36, 43)-(43, 51), C%, BF
    GET (1, 1)-(48, 64), G&
    LETTRE = "E": GOSUB FICHIER
    SLEEP 1

' ***** U *****
    CLS : LINE (1, 1)-(48, 64), F%, BF: LINE (6, 6)-(13, 59), C%, BF
    LINE (6, 52)-(43, 59), C%, BF: LINE (36, 6)-(43, 59), C%, BF
    GET (1, 1)-(48, 64), G&
    LETTRE = "U": GOSUB FICHIER
    SLEEP 1

' ***** X *****
    CLS : LINE (1, 1)-(48, 64), F%, BF: LINE (6, 6)-(13, 6), C%
    LINE (13, 6)-(24, 25), C%: LINE (25, 25)-(36, 6), C%
    LINE (36, 6)-(43, 6), C%: LINE (43, 6)-(28, 32), C%
    LINE (28, 33)-(43, 59), C%: LINE (43, 59)-(36, 59), C%
    LINE (36, 59)-(25, 39), C%: LINE (24, 39)-(13, 59), C%
    LINE (13, 59)-(6, 59), C%: LINE (6, 59)-(21, 33), C%
    LINE (21, 32)-(6, 6), C%: PAINT (24, 32), C%, C%
    GET (1, 1)-(48, 64), G&
    LETTRE = "X": GOSUB FICHIER
    SLEEP 1

' ***** G *****
    CLS : LINE (1, 1)-(48, 64), F%, BF: LINE (6, 6)-(13, 59), C%, BF
    LINE (6, 6)-(43, 13), C%, BF: LINE (36, 14)-(43, 19), C%, BF
    LINE (6, 52)-(43, 59), C%, BF: LINE (36, 43)-(43, 51), C%, BF
    LINE (29, 35)-(43, 42), C%, BF
    GET (1, 1)-(48, 64), G&
    LETTRE = "G": GOSUB FICHIER
    SLEEP 1

' ***** O *****
    CLS : LINE (1, 1)-(48, 64), F%, BF: LINE (6, 6)-(13, 59), C%, BF
    LINE (14, 6)-(43, 13), C%, BF: LINE (14, 52)-(43, 59), C%, BF
    LINE (36, 14)-(43, 59), C%, BF
    GET (1, 1)-(48, 64), G&
    LETTRE = "O": GOSUB FICHIER
    SLEEP 1

' ***** T *****
    CLS : LINE (1, 1)-(48, 64), F%, BF
    LINE (6, 6)-(43, 13), C%, BF: LINE (21, 14)-(28, 59), C%, BF
    GET (1, 1)-(48, 64), G&
    LETTRE = "T": GOSUB FICHIER
    SLEEP 1

' ***** N *****
    CLS : LINE (1, 1)-(48, 64), F%, BF: LINE (6, 6)-(13, 59), C%, BF
    LINE (36, 6)-(43, 59), C%, BF: LINE (13, 6)-(35, 33), C%
    LINE (13, 17)-(35, 45), C%: PAINT (24, 22), C%, C%
    GET (1, 1)-(48, 64), G&
    LETTRE = "N": GOSUB FICHIER
   
    END
FICHIER: CLOSE
    LOCATE 15, 5: PRINT LETTRE
    OPEN ACCES + "L_" + LETTRE + ".LET" FOR OUTPUT AS #1
    FOR I% = 1 TO 385: WRITE #1, G&(I%): NEXT I%
    RETURN