home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freelog 45
/
Freelog045.iso
/
Endirect
/
Clavier
/
clavier
/
prog
/
NIVII.BAS
< prev
next >
Wrap
BASIC Source File
|
2002-04-10
|
17KB
|
501 lines
10 CLS
SCREEN 12
FOR b = 1 TO 5
LINE (1, 500)-(650, 1), 1, BF
LINE (20, 460)-(615, 20), 0, BF
COLOR 4: LOCATE 3, 35: PRINT "NIVEAU II"
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 * 3) + 1
IF a = 1 THEN
COLOR 15: LOCATE 25, 30: PRINT "Tape la phrase suivante :": LOCATE 27, 30: COLOR 14: a$ = "je me penche pour la voir": PRINT a$
DO
c = 106: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 12, 41: PRINT "J"
SLEEP 1: COLOR 15: LOCATE 12, 41: PRINT "J"
COLOR 4: LOCATE 20, 28: PRINT "J"
DO
c = 101: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 20: PRINT "E"
SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
COLOR 4: LOCATE 20, 29: PRINT "E"
DO
c = 32: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 18, 29: PRINT "ESPACE"
SLEEP 1: COLOR 15: LOCATE 18, 29: PRINT "ESPACE"
DO
c = 109: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 12, 56: PRINT "M"
SLEEP 1: COLOR 15: LOCATE 12, 56: PRINT "M"
COLOR 4: LOCATE 20, 31: PRINT "M"
DO
c = 101: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 20: PRINT "E"
SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
COLOR 4: LOCATE 20, 32: PRINT "E"
DO
c = 32: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 18, 29: PRINT "ESPACE"
SLEEP 1: COLOR 15: LOCATE 18, 29: PRINT "ESPACE"
DO
c = 112: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 55: PRINT "P"
SLEEP 1: COLOR 15: LOCATE 9, 55: PRINT "P"
COLOR 4: LOCATE 20, 34: PRINT "P"
DO
c = 101: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 20: PRINT "E"
SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
COLOR 4: LOCATE 20, 35: PRINT "E"
DO
c = 110: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 15, 37: PRINT "N"
SLEEP 1: COLOR 15: LOCATE 15, 37: PRINT "N"
COLOR 4: LOCATE 20, 36: PRINT "N"
DO
c = 99: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 15, 22: PRINT "C"
SLEEP 1: COLOR 15: LOCATE 15, 22: PRINT "C"
COLOR 4: LOCATE 20, 37: PRINT "C"
DO
c = 104: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 12, 36: PRINT "H"
SLEEP 1: COLOR 15: LOCATE 12, 36: PRINT "H"
COLOR 4: LOCATE 20, 38: PRINT "H"
DO
c = 101: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 20: PRINT "E"
SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
COLOR 4: LOCATE 20, 39: PRINT "E"
DO
c = 32: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 18, 29: PRINT "ESPACE"
SLEEP 1: COLOR 15: LOCATE 18, 29: PRINT "ESPACE"
DO
c = 112: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 55: PRINT "P"
SLEEP 1: COLOR 15: LOCATE 9, 55: PRINT "P"
COLOR 4: LOCATE 20, 41: PRINT "P"
DO
c = 111: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 50: PRINT "O"
SLEEP 1: COLOR 15: LOCATE 9, 50: PRINT "O"
COLOR 4: LOCATE 20, 42: PRINT "O"
DO
c = 117: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 40: PRINT "U"
SLEEP 1: COLOR 15: LOCATE 9, 40: PRINT "U"
COLOR 4: LOCATE 20, 43: PRINT "U"
DO
c = 114: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 25: PRINT "R"
SLEEP 1: COLOR 15: LOCATE 9, 25: PRINT "R"
COLOR 4: LOCATE 20, 44: PRINT "R"
DO
c = 32: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 18, 29: PRINT "ESPACE"
SLEEP 1: COLOR 15: LOCATE 18, 29: PRINT "ESPACE"
DO
c = 108: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 12, 51: PRINT "L"
SLEEP 1: COLOR 15: LOCATE 12, 51: PRINT "L"
COLOR 4: LOCATE 20, 46: PRINT "L"
DO
c = 97: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 10: PRINT "A"
SLEEP 1: COLOR 15: LOCATE 9, 10: PRINT "A"
COLOR 4: LOCATE 20, 47: PRINT "A"
DO
c = 32: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 18, 29: PRINT "ESPACE"
SLEEP 1: COLOR 15: LOCATE 18, 29: PRINT "ESPACE"
DO
c = 118: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 15, 27: PRINT "V"
SLEEP 1: COLOR 15: LOCATE 15, 27: PRINT "V"
COLOR 4: LOCATE 20, 49: PRINT "V"
DO
c = 111: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 50: PRINT "O"
SLEEP 1: COLOR 15: LOCATE 9, 50: PRINT "O"
COLOR 4: LOCATE 20, 50: PRINT "O"
DO
c = 105: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 45: PRINT "I"
SLEEP 1: COLOR 15: LOCATE 9, 45: PRINT "I"
COLOR 4: LOCATE 20, 51: PRINT "I"
DO
c = 114: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 25: PRINT "R"
SLEEP 1: COLOR 15: LOCATE 9, 25: PRINT "R"
COLOR 4: LOCATE 20, 52: PRINT "R"
LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
SLEEP 2
END IF
IF a = 2 THEN
COLOR 15: LOCATE 25, 30: PRINT "Tape la phrase suivante :": LOCATE 27, 30: COLOR 14: a$ = "la porte du salon est ouverte": PRINT a$
DO
c = 108: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 12, 51: PRINT "L"
SLEEP 1: COLOR 15: LOCATE 12, 51: PRINT "L"
COLOR 4: LOCATE 20, 28: PRINT "L"
DO
c = 97: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 10: PRINT "A"
SLEEP 1: COLOR 15: LOCATE 9, 10: PRINT "A"
COLOR 4: LOCATE 20, 29: PRINT "A"
DO
c = 32: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 18, 29: PRINT "ESPACE"
SLEEP 1: COLOR 15: LOCATE 18, 29: PRINT "ESPACE"
DO
c = 112: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 55: PRINT "P"
SLEEP 1: COLOR 15: LOCATE 9, 55: PRINT "P"
COLOR 4: LOCATE 20, 31: PRINT "P"
DO
c = 111: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 50: PRINT "O"
SLEEP 1: COLOR 15: LOCATE 9, 50: PRINT "O"
COLOR 4: LOCATE 20, 32: PRINT "O"
DO
c = 114: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 25: PRINT "R"
SLEEP 1: COLOR 15: LOCATE 9, 25: PRINT "R"
COLOR 4: LOCATE 20, 33: PRINT "R"
DO
c = 116: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 30: PRINT "T"
SLEEP 1: COLOR 15: LOCATE 9, 30: PRINT "T"
COLOR 4: LOCATE 20, 34: PRINT "T"
DO
c = 101: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 20: PRINT "E"
SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
COLOR 4: LOCATE 20, 35: PRINT "E"
DO
c = 32: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 18, 29: PRINT "ESPACE"
SLEEP 1: COLOR 15: LOCATE 18, 29: PRINT "ESPACE"
DO
c = 100: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 12, 21: PRINT "D"
SLEEP 1: COLOR 15: LOCATE 12, 21: PRINT "D"
COLOR 4: LOCATE 20, 37: PRINT "D"
DO
c = 117: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 40: PRINT "U"
SLEEP 1: COLOR 15: LOCATE 9, 40: PRINT "U"
COLOR 4: LOCATE 20, 38: PRINT "U"
DO
c = 32: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 18, 29: PRINT "ESPACE"
SLEEP 1: COLOR 15: LOCATE 18, 29: PRINT "ESPACE"
DO
c = 115: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 12, 16: PRINT "S"
SLEEP 1: COLOR 15: LOCATE 12, 16: PRINT "S"
COLOR 4: LOCATE 20, 40: PRINT "S"
DO
c = 97: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 10: PRINT "A"
SLEEP 1: COLOR 15: LOCATE 9, 10: PRINT "A"
COLOR 4: LOCATE 20, 41: PRINT "A"
DO
c = 108: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 12, 51: PRINT "L"
SLEEP 1: COLOR 15: LOCATE 12, 51: PRINT "L"
COLOR 4: LOCATE 20, 42: PRINT "L"
DO
c = 111: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 50: PRINT "O"
SLEEP 1: COLOR 15: LOCATE 9, 50: PRINT "O"
COLOR 4: LOCATE 20, 43: PRINT "O"
DO
c = 110: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 15, 37: PRINT "N"
SLEEP 1: COLOR 15: LOCATE 15, 37: PRINT "N"
COLOR 4: LOCATE 20, 44: PRINT "N"
DO
c = 32: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 18, 29: PRINT "ESPACE"
SLEEP 1: COLOR 15: LOCATE 18, 29: PRINT "ESPACE"
DO
c = 101: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 20: PRINT "E"
SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
COLOR 4: LOCATE 20, 46: PRINT "E"
DO
c = 115: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 12, 16: PRINT "S"
SLEEP 1: COLOR 15: LOCATE 12, 16: PRINT "S"
COLOR 4: LOCATE 20, 47: PRINT "S"
DO
c = 116: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 30: PRINT "T"
SLEEP 1: COLOR 15: LOCATE 9, 30: PRINT "T"
COLOR 4: LOCATE 20, 48: PRINT "T"
DO
c = 32: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 18, 29: PRINT "ESPACE"
SLEEP 1: COLOR 15: LOCATE 18, 29: PRINT "ESPACE"
DO
c = 111: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 50: PRINT "O"
SLEEP 1: COLOR 15: LOCATE 9, 50: PRINT "O"
COLOR 4: LOCATE 20, 50: PRINT "O"
DO
c = 117: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 40: PRINT "U"
SLEEP 1: COLOR 15: LOCATE 9, 40: PRINT "U"
COLOR 4: LOCATE 20, 51: PRINT "U"
DO
c = 118: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 15, 27: PRINT "V"
SLEEP 1: COLOR 15: LOCATE 15, 27: PRINT "V"
COLOR 4: LOCATE 20, 52: PRINT "V"
DO
c = 101: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 20: PRINT "E"
SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
COLOR 4: LOCATE 20, 53: PRINT "E"
DO
c = 114: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 25: PRINT "R"
SLEEP 1: COLOR 15: LOCATE 9, 25: PRINT "R"
COLOR 4: LOCATE 20, 54: PRINT "R"
DO
c = 116: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 30: PRINT "T"
SLEEP 1: COLOR 15: LOCATE 9, 30: PRINT "T"
COLOR 4: LOCATE 20, 55: PRINT "T"
DO
c = 101: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 20: PRINT "E"
SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
COLOR 4: LOCATE 20, 56: PRINT "E"
LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
SLEEP 2
END IF
IF a = 3 THEN
COLOR 15: LOCATE 25, 30: PRINT "Tape la phrase suivante :": LOCATE 27, 30: COLOR 14: a$ = "la chienne de mon voisin est dehors": PRINT a$
DO
c = 108: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 12, 51: PRINT "L"
SLEEP 1: COLOR 15: LOCATE 12, 51: PRINT "L"
COLOR 4: LOCATE 20, 28: PRINT "L"
DO
c = 97: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 10: PRINT "A"
SLEEP 1: COLOR 15: LOCATE 9, 10: PRINT "A"
COLOR 4: LOCATE 20, 29: PRINT "A"
DO
c = 32: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 18, 29: PRINT "ESPACE"
SLEEP 1: COLOR 15: LOCATE 18, 29: PRINT "ESPACE"
DO
c = 99: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 15, 22: PRINT "C"
SLEEP 1: COLOR 15: LOCATE 15, 22: PRINT "C"
COLOR 4: LOCATE 20, 31: PRINT "C"
DO
c = 104: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 12, 36: PRINT "H"
SLEEP 1: COLOR 15: LOCATE 12, 36: PRINT "H"
COLOR 4: LOCATE 20, 32: PRINT "H"
DO
c = 105: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 45: PRINT "I"
SLEEP 1: COLOR 15: LOCATE 9, 45: PRINT "I"
COLOR 4: LOCATE 20, 33: PRINT "I"
DO
c = 101: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 20: PRINT "E"
SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
COLOR 4: LOCATE 20, 34: PRINT "E"
DO
c = 110: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 15, 37: PRINT "N"
SLEEP 1: COLOR 15: LOCATE 15, 37: PRINT "N"
COLOR 4: LOCATE 20, 35: PRINT "N"
DO
c = 110: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 15, 37: PRINT "N"
SLEEP 1: COLOR 15: LOCATE 15, 37: PRINT "N"
COLOR 4: LOCATE 20, 36: PRINT "N"
DO
c = 101: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 20: PRINT "E"
SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
COLOR 4: LOCATE 20, 37: PRINT "E"
DO
c = 32: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 18, 29: PRINT "ESPACE"
SLEEP 1: COLOR 15: LOCATE 18, 29: PRINT "ESPACE"
DO
c = 100: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 12, 21: PRINT "D"
SLEEP 1: COLOR 15: LOCATE 12, 21: PRINT "D"
COLOR 4: LOCATE 20, 39: PRINT "D"
DO
c = 101: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 20: PRINT "E"
SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
COLOR 4: LOCATE 20, 40: PRINT "E"
DO
c = 32: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 18, 29: PRINT "ESPACE"
SLEEP 1: COLOR 15: LOCATE 18, 29: PRINT "ESPACE"
DO
c = 109: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 12, 56: PRINT "M"
SLEEP 1: COLOR 15: LOCATE 12, 56: PRINT "M"
COLOR 4: LOCATE 20, 42: PRINT "M"
DO
c = 111: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 50: PRINT "O"
SLEEP 1: COLOR 15: LOCATE 9, 50: PRINT "O"
COLOR 4: LOCATE 20, 43: PRINT "O"
DO
c = 110: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 15, 37: PRINT "N"
SLEEP 1: COLOR 15: LOCATE 15, 37: PRINT "N"
COLOR 4: LOCATE 20, 44: PRINT "N"
DO
c = 32: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 18, 29: PRINT "ESPACE"
SLEEP 1: COLOR 15: LOCATE 18, 29: PRINT "ESPACE"
DO
c = 118: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 15, 27: PRINT "V"
SLEEP 1: COLOR 15: LOCATE 15, 27: PRINT "V"
COLOR 4: LOCATE 20, 46: PRINT "V"
DO
c = 111: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 50: PRINT "O"
SLEEP 1: COLOR 15: LOCATE 9, 50: PRINT "O"
COLOR 4: LOCATE 20, 47: PRINT "O"
DO
c = 105: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 45: PRINT "I"
SLEEP 1: COLOR 15: LOCATE 9, 45: PRINT "I"
COLOR 4: LOCATE 20, 48: PRINT "I"
DO
c = 115: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 12, 16: PRINT "S"
SLEEP 1: COLOR 15: LOCATE 12, 16: PRINT "S"
COLOR 4: LOCATE 20, 49: PRINT "S"
DO
c = 105: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 45: PRINT "I"
SLEEP 1: COLOR 15: LOCATE 9, 45: PRINT "I"
COLOR 4: LOCATE 20, 50: PRINT "I"
DO
c = 110: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 15, 37: PRINT "N"
SLEEP 1: COLOR 15: LOCATE 15, 37: PRINT "N"
COLOR 4: LOCATE 20, 51: PRINT "N"
DO
c = 32: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 18, 29: PRINT "ESPACE"
SLEEP 1: COLOR 15: LOCATE 18, 29: PRINT "ESPACE"
DO
c = 101: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 20: PRINT "E"
SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
COLOR 4: LOCATE 20, 53: PRINT "E"
DO
c = 115: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 12, 16: PRINT "S"
SLEEP 1: COLOR 15: LOCATE 12, 16: PRINT "S"
COLOR 4: LOCATE 20, 54: PRINT "S"
DO
c = 116: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 30: PRINT "T"
SLEEP 1: COLOR 15: LOCATE 9, 30: PRINT "T"
COLOR 4: LOCATE 20, 55: PRINT "T"
DO
c = 32: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 18, 29: PRINT "ESPACE"
SLEEP 1: COLOR 15: LOCATE 18, 29: PRINT "ESPACE"
DO
c = 100: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 12, 21: PRINT "D"
SLEEP 1: COLOR 15: LOCATE 12, 21: PRINT "D"
COLOR 4: LOCATE 20, 57: PRINT "D"
DO
c = 101: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 20: PRINT "E"
SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
COLOR 4: LOCATE 20, 58: PRINT "E"
DO
c = 104: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 12, 36: PRINT "H"
SLEEP 1: COLOR 15: LOCATE 12, 36: PRINT "H"
COLOR 4: LOCATE 20, 59: PRINT "H"
DO
c = 111: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 50: PRINT "O"
SLEEP 1: COLOR 15: LOCATE 9, 50: PRINT "O"
COLOR 4: LOCATE 20, 60: PRINT "O"
DO
c = 114: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 9, 25: PRINT "R"
SLEEP 1: COLOR 15: LOCATE 9, 25: PRINT "R"
COLOR 4: LOCATE 20, 61: PRINT "R"
DO
c = 115: COLOR 4
LOOP UNTIL INKEY$ = CHR$(c): LOCATE 12, 16: PRINT "S"
SLEEP 1: COLOR 15: LOCATE 12, 16: PRINT "S"
COLOR 4: LOCATE 20, 62: PRINT "S"
LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
SLEEP 2
END IF
IF b = 5 THEN
LOCATE 24, 25: COLOR 2: INPUT "Veux tu refaire le niveau I (O/N)"; a$
IF a$ = "o" THEN GOTO 10
IF a$ = "n" THEN RUN "a:\clavier\prog\fin.bas"
END IF
NEXT