home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freelog 45
/
Freelog045.iso
/
Endirect
/
Clavier
/
clavierC
/
prog
/
NIV1.BAS
< prev
next >
Wrap
BASIC Source File
|
2002-04-10
|
20KB
|
436 lines
10 CLS
FOR b = 1 TO 20
SCREEN 12
LINE (1, 500)-(650, 1), 1, BF
LINE (20, 460)-(615, 20), 0, BF
COLOR 4: LOCATE 3, 35: PRINT "NIVEAU I"
COLOR 15: LINE (90, 150)-(60, 120), , B: LINE (130, 150)-(100, 120), , B
LOCATE 9, 10: PRINT "A": LOCATE 9, 15: PRINT "Z"
LINE (170, 150)-(140, 120), , B: LINE (210, 150)-(180, 120), , B
LOCATE 9, 20: PRINT "E": LOCATE 9, 25: PRINT "R"
LINE (250, 150)-(220, 120), , B: LINE (290, 150)-(260, 120), , B
LOCATE 9, 30: PRINT "T": LOCATE 9, 35: PRINT "Y"
LINE (330, 150)-(300, 120), , B: LINE (370, 150)-(340, 120), , B
LOCATE 9, 40: PRINT "U": LOCATE 9, 45: PRINT "I"
LINE (410, 150)-(380, 120), , B: LINE (450, 150)-(420, 120), , B
LOCATE 9, 50: PRINT "O": LOCATE 9, 55: PRINT "P"
LINE (490, 150)-(460, 120), , B: LINE (540, 150)-(500, 120), , B
LOCATE 9, 60: PRINT "^∙": LOCATE 9, 65: PRINT "$£╧"
LINE (98, 198)-(68, 168), , B: LINE (138, 198)-(108, 168), , B
LOCATE 12, 11: PRINT "Q": LOCATE 12, 16: PRINT "S"
LINE (178, 198)-(148, 168), , B: LINE (218, 198)-(188, 168), , B
LOCATE 12, 21: PRINT "D": LOCATE 12, 26: PRINT "F"
LINE (258, 198)-(228, 168), , B: LINE (298, 198)-(268, 168), , B
LOCATE 12, 31: PRINT "G": LOCATE 12, 36: PRINT "H"
LINE (338, 198)-(308, 168), , B: LINE (378, 198)-(348, 168), , B
LOCATE 12, 41: PRINT "J": LOCATE 12, 46: PRINT "K"
LINE (418, 198)-(388, 168), , B: LINE (458, 198)-(428, 168), , B
LOCATE 12, 51: PRINT "L": LOCATE 12, 56: PRINT "M"
LINE (498, 198)-(468, 168), , B: LINE (548, 198)-(508, 168), , B
LOCATE 12, 61: PRINT "%ù": LOCATE 12, 66: PRINT "µ*"
LINE (76, 245)-(106, 214), , B: LINE (116, 245)-(146, 214), , B
LOCATE 15, 12: PRINT "W": LOCATE 15, 17: PRINT "X"
LINE (156, 245)-(186, 214), , B: LINE (196, 245)-(226, 214), , B
LOCATE 15, 22: PRINT "C": LOCATE 15, 27: PRINT "V"
LINE (236, 245)-(266, 214), , B: LINE (276, 245)-(306, 214), , B
LOCATE 15, 32: PRINT "B": LOCATE 15, 37: PRINT "N"
LINE (316, 245)-(346, 214), , B: LINE (356, 245)-(386, 214), , B
LOCATE 15, 42: PRINT "?,": LOCATE 15, 47: PRINT ".;"
LINE (396, 245)-(426, 214), , B: LINE (436, 245)-(466, 214), , B
LOCATE 15, 52: PRINT "/:": LOCATE 15, 57: PRINT "⌡!"
LINE (140, 292)-(360, 262), , B: LOCATE 18, 29: PRINT "ESPACE"
LINE (555, 120)-(590, 215), , B
LOCATE 9, 72: PRINT "E": LOCATE 10, 72: PRINT "N": LOCATE 11, 72: PRINT "T"
LOCATE 12, 72: PRINT "E": LOCATE 13, 72: PRINT "R"
RANDOMIZE TIMER
a = INT(RND * 15) + 1
IF a = 1 THEN
LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "maison": PRINT a$
DO
LOOP UNTIL INKEY$ = CHR$(109): LOCATE 12, 56: COLOR 4: PRINT "M": SLEEP 1: COLOR 15: LOCATE 12, 56: PRINT "M"
LOCATE 20, 38: COLOR 4: PRINT "M"
DO
LOOP UNTIL INKEY$ = CHR$(97): LOCATE 9, 10: COLOR 4: PRINT "A": SLEEP 1: COLOR 15: LOCATE 9, 10: PRINT "A"
LOCATE 20, 39: COLOR 4: PRINT "A"
DO
LOOP UNTIL INKEY$ = CHR$(105): LOCATE 9, 45: COLOR 4: PRINT "I": SLEEP 1: COLOR 15: LOCATE 9, 45: PRINT "I"
LOCATE 20, 40: COLOR 4: PRINT "I"
DO
LOOP UNTIL INKEY$ = CHR$(115): LOCATE 12, 16: COLOR 4: PRINT "S": SLEEP 1: COLOR 15: LOCATE 12, 16: PRINT "S"
LOCATE 20, 41: COLOR 4: PRINT "S"
DO
LOOP UNTIL INKEY$ = CHR$(111): LOCATE 9, 50: COLOR 4: PRINT "O": SLEEP 1: COLOR 15: LOCATE 9, 50: PRINT "O"
LOCATE 20, 42: COLOR 4: PRINT "O"
DO
LOOP UNTIL INKEY$ = CHR$(110): LOCATE 15, 37: COLOR 4: PRINT "N": SLEEP 1: COLOR 15: LOCATE 15, 37: PRINT "N"
LOCATE 20, 43: COLOR 4: PRINT "N"
LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
SLEEP 2
END IF
IF a = 2 THEN
COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "fleur": PRINT a$
DO
LOOP UNTIL INKEY$ = CHR$(102): LOCATE 12, 26: COLOR 4: PRINT "F": SLEEP 1: COLOR 15: LOCATE 12, 26: PRINT "F"
LOCATE 20, 38: COLOR 4: PRINT "F"
DO
LOOP UNTIL INKEY$ = CHR$(108): LOCATE 12, 51: COLOR 4: PRINT "L": SLEEP 1: COLOR 15: LOCATE 12, 51: PRINT "L"
LOCATE 20, 39: COLOR 4: PRINT "L"
DO
LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
LOCATE 20, 40: COLOR 4: PRINT "E"
DO
LOOP UNTIL INKEY$ = CHR$(117): LOCATE 9, 40: COLOR 4: PRINT "U": SLEEP 1: COLOR 15: LOCATE 9, 40: PRINT "U"
LOCATE 20, 41: COLOR 4: PRINT "U"
DO
LOOP UNTIL INKEY$ = CHR$(114): LOCATE 9, 25: COLOR 4: PRINT "R": SLEEP 1: COLOR 15: LOCATE 9, 25: PRINT "R"
LOCATE 20, 42: COLOR 4: PRINT "R"
LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
SLEEP 2
END IF
IF a = 3 THEN
COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "automobile": PRINT a$
DO
LOOP UNTIL INKEY$ = CHR$(97): LOCATE 9, 10: COLOR 4: PRINT "A": SLEEP 1: COLOR 15: LOCATE 9, 10: PRINT "A"
LOCATE 20, 38: COLOR 4: PRINT "A"
DO
LOOP UNTIL INKEY$ = CHR$(117): LOCATE 9, 40: COLOR 4: PRINT "U": SLEEP 1: COLOR 15: LOCATE 9, 40: PRINT "U"
LOCATE 20, 39: COLOR 4: PRINT "U"
DO
LOOP UNTIL INKEY$ = CHR$(116): LOCATE 9, 30: COLOR 4: PRINT "T": SLEEP 1: COLOR 15: LOCATE 9, 30: PRINT "T"
LOCATE 20, 40: COLOR 4: PRINT "T"
DO
LOOP UNTIL INKEY$ = CHR$(111): LOCATE 9, 50: COLOR 4: PRINT "O": SLEEP 1: COLOR 15: LOCATE 9, 50: PRINT "O"
LOCATE 20, 41: COLOR 4: PRINT "O"
DO
LOOP UNTIL INKEY$ = CHR$(109): LOCATE 12, 56: COLOR 4: PRINT "M": SLEEP 1: COLOR 15: LOCATE 12, 56: PRINT "M"
LOCATE 20, 42: COLOR 4: PRINT "M"
DO
LOOP UNTIL INKEY$ = CHR$(111): LOCATE 9, 50: COLOR 4: PRINT "O": SLEEP 1: COLOR 15: LOCATE 9, 50: PRINT "O"
LOCATE 20, 43: COLOR 4: PRINT "O"
DO
LOOP UNTIL INKEY$ = CHR$(98): LOCATE 15, 32: COLOR 4: PRINT "B": SLEEP 1: COLOR 15: LOCATE 15, 32: PRINT "B"
LOCATE 20, 44: COLOR 4: PRINT "B"
DO
LOOP UNTIL INKEY$ = CHR$(105): LOCATE 9, 45: COLOR 4: PRINT "I": SLEEP 1: COLOR 15: LOCATE 9, 45: PRINT "I"
LOCATE 20, 45: COLOR 4: PRINT "I"
DO
LOOP UNTIL INKEY$ = CHR$(108): LOCATE 12, 51: COLOR 4: PRINT "L": SLEEP 1: COLOR 15: LOCATE 12, 51: PRINT "L"
LOCATE 20, 46: COLOR 4: PRINT "L"
DO
LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
LOCATE 20, 47: COLOR 4: PRINT "E"
LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
SLEEP 2
END IF
IF a = 4 THEN
COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "chemin": PRINT a$
DO
LOOP UNTIL INKEY$ = CHR$(99): LOCATE 15, 22: COLOR 4: PRINT "C": SLEEP 1: COLOR 15: LOCATE 15, 22: PRINT "C"
LOCATE 20, 38: COLOR 4: PRINT "C"
DO
LOOP UNTIL INKEY$ = CHR$(104): LOCATE 12, 36: COLOR 4: PRINT "H": SLEEP 1: COLOR 15: LOCATE 12, 36: PRINT "H"
LOCATE 20, 39: COLOR 4: PRINT "H"
DO
LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
LOCATE 20, 40: COLOR 4: PRINT "E"
DO
LOOP UNTIL INKEY$ = CHR$(109): LOCATE 12, 56: COLOR 4: PRINT "M": SLEEP 1: COLOR 15: LOCATE 12, 56: PRINT "M"
LOCATE 20, 41: COLOR 4: PRINT "M"
DO
LOOP UNTIL INKEY$ = CHR$(105): LOCATE 9, 45: COLOR 4: PRINT "I": SLEEP 1: COLOR 15: LOCATE 9, 45: PRINT "I"
LOCATE 20, 42: COLOR 4: PRINT "I"
DO
LOOP UNTIL INKEY$ = CHR$(110): LOCATE 15, 37: COLOR 4: PRINT "N": SLEEP 1: COLOR 15: LOCATE 15, 37: PRINT "N"
LOCATE 20, 43: COLOR 4: PRINT "N"
LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
SLEEP 2
END IF
IF a = 5 THEN
COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "wagon": PRINT a$
DO
LOOP UNTIL INKEY$ = CHR$(119): LOCATE 15, 12: COLOR 4: PRINT "W": SLEEP 1: COLOR 15: LOCATE 15, 12: PRINT "W"
LOCATE 20, 38: COLOR 4: PRINT "W"
DO
LOOP UNTIL INKEY$ = CHR$(97): LOCATE 9, 10: COLOR 4: PRINT "A": SLEEP 1: COLOR 15: LOCATE 9, 10: PRINT "A"
LOCATE 20, 39: COLOR 4: PRINT "A"
DO
LOOP UNTIL INKEY$ = CHR$(103): LOCATE 12, 31: COLOR 4: PRINT "G": SLEEP 1: COLOR 15: LOCATE 12, 31: PRINT "G"
LOCATE 20, 40: COLOR 4: PRINT "G"
DO
LOOP UNTIL INKEY$ = CHR$(111): LOCATE 9, 50: COLOR 4: PRINT "O": SLEEP 1: COLOR 15: LOCATE 9, 50: PRINT "O"
LOCATE 20, 41: COLOR 4: PRINT "O"
DO
LOOP UNTIL INKEY$ = CHR$(110): LOCATE 15, 37: COLOR 4: PRINT "N": SLEEP 1: COLOR 15: LOCATE 15, 37: PRINT "N"
LOCATE 20, 42: COLOR 4: PRINT "N"
LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
SLEEP 2
END IF
IF a = 6 THEN
COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "marche": PRINT a$
DO
LOOP UNTIL INKEY$ = CHR$(109): LOCATE 12, 56: COLOR 4: PRINT "M": SLEEP 1: COLOR 15: LOCATE 12, 56: PRINT "M"
LOCATE 20, 38: COLOR 4: PRINT "M"
DO
LOOP UNTIL INKEY$ = CHR$(97): LOCATE 9, 10: COLOR 4: PRINT "A": SLEEP 1: COLOR 15: LOCATE 9, 10: PRINT "A"
LOCATE 20, 39: COLOR 4: PRINT "A"
DO
LOOP UNTIL INKEY$ = CHR$(114): LOCATE 9, 25: COLOR 4: PRINT "R": SLEEP 1: COLOR 15: LOCATE 9, 25: PRINT "R"
LOCATE 20, 40: COLOR 4: PRINT "R"
DO
LOOP UNTIL INKEY$ = CHR$(99): LOCATE 15, 22: COLOR 4: PRINT "C": SLEEP 1: COLOR 15: LOCATE 15, 22: PRINT "C"
LOCATE 20, 41: COLOR 4: PRINT "C"
DO
LOOP UNTIL INKEY$ = CHR$(104): LOCATE 12, 36: COLOR 4: PRINT "H": SLEEP 1: COLOR 15: LOCATE 12, 36: PRINT "H"
LOCATE 20, 42: COLOR 4: PRINT "H"
DO
LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
LOCATE 20, 43: COLOR 4: PRINT "E"
LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
SLEEP 2
END IF
IF a = 7 THEN
COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "couteau": PRINT a$
DO
LOOP UNTIL INKEY$ = CHR$(99): LOCATE 15, 22: COLOR 4: PRINT "C": SLEEP 1: COLOR 15: LOCATE 15, 22: PRINT "C"
LOCATE 20, 38: COLOR 4: PRINT "C"
DO
LOOP UNTIL INKEY$ = CHR$(111): LOCATE 9, 50: COLOR 4: PRINT "O": SLEEP 1: COLOR 15: LOCATE 9, 50: PRINT "O"
LOCATE 20, 39: COLOR 4: PRINT "O"
DO
LOOP UNTIL INKEY$ = CHR$(117): LOCATE 9, 40: COLOR 4: PRINT "U": SLEEP 1: COLOR 15: LOCATE 9, 40: PRINT "U"
LOCATE 20, 40: COLOR 4: PRINT "U"
DO
LOOP UNTIL INKEY$ = CHR$(116): LOCATE 9, 30: COLOR 4: PRINT "T": SLEEP 1: COLOR 15: LOCATE 9, 30: PRINT "T"
LOCATE 20, 41: COLOR 4: PRINT "T"
DO
LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
LOCATE 20, 42: COLOR 4: PRINT "E"
DO
LOOP UNTIL INKEY$ = CHR$(97): LOCATE 9, 10: COLOR 4: PRINT "A": SLEEP 1: COLOR 15: LOCATE 9, 10: PRINT "A"
LOCATE 20, 43: COLOR 4: PRINT "A"
DO
LOOP UNTIL INKEY$ = CHR$(117): LOCATE 9, 40: COLOR 4: PRINT "U": SLEEP 1: COLOR 15: LOCATE 9, 40: PRINT "U"
LOCATE 20, 44: COLOR 4: PRINT "U"
LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
SLEEP 2
END IF
IF a = 8 THEN
COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "chien": PRINT a$
DO
LOOP UNTIL INKEY$ = CHR$(99): LOCATE 15, 22: COLOR 4: PRINT "C": SLEEP 1: COLOR 15: LOCATE 15, 22: PRINT "C"
LOCATE 20, 38: COLOR 4: PRINT "C"
DO
LOOP UNTIL INKEY$ = CHR$(104): LOCATE 12, 36: COLOR 4: PRINT "H": SLEEP 1: COLOR 15: LOCATE 12, 36: PRINT "H"
LOCATE 20, 39: COLOR 4: PRINT "H"
DO
LOOP UNTIL INKEY$ = CHR$(105): LOCATE 9, 45: COLOR 4: PRINT "I": SLEEP 1: COLOR 15: LOCATE 9, 45: PRINT "I"
LOCATE 20, 40: COLOR 4: PRINT "I"
DO
LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
LOCATE 20, 41: COLOR 4: PRINT "E"
DO
LOOP UNTIL INKEY$ = CHR$(110): LOCATE 15, 37: COLOR 4: PRINT "N": SLEEP 1: COLOR 15: LOCATE 15, 37: PRINT "N"
LOCATE 20, 42: COLOR 4: PRINT "N"
LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
SLEEP 2
END IF
IF a = 9 THEN
COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "assiette": PRINT a$
DO
LOOP UNTIL INKEY$ = CHR$(97): LOCATE 9, 10: COLOR 4: PRINT "A": SLEEP 1: COLOR 15: LOCATE 9, 10: PRINT "A"
LOCATE 20, 38: COLOR 4: PRINT "A"
DO
LOOP UNTIL INKEY$ = CHR$(115): LOCATE 12, 16: COLOR 4: PRINT "S": SLEEP 1: COLOR 15: LOCATE 12, 16: PRINT "S"
LOCATE 20, 39: COLOR 4: PRINT "S"
DO
LOOP UNTIL INKEY$ = CHR$(115): LOCATE 12, 16: COLOR 4: PRINT "S": SLEEP 1: COLOR 15: LOCATE 12, 16: PRINT "S"
LOCATE 20, 40: COLOR 4: PRINT "S"
DO
LOOP UNTIL INKEY$ = CHR$(105): LOCATE 9, 45: COLOR 4: PRINT "I": SLEEP 1: COLOR 15: LOCATE 9, 45: PRINT "I"
LOCATE 20, 41: COLOR 4: PRINT "I"
DO
LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
LOCATE 20, 42: COLOR 4: PRINT "E"
DO
LOOP UNTIL INKEY$ = CHR$(116): LOCATE 9, 30: COLOR 4: PRINT "T": SLEEP 1: COLOR 15: LOCATE 9, 30: PRINT "T"
LOCATE 20, 43: COLOR 4: PRINT "T"
DO
LOOP UNTIL INKEY$ = CHR$(116): LOCATE 9, 30: COLOR 4: PRINT "T": SLEEP 1: COLOR 15: LOCATE 9, 30: PRINT "T"
LOCATE 20, 44: COLOR 4: PRINT "T"
DO
LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
LOCATE 20, 45: COLOR 4: PRINT "E"
LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
SLEEP 2
END IF
IF a = 10 THEN
COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "elephant": PRINT a$
DO
LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
LOCATE 20, 38: COLOR 4: PRINT "E"
DO
LOOP UNTIL INKEY$ = CHR$(108): LOCATE 12, 51: COLOR 4: PRINT "L": SLEEP 1: COLOR 15: LOCATE 12, 51: PRINT "L"
LOCATE 20, 39: COLOR 4: PRINT "L"
DO
LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
LOCATE 20, 40: COLOR 4: PRINT "E"
DO
LOOP UNTIL INKEY$ = CHR$(112): LOCATE 9, 55: COLOR 4: PRINT "P": SLEEP 1: COLOR 15: LOCATE 9, 55: PRINT "P"
LOCATE 20, 41: COLOR 4: PRINT "P"
DO
LOOP UNTIL INKEY$ = CHR$(104): LOCATE 12, 36: COLOR 4: PRINT "H": SLEEP 1: COLOR 15: LOCATE 12, 36: PRINT "H"
LOCATE 20, 42: COLOR 4: PRINT "H"
DO
LOOP UNTIL INKEY$ = CHR$(97): LOCATE 9, 10: COLOR 4: PRINT "A": SLEEP 1: COLOR 15: LOCATE 9, 10: PRINT "A"
LOCATE 20, 43: COLOR 4: PRINT "A"
DO
LOOP UNTIL INKEY$ = CHR$(110): LOCATE 15, 37: COLOR 4: PRINT "N": SLEEP 1: COLOR 15: LOCATE 15, 37: PRINT "N"
LOCATE 20, 44: COLOR 4: PRINT "N"
DO
LOOP UNTIL INKEY$ = CHR$(116): LOCATE 9, 30: COLOR 4: PRINT "T": SLEEP 1: COLOR 15: LOCATE 9, 30: PRINT "T"
LOCATE 20, 45: COLOR 4: PRINT "T"
LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
SLEEP 2
END IF
IF a = 11 THEN
COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "chaise": PRINT a$
DO
LOOP UNTIL INKEY$ = CHR$(99): LOCATE 15, 22: COLOR 4: PRINT "C": SLEEP 1: COLOR 15: LOCATE 15, 22: PRINT "C"
LOCATE 20, 38: COLOR 4: PRINT "C"
DO
LOOP UNTIL INKEY$ = CHR$(104): LOCATE 12, 36: COLOR 4: PRINT "H": SLEEP 1: COLOR 15: LOCATE 12, 36: PRINT "H"
LOCATE 20, 39: COLOR 4: PRINT "H"
DO
LOOP UNTIL INKEY$ = CHR$(97): LOCATE 9, 10: COLOR 4: PRINT "A": SLEEP 1: COLOR 15: LOCATE 9, 10: PRINT "A"
LOCATE 20, 40: COLOR 4: PRINT "A"
DO
LOOP UNTIL INKEY$ = CHR$(105): LOCATE 9, 45: COLOR 4: PRINT "I": SLEEP 1: COLOR 15: LOCATE 9, 45: PRINT "I"
LOCATE 20, 41: COLOR 4: PRINT "I"
DO
LOOP UNTIL INKEY$ = CHR$(115): LOCATE 12, 16: COLOR 4: PRINT "S": SLEEP 1: COLOR 15: LOCATE 12, 16: PRINT "S"
LOCATE 20, 42: COLOR 4: PRINT "S"
DO
LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
LOCATE 20, 43: COLOR 4: PRINT "E"
LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
SLEEP 2
END IF
IF a = 12 THEN
COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "chat": PRINT a$
DO
LOOP UNTIL INKEY$ = CHR$(99): LOCATE 15, 22: COLOR 4: PRINT "C": SLEEP 1: COLOR 15: LOCATE 15, 22: PRINT "C"
LOCATE 20, 38: COLOR 4: PRINT "C"
DO
LOOP UNTIL INKEY$ = CHR$(104): LOCATE 12, 36: COLOR 4: PRINT "H": SLEEP 1: COLOR 15: LOCATE 12, 36: PRINT "H"
LOCATE 20, 39: COLOR 4: PRINT "H"
DO
LOOP UNTIL INKEY$ = CHR$(97): LOCATE 9, 10: COLOR 4: PRINT "A": SLEEP 1: COLOR 15: LOCATE 9, 10: PRINT "A"
LOCATE 20, 40: COLOR 4: PRINT "A"
DO
LOOP UNTIL INKEY$ = CHR$(116): LOCATE 9, 30: COLOR 4: PRINT "T": SLEEP 1: COLOR 15: LOCATE 9, 30: PRINT "T"
LOCATE 20, 41: COLOR 4: PRINT "T"
LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
SLEEP 2
END IF
IF a = 13 THEN
COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "montre": PRINT a$
DO
LOOP UNTIL INKEY$ = CHR$(109): LOCATE 12, 56: COLOR 4: PRINT "M": SLEEP 1: COLOR 15: LOCATE 12, 56: PRINT "M"
LOCATE 20, 38: COLOR 4: PRINT "M"
DO
LOOP UNTIL INKEY$ = CHR$(111): LOCATE 9, 50: COLOR 4: PRINT "O": SLEEP 1: COLOR 15: LOCATE 9, 50: PRINT "O"
LOCATE 20, 39: COLOR 4: PRINT "O"
DO
LOOP UNTIL INKEY$ = CHR$(110): LOCATE 15, 37: COLOR 4: PRINT "N": SLEEP 1: COLOR 15: LOCATE 15, 37: PRINT "N"
LOCATE 20, 40: COLOR 4: PRINT "N"
DO
LOOP UNTIL INKEY$ = CHR$(116): LOCATE 9, 30: COLOR 4: PRINT "T": SLEEP 1: COLOR 15: LOCATE 9, 30: PRINT "T"
LOCATE 20, 41: COLOR 4: PRINT "T"
DO
LOOP UNTIL INKEY$ = CHR$(114): LOCATE 9, 25: COLOR 4: PRINT "R": SLEEP 1: COLOR 15: LOCATE 9, 25: PRINT "R"
LOCATE 20, 42: COLOR 4: PRINT "R"
DO
LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
LOCATE 20, 43: COLOR 4: PRINT "E"
LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
SLEEP 2
END IF
IF a = 14 THEN
COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "table": PRINT a$
DO
LOOP UNTIL INKEY$ = CHR$(116): LOCATE 9, 30: COLOR 4: PRINT "T": SLEEP 1: COLOR 15: LOCATE 9, 30: PRINT "T"
LOCATE 20, 38: COLOR 4: PRINT "T"
DO
LOOP UNTIL INKEY$ = CHR$(97): LOCATE 9, 10: COLOR 4: PRINT "A": SLEEP 1: COLOR 15: LOCATE 9, 10: PRINT "A"
LOCATE 20, 39: COLOR 4: PRINT "A"
DO
LOOP UNTIL INKEY$ = CHR$(98): LOCATE 15, 32: COLOR 4: PRINT "B": SLEEP 1: COLOR 15: LOCATE 15, 32: PRINT "B"
LOCATE 20, 40: COLOR 4: PRINT "B"
DO
LOOP UNTIL INKEY$ = CHR$(108): LOCATE 12, 51: COLOR 4: PRINT "L": SLEEP 1: COLOR 15: LOCATE 12, 51: PRINT "L"
LOCATE 20, 41: COLOR 4: PRINT "L"
DO
LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
LOCATE 20, 42: COLOR 4: PRINT "E"
LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
SLEEP 2
END IF
IF a = 15 THEN
COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "gourmette": PRINT a$
DO
LOOP UNTIL INKEY$ = CHR$(103): LOCATE 12, 31: COLOR 4: PRINT "G": SLEEP 1: COLOR 15: LOCATE 12, 31: PRINT "G"
LOCATE 20, 38: COLOR 4: PRINT "G"
DO
LOOP UNTIL INKEY$ = CHR$(111): LOCATE 9, 50: COLOR 4: PRINT "O": SLEEP 1: COLOR 15: LOCATE 9, 50: PRINT "O"
LOCATE 20, 39: COLOR 4: PRINT "O"
DO
LOOP UNTIL INKEY$ = CHR$(117): LOCATE 9, 40: COLOR 4: PRINT "U": SLEEP 1: COLOR 15: LOCATE 9, 40: PRINT "U"
LOCATE 20, 40: COLOR 4: PRINT "U"
DO
LOOP UNTIL INKEY$ = CHR$(114): LOCATE 9, 25: COLOR 4: PRINT "R": SLEEP 1: COLOR 15: LOCATE 9, 25: PRINT "R"
LOCATE 20, 41: COLOR 4: PRINT "R"
DO
LOOP UNTIL INKEY$ = CHR$(109): LOCATE 12, 56: COLOR 4: PRINT "M": SLEEP 1: COLOR 15: LOCATE 12, 56: PRINT "M"
LOCATE 20, 42: COLOR 4: PRINT "M"
DO
LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
LOCATE 20, 43: COLOR 4: PRINT "E"
DO
LOOP UNTIL INKEY$ = CHR$(116): LOCATE 9, 30: COLOR 4: PRINT "T": SLEEP 1: COLOR 15: LOCATE 9, 30: PRINT "T"
LOCATE 20, 44: COLOR 4: PRINT "T"
DO
LOOP UNTIL INKEY$ = CHR$(116): LOCATE 9, 30: COLOR 4: PRINT "T": SLEEP 1: COLOR 15: LOCATE 9, 30: PRINT "T"
LOCATE 20, 45: COLOR 4: PRINT "T"
DO
LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
LOCATE 20, 46: COLOR 4: PRINT "E"
LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
SLEEP 2
END IF
IF b = 20 THEN
LOCATE 24, 25: INPUT "Veux tu refaire le niveau I (O/N)"; a$
END IF
IF a$ = "o" THEN GOTO 10
IF a$ = "n" THEN RUN "c:\clavierC\prog\nivII.bas"
NEXT