'*********************************
'*  Cr‚ation de GROSSES LETTRES  *
'*********************************
'   C:\ALPHABET\CES40VAR\LETTRES.BAS
'   Ecrit en 1997 par Michel 
    CLS : OPTION BASE 1: SCREEN 12
    DEFSTR A-Z: ACCES = "C:\ALPHABET\CES40VAR\"
    ON ERROR GOTO ERREUR
    Etape% = 1
    MKDIR "C:\ALPHABET\"
    MKDIR "C:\ALPHABET\CES40VAR\"
    Etape% = 0
    DIM G&(400)
    GOTO AA
FICHIER: CLOSE
    OPEN ACCES + "L_" + Lettre + ".LET" FOR OUTPUT AS #1
    FOR I% = 1 TO 400: WRITE #1, G&(I%): NEXT I%
    RETURN
AA: F% = 0   ' Couleur de fond
    C% = 12  ' Couleur de la lettre (modifiable)
    'GOTO V
A:  CLS : LINE (6, 46)-(48, 85), F%, BF
    LINE (7, 83)-(21, 84), C%, BF: LINE (10, 82)-(17, 82), C%, BF
    LINE (12, 81)-(16, 81), C%, BF: LINE (13, 79)-(15, 80), C%, BF
    LINE (14, 77)-(15, 78), C%, BF: LINE (15, 74)-(16, 76), C%, BF
    LINE (16, 72)-(17, 73), C%, BF: LINE (17, 69)-(18, 72), C%, BF
    LINE (18, 66)-(19, 68), C%, BF: LINE (19, 64)-(20, 65), C%, BF
    LINE (20, 61)-(21, 63), C%, BF: LINE (21, 58)-(22, 60), C%, BF
    LINE (22, 56)-(23, 58), C%, BF: LINE (26, 46)-(28, 47), C%, BF
    LINE (25, 48)-(29, 49), C%, BF: LINE (24, 50)-(30, 51), C%, BF
    LINE (24, 52)-(31, 52), C%, BF: LINE (23, 53)-(31, 54), C%, BF
    LINE (23, 55)-(32, 55), C%, BF: LINE (25, 56)-(32, 56), C%, BF
    LINE (25, 57)-(33, 57), C%, BF: LINE (26, 58)-(33, 58), C%, BF
    LINE (26, 59)-(34, 60), C%, BF: LINE (27, 61)-(34, 61), C%, BF
    LINE (27, 62)-(35, 62), C%, BF: LINE (28, 63)-(35, 63), C%, BF
    LINE (28, 64)-(36, 64), C%, BF: LINE (29, 65)-(36, 65), C%, BF
    LINE (29, 66)-(37, 67), C%, BF: LINE (30, 68)-(37, 68), C%, BF
    LINE (30, 69)-(38, 69), C%, BF: LINE (31, 70)-(38, 70), C%, BF
    LINE (19, 71)-(39, 72), C%, BF: LINE (32, 73)-(40, 74), C%, BF
    LINE (33, 75)-(41, 76), C%, BF: LINE (34, 77)-(41, 77), C%, BF
    LINE (34, 78)-(42, 78), C%, BF: LINE (35, 79)-(42, 79), C%, BF
    LINE (35, 80)-(43, 81), C%, BF: LINE (35, 82)-(44, 82), C%, BF
    LINE (30, 83)-(47, 84), C%, BF
    GET (6, 46)-(48, 85), G&
    Lettre = "A": GOSUB FICHIER: WRITE #1, 41 ' ** 41 est la largeur de la lettre
    PUT (500, 400), G&, PSET: SLEEP 2
B:  ERASE G&: LINE (63, 46)-(102, 85), F%, BF
    LINE (64, 47)-(90, 48), C%, BF: LINE (69, 49)-(78, 49), C%, BF
    LINE (70, 50)-(77, 81), C%, BF: LINE (69, 82)-(78, 82), C%, BF
    LINE (64, 83)-(91, 84), C%, BF: LINE (91, 50)-(97, 61), C%, BF
    LINE (91, 48)-(92, 48), C%, BF: LINE (87, 49)-(95, 49), C%, BF
    LINE (89, 50)-(90, 50), C%, BF: LINE (90, 51)-(90, 52), C%, BF
    LINE (98, 52)-(98, 60), C%, BF: LINE (99, 53)-(99, 58), C%, BF
    LINE (90, 61)-(90, 61), C%, BF: LINE (89, 62)-(96, 62), C%, BF
    LINE (88, 63)-(94, 63), C%, BF: LINE (86, 64)-(92, 64), C%, BF
    LINE (78, 65)-(90, 66), C%, BF: LINE (91, 66)-(92, 66), C%, BF
    LINE (88, 67)-(95, 67), C%, BF: LINE (90, 68)-(97, 68), C%, BF
    LINE (91, 69)-(98, 69), C%, BF: LINE (92, 70)-(99, 70), C%, BF
    LINE (92, 71)-(92, 71), C%, BF: LINE (93, 71)-(100, 79), C%, BF
    LINE (101, 73)-(101, 77), C%, BF: LINE (92, 78)-(92, 79), C%, BF
    LINE (91, 80)-(99, 80), C%, BF: LINE (90, 81)-(98, 81), C%, BF
    LINE (88, 82)-(97, 82), C%, BF: LINE (92, 83)-(95, 83), C%, BF
    GET (63, 46)-(102, 85), G&
    Lettre = "B": GOSUB FICHIER: WRITE #1, 38
    LINE (500, 400)-(700, 450), 0, BF
    PUT (500, 400), G&, PSET: SLEEP 2
C:  ERASE G&: LINE (122, 46)-(157, 85), F%, BF
    LINE (123, 61)-(123, 70), C%, BF: LINE (124, 58)-(131, 73), C%, BF
    LINE (125, 74)-(132, 76), C%, BF: LINE (132, 73)-(132, 73), C%, BF
    LINE (126, 77)-(133, 77), C%, BF: LINE (127, 78)-(133, 78), C%, BF
    LINE (128, 79)-(134, 80), C%, BF: LINE (129, 81)-(135, 81), C%, BF
    LINE (131, 82)-(136, 82), C%, BF: LINE (132, 83)-(139, 83), C%, BF
    LINE (134, 84)-(148, 84), C%, BF: LINE (147, 83)-(150, 83), C%, BF
    LINE (149, 82)-(151, 82), C%, BF: LINE (150, 81)-(152, 81), C%, BF
    LINE (151, 80)-(153, 80), C%, BF: LINE (152, 79)-(154, 79), C%, BF
    LINE (153, 78)-(154, 78), C%, BF: LINE (154, 75)-(155, 77), C%, BF
    LINE (155, 73)-(156, 74), C%, BF: LINE (132, 58)-(132, 58), C%, BF
    LINE (125, 56)-(132, 57), C%, BF: LINE (126, 55)-(132, 55), C%, BF
    LINE (126, 54)-(133, 54), C%, BF: LINE (127, 53)-(133, 53), C%, BF
    LINE (128, 52)-(134, 52), C%, BF: LINE (129, 51)-(135, 51), C%, BF
    LINE (130, 50)-(135, 50), C%, BF: LINE (131, 49)-(137, 49), C%, BF
    LINE (132, 48)-(139, 48), C%, BF: LINE (134, 47)-(147, 47), C%, BF
    LINE (145, 48)-(149, 48), C%, BF: LINE (147, 49)-(154, 49), C%, BF
    LINE (152, 48)-(154, 48), C%, BF: LINE (153, 47)-(154, 47), C%, BF
    LINE (149, 50)-(154, 50), C%, BF: LINE (150, 51)-(154, 51), C%, BF
    LINE (151, 52)-(154, 52), C%, BF: LINE (151, 53)-(155, 53), C%, BF
    LINE (152, 54)-(155, 55), C%, BF: LINE (153, 56)-(155, 58), C%, BF
    LINE (154, 59)-(155, 60), C%, BF
    GET (122, 46)-(157, 85), G&
    Lettre = "C": GOSUB FICHIER: WRITE #1, 34
    LINE (500, 400)-(700, 450), 0, BF
    PUT (500, 400), G&, PSET: SLEEP 2
D:  ERASE G&: LINE (175, 46)-(216, 85), F%, BF
    LINE (182, 50)-(189, 81), C%, BF: LINE (181, 49)-(190, 49), C%, BF
    LINE (176, 47)-(201, 48), C%, BF: LINE (202, 48)-(204, 48), C%, BF
    LINE (199, 49)-(206, 49), C%, BF: LINE (201, 50)-(208, 50), C%, BF
    LINE (203, 51)-(209, 51), C%, BF: LINE (204, 52)-(210, 52), C%, BF
    LINE (204, 53)-(211, 53), C%, BF: LINE (205, 54)-(212, 55), C%, BF
    LINE (206, 56)-(213, 57), C%, BF: LINE (206, 58)-(214, 59), C%, BF
    LINE (207, 60)-(214, 73), C%, BF: LINE (215, 61)-(215, 70), C%, BF
    LINE (206, 73)-(206, 73), C%, BF: LINE (206, 74)-(213, 75), C%, BF
    LINE (206, 76)-(212, 76), C%, BF: LINE (205, 77)-(212, 77), C%, BF
    LINE (204, 78)-(211, 78), C%, BF: LINE (204, 79)-(210, 79), C%, BF
    LINE (203, 80)-(209, 80), C%, BF: LINE (201, 81)-(208, 81), C%, BF
    LINE (199, 82)-(206, 82), C%, BF: LINE (202, 83)-(204, 83), C%, BF
    LINE (181, 82)-(190, 82), C%, BF: LINE (176, 83)-(201, 84), C%, BF
    GET (175, 46)-(216, 85), G&
    Lettre = "D": GOSUB FICHIER: WRITE #1, 40
    LINE (500, 400)-(700, 450), 0, BF
    PUT (500, 400), G&, PSET: SLEEP 2
E:  ERASE G&: LINE (234, 46)-(271, 85), F%, BF
    LINE (235, 47)-(268, 48), C%, BF: LINE (240, 49)-(249, 49), C%, BF
    LINE (241, 50)-(248, 81), C%, BF: LINE (240, 82)-(249, 82), C%, BF
    LINE (235, 83)-(270, 84), C%, BF: LINE (261, 49)-(268, 49), C%, BF
    LINE (263, 50)-(268, 50), C%, BF: LINE (265, 51)-(268, 52), C%, BF
    LINE (266, 53)-(269, 53), C%, BF: LINE (267, 54)-(269, 57), C%, BF
    LINE (268, 58)-(269, 59), C%, BF: LINE (249, 65)-(253, 66), C%, BF
    LINE (254, 64)-(255, 67), C%, BF: LINE (256, 63)-(256, 69), C%, BF
    LINE (257, 61)-(257, 71), C%, BF: LINE (258, 58)-(259, 74), C%, BF
    LINE (261, 82)-(270, 82), C%, BF: LINE (263, 81)-(270, 81), C%, BF
    LINE (264, 80)-(270, 80), C%, BF: LINE (266, 78)-(270, 79), C%, BF
    LINE (267, 77)-(270, 77), C%, BF: LINE (268, 74)-(270, 76), C%, BF
    LINE (269, 71)-(270, 73), C%, BF
    GET (234, 46)-(271, 85), G&
    Lettre = "E": GOSUB FICHIER: WRITE #1, 36
    LINE (500, 400)-(700, 450), 0, BF
    PUT (500, 400), G&, PSET: SLEEP 2
F:  ERASE G&: LINE (290, 46)-(325, 85), F%, BF
    LINE (291, 47)-(324, 48), C%, BF: LINE (317, 49)-(324, 49), C%, BF
    LINE (319, 50)-(324, 50), C%, BF: LINE (320, 51)-(324, 51), C%, BF
    LINE (321, 52)-(324, 53), C%, BF: LINE (322, 54)-(324, 56), C%, BF
    LINE (323, 57)-(324, 59), C%, BF: LINE (296, 49)-(305, 49), C%, BF
    LINE (297, 50)-(304, 81), C%, BF: LINE (296, 82)-(305, 82), C%, BF
    LINE (291, 83)-(310, 84), C%, BF: LINE (305, 64)-(309, 65), C%, BF
    LINE (310, 63)-(310, 66), C%, BF: LINE (311, 62)-(311, 66), C%, BF
    LINE (312, 61)-(312, 68), C%, BF: LINE (313, 59)-(313, 70), C%, BF
    LINE (314, 57)-(315, 73), C%, BF
    GET (290, 46)-(325, 85), G&
    Lettre = "F":  GOSUB FICHIER: WRITE #1, 34
    LINE (500, 400)-(700, 450), 0, BF
    PUT (500, 400), G&, PSET: SLEEP 2
G:  ERASE G&: LINE (343, 46)-(385, 85), F%, BF
    LINE (344, 61)-(352, 70), C%, BF: LINE (345, 59)-(352, 60), C%, BF
    LINE (345, 58)-(353, 58), C%, BF: LINE (346, 56)-(353, 57), C%, BF
    LINE (347, 55)-(353, 55), C%, BF: LINE (347, 54)-(354, 54), C%, BF
    LINE (348, 53)-(354, 53), C%, BF: LINE (349, 52)-(355, 52), C%, BF
    LINE (350, 51)-(356, 51), C%, BF: LINE (351, 50)-(357, 50), C%, BF
    LINE (352, 49)-(358, 49), C%, BF: LINE (354, 48)-(360, 48), C%, BF
    LINE (356, 47)-(369, 47), C%, BF: LINE (367, 48)-(371, 48), C%, BF
    LINE (370, 49)-(372, 49), C%, BF: LINE (375, 48)-(377, 48), C%, BF
    LINE (374, 49)-(377, 49), C%, BF: LINE (371, 50)-(377, 50), C%, BF
    LINE (372, 51)-(377, 51), C%, BF: LINE (373, 52)-(377, 52), C%, BF
    LINE (374, 53)-(378, 54), C%, BF: LINE (375, 55)-(378, 56), C%, BF
    LINE (376, 57)-(378, 58), C%, BF: LINE (377, 59)-(378, 60), C%, BF
    LINE (345, 71)-(352, 73), C%, BF: LINE (345, 74)-(353, 74), C%, BF
    LINE (346, 75)-(353, 76), C%, BF: LINE (347, 77)-(353, 77), C%, BF
    LINE (347, 78)-(354, 78), C%, BF: LINE (348, 79)-(354, 79), C%, BF
    LINE (349, 80)-(355, 80), C%, BF: LINE (350, 81)-(356, 81), C%, BF
    LINE (352, 82)-(357, 82), C%, BF: LINE (353, 83)-(359, 83), C%, BF
    LINE (355, 84)-(368, 84), C%, BF: LINE (367, 83)-(370, 83), C%, BF
    LINE (369, 82)-(371, 82), C%, BF: LINE (370, 81)-(372, 81), C%, BF
    LINE (371, 80)-(373, 80), C%, BF: LINE (371, 79)-(371, 79), C%, BF
    LINE (372, 70)-(379, 79), C%, BF: LINE (366, 68)-(384, 69), C%, BF
    LINE (380, 70)-(380, 70), C%, BF: LINE (375, 80)-(379, 80), C%, BF
    LINE (376, 81)-(379, 82), C%, BF: LINE (377, 83)-(379, 84), C%, BF
    GET (343, 46)-(385, 85), G&
    Lettre = "G": GOSUB FICHIER: WRITE #1, 41
    LINE (500, 400)-(700, 450), 0, BF
    PUT (500, 400), G&, PSET: SLEEP 2
H:  ERASE G&: LINE (402, 46)-(444, 85), F%, BF
    LINE (403, 47)-(420, 48), C%, BF: LINE (407, 49)-(416, 49), C%, BF
    LINE (408, 50)-(415, 82), C%, BF: LINE (416, 82)-(416, 82), C%, BF
    LINE (403, 83)-(420, 84), C%, BF: LINE (416, 64)-(430, 66), C%, BF
    LINE (426, 47)-(443, 48), C%, BF: LINE (430, 49)-(439, 49), C%, BF
    LINE (431, 50)-(438, 81), C%, BF: LINE (430, 82)-(439, 82), C%, BF
    LINE (426, 83)-(443, 84), C%, BF
    GET (402, 46)-(444, 85), G&
    Lettre = "H":  GOSUB FICHIER: WRITE #1, 41
    LINE (500, 400)-(700, 450), 0, BF
    PUT (500, 400), G&, PSET: SLEEP 2
I:  ERASE G&: LINE (463, 46)-(482, 85), F%, BF
    LINE (464, 47)-(481, 48), C%, BF: LINE (468, 49)-(468, 49), C%, BF
    LINE (469, 49)-(476, 81), C%, BF: LINE (468, 82)-(477, 82), C%, BF
    LINE (464, 83)-(481, 84), C%, BF
    GET (463, 46)-(482, 85), G&
    Lettre = "I":  GOSUB FICHIER: WRITE #1, 18
    LINE (500, 400)-(700, 450), 0, BF
    PUT (500, 400), G&, PSET: SLEEP 2
J:  ERASE G&: LINE (503, 46)-(533, 85), F%, BF
    LINE (515, 47)-(532, 48), C%, BF: LINE (520, 49)-(529, 49), C%, BF
    LINE (521, 50)-(528, 77), C%, BF: LINE (521, 78)-(527, 78), C%, BF
    LINE (520, 79)-(527, 79), C%, BF: LINE (520, 80)-(526, 81), C%, BF
    LINE (519, 82)-(525, 82), C%, BF: LINE (517, 83)-(524, 83), C%, BF
    LINE (509, 84)-(522, 84), C%, BF: LINE (508, 83)-(510, 83), C%, BF
    LINE (507, 82)-(508, 82), C%, BF: LINE (506, 81)-(508, 81), C%, BF
    LINE (505, 79)-(507, 80), C%, BF: LINE (504, 74)-(512, 78), C%, BF
    LINE (513, 77)-(513, 77), C%, BF: LINE (513, 74)-(514, 76), C%, BF
    LINE (505, 73)-(514, 73), C%, BF: LINE (505, 72)-(513, 72), C%, BF
    LINE (506, 71)-(513, 71), C%, BF: LINE (508, 70)-(511, 70), C%, BF
    GET (503, 46)-(533, 85), G&
    Lettre = "J":  GOSUB FICHIER: WRITE #1, 29
    LINE (500, 400)-(700, 450), 0, BF
    PUT (500, 400), G&, PSET: SLEEP 2
K:  ERASE G&: LINE (9, 110)-(50, 149), F%, BF
    LINE (10, 111)-(28, 112), C%, BF: LINE (14, 113)-(23, 113), C%, BF
    LINE (15, 114)-(22, 145), C%, BF: LINE (14, 146)-(23, 146), C%, BF
    LINE (10, 147)-(28, 148), C%, BF: LINE (33, 111)-(47, 112), C%, BF
    LINE (36, 113)-(43, 113), C%, BF: LINE (37, 114)-(42, 114), C%, BF
    LINE (37, 115)-(40, 115), C%, BF: LINE (37, 116)-(39, 116), C%, BF
    LINE (36, 117)-(38, 117), C%, BF: LINE (36, 118)-(38, 118), C%, BF
    LINE (35, 119)-(37, 119), C%, BF: LINE (34, 120)-(36, 120), C%, BF
    LINE (34, 121)-(35, 121), C%, BF: LINE (33, 122)-(34, 122), C%, BF
    LINE (32, 123)-(33, 123), C%, BF: LINE (31, 124)-(33, 124), C%, BF
    LINE (30, 125)-(33, 125), C%, BF: LINE (29, 126)-(34, 126), C%, BF
    LINE (28, 127)-(34, 127), C%, BF: LINE (28, 128)-(35, 129), C%, BF
    LINE (28, 130)-(36, 131), C%, BF: LINE (29, 132)-(37, 133), C%, BF
    LINE (30, 134)-(38, 134), C%, BF: LINE (31, 135)-(39, 136), C%, BF
    LINE (32, 137)-(40, 138), C%, BF: LINE (33, 139)-(41, 140), C%, BF
    LINE (34, 141)-(42, 142), C%, BF: LINE (35, 143)-(43, 144), C%, BF
    LINE (36, 145)-(44, 145), C%, BF: LINE (36, 146)-(46, 146), C%, BF
    LINE (33, 147)-(49, 148), C%, BF: LINE (27, 129)-(27, 130), C%, BF
    LINE (26, 130)-(26, 131), C%, BF: LINE (25, 131)-(25, 133), C%, BF
    LINE (24, 132)-(24, 134), C%, BF: LINE (23, 133)-(23, 135), C%, BF
    GET (9, 110)-(50, 149), G&
    Lettre = "K":  GOSUB FICHIER: WRITE #1, 40
    LINE (500, 400)-(700, 450), 0, BF
    PUT (500, 400), G&, PSET: SLEEP 2
L:  ERASE G&: LINE (66, 110)-(102, 149), F%, BF
    LINE (67, 111)-(86, 112), C%, BF: LINE (72, 113)-(81, 113), C%, BF
    LINE (73, 114)-(80, 145), C%, BF: LINE (72, 146)-(81, 146), C%, BF
    LINE (67, 147)-(100, 148), C%, BF: LINE (100, 135)-(101, 136), C%, BF
    LINE (99, 137)-(101, 139), C%, BF: LINE (98, 140)-(101, 141), C%, BF
    LINE (97, 142)-(100, 142), C%, BF: LINE (96, 143)-(100, 143), C%, BF
    LINE (95, 144)-(100, 144), C%, BF: LINE (94, 145)-(100, 145), C%, BF
    LINE (92, 146)-(100, 146), C%, BF
    GET (66, 110)-(102, 149), G&
    Lettre = "L":  GOSUB FICHIER: WRITE #1, 35
    LINE (500, 400)-(700, 450), 0, BF
    PUT (500, 400), G&, PSET: SLEEP 2
M:  ERASE G&: LINE (119, 110)-(169, 149), F%, BF
    LINE (120, 111)-(135, 112), C%, BF: LINE (125, 113)-(135, 113), C%, BF
    LINE (126, 114)-(136, 114), C%, BF: LINE (126, 115)-(127, 142), C%, BF
    LINE (125, 143)-(127, 143), C%, BF: LINE (125, 144)-(128, 144), C%, BF
    LINE (124, 145)-(129, 145), C%, BF: LINE (122, 146)-(131, 146), C%, BF
    LINE (120, 147)-(133, 148), C%, BF: LINE (129, 115)-(136, 115), C%, BF
    LINE (129, 116)-(137, 116), C%, BF: LINE (130, 117)-(137, 118), C%, BF
    LINE (130, 119)-(138, 119), C%, BF: LINE (131, 120)-(138, 121), C%, BF
    LINE (131, 122)-(139, 122), C%, BF: LINE (132, 123)-(139, 124), C%, BF
    LINE (132, 125)-(140, 125), C%, BF: LINE (133, 126)-(140, 127), C%, BF
    LINE (133, 128)-(141, 128), C%, BF: LINE (134, 129)-(141, 130), C%, BF
    LINE (134, 131)-(142, 131), C%, BF: LINE (135, 132)-(142, 133), C%, BF
    LINE (135, 134)-(143, 134), C%, BF: LINE (136, 135)-(143, 137), C%, BF
    LINE (137, 138)-(145, 140), C%, BF: LINE (138, 141)-(144, 143), C%, BF
    LINE (139, 144)-(143, 145), C%, BF: LINE (140, 146)-(142, 148), C%, BF
    LINE (144, 137)-(144, 137), C%, BF: LINE (145, 134)-(146, 137), C%, BF
    LINE (146, 131)-(147, 134), C%, BF: LINE (147, 128)-(148, 131), C%, BF
    LINE (148, 125)-(149, 128), C%, BF: LINE (149, 122)-(150, 125), C%, BF
    LINE (150, 120)-(151, 122), C%, BF: LINE (151, 117)-(152, 120), C%, BF
    LINE (152, 114)-(153, 117), C%, BF: LINE (153, 111)-(168, 112), C%, BF
    LINE (153, 113)-(162, 114), C%, BF: LINE (155, 115)-(162, 145), C%, BF
    LINE (154, 146)-(163, 146), C%, BF: LINE (149, 147)-(168, 148), C%, BF
    GET (119, 110)-(169, 149), G&
    Lettre = "M":  GOSUB FICHIER: WRITE #1, 49
    LINE (500, 400)-(700, 450), 0, BF
    PUT (500, 400), G&, PSET: SLEEP 2
N:  ERASE G&: LINE (187, 110)-(229, 149), F%, BF
    LINE (188, 111)-(199, 112), C%, BF: LINE (191, 113)-(200, 113), C%, BF
    LINE (192, 114)-(201, 114), C%, BF: LINE (193, 115)-(202, 115), C%, BF
    LINE (194, 116)-(203, 117), C%, BF: LINE (194, 118)-(204, 118), C%, BF
    LINE (194, 119)-(205, 119), C%, BF: LINE (194, 120)-(195, 143), C%, BF
    LINE (193, 144)-(196, 144), C%, BF: LINE (192, 145)-(197, 145), C%, BF
    LINE (191, 146)-(198, 146), C%, BF: LINE (188, 147)-(201, 148), C%, BF
    LINE (197, 120)-(206, 120), C%, BF: LINE (198, 121)-(207, 121), C%, BF
    LINE (198, 122)-(208, 122), C%, BF: LINE (199, 123)-(208, 123), C%, BF
    LINE (200, 124)-(209, 124), C%, BF: LINE (201, 125)-(210, 125), C%, BF
    LINE (202, 126)-(211, 126), C%, BF: LINE (203, 127)-(212, 127), C%, BF
    LINE (204, 128)-(213, 128), C%, BF: LINE (204, 129)-(214, 129), C%, BF
    LINE (205, 130)-(214, 130), C%, BF: LINE (206, 131)-(215, 131), C%, BF
    LINE (207, 132)-(216, 132), C%, BF: LINE (208, 133)-(217, 133), C%, BF
    LINE (209, 134)-(218, 134), C%, BF: LINE (209, 135)-(219, 135), C%, BF
    LINE (210, 136)-(219, 136), C%, BF: LINE (211, 137)-(219, 137), C%, BF
    LINE (212, 138)-(219, 138), C%, BF: LINE (213, 139)-(219, 139), C%, BF
    LINE (214, 140)-(219, 140), C%, BF: LINE (214, 141)-(219, 141), C%, BF
    LINE (215, 142)-(219, 142), C%, BF: LINE (216, 143)-(219, 143), C%, BF
    LINE (217, 144)-(219, 144), C%, BF: LINE (218, 145)-(219, 145), C%, BF
    LINE (219, 146)-(219, 146), C%, BF: LINE (220, 137)-(222, 148), C%, BF
    LINE (221, 116)-(222, 137), C%, BF: LINE (220, 115)-(223, 115), C%, BF
    LINE (219, 114)-(224, 114), C%, BF: LINE (217, 113)-(226, 113), C%, BF
    LINE (215, 111)-(228, 112), C%, BF
    GET (187, 110)-(229, 149), G&
    Lettre = "N":  GOSUB FICHIER: WRITE #1, 41
    LINE (500, 400)-(700, 450), 0, BF
    PUT (500, 400), G&, PSET: SLEEP 2
O:  ERASE G&: LINE (246, 110)-(286, 149), F%, BF
    LINE (262, 110)-(270, 111), C%, BF: LINE (259, 111)-(262, 112), C%, BF
    LINE (257, 112)-(258, 112), C%, BF: LINE (255, 113)-(260, 113), C%, BF
    LINE (254, 114)-(259, 114), C%, BF: LINE (253, 115)-(258, 115), C%, BF
    LINE (252, 116)-(258, 116), C%, BF: LINE (251, 117)-(257, 117), C%, BF
    LINE (250, 118)-(257, 118), C%, BF: LINE (250, 119)-(256, 119), C%, BF
    LINE (249, 120)-(256, 121), C%, BF: LINE (248, 122)-(256, 121), C%, BF
    LINE (247, 125)-(247, 134), C%, BF: LINE (248, 123)-(255, 137), C%, BF
    LINE (249, 138)-(256, 139), C%, BF: LINE (250, 140)-(256, 140), C%, BF
    LINE (250, 141)-(257, 141), C%, BF: LINE (251, 142)-(257, 142), C%, BF
    LINE (252, 143)-(258, 143), C%, BF: LINE (253, 144)-(258, 144), C%, BF
    LINE (254, 145)-(259, 145), C%, BF: LINE (255, 146)-(261, 146), C%, BF
    LINE (257, 147)-(258, 147), C%, BF: LINE (259, 147)-(273, 148), C%, BF
    LINE (271, 111)-(273, 111), C%, BF: LINE (270, 112)-(275, 112), C%, BF
    LINE (272, 113)-(277, 113), C%, BF: LINE (273, 114)-(278, 114), C%, BF
    LINE (274, 115)-(279, 115), C%, BF: LINE (275, 116)-(280, 116), C%, BF
    LINE (275, 117)-(282, 117), C%, BF: LINE (276, 118)-(282, 119), C%, BF
    LINE (276, 120)-(283, 121), C%, BF: LINE (277, 122)-(284, 137), C%, BF
    LINE (285, 125)-(285, 134), C%, BF: LINE (276, 137)-(276, 137), C%, BF
    LINE (276, 138)-(283, 139), C%, BF: LINE (276, 140)-(282, 140), C%, BF
    LINE (275, 141)-(282, 141), C%, BF: LINE (275, 142)-(281, 142), C%, BF
    LINE (274, 143)-(280, 143), C%, BF: LINE (274, 144)-(279, 144), C%, BF
    LINE (273, 145)-(278, 145), C%, BF: LINE (271, 146)-(277, 146), C%, BF
    LINE (274, 147)-(275, 147), C%, BF
    GET (246, 110)-(286, 149), G&
    Lettre = "O": GOSUB FICHIER: WRITE #1, 39
    LINE (500, 400)-(700, 450), 0, BF
    PUT (500, 400), G&, PSET: SLEEP 2
P:  ERASE G&: LINE (306, 110)-(342, 149), F%, BF
    LINE (307, 111)-(333, 112), C%, BF: LINE (312, 113)-(321, 113), C%, BF
    LINE (313, 114)-(320, 145), C%, BF: LINE (312, 146)-(321, 146), C%, BF
    LINE (307, 147)-(326, 148), C%, BF: LINE (334, 112)-(335, 112), C%, BF
    LINE (329, 113)-(337, 113), C%, BF: LINE (331, 114)-(338, 114), C%, BF
    LINE (332, 115)-(339, 115), C%, BF: LINE (332, 116)-(340, 116), C%, BF
    LINE (333, 117)-(340, 117), C%, BF: LINE (333, 118)-(341, 124), C%, BF
    LINE (333, 125)-(340, 125), C%, BF: LINE (332, 126)-(340, 126), C%, BF
    LINE (331, 127)-(339, 127), C%, BF: LINE (330, 128)-(338, 128), C%, BF
    LINE (328, 129)-(337, 129), C%, BF: LINE (321, 130)-(335, 130), C%, BF
    LINE (321, 131)-(331, 131), C%, BF
    GET (306, 110)-(342, 148), G&         ' 149
    Lettre = "P":  GOSUB FICHIER: WRITE #1, 35
    LINE (500, 400)-(700, 450), 0, BF
    PUT (500, 400), G&, PSET: SLEEP 2
Q:  ERASE G&: LINE (360, 110)-(401, 159), F%, BF
    LINE (376, 110)-(384, 110), C%, BF: LINE (373, 111)-(387, 111), C%, BF
    LINE (371, 112)-(376, 112), C%, BF: LINE (369, 113)-(374, 113), C%, BF
    LINE (368, 114)-(373, 114), C%, BF: LINE (367, 115)-(372, 115), C%, BF
    LINE (366, 116)-(372, 116), C%, BF: LINE (365, 117)-(371, 117), C%, BF
    LINE (364, 118)-(371, 118), C%, BF: LINE (364, 119)-(370, 119), C%, BF
    LINE (363, 120)-(370, 121), C%, BF: LINE (362, 122)-(370, 122), C%, BF
    LINE (362, 123)-(369, 136), C%, BF: LINE (361, 125)-(361, 134), C%, BF
    LINE (362, 137)-(370, 137), C%, BF: LINE (363, 138)-(370, 139), C%, BF
    LINE (364, 140)-(370, 140), C%, BF: LINE (364, 141)-(373, 141), C%, BF
    LINE (365, 142)-(373, 142), C%, BF: LINE (366, 143)-(373, 143), C%, BF
    LINE (367, 144)-(373, 144), C%, BF: LINE (368, 145)-(374, 145), C%, BF
    LINE (369, 146)-(374, 146), C%, BF: LINE (371, 147)-(376, 147), C%, BF
    LINE (372, 148)-(392, 148), C%, BF: LINE (376, 149)-(392, 149), C%, BF
    LINE (383, 112)-(389, 112), C%, BF: LINE (386, 113)-(391, 113), C%, BF
    LINE (387, 114)-(392, 114), C%, BF: LINE (388, 115)-(393, 115), C%, BF
    LINE (388, 116)-(394, 116), C%, BF: LINE (389, 117)-(395, 117), C%, BF
    LINE (389, 118)-(396, 118), C%, BF: LINE (390, 119)-(396, 119), C%, BF
    LINE (390, 120)-(397, 121), C%, BF: LINE (390, 122)-(398, 122), C%, BF
    LINE (391, 123)-(398, 124), C%, BF: LINE (391, 125)-(399, 134), C%, BF
    LINE (391, 135)-(398, 136), C%, BF: LINE (390, 137)-(398, 137), C%, BF
    LINE (390, 138)-(397, 139), C%, BF: LINE (372, 140)-(373, 140), C%, BF
    LINE (373, 139)-(374, 139), C%, BF: LINE (373, 138)-(375, 138), C%, BF
    LINE (374, 137)-(376, 137), C%, BF: LINE (375, 136)-(385, 136), C%, BF
    LINE (377, 135)-(383, 135), C%, BF: LINE (382, 137)-(386, 137), C%, BF
    LINE (384, 138)-(387, 138), C%, BF: LINE (385, 139)-(388, 139), C%, BF
    LINE (385, 140)-(396, 140), C%, BF: LINE (386, 141)-(396, 141), C%, BF
    LINE (386, 142)-(395, 142), C%, BF: LINE (386, 143)-(394, 143), C%, BF
    LINE (386, 144)-(393, 145), C%, BF: LINE (385, 146)-(391, 146), C%, BF
    LINE (383, 147)-(391, 147), C%, BF: LINE (385, 150)-(393, 150), C%, BF
    LINE (385, 151)-(394, 151), C%, BF: LINE (385, 152)-(395, 152), C%, BF
    LINE (386, 153)-(399, 154), C%, BF: LINE (387, 155)-(399, 155), C%, BF
    LINE (387, 156)-(398, 156), C%, BF: LINE (388, 157)-(397, 157), C%, BF
    LINE (390, 158)-(395, 158), C%, BF: LINE (398, 152)-(400, 152), C%, BF
    LINE (399, 150)-(400, 151), C%, BF
    GET (360, 110)-(401, 159), G&
    Lettre = "Q":  GOSUB FICHIER: WRITE #1, 40
    LINE (500, 400)-(700, 450), 0, BF
    PUT (500, 400), G&, PSET: SLEEP 2
R:  ERASE G&: LINE (419, 110)-(458, 149), F%, BF
    LINE (420, 111)-(444, 112), C%, BF: LINE (425, 113)-(434, 113), C%, BF
    LINE (426, 114)-(433, 145), C%, BF: LINE (425, 146)-(434, 146), C%, BF
    LINE (420, 147)-(439, 148), C%, BF: LINE (445, 112)-(448, 112), C%, BF
    LINE (441, 113)-(449, 113), C%, BF: LINE (443, 114)-(451, 114), C%, BF
    LINE (444, 115)-(451, 115), C%, BF: LINE (444, 116)-(452, 116), C%, BF
    LINE (445, 117)-(453, 122), C%, BF: LINE (445, 123)-(452, 123), C%, BF
    LINE (444, 124)-(452, 124), C%, BF: LINE (444, 125)-(451, 125), C%, BF
    LINE (442, 126)-(450, 126), C%, BF: LINE (440, 127)-(448, 127), C%, BF
    LINE (434, 128)-(446, 128), C%, BF: LINE (434, 129)-(441, 129), C%, BF
    LINE (439, 130)-(444, 130), C%, BF: LINE (440, 131)-(446, 131), C%, BF
    LINE (441, 132)-(447, 132), C%, BF: LINE (442, 133)-(448, 134), C%, BF
    LINE (442, 135)-(449, 135), C%, BF: LINE (443, 136)-(449, 140), C%, BF
    LINE (450, 137)-(450, 140), C%, BF: LINE (444, 141)-(451, 144), C%, BF
    LINE (444, 145)-(452, 145), C%, BF: LINE (445, 146)-(456, 146), C%, BF
    LINE (445, 147)-(455, 147), C%, BF: LINE (446, 148)-(454, 148), C%, BF
    LINE (448, 149)-(453, 149), C%, BF: LINE (456, 141)-(457, 144), C%, BF
    LINE (455, 144)-(456, 145), C%, BF
    GET (419, 110)-(458, 149), G&
    Lettre = "R":  GOSUB FICHIER: WRITE #1, 38
    LINE (500, 400)-(700, 450), 0, BF
    PUT (500, 400), G&, PSET: SLEEP 2
S:  ERASE G&: LINE (477, 110)-(509, 149), F%, BF
    LINE (505, 110)-(506, 123), C%, BF: LINE (504, 112)-(504, 122), C%, BF
    LINE (503, 114)-(503, 119), C%, BF: LINE (502, 113)-(502, 117), C%, BF
    LINE (505, 113)-(501, 116), C%, BF: LINE (500, 112)-(500, 115), C%, BF
    LINE (499, 111)-(499, 114), C%, BF: LINE (498, 111)-(498, 113), C%, BF
    LINE (496, 111)-(497, 112), C%, BF: LINE (488, 110)-(496, 111), C%, BF
    LINE (485, 111)-(487, 111), C%, BF: LINE (484, 112)-(489, 112), C%, BF
    LINE (483, 113)-(487, 113), C%, BF: LINE (482, 114)-(486, 114), C%, BF
    LINE (481, 115)-(485, 115), C%, BF: LINE (480, 116)-(484, 117), C%, BF
    LINE (479, 118)-(484, 124), C%, BF: LINE (485, 121)-(485, 121), C%, BF
    LINE (485, 122)-(486, 122), C%, BF: LINE (485, 123)-(487, 123), C%, BF
    LINE (485, 124)-(489, 124), C%, BF: LINE (480, 125)-(493, 125), C%, BF
    LINE (480, 126)-(496, 126), C%, BF: LINE (481, 127)-(500, 127), C%, BF
    LINE (481, 128)-(502, 128), C%, BF: LINE (483, 129)-(504, 129), C%, BF
    LINE (484, 130)-(505, 130), C%, BF: LINE (486, 131)-(506, 131), C%, BF
    LINE (489, 132)-(507, 132), C%, BF: LINE (493, 133)-(507, 133), C%, BF
    LINE (497, 134)-(508, 134), C%, BF: LINE (500, 135)-(508, 135), C%, BF
    LINE (501, 136)-(508, 136), C%, BF: LINE (502, 137)-(508, 137), C%, BF
    LINE (503, 138)-(508, 140), C%, BF: LINE (503, 141)-(507, 142), C%, BF
    LINE (502, 143)-(507, 143), C%, BF: LINE (502, 144)-(506, 144), C%, BF
    LINE (501, 145)-(505, 145), C%, BF: LINE (500, 146)-(504, 146), C%, BF
    LINE (498, 147)-(502, 147), C%, BF: LINE (486, 148)-(500, 148), C%, BF
    LINE (489, 149)-(497, 149), C%, BF: LINE (478, 136)-(479, 149), C%, BF
    LINE (480, 137)-(480, 147), C%, BF: LINE (481, 140)-(481, 146), C%, BF
    LINE (482, 142)-(482, 145), C%, BF: LINE (483, 143)-(483, 146), C%, BF
    LINE (484, 144)-(484, 147), C%, BF: LINE (485, 145)-(485, 147), C%, BF
    LINE (486, 146)-(486, 147), C%, BF: LINE (487, 147)-(489, 147), C%, BF
    GET (477, 110)-(509, 149), G&
    Lettre = "S":  GOSUB FICHIER: WRITE #1, 31
    LINE (500, 400)-(700, 450), 0, BF
    PUT (500, 400), G&, PSET: SLEEP 2
T:  ERASE G&: LINE (9, 174)-(44, 213), F%, BF
    LINE (11, 175)-(42, 176), C%, BF: LINE (11, 177)-(17, 177), C%, BF
    LINE (11, 178)-(16, 178), C%, BF: LINE (11, 179)-(15, 179), C%, BF
    LINE (11, 180)-(14, 180), C%, BF: LINE (11, 181)-(13, 181), C%, BF
    LINE (10, 182)-(13, 183), C%, BF: LINE (10, 184)-(12, 188), C%, BF
    LINE (10, 187)-(11, 188), C%, BF: LINE (36, 177)-(42, 177), C%, BF
    LINE (37, 178)-(42, 178), C%, BF: LINE (38, 179)-(42, 179), C%, BF
    LINE (39, 180)-(42, 180), C%, BF: LINE (40, 181)-(42, 181), C%, BF
    LINE (40, 182)-(43, 182), C%, BF: LINE (41, 183)-(43, 186), C%, BF
    LINE (42, 187)-(43, 188), C%, BF: LINE (22, 177)-(31, 177), C%, BF
    LINE (23, 178)-(30, 209), C%, BF: LINE (22, 210)-(31, 210), C%, BF
    LINE (17, 211)-(36, 212), C%, BF
    GET (9, 174)-(44, 212), G&       '213
    Lettre = "T":  GOSUB FICHIER: WRITE #1, 34
    LINE (500, 400)-(700, 450), 0, BF
    PUT (500, 400), G&, PSET: SLEEP 2
U:  ERASE G&: LINE (62, 174)-(103, 213), F%, BF
    LINE (63, 175)-(80, 176), C%, BF: LINE (67, 177)-(75, 177), C%, BF
    LINE (68, 178)-(75, 205), C%, BF: LINE (76, 204)-(76, 205), C%, BF
    LINE (76, 204)-(76, 205), C%, BF: LINE (69, 206)-(77, 207), C%, BF
    LINE (70, 208)-(79, 208), C%, BF: LINE (71, 209)-(81, 209), C%, BF
    LINE (72, 210)-(93, 210), C%, BF: LINE (73, 211)-(92, 211), C%, BF
    LINE (75, 212)-(90, 212), C%, BF: LINE (78, 213)-(87, 213), C%, BF
    LINE (90, 175)-(102, 176), C%, BF: LINE (93, 177)-(99, 177), C%, BF
    LINE (94, 178)-(98, 179), C%, BF: LINE (95, 180)-(97, 203), C%, BF
    LINE (94, 204)-(97, 204), C%, BF: LINE (94, 205)-(96, 205), C%, BF
    LINE (93, 206)-(96, 206), C%, BF: LINE (92, 207)-(95, 207), C%, BF
    LINE (91, 208)-(95, 208), C%, BF: LINE (89, 209)-(94, 209), C%, BF
    GET (62, 174)-(103, 213), G&
    Lettre = "U":  GOSUB FICHIER: WRITE #1, 40
    LINE (500, 400)-(700, 450), 0, BF
    PUT (500, 400), G&, PSET: SLEEP 2
V:  ERASE G&: LINE (118, 174)-(160, 213), F%, BF
    LINE (119, 175)-(137, 176), C%, BF: LINE (123, 177)-(137, 212), C%
    LINE (137, 212)-(141, 212), C%: LINE (141, 212)-(141, 201), C%
    LINE (141, 201)-(131, 177), C%: PAINT (132, 189), C%, C%
    LINE (142, 204)-(151, 183), C%: LINE (151, 183)-(154, 183), C%
    LINE (154, 183)-(142, 210), C%: PAINT (147, 196), C%, C%
    LINE (145, 175)-(159, 176), C%, BF: LINE (147, 177)-(157, 178), C%, BF
    LINE (149, 179)-(156, 180), C%, BF: LINE (150, 181)-(155, 182), C%, BF
    GET (118, 174)-(160, 213), G&
    Lettre = "V":  GOSUB FICHIER: WRITE #1, 41
    LINE (500, 400)-(700, 450), 0, BF
    PUT (500, 400), G&, PSET: SLEEP 2
    END
ERREUR: IF Etape% = 1 AND ERR = 76 THEN RESUME NEXT
        ' *** Les r‚pertoires existent d‚j…