'*********************************
'*  Cr‚ation des CHIFFRES 13/16  *  C:\ALPHABET\ALPH1316\CH1316.BfAS
'*********************************
    CLS : OPTION BASE 1: SCREEN 12
    DEFSTR A-Z: ACCES = "C:\ALPHABET\ALPH1316\" ' *** R‚pertoire … CREER
    DIM G&(33) ' Chiffres de 13/16
    K% = 1   ' Couleur Fond (Modifiable)
    C% = 16  ' Couleur du CHIFFRE (Modifiable)
    X% = 96: Y% = 200
    LOCATE X% \ 8, (Y% - 1) \ 16: PRINT "--> Controle des PUT"
C0:  '*** 0 *****
    LINE (239, 34)-(251, 49), K%, BF
    LINE (244, 35)-(246, 35), C%, BF: LINE (243, 36)-(244, 36), C%, BF
    LINE (241, 39)-(241, 44), C%, BF: LINE (242, 37)-(243, 46), C%, BF
    LINE (243, 47)-(243, 47), C%, BF: LINE (247, 36)-(247, 47), C%, BF
    LINE (248, 37)-(248, 46), C%, BF: LINE (249, 39)-(249, 44), C%, BF
    LINE (244, 48)-(246, 48), C%, BF: GET (239, 34)-(251, 49), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    'FOR a% = 1 TO 100: PRINT a%; G&(a%): NEXT a%
    CHIFFRE = "0": GOSUB FICHIER
C1: '*** 1 *****
    LINE (50, 34)-(62, 49), K%, BF
    LINE (56, 35)-(57, 35), C%, BF: LINE (54, 36)-(57, 36), C%, BF
    LINE (53, 37)-(57, 37), C%, BF: LINE (55, 38)-(57, 47), C%, BF
    LINE (53, 48)-(59, 48), C%, BF: GET (50, 34)-(62, 49), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    CHIFFRE = "1": GOSUB FICHIER
C2: '*** 2 *****
    LINE (71, 34)-(83, 49), K%, BF: LINE (73, 37)-(73, 37), C%, BF
    LINE (73, 36)-(79, 36), C%, BF: LINE (75, 35)-(78, 35), C%, BF
    LINE (77, 37)-(77, 37), C%, BF: LINE (78, 37)-(80, 39), C%, BF
    LINE (78, 40)-(79, 41), C%, BF: LINE (77, 42)-(78, 42), C%, BF
    LINE (76, 43)-(77, 43), C%, BF: LINE (76, 44)-(76, 44), C%, BF
    LINE (75, 45)-(75, 45), C%, BF: LINE (81, 45)-(81, 45), C%, BF
    LINE (74, 46)-(81, 46), C%, BF: LINE (73, 47)-(80, 48), C%, BF
    GET (71, 34)-(83, 49), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    CHIFFRE = "2": GOSUB FICHIER
C3: '*** 3 *****
    LINE (92, 34)-(104, 49), K%, BF: LINE (97, 35)-(100, 35), C%, BF
    LINE (95, 36)-(101, 36), C%, BF: LINE (94, 37)-(95, 37), C%, BF
    LINE (98, 37)-(101, 37), C%, BF: LINE (99, 38)-(101, 38), C%, BF
    LINE (99, 39)-(100, 39), C%, BF: LINE (98, 40)-(99, 40), C%, BF
    LINE (97, 41)-(101, 41), C%, BF: LINE (98, 42)-(102, 42), C%, BF
    LINE (99, 43)-(102, 43), C%, BF: LINE (100, 44)-(102, 45), C%, BF
    LINE (100, 46)-(101, 46), C%, BF: LINE (99, 47)-(100, 47), C%, BF
    LINE (94, 46)-(95, 46), C%, BF: LINE (94, 47)-(96, 47), C%, BF
    LINE (95, 48)-(99, 48), C%, BF: GET (92, 34)-(104, 49), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    CHIFFRE = "3": GOSUB FICHIER
C4: '*** 4 *****
    LINE (113, 34)-(125, 49), K%, BF
    LINE (119, 38)-(119, 38), C%, BF: LINE (119, 39)-(118, 40), C%, BF
    LINE (117, 41)-(117, 41), C%, BF: LINE (116, 42)-(116, 42), C%, BF
    LINE (115, 43)-(115, 43), C%, BF: LINE (121, 35)-(122, 36), C%, BF
    LINE (120, 37)-(122, 48), C%, BF: LINE (115, 44)-(123, 45), C%, BF
    GET (113, 34)-(125, 49), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    CHIFFRE = "4": GOSUB FICHIER
C5: '*** 5 *****
    LINE (134, 34)-(146, 49), K%, BF
    LINE (139, 35)-(144, 35), C%, BF: LINE (144, 36)-(144, 36), C%, BF
    LINE (138, 36)-(143, 37), C%, BF: LINE (137, 38)-(137, 38), C%, BF
    LINE (136, 41)-(136, 41), C%, BF: LINE (137, 39)-(140, 41), C%, BF
    LINE (141, 40)-(142, 42), C%, BF: LINE (143, 41)-(143, 43), C%, BF
    LINE (144, 42)-(144, 46), C%, BF: LINE (143, 47)-(143, 47), C%, BF
    LINE (139, 47)-(139, 47), C%, BF: LINE (136, 46)-(138, 47), C%, BF
    LINE (137, 48)-(142, 48), C%, BF: GET (134, 34)-(146, 49), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    CHIFFRE = "5": GOSUB FICHIER
C6: '*** 6 *****
    LINE (155, 34)-(167, 49), K%, BF
    LINE (163, 35)-(165, 35), C%, BF: LINE (161, 36)-(163, 36), C%, BF
    LINE (161, 37)-(161, 37), C%, BF: LINE (159, 37)-(160, 40), C%, BF
    LINE (158, 39)-(158, 40), C%, BF: LINE (157, 41)-(159, 45), C%, BF
    LINE (161, 40)-(163, 40), C%, BF: LINE (162, 41)-(164, 41), C%, BF
    LINE (163, 42)-(165, 45), C%, BF: LINE (158, 46)-(159, 47), C%, BF
    LINE (160, 47)-(160, 47), C%, BF: LINE (163, 46)-(164, 47), C%, BF
    LINE (160, 48)-(163, 48), C%, BF: GET (155, 34)-(167, 49), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    CHIFFRE = "6": GOSUB FICHIER
C7: '*** 7 *****
    LINE (176, 34)-(188, 49), K%, BF
    LINE (179, 35)-(186, 36), C%, BF: LINE (179, 37)-(185, 35), C%, BF
    LINE (178, 38)-(179, 39), C%, BF: LINE (185, 38)-(185, 39), C%, BF
    LINE (184, 40)-(184, 42), C%, BF: LINE (183, 43)-(183, 44), C%, BF
    LINE (182, 45)-(182, 47), C%, BF: LINE (181, 48)-(181, 48), C%, BF
    GET (176, 34)-(188, 49), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    CHIFFRE = "7": GOSUB FICHIER
C8: '*** 8 *****
    LINE (197, 34)-(209, 49), K%, BF
    LINE (201, 35)-(205, 35), C%, BF: LINE (200, 36)-(202, 36), C%, BF
    LINE (205, 36)-(206, 36), C%, BF: LINE (199, 37)-(201, 39), C%, BF
    LINE (202, 39)-(202, 39), C%, BF: LINE (206, 37)-(207, 39), C%, BF
    LINE (200, 40)-(206, 40), C%, BF: LINE (201, 41)-(205, 41), C%, BF
    LINE (201, 42)-(206, 42), C%, BF: LINE (200, 43)-(201, 43), C%, BF
    LINE (204, 43)-(207, 43), C%, BF: LINE (199, 44)-(200, 46), C%, BF
    LINE (205, 44)-(207, 46), C%, BF: LINE (200, 47)-(201, 47), C%, BF
    LINE (204, 47)-(206, 47), C%, BF: LINE (201, 48)-(205, 48), C%, BF
    GET (197, 34)-(209, 49), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    CHIFFRE = "8": GOSUB FICHIER
C9: '*** 9 *****
    LINE (218, 34)-(230, 49), K%, BF
    LINE (222, 35)-(225, 35), C%, BF: LINE (221, 36)-(222, 36), C%, BF
    LINE (225, 36)-(227, 36), C%, BF: LINE (220, 37)-(222, 41), C%, BF
    LINE (226, 37)-(227, 44), C%, BF: LINE (228, 38)-(228, 42), C%, BF
    LINE (221, 42)-(223, 42), C%, BF: LINE (222, 43)-(225, 43), C%, BF
    LINE (225, 44)-(225, 44), C%, BF: LINE (225, 45)-(226, 46), C%, BF
    LINE (224, 46)-(224, 46), C%, BF: LINE (222, 47)-(224, 47), C%, BF
    LINE (220, 48)-(222, 48), C%, BF: GET (218, 34)-(230, 49), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    CHIFFRE = "9": GOSUB FICHIER
CP: '*** Point *****
    LINE (267, 34)-(279, 49), K%, BF
    LINE (272, 46)-(274, 48), C%, BF: GET (267, 34)-(279, 49), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    CHIFFRE = "P": GOSUB FICHIER
CM: '*** Signe moins *****
    LINE (293, 34)-(305, 49), K%, BF
    LINE (296, 44)-(302, 45), C%, BF: GET (293, 34)-(305, 49), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    CHIFFRE = "M": GOSUB FICHIER
MINUTE: '*** Signe ' *****
    LINE (320, 26)-(332, 41), K%, BF
    LINE (325, 28)-(327, 31), C%, BF: LINE (326, 32)-(326, 34), C%, BF
    GET (320, 26)-(332, 41), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    CHIFFRE = "MIN": GOSUB FICHIER
SECONDE: '*** Signe " *****
    LINE (339, 26)-(351, 41), K%, BF: LINE (342, 28)-(344, 31), C%, BF
    LINE (343, 32)-(343, 34), C%, BF: LINE (347, 28)-(349, 31), C%, BF
    LINE (348, 32)-(348, 34), C%, BF: GET (339, 26)-(351, 41), G&
    X% = X% + 13: PUT (X%, Y%), G&, PSET
    CHIFFRE = "SEC": GOSUB FICHIER
    END
FICHIER: OPEN ACCES + "C_" + CHIFFRE + ".LET" FOR OUTPUT AS #1
    FOR I% = 1 TO 33: WRITE #1, G&(I%): NEXT I%
    CLOSE : RETURN