'*********************************
'*  Cr‚ation des CHIFFRES 25/24  *  C:\ALPHABET\CH_25x24\CH_25!24.BAS
'*********************************
    CLS : OPTION BASE 1: SCREEN 12: DEFSTR A-Z
    ACCES = "C:\ALPHABET\CH_25x24\"
' *** Cr‚ation des R‚pertoires ***
    ON ERROR GOTO E99.ERREUR
    Etape% = 1
    MKDIR "C:\ALPHABET"
    MKDIR "C:\ALPHABET\CH_25x24"
    Etape% = 0
    DIM G&(110) ' Chiffres de 25/24
    F% = 0     ' Couleur de fond
    C% = 11    ' Couleur du Chiffre (… changer selon vos pr‚f‚rences)
    X% = 25
' *** 1
    LINE (21, 83)-(44, 107), F%, BF
    LINE (27, 88)-(27, 90), C%, BF: LINE (28, 87)-(28, 90), C%, BF
    LINE (29, 86)-(29, 89), C%, BF: LINE (30, 85)-(30, 88), C%, BF
    LINE (31, 84)-(31, 87), C%, BF: LINE (32, 83)-(34, 103), C%, BF
    LINE (31, 104)-(35, 104), C%, BF: LINE (29, 106)-(38, 107), C%, BF
    LINE (36, 84)-(36, 102), C%, BF
    GET (21, 83)-(44, 107), G&
    Chiffre = "1": GOSUB FICHIER
' *** 2
    LINE (53, 83)-(76, 107), F%, BF
    LINE (61, 83)-(66, 83), C%, BF: LINE (59, 84)-(61, 84), C%, BF
    LINE (66, 84)-(68, 84), C%, BF: LINE (58, 85)-(60, 85), C%, BF
    LINE (62, 85)-(69, 85), C%, BF: LINE (56, 87)-(56, 90), C%, BF
    LINE (57, 86)-(58, 91), C%, BF: LINE (59, 91)-(59, 91), C%, BF
    LINE (63, 91)-(63, 91), C%, BF: LINE (58, 92)-(63, 92), C%, BF
    LINE (59, 93)-(62, 93), C%, BF: LINE (60, 95)-(61, 95), C%, BF
    LINE (68, 86)-(68, 86), C%, BF: LINE (69, 86)-(70, 92), C%, BF
    LINE (71, 88)-(71, 91), C%, BF: LINE (72, 86)-(72, 87), C%, BF
    LINE (68, 93)-(69, 93), C%, BF: LINE (66, 94)-(69, 94), C%, BF
    LINE (65, 95)-(68, 95), C%, BF: LINE (64, 96)-(66, 96), C%, BF
    LINE (63, 97)-(65, 97), C%, BF: LINE (62, 98)-(63, 98), C%, BF
    LINE (61, 99)-(62, 99), C%, BF: LINE (60, 100)-(61, 100), C%, BF
    LINE (59, 101)-(60, 101), C%, BF: LINE (58, 102)-(59, 102), C%, BF
    LINE (57, 103)-(58, 103), C%, BF: LINE (56, 104)-(58, 104), C%, BF
    LINE (73, 87)-(73, 93), C%, BF: LINE (72, 93)-(72, 94), C%, BF
    LINE (71, 94)-(71, 95), C%, BF: LINE (70, 95)-(70, 96), C%, BF
    LINE (69, 96)-(69, 97), C%, BF: LINE (68, 97)-(68, 97), C%, BF
    LINE (67, 97)-(67, 98), C%, BF: LINE (66, 98)-(66, 99), C%, BF
    LINE (65, 99)-(65, 99), C%, BF: LINE (64, 99)-(64, 100), C%, BF
    LINE (63, 100)-(63, 101), C%, BF: LINE (62, 101)-(62, 102), C%, BF
    LINE (61, 102)-(61, 103), C%, BF: LINE (60, 103)-(60, 103), C%, BF
    LINE (70, 103)-(70, 104), C%, BF: LINE (71, 102)-(71, 104), C%, BF
    LINE (56, 105)-(71, 106), C%, BF: LINE (57, 107)-(73, 107), C%, BF
    LINE (73, 102)-(73, 106), C%, BF: LINE (60, 87)-(60, 89), C%, BF
    LINE (61, 90)-(61, 90), C%, BF: LINE (61, 86)-(61, 86), C%, BF
    GET (53, 83)-(76, 107), G&
    Chiffre = "2": GOSUB FICHIER
' *** 3
    LINE (84, 83)-(107, 107), F%, BF
    LINE (92, 83)-(98, 83), C%, BF: LINE (91, 84)-(92, 84), C%, BF
    LINE (89, 85)-(91, 85), C%, BF: LINE (89, 86)-(90, 86), C%, BF
    LINE (88, 87)-(89, 89), C%, BF: LINE (90, 88)-(90, 89), C%, BF
    LINE (89, 90)-(92, 90), C%, BF: LINE (90, 90)-(91, 91), C%, BF
    LINE (92, 86)-(92, 88), C%, BF: LINE (95, 84)-(95, 84), C%, BF
    LINE (94, 85)-(96, 85), C%, BF: LINE (99, 84)-(99, 85), C%, BF
    LINE (99, 85)-(101, 85), C%, BF: LINE (100, 86)-(101, 90), C%, BF
    LINE (102, 87)-(102, 89), C%, BF: LINE (103, 85)-(103, 90), C%, BF
    LINE (99, 91)-(100, 92), C%, BF: LINE (97, 92)-(98, 95), C%, BF
    LINE (95, 93)-(96, 95), C%, BF: LINE (93, 94)-(93, 94), C%, BF
    LINE (94, 93)-(94, 94), C%, BF: LINE (99, 94)-(100, 97), C%, BF
    LINE (101, 95)-(101, 97), C%, BF: LINE (102, 96)-(102, 97), C%, BF
    LINE (100, 98)-(102, 103), C%, BF: LINE (103, 99)-(103, 101), C%, BF
    LINE (104, 96)-(104, 103), C%, BF: LINE (99, 104)-(101, 104), C%, BF
    LINE (98, 105)-(100, 105), C%, BF: LINE (92, 106)-(99, 106), C%, BF
    LINE (93, 107)-(97, 107), C%, BF: LINE (88, 100)-(88, 103), C%, BF
    LINE (89, 99)-(89, 104), C%, BF: LINE (90, 98)-(90, 105), C%, BF
    LINE (91, 104)-(91, 105), C%, BF: LINE (92, 98)-(92, 103), C%, BF
    LINE (92, 105)-(92, 105), C%, BF
    GET (84, 83)-(107, 107), G&
    Chiffre = "3": GOSUB FICHIER
' *** 4
    LINE (115, 83)-(138, 107), F%, BF
    LINE (124, 83)-(127, 83), C%, BF: LINE (124, 84)-(126, 86), C%, BF
    LINE (123, 87)-(125, 88), C%, BF: LINE (123, 89)-(124, 90), C%, BF
    LINE (122, 91)-(123, 92), C%, BF: LINE (121, 93)-(122, 93), C%, BF
    LINE (120, 95)-(121, 95), C%, BF: LINE (121, 94)-(121, 94), C%, BF
    LINE (119, 96)-(120, 96), C%, BF
    LINE (118, 97)-(119, 97), C%, BF: LINE (117, 98)-(118, 98), C%, BF
    LINE (129, 84)-(129, 85), C%, BF: LINE (128, 86)-(128, 88), C%, BF
    LINE (127, 89)-(127, 90), C%, BF: LINE (126, 91)-(126, 92), C%, BF
    LINE (125, 93)-(125, 94), C%, BF: LINE (124, 94)-(124, 95), C%, BF
    LINE (123, 95)-(123, 96), C%, BF: LINE (122, 97)-(122, 97), C%, BF
    LINE (121, 96)-(121, 96), C%, BF: LINE (117, 99)-(127, 99), C%, BF
    LINE (117, 101)-(127, 101), C%, BF: LINE (130, 89)-(131, 89), C%, BF
    LINE (129, 90)-(131, 90), C%, BF: LINE (128, 91)-(131, 99), C%, BF
    LINE (128, 100)-(130, 101), C%, BF: LINE (128, 102)-(131, 105), C%, BF
    LINE (127, 106)-(132, 106), C%, BF: LINE (126, 107)-(133, 107), C%, BF
    LINE (132, 99)-(136, 99), C%, BF: LINE (131, 100)-(136, 100), C%, BF
    LINE (135, 101)-(136, 101), C%, BF: LINE (135, 102)-(135, 103), C%, BF
    GET (115, 83)-(138, 107), G&
    Chiffre = "4": GOSUB FICHIER
' *** 5
    LINE (145, 83)-(168, 107), F%, BF
    LINE (163, 83)-(163, 83), C%, BF: LINE (165, 83)-(165, 83), C%, BF
    LINE (150, 84)-(165, 84), C%, BF: LINE (150, 85)-(164, 86), C%, BF
    LINE (150, 87)-(151, 94), C%, BF: LINE (151, 95)-(151, 95), C%, BF
    LINE (153, 87)-(163, 87), C%, BF: LINE (153, 88)-(153, 90), C%, BF
    LINE (153, 91)-(159, 92), C%, BF: LINE (152, 93)-(154, 93), C%, BF
    LINE (152, 94)-(152, 94), C%, BF: LINE (159, 93)-(159, 93), C%, BF
    LINE (160, 92)-(161, 93), C%, BF: LINE (161, 94)-(161, 94), C%, BF
    LINE (162, 93)-(162, 104), C%, BF: LINE (163, 94)-(163, 103), C%, BF
    LINE (164, 96)-(164, 102), C%, BF: LINE (166, 96)-(166, 102), C%, BF
    LINE (165, 103)-(165, 105), C%, BF: LINE (164, 105)-(164, 106), C%, BF
    LINE (163, 106)-(163, 107), C%, BF: LINE (161, 107)-(162, 107), C%, BF
    LINE (161, 103)-(161, 105), C%, BF: LINE (159, 105)-(160, 105), C%, BF
    LINE (153, 106)-(159, 106), C%, BF: LINE (154, 107)-(158, 107), C%, BF
    LINE (153, 98)-(153, 103), C%, BF: LINE (149, 100)-(151, 103), C%, BF
    LINE (151, 98)-(151, 98), C%, BF: LINE (150, 99)-(151, 99), C%, BF
    LINE (150, 104)-(152, 104), C%, BF: LINE (151, 105)-(153, 105), C%, BF
    GET (145, 83)-(168, 107), G&
    Chiffre = "5": GOSUB FICHIER
' *** 6
    LINE (176, 83)-(199, 107), F%, BF
    LINE (194, 84)-(195, 84), C%, BF: LINE (195, 85)-(196, 88), C%, BF
    LINE (192, 89)-(195, 89), C%, BF: LINE (192, 85)-(192, 88), C%, BF
    LINE (193, 86)-(193, 87), C%, BF: LINE (191, 84)-(191, 85), C%, BF
    LINE (190, 84)-(190, 84), C%, BF: LINE (187, 85)-(188, 86), C%, BF
    LINE (186, 87)-(189, 87), C%, BF: LINE (185, 83)-(190, 83), C%, BF
    LINE (183, 84)-(185, 84), C%, BF: LINE (182, 85)-(184, 85), C%, BF
    LINE (182, 86)-(183, 87), C%, BF: LINE (181, 88)-(182, 88), C%, BF
    LINE (180, 89)-(182, 100), C%, BF: LINE (179, 92)-(179, 97), C%, BF
    LINE (183, 95)-(183, 96), C%, BF: LINE (181, 101)-(182, 102), C%, BF
    LINE (182, 103)-(182, 103), C%, BF: LINE (183, 103)-(184, 105), C%, BF
    LINE (186, 91)-(190, 91), C%, BF: LINE (185, 92)-(192, 92), C%, BF
    LINE (187, 94)-(189, 94), C%, BF: LINE (185, 93)-(185, 93), C%, BF
    LINE (184, 93)-(184, 105), C%, BF: LINE (185, 97)-(185, 102), C%, BF
    LINE (185, 105)-(185, 105), C%, BF: LINE (185, 106)-(191, 107), C%, BF
    LINE (191, 93)-(191, 93), C%, BF: LINE (191, 105)-(191, 105), C%, BF
    LINE (192, 93)-(192, 94), C%, BF: LINE (192, 96)-(192, 105), C%, BF
    LINE (193, 93)-(193, 104), C%, BF: LINE (194, 94)-(194, 103), C%, BF
    LINE (195, 96)-(195, 102), C%, BF: LINE (197, 97)-(197, 101), C%, BF
    GET (176, 83)-(199, 107), G&
    Chiffre = "6": GOSUB FICHIER
' *** 7
    LINE (208, 83)-(231, 107), F%, BF
    LINE (213, 83)-(227, 85), C%, BF: LINE (213, 86)-(213, 90), C%, BF
    LINE (212, 90)-(212, 90), C%, BF: LINE (212, 92)-(214, 92), C%, BF
    LINE (215, 87)-(215, 90), C%, BF: LINE (215, 87)-(224, 87), C%, BF
    LINE (229, 84)-(229, 87), C%, BF: LINE (225, 86)-(227, 89), C%, BF
    LINE (224, 90)-(226, 90), C%, BF: LINE (223, 91)-(225, 92), C%, BF
    LINE (222, 93)-(224, 93), C%, BF: LINE (221, 94)-(224, 94), C%, BF
    LINE (223, 95)-(223, 95), C%, BF: LINE (220, 95)-(222, 105), C%, BF
    LINE (219, 98)-(219, 99), C%, BF: LINE (218, 100)-(219, 102), C%, BF
    LINE (217, 103)-(219, 105), C%, BF: LINE (219, 106)-(225, 106), C%, BF
    LINE (214, 107)-(225, 107), C%, BF: LINE (224, 97)-(224, 104), C%, BF
    GET (208, 83)-(231, 107), G&
    Chiffre = "7": GOSUB FICHIER
' *** 8
    LINE (239, 83)-(262, 107), F%, BF
    LINE (247, 83)-(253, 83), C%, BF: LINE (245, 84)-(255, 84), C%, BF
    LINE (244, 85)-(256, 85), C%, BF: LINE (244, 86)-(245, 91), C%, BF
    LINE (243, 87)-(243, 89), C%, BF: LINE (247, 87)-(247, 88), C%, BF
    LINE (246, 90)-(247, 93), C%, BF: LINE (245, 92)-(245, 92), C%, BF
    LINE (245, 94)-(246, 94), C%, BF: LINE (244, 95)-(245, 95), C%, BF
    LINE (243, 96)-(244, 96), C%, BF: LINE (241, 98)-(241, 102), C%, BF
    LINE (242, 97)-(243, 103), C%, BF: LINE (243, 104)-(243, 104), C%, BF
    LINE (244, 103)-(244, 105), C%, BF: LINE (245, 104)-(245, 106), C%, BF
    LINE (246, 105)-(246, 105), C%, BF: LINE (246, 106)-(255, 107), C%, BF
    LINE (255, 105)-(255, 105), C%, BF: LINE (256, 106)-(256, 106), C%, BF
    LINE (256, 105)-(257, 105), C%, BF: LINE (256, 98)-(258, 104), C%, BF
    LINE (255, 97)-(257, 97), C%, BF: LINE (254, 96)-(256, 96), C%, BF
    LINE (252, 95)-(255, 94), C%, BF: LINE (250, 94)-(254, 94), C%, BF
    LINE (248, 92)-(253, 93), C%, BF: LINE (248, 91)-(249, 91), C%, BF
    LINE (252, 91)-(255, 91), C%, BF: LINE (254, 90)-(256, 90), C%, BF
    LINE (255, 86)-(256, 89), C%, BF: LINE (245, 98)-(245, 101), C%, BF
    LINE (258, 85)-(258, 90), C%, BF: LINE (260, 98)-(260, 104), C%, BF
    GET (239, 83)-(262, 107), G&
    Chiffre = "8": GOSUB FICHIER
' ** 9
    LINE (270, 83)-(293, 107), F%, BF
    LINE (278, 83)-(283, 85), C%, BF: LINE (278, 86)-(278, 86), C%, BF
    LINE (277, 84)-(277, 86), C%, BF: LINE (276, 85)-(276, 87), C%, BF
    LINE (275, 86)-(275, 95), C%, BF: LINE (274, 87)-(274, 94), C%, BF
    LINE (273, 89)-(273, 92), C%, BF: LINE (276, 94)-(276, 94), C%, BF
    LINE (276, 95)-(277, 96), C%, BF: LINE (283, 95)-(286, 95), C%, BF
    LINE (277, 96)-(286, 97), C%, BF: LINE (278, 99)-(284, 99), C%, BF
    LINE (284, 84)-(284, 86), C%, BF: LINE (285, 85)-(285, 86), C%, BF
    LINE (286, 85)-(286, 87), C%, BF: LINE (287, 86)-(287, 104), C%, BF
    LINE (288, 88)-(288, 103), C%, BF: LINE (289, 90)-(289, 102), C%, BF
    LINE (291, 90)-(291, 102), C%, BF: LINE (286, 101)-(286, 105), C%, BF
    LINE (285, 102)-(285, 106), C%, BF: LINE (284, 103)-(284, 107), C%, BF
    LINE (283, 104)-(283, 107), C%, BF: LINE (282, 105)-(282, 107), C%, BF
    LINE (277, 106)-(281, 107), C%, BF: LINE (276, 105)-(276, 107), C%, BF
    LINE (275, 104)-(275, 106), C%, BF: LINE (274, 103)-(274, 105), C%, BF
    LINE (277, 89)-(277, 92), C%, BF: LINE (285, 94)-(286, 94), C%, BF
    GET (270, 83)-(293, 107), G&
    Chiffre = "9": GOSUB FICHIER
' ** 0
    LINE (19, 113)-(42, 137), F%, BF
    LINE (27, 113)-(33, 115), C%, BF: LINE (36, 118)-(38, 131), C%, BF
    LINE (22, 118)-(24, 131), C%, BF: LINE (28, 117)-(32, 117), C%, BF
    LINE (26, 119)-(26, 130), C%, BF: LINE (40, 118)-(40, 131), C%, BF
    LINE (26, 114)-(34, 114), C%, BF: LINE (25, 115)-(35, 115), C%, BF
    LINE (24, 116)-(26, 116), C%, BF: LINE (34, 116)-(36, 116), C%, BF
    LINE (23, 117)-(25, 117), C%, BF: LINE (35, 117)-(37, 117), C%, BF
    LINE (23, 132)-(25, 132), C%, BF: LINE (35, 132)-(37, 132), C%, BF
    LINE (23, 133)-(26, 133), C%, BF: LINE (24, 134)-(26, 134), C%, BF
    LINE (25, 135)-(27, 135), C%, BF: LINE (35, 133)-(36, 134), C%, BF
    LINE (34, 135)-(36, 135), C%, BF: LINE (26, 136)-(35, 136), C%, BF
    LINE (27, 137)-(34, 137), C%, BF: LINE (37, 133)-(37, 133), C%, BF
    GET (19, 113)-(42, 137), G&
    Chiffre = "0": GOSUB FICHIER
' ** Point
    LINE (32, 144)-(55, 168), F%, BF
    LINE (41, 165)-(44, 167), C%, BF: LINE (40, 166)-(40, 166), C%, BF
    LINE (42, 164)-(43, 164), C%, BF: LINE (42, 168)-(43, 168), C%, BF
    LINE (45, 165)-(45, 166), C%, BF: LINE (47, 165)-(47, 166), C%, BF
    GET (32, 144)-(55, 168), G&
    Chiffre = "point": GOSUB FICHIER
' ** Virgule
    LINE (66, 146)-(89, 170), F%, BF
    LINE (75, 171)-(77, 171), C%, BF: LINE (77, 170)-(78, 170), C%, BF
    LINE (78, 165)-(78, 169), C%, BF: LINE (79, 164)-(79, 169), C%, BF
    LINE (80, 164)-(80, 168), C%, BF: LINE (81, 165)-(81, 167), C%, BF
    LINE (83, 165)-(83, 167), C%, BF
    GET (66, 146)-(89, 170), G&
    Chiffre = "virg": GOSUB FICHIER
' ** Apostrophe
    LINE (103, 144)-(126, 168), F%, BF
    LINE (113, 144)-(113, 147), C%, BF: LINE (114, 144)-(114, 150), C%, BF
    LINE (115, 144)-(115, 144), C%, BF: LINE (114, 152)-(115, 152), C%, BF
    LINE (116, 146)-(116, 152), C%, BF
    GET (103, 144)-(126, 168), G&
    Chiffre = "apost": GOSUB FICHIER
' ** Guillemets
    LINE (140, 144)-(163, 168), F%, BF
    LINE (147, 144)-(149, 144), C%, BF: LINE (147, 145)-(147, 147), C%, BF
    LINE (148, 145)-(148, 150), C%, BF: LINE (147, 152)-(150, 152), C%, BF
    LINE (153, 144)-(153, 148), C%, BF: LINE (154, 144)-(154, 150), C%, BF
    LINE (153, 152)-(155, 152), C%, BF: LINE (156, 146)-(156, 152), C%, BF
    GET (140, 144)-(163, 168), G&
    Chiffre = "GUIL": GOSUB FICHIER
' ** Plus
    LINE (30, 197)-(53, 221), F%, BF
    LINE (40, 204)-(41, 218), C%, BF: LINE (34, 211)-(47, 212), C%, BF
    LINE (35, 213)-(39, 213), C%, BF: LINE (43, 206)-(43, 220), C%, BF
    LINE (41, 220)-(41, 221), C%, BF: LINE (44, 206)-(44, 220), C%, BF
    LINE (45, 213)-(49, 213), C%, BF: LINE (49, 211)-(49, 212), C%, BF
    GET (30, 197)-(53, 221), G&
    Chiffre = "PLUS": GOSUB FICHIER
' ** Moins
    LINE (65, 197)-(88, 221), F%, BF
    LINE (71, 211)-(79, 211), C%, BF: LINE (72, 212)-(80, 212), C%, BF
    LINE (74, 214)-(82, 214), C%, BF: LINE (82, 211)-(82, 213), C%, BF
    GET (65, 197)-(88, 221), G&
    Chiffre = "Moins": GOSUB FICHIER
' ** Degr‚
    LINE (97, 197)-(120, 221), F%, BF
    LINE (107, 200)-(109, 200), C%, BF: LINE (105, 201)-(111, 201), C%, BF
    LINE (104, 202)-(106, 202), C%, BF: LINE (110, 202)-(112, 202), C%, BF
    LINE (104, 203)-(104, 208), C%, BF: LINE (103, 204)-(103, 206), C%, BF
    LINE (112, 203)-(112, 207), C%, BF: LINE (113, 204)-(113, 207), C%, BF
    LINE (105, 208)-(106, 208), C%, BF: LINE (110, 208)-(112, 208), C%, BF
    LINE (105, 209)-(111, 209), C%, BF: LINE (107, 210)-(109, 210), C%, BF
    LINE (115, 204)-(115, 207), C%, BF
    GET (97, 197)-(120, 221), G&
    Chiffre = "degre": GOSUB FICHIER
' ** Heure & Point
    LINE (129, 197)-(152, 221), F%, BF
    LINE (137, 197)-(137, 206), C%, BF: LINE (138, 198)-(138, 207), C%, BF
    LINE (139, 201)-(141, 202), C%, BF: LINE (142, 197)-(142, 206), C%, BF
    LINE (143, 198)-(143, 207), C%, BF: LINE (145, 198)-(145, 207), C%, BF
    LINE (138, 217)-(141, 219), C%, BF: LINE (137, 218)-(137, 218), C%, BF
    LINE (139, 216)-(140, 216), C%, BF: LINE (139, 220)-(140, 220), C%, BF
    LINE (142, 217)-(142, 218), C%, BF: LINE (144, 217)-(144, 218), C%, BF
    GET (129, 197)-(152, 221), G&
    Chiffre = "H_et_P": GOSUB FICHIER
' ***** CONTROLE DU RESULTAT *****                  
    DIM Ch0&(110), Ch1&(110), Ch2&(110), Ch3&(110), Ch4&(110)
    DIM Ch5&(110), Ch6&(110), Ch7&(110), Ch8&(110), Ch9&(110)
    DIM Poin&(110), Virgule&(110), Apostrophe&(110), Guillemet&(110)
    DIM Plus&(110), Moins&(110), Degre&(110), Heure.et.Point&(110)
    OPEN "C:\ALPHABET\CH_25X24\C!0.LET" FOR INPUT AS #1
    FOR I% = 1 TO 110: INPUT #1, Ch0&(I%): NEXT I%: CLOSE
    OPEN "C:\ALPHABET\CH_25X24\C!1.LET" FOR INPUT AS #1
    FOR I% = 1 TO 110: INPUT #1, Ch1&(I%): NEXT I%: CLOSE
    OPEN "C:\ALPHABET\CH_25X24\C!2.LET" FOR INPUT AS #1
    FOR I% = 1 TO 110: INPUT #1, Ch2&(I%): NEXT I%: CLOSE
    OPEN "C:\ALPHABET\CH_25X24\C!3.LET" FOR INPUT AS #1
    FOR I% = 1 TO 110: INPUT #1, Ch3&(I%): NEXT I%: CLOSE
    OPEN "C:\ALPHABET\CH_25X24\C!4.LET" FOR INPUT AS #1
    FOR I% = 1 TO 110: INPUT #1, Ch4&(I%): NEXT I%: CLOSE
    OPEN "C:\ALPHABET\CH_25X24\C!5.LET" FOR INPUT AS #1
    FOR I% = 1 TO 110: INPUT #1, Ch5&(I%): NEXT I%: CLOSE
    OPEN "C:\ALPHABET\CH_25X24\C!6.LET" FOR INPUT AS #1
    FOR I% = 1 TO 110: INPUT #1, Ch6&(I%): NEXT I%: CLOSE
    OPEN "C:\ALPHABET\CH_25X24\C!7.LET" FOR INPUT AS #1
    FOR I% = 1 TO 110: INPUT #1, Ch7&(I%): NEXT I%: CLOSE
    OPEN "C:\ALPHABET\CH_25X24\C!8.LET" FOR INPUT AS #1
    FOR I% = 1 TO 110: INPUT #1, Ch8&(I%): NEXT I%: CLOSE
    OPEN "C:\ALPHABET\CH_25X24\C!9.LET" FOR INPUT AS #1
    FOR I% = 1 TO 110: INPUT #1, Ch9&(I%): NEXT I%: CLOSE
    OPEN "C:\ALPHABET\CH_25X24\C!POINT.LET" FOR INPUT AS #1
    FOR I% = 1 TO 110: INPUT #1, Poin&(I%): NEXT I%: CLOSE
    OPEN "C:\ALPHABET\CH_25X24\C!VIRG.LET" FOR INPUT AS #1
    FOR I% = 1 TO 110: INPUT #1, Virgule&(I%): NEXT I%: CLOSE
    OPEN "C:\ALPHABET\CH_25X24\C!APOST.LET" FOR INPUT AS #1
    FOR I% = 1 TO 110: INPUT #1, Apostrophe&(I%): NEXT I%: CLOSE
    OPEN "C:\ALPHABET\CH_25X24\C!GUIL.LET" FOR INPUT AS #1
    FOR I% = 1 TO 110: INPUT #1, Guillemet&(I%): NEXT I%: CLOSE
    'FOR I% = 1 TO 110: PRINT I%; Guillemet&(I%): NEXT
    OPEN "C:\ALPHABET\CH_25X24\C!PLUS.LET" FOR INPUT AS #1
    FOR I% = 1 TO 110: INPUT #1, Plus&(I%): NEXT I%: CLOSE
    OPEN "C:\ALPHABET\CH_25X24\C!MOINS.LET" FOR INPUT AS #1
    FOR I% = 1 TO 110: INPUT #1, Moins&(I%): NEXT I%: CLOSE
    OPEN "C:\ALPHABET\CH_25X24\C!DEGRE.LET" FOR INPUT AS #1
    FOR I% = 1 TO 110: INPUT #1, Degre&(I%): NEXT I%: CLOSE
    OPEN "C:\ALPHABET\CH_25X24\C!H_et_P.LET" FOR INPUT AS #1
    FOR I% = 1 TO 110: INPUT #1, Heure.et.Point&(I%): NEXT I%: CLOSE
    LOCATE 17, 10: COLOR 14: PRINT "CONTROLE des 'PUT' … partir des Fichiers"
    Yp% = 300: Xp% = 10: DX% = 25
    Xp% = Xp% + DX%: PUT (Xp%, Yp%), Ch0&, PSET
    Xp% = Xp% + DX%: PUT (Xp%, Yp%), Ch1&, PSET
    Xp% = Xp% + DX%: PUT (Xp%, Yp%), Ch2&, PSET
    Xp% = Xp% + DX%: PUT (Xp%, Yp%), Ch3&, PSET
    Xp% = Xp% + DX%: PUT (Xp%, Yp%), Ch4&, PSET
    Xp% = Xp% + DX%: PUT (Xp%, Yp%), Ch5&, PSET
    Xp% = Xp% + DX%: PUT (Xp%, Yp%), Ch6&, PSET
    Xp% = Xp% + DX%: PUT (Xp%, Yp%), Ch7&, PSET
    Xp% = Xp% + DX%: PUT (Xp%, Yp%), Ch8&, PSET
    Xp% = Xp% + DX%: PUT (Xp%, Yp%), Ch9&, PSET
    Yp% = 350: Xp% = 10
    Xp% = Xp% + DX%: PUT (Xp%, Yp%), Poin&, PSET
    Xp% = Xp% + DX%: PUT (Xp%, Yp%), Virgule&, PSET
    Xp% = Xp% + DX%: PUT (Xp%, Yp%), Apostrophe&, PSET
    Xp% = Xp% + DX%: PUT (Xp%, Yp%), Guillemet&, PSET
    Xp% = Xp% + DX%: PUT (Xp%, Yp%), Plus&, PSET
    Xp% = Xp% + DX%: PUT (Xp%, Yp%), Moins&, PSET
    Xp% = Xp% + DX%: PUT (Xp%, Yp%), Degre&, PSET
    Xp% = Xp% + DX%: PUT (Xp%, Yp%), Heure.et.Point&, PSET
    SLEEP: COLOR 15: END

FICHIER: ' ***** Cr‚ation des fichiers "DATA"
    OPEN ACCES + "C!" + Chiffre + ".LET" FOR OUTPUT AS #1
    FOR I% = 1 TO 110: WRITE #1, G&(I%): NEXT I%
    CLOSE : RETURN

E99.ERREUR: ' *** Les R‚pertoires existants ne PEUVENT ETRE CREES ***
    IF Etape% = 1 AND ERR = 75 THEN
        RESUME NEXT
    ELSE
        LOCATE 30, 10: COLOR 10: PRINT USING "ERREUR : ### ???"; ERR
        SLEEP: COLOR 15: END
    END IF