'*********************************
'* CREATION 'PETIT' DICTIONNAIRE *       C:\DICO\CREADIC1.BAS
'*********************************
   
'â a circ
'ä a trema
'à a grave
'
'é e aigu
'ê e circ
'ë e trema
 
'è e grave
 
'î i circ
'ï i trema
 
'ô o circ
 
'ù u grave
 
    DIM M31 AS STRING * 31
   
    OPEN "C:\DICO\MOTS.TXT" FOR INPUT AS 1 ' 223 k
 
    OPEN "C:\DICO\DIC1.DIC" FOR RANDOM AS #2 LEN = 32
    FIELD 2, 31 AS E$, 1 AS S$
   
    CLS : E2! = 0
 
    Debut! = TIMER
   
    FOR I% = 1 TO 22740
       
        INPUT #1, M$: M31 = M$
 
        L% = L% + 1
        IF L% > 25 THEN
            L% = 1: 'SLEEP
        '    CLS
        END IF
       
        LOCATE L%, 2: COLOR 15
        PRINT USING "##### "; I%; : PRINT "*" + M31 + "*"
       
        IF I% = 2 THEN
            LOCATE 20, 1: PRINT ASC(MID$(M31, 7))
            SLEEP
        END IF
       
        p% = 0
       
        DO
            p% = INSTR(M31, "â")                ' a circ
            IF p% > 0 THEN MID$(M31, p%) = "ƒ"
        LOOP UNTIL p% = 0
 
        DO
            p% = INSTR(M31, "ä")                ' a trema
            IF p% > 0 THEN MID$(M31, p%) = "„"
        LOOP UNTIL p% = 0
       
        DO
            p% = INSTR(M31, "à")                ' a grave
            IF p% > 0 THEN MID$(M31, p%) = "†"
        LOOP UNTIL p% = 0
       
        DO
            p% = INSTR(M31, "é")                ' e aigu
            IF p% > 0 THEN MID$(M31, p%) = "‚"
        LOOP UNTIL p% = 0
       
        DO
            p% = INSTR(M31, CHR$(233))          ' e aigu
            IF p% > 0 THEN MID$(M31, p%) = "‚"
        LOOP UNTIL p% = 0
       
 
        DO
            p% = INSTR(M31, "ê")                ' e circ
            IF p% > 0 THEN MID$(M31, p%) = "ˆ"
        LOOP UNTIL p% = 0
 
        DO
            p% = INSTR(M31, "ë")                ' e trema
            IF p% > 0 THEN MID$(M31, p%) = "‰"
        LOOP UNTIL p% = 0
 
        DO
            p% = INSTR(M31, "è")                ' e grave
            IF p% > 0 THEN MID$(M31, p%) = "Š"
        LOOP UNTIL p% = 0
 
        DO
            p% = INSTR(M31, "î")                ' i circ
            IF p% > 0 THEN MID$(M31, p%) = "Œ"
        LOOP UNTIL p% = 0
 
        DO
            p% = INSTR(M31, "ï")                ' i trema
            IF p% > 0 THEN MID$(M31, p%) = "‹"
        LOOP UNTIL p% = 0
       
        DO
            p% = INSTR(M31, "ô")                ' o circ
            IF p% > 0 THEN MID$(M31, p%) = "“"
        LOOP UNTIL p% = 0
       
        DO
            p% = INSTR(M31, "ù")                ' u grave
            IF p% > 0 THEN MID$(M31, p%) = "—"
        LOOP UNTIL p% = 0
       
        LOCATE L%, 45: COLOR 11: PRINT "*" + M31 + "*"
       
        LSET E$ = M31: LSET S$ = " "
        E2! = E2! + 1: PUT 2, E2!
 
    NEXT I%
   
    LOCATE 10, 25: COLOR 11: PRINT "*" + M31 + "*"
    LOCATE 27, 10: PRINT USING "Ex‚cution en ###.##"; TIMER - Debut!