'*********************************
'*  Cr‚ation des CHIFFRES 18/25  *  C:\ALPHABET\ALPH1825\CH_18!25.BAS
'*********************************
    CLS : OPTION BASE 1: SCREEN 12
    DEFSTR A-Z: WIDTH 80, 30: ACCES = "C:\ALPHABET\ALPH1825\"
' *** Cr‚ation des R‚pertoires ***
    LOCATE 6, 5: COLOR 11: PRINT " Controle des 'PUT'"
    ON ERROR GOTO E99.ERREUR
    Etape% = 1
    MKDIR "C:\ALPHABET"
    MKDIR "C:\ALPHABET\ALPH1825"
    Etape% = 0
    DIM G&(76) ' Chiffres de 18/25
    K% = 0   ' Couleur cadre
    F% = 0   ' Couleur de fond
    C% = 10  ' Couleur du CHIFFRE (… changer selon vos pr‚f‚rences)
C0:  '*** 0 *****
    LINE (47, 38)-(64, 62), K%, B: LINE (48, 39)-(63, 61), F%, BF
    LINE (54, 40)-(57, 40), C%, BF: LINE (52, 41)-(54, 41), C%, BF
    LINE (57, 41)-(59, 41), C%, BF: LINE (51, 42)-(53, 58), C%, BF
    LINE (50, 44)-(50, 56), C%, BF: LINE (49, 46)-(49, 54), C%, BF
    LINE (58, 42)-(60, 58), C%, BF: LINE (61, 43)-(61, 56), C%, BF
    LINE (62, 46)-(62, 54), C%, BF: LINE (52, 59)-(54, 59), C%, BF
    LINE (57, 59)-(59, 59), C%, BF: LINE (54, 60)-(57, 60), C%, BF
    GET (47, 38)-(64, 62), G&
    X% = X% + 18: PUT (X%, 100), G&, PSET
    CHIFFRE = "0": GOSUB FICHIER
C1: '*** 1 *****
    LINE (70, 38)-(87, 62), K%, B: LINE (71, 39)-(86, 61), F%, BF
    LINE (75, 42)-(76, 42), C%, BF: LINE (73, 43)-(76, 43), C%, BF
    LINE (80, 40)-(81, 40), C%, BF: LINE (77, 41)-(81, 41), C%, BF
    LINE (77, 42)-(81, 60), C%, BF: LINE (74, 60)-(76, 60), C%, BF
    LINE (82, 59)-(82, 60), C%, BF: LINE (83, 60)-(84, 60), C%, BF
    GET (70, 38)-(87, 62), G&
    X% = X% + 18: PUT (X%, 100), G&, PSET
    CHIFFRE = "1": GOSUB FICHIER
C2: '*** 2 *****
    LINE (94, 38)-(111, 62), K%, B: LINE (95, 39)-(110, 61), F%, BF
    LINE (101, 40)-(105, 40), C%, BF: LINE (99, 41)-(106, 43), C%, BF
    LINE (98, 42)-(98, 44), C%, BF: LINE (97, 43)-(97, 45), C%, BF
    LINE (102, 44)-(103, 44), C%, BF: LINE (103, 45)-(103, 45), C%, BF
    LINE (107, 42)-(107, 43), C%, BF: LINE (104, 44)-(107, 49), C%, BF
    LINE (108, 43)-(108, 47), C%, BF: LINE (104, 50)-(106, 50), C%, BF
    LINE (103, 51)-(105, 52), C%, BF: LINE (102, 53)-(104, 53), C%, BF
    LINE (101, 54)-(103, 54), C%, BF: LINE (101, 55)-(102, 55), C%, BF
    LINE (100, 55)-(101, 56), C%, BF: LINE (99, 57)-(99, 57), C%, BF
    LINE (98, 58)-(99, 58), C%, BF: LINE (97, 59)-(99, 59), C%, BF
    LINE (96, 60)-(99, 60), C%, BF: LINE (100, 57)-(108, 60), C%, BF
    LINE (108, 56)-(109, 56), C%, BF: LINE (109, 55)-(109, 55), C%, BF
    GET (94, 38)-(111, 62), G&
    X% = X% + 18: PUT (X%, 100), G&, PSET
    CHIFFRE = "2": GOSUB FICHIER
C3: '*** 3 *****
    LINE (118, 38)-(135, 62), K%, B: LINE (119, 39)-(134, 61), F%, BF
    LINE (121, 43)-(121, 43), C%, BF: LINE (122, 42)-(123, 42), C%, BF
    LINE (125, 40)-(130, 40), C%, BF: LINE (123, 41)-(131, 41), C%, BF
    LINE (127, 42)-(132, 42), C%, BF: LINE (128, 43)-(132, 44), C%, BF
    LINE (128, 45)-(131, 45), C%, BF: LINE (127, 46)-(129, 46), C%, BF
    LINE (126, 47)-(129, 47), C%, BF: LINE (124, 48)-(131, 48), C%, BF
    LINE (125, 49)-(132, 49), C%, BF: LINE (127, 50)-(127, 50), C%, BF
    LINE (128, 50)-(133, 52), C%, BF: LINE (129, 53)-(131, 58), C%, BF
    LINE (132, 53)-(133, 54), C%, BF: LINE (132, 55)-(132, 56), C%, BF
    LINE (128, 58)-(128, 58), C%, BF: LINE (121, 56)-(122, 56), C%, BF
    LINE (120, 57)-(123, 59), C%, BF: LINE (124, 58)-(124, 58), C%, BF
    LINE (124, 59)-(129, 59), C%, BF: LINE (122, 60)-(127, 60), C%, BF
    GET (118, 38)-(135, 62), G&
    X% = X% + 18: PUT (X%, 100), G&, PSET
    CHIFFRE = "3": GOSUB FICHIER
C4: '*** 4 *****
    LINE (143, 38)-(160, 62), K%, B: LINE (144, 39)-(159, 61), F%, BF
    LINE (145, 53)-(158, 55), C%, BF: LINE (152, 43)-(156, 60), C%, BF
    LINE (145, 52)-(145, 52), C%, BF: LINE (146, 51)-(146, 51), C%, BF
    LINE (147, 50)-(147, 50), C%, BF: LINE (148, 48)-(148, 49), C%, BF
    LINE (149, 47)-(149, 47), C%, BF: LINE (150, 46)-(150, 46), C%, BF
    LINE (151, 44)-(151, 45), C%, BF: LINE (153, 42)-(156, 42), C%, BF
    LINE (154, 40)-(156, 41), C%, BF
    GET (143, 38)-(160, 62), G&
    X% = X% + 18: PUT (X%, 100), G&, PSET
    CHIFFRE = "4": GOSUB FICHIER
C5: '*** 5 *****
    LINE (167, 38)-(184, 62), K%, B: LINE (168, 39)-(183, 61), F%, BF
    LINE (173, 40)-(180, 43), C%, BF: LINE (172, 41)-(172, 43), C%, BF
    LINE (181, 40)-(181, 42), C%, BF: LINE (182, 40)-(182, 40), C%, BF
    LINE (171, 44)-(171, 45), C%, BF: LINE (171, 46)-(175, 46), C%, BF
    LINE (170, 47)-(178, 50), C%, BF: LINE (169, 50)-(169, 50), C%, BF
    LINE (179, 48)-(179, 48), C%, BF: LINE (175, 51)-(177, 51), C%, BF
    LINE (178, 51)-(178, 52), C%, BF: LINE (179, 49)-(180, 53), C%, BF
    LINE (180, 54)-(180, 54), C%, BF: LINE (181, 50)-(181, 58), C%, BF
    LINE (182, 51)-(182, 56), C%, BF: LINE (180, 58)-(180, 58), C%, BF
    LINE (179, 59)-(180, 59), C%, BF: LINE (169, 57)-(173, 58), C%, BF
    LINE (170, 56)-(171, 56), C%, BF: LINE (174, 58)-(174, 58), C%, BF
    LINE (170, 59)-(175, 59), C%, BF: LINE (171, 60)-(178, 60), C%, BF
    GET (167, 38)-(184, 62), G&
    X% = X% + 18: PUT (X%, 100), G&, PSET
    CHIFFRE = "5": GOSUB FICHIER
C6: '*** 6 *****
    LINE (191, 38)-(208, 62), K%, B: LINE (192, 39)-(207, 61), F%, BF
    LINE (194, 47)-(197, 57), C%, BF: LINE (193, 50)-(193, 55), C%, BF
    LINE (195, 46)-(195, 46), C%, BF: LINE (196, 44)-(198, 46), C%, BF
    LINE (197, 43)-(200, 43), C%, BF: LINE (199, 42)-(199, 44), C%, BF
    LINE (200, 41)-(202, 42), C%, BF: LINE (203, 40)-(206, 40), C%, BF
    LINE (203, 41)-(204, 41), C%, BF: LINE (198, 47)-(198, 48), C%, BF
    LINE (199, 48)-(203, 48), C%, BF: LINE (201, 49)-(204, 49), C%, BF
    LINE (201, 50)-(205, 50), C%, BF: LINE (202, 51)-(206, 56), C%, BF
    LINE (202, 57)-(205, 58), C%, BF: LINE (195, 58)-(195, 58), C%, BF
    LINE (196, 58)-(197, 59), C%, BF: LINE (198, 57)-(198, 59), C%, BF
    LINE (201, 59)-(204, 59), C%, BF: LINE (198, 60)-(202, 60), C%, BF
    GET (191, 38)-(208, 62), G&
    X% = X% + 18: PUT (X%, 100), G&, PSET
    CHIFFRE = "6": GOSUB FICHIER
C7: '*** 7 *****
    LINE (214, 38)-(231, 62), K%, B: LINE (215, 39)-(230, 61), F%, BF
    LINE (217, 45)-(217, 45), C%, BF: LINE (217, 43)-(218, 44), C%, BF
    LINE (218, 40)-(229, 42), C%, BF: LINE (219, 43)-(226, 43), C%, BF
    LINE (227, 43)-(228, 45), C%, BF: LINE (226, 46)-(227, 48), C%, BF
    LINE (225, 49)-(226, 51), C%, BF: LINE (224, 52)-(225, 54), C%, BF
    LINE (223, 55)-(224, 57), C%, BF: LINE (222, 58)-(223, 60), C%, BF
    GET (214, 38)-(231, 62), G&
    X% = X% + 18: PUT (X%, 100), G&, PSET
    CHIFFRE = "7": GOSUB FICHIER
C8: '*** 8 *****
    LINE (239, 38)-(256, 62), K%, B: LINE (240, 39)-(255, 61), F%, BF
    LINE (245, 40)-(251, 40), C%, BF: LINE (243, 41)-(246, 41), C%, BF
    LINE (242, 42)-(245, 48), C%, BF: LINE (241, 43)-(241, 46), C%, BF
    LINE (246, 45)-(246, 45), C%, BF: LINE (246, 46)-(247, 46), C%, BF
    LINE (246, 47)-(248, 47), C%, BF: LINE (250, 41)-(252, 41), C%, BF
    LINE (251, 42)-(253, 42), C%, BF: LINE (251, 43)-(254, 46), C%, BF
    LINE (250, 47)-(253, 47), C%, BF: LINE (245, 48)-(251, 51), C%, BF
    LINE (243, 49)-(245, 49), C%, BF: LINE (245, 50)-(245, 51), C%, BF
    LINE (243, 52)-(245, 52), C%, BF: LINE (241, 54)-(241, 57), C%, BF
    LINE (242, 53)-(244, 58), C%, BF: LINE (243, 59)-(245, 59), C%, BF
    LINE (245, 60)-(250, 60), C%, BF: LINE (250, 52)-(252, 59), C%, BF
    LINE (247, 52)-(249, 52), C%, BF: LINE (248, 53)-(249, 53), C%, BF
    LINE (249, 54)-(249, 54), C%, BF: LINE (249, 59)-(249, 59), C%, BF
    LINE (252, 50)-(252, 51), C%, BF: LINE (253, 51)-(253, 58), C%, BF
    LINE (254, 53)-(254, 56), C%, BF
    GET (239, 38)-(256, 62), G&
    X% = X% + 18: PUT (X%, 100), G&, PSET
    CHIFFRE = "8": GOSUB FICHIER
C9: '*** 9 *****
    LINE (263, 38)-(280, 62), K%, B: LINE (264, 39)-(279, 61), F%, BF
    LINE (269, 40)-(273, 40), C%, BF: LINE (267, 41)-(270, 41), C%, BF
    LINE (266, 42)-(269, 50), C%, BF: LINE (265, 44)-(265, 49), C%, BF
    LINE (267, 51)-(267, 51), C%, BF: LINE (270, 50)-(270, 50), C%, BF
    LINE (268, 51)-(270, 52), C%, BF: LINE (273, 41)-(275, 43), C%, BF
    LINE (276, 42)-(276, 42), C%, BF: LINE (276, 43)-(277, 43), C%, BF
    LINE (274, 44)-(277, 53), C%, BF: LINE (278, 45)-(278, 51), C%, BF
    LINE (271, 52)-(273, 52), C%, BF: LINE (273, 53)-(273, 53), C%, BF
    LINE (273, 54)-(276, 55), C%, BF: LINE (272, 56)-(275, 56), C%, BF
    LINE (271, 57)-(274, 57), C%, BF: LINE (269, 58)-(272, 58), C%, BF
    LINE (267, 59)-(271, 59), C%, BF: LINE (265, 60)-(268, 60), C%, BF
    GET (263, 38)-(280, 62), G&
    X% = X% + 18: PUT (X%, 100), G&, PSET
    CHIFFRE = "9": GOSUB FICHIER
CV: '*** Point *****
    LINE (283, 38)-(300, 62), K%, B: LINE (284, 39)-(299, 61), F%, BF
    LINE (290, 56)-(293, 60), C%, BF: LINE (289, 57)-(294, 59), C%, BF
    GET (283, 38)-(300, 62), G&
    X% = X% + 18: PUT (X%, 100), G&, PSET
    CHIFFRE = "P": GOSUB FICHIER
CP: '*** Signe moins *****
    LINE (302, 38)-(319, 62), K%, B: LINE (302, 39)-(318, 61), F%, BF
    LINE (306, 52)-(315, 54), C%, BF
    GET (302, 38)-(319, 62), G&
    X% = X% + 18: PUT (X%, 100), G&, PSET
    CHIFFRE = "M": GOSUB FICHIER
    COLOR 15: END

FICHIER: CLOSE
    OPEN ACCES + "C_" + CHIFFRE + ".LET" FOR OUTPUT AS #1
    FOR I% = 1 TO 76: WRITE #1, G&(I%): NEXT I%
    RETURN

E99.ERREUR:
    IF Etape% = 1 AND ERR = 75 THEN
        RESUME NEXT
    ELSE
        LOCATE 30, 10: COLOR 10: PRINT USING "ERREUR : ### ???"; ERR
        COLOR 15: END
    END IF