home *** CD-ROM | disk | FTP | other *** search
/ Freelog 45 / Freelog045.iso / Endirect / Clavier / clavier / prog / NIV1.BAS < prev    next >
Encoding:
BASIC Source File  |  2002-04-10  |  19.2 KB  |  436 lines
  1. 10 CLS
  2. FOR b = 1 TO 20
  3. SCREEN 12
  4. LINE (1, 500)-(650, 1), 1, BF
  5. LINE (20, 460)-(615, 20), 0, BF
  6. COLOR 4: LOCATE 3, 35: PRINT "NIVEAU I"
  7. COLOR 15: LINE (90, 150)-(60, 120), , B: LINE (130, 150)-(100, 120), , B
  8. LOCATE 9, 10: PRINT "A": LOCATE 9, 15: PRINT "Z"
  9. LINE (170, 150)-(140, 120), , B: LINE (210, 150)-(180, 120), , B
  10. LOCATE 9, 20: PRINT "E": LOCATE 9, 25: PRINT "R"
  11. LINE (250, 150)-(220, 120), , B: LINE (290, 150)-(260, 120), , B
  12. LOCATE 9, 30: PRINT "T": LOCATE 9, 35: PRINT "Y"
  13. LINE (330, 150)-(300, 120), , B: LINE (370, 150)-(340, 120), , B
  14. LOCATE 9, 40: PRINT "U": LOCATE 9, 45: PRINT "I"
  15. LINE (410, 150)-(380, 120), , B: LINE (450, 150)-(420, 120), , B
  16. LOCATE 9, 50: PRINT "O": LOCATE 9, 55: PRINT "P"
  17. LINE (490, 150)-(460, 120), , B: LINE (540, 150)-(500, 120), , B
  18. LOCATE 9, 60: PRINT "^∙": LOCATE 9, 65: PRINT "$£╧"
  19. LINE (98, 198)-(68, 168), , B: LINE (138, 198)-(108, 168), , B
  20. LOCATE 12, 11: PRINT "Q": LOCATE 12, 16: PRINT "S"
  21. LINE (178, 198)-(148, 168), , B: LINE (218, 198)-(188, 168), , B
  22. LOCATE 12, 21: PRINT "D": LOCATE 12, 26: PRINT "F"
  23. LINE (258, 198)-(228, 168), , B: LINE (298, 198)-(268, 168), , B
  24. LOCATE 12, 31: PRINT "G": LOCATE 12, 36: PRINT "H"
  25. LINE (338, 198)-(308, 168), , B: LINE (378, 198)-(348, 168), , B
  26. LOCATE 12, 41: PRINT "J": LOCATE 12, 46: PRINT "K"
  27. LINE (418, 198)-(388, 168), , B: LINE (458, 198)-(428, 168), , B
  28. LOCATE 12, 51: PRINT "L": LOCATE 12, 56: PRINT "M"
  29. LINE (498, 198)-(468, 168), , B: LINE (548, 198)-(508, 168), , B
  30. LOCATE 12, 61: PRINT "%ù": LOCATE 12, 66: PRINT "µ*"
  31. LINE (76, 245)-(106, 214), , B: LINE (116, 245)-(146, 214), , B
  32. LOCATE 15, 12: PRINT "W": LOCATE 15, 17: PRINT "X"
  33. LINE (156, 245)-(186, 214), , B: LINE (196, 245)-(226, 214), , B
  34. LOCATE 15, 22: PRINT "C": LOCATE 15, 27: PRINT "V"
  35. LINE (236, 245)-(266, 214), , B: LINE (276, 245)-(306, 214), , B
  36. LOCATE 15, 32: PRINT "B": LOCATE 15, 37: PRINT "N"
  37. LINE (316, 245)-(346, 214), , B: LINE (356, 245)-(386, 214), , B
  38. LOCATE 15, 42: PRINT "?,": LOCATE 15, 47: PRINT ".;"
  39. LINE (396, 245)-(426, 214), , B: LINE (436, 245)-(466, 214), , B
  40. LOCATE 15, 52: PRINT "/:": LOCATE 15, 57: PRINT "⌡!"
  41. LINE (140, 292)-(360, 262), , B: LOCATE 18, 29: PRINT "ESPACE"
  42. LINE (555, 120)-(590, 215), , B
  43. LOCATE 9, 72: PRINT "E": LOCATE 10, 72: PRINT "N": LOCATE 11, 72: PRINT "T"
  44. LOCATE 12, 72: PRINT "E": LOCATE 13, 72: PRINT "R"
  45. RANDOMIZE TIMER
  46. a = INT(RND * 15) + 1
  47. IF a = 1 THEN
  48. LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "maison": PRINT a$
  49. DO
  50. LOOP UNTIL INKEY$ = CHR$(109): LOCATE 12, 56: COLOR 4: PRINT "M": SLEEP 1: COLOR 15: LOCATE 12, 56: PRINT "M"
  51. LOCATE 20, 38: COLOR 4: PRINT "M"
  52. DO
  53. LOOP UNTIL INKEY$ = CHR$(97): LOCATE 9, 10: COLOR 4: PRINT "A": SLEEP 1: COLOR 15: LOCATE 9, 10: PRINT "A"
  54. LOCATE 20, 39: COLOR 4: PRINT "A"
  55. DO
  56. LOOP UNTIL INKEY$ = CHR$(105): LOCATE 9, 45: COLOR 4: PRINT "I": SLEEP 1: COLOR 15: LOCATE 9, 45: PRINT "I"
  57. LOCATE 20, 40: COLOR 4: PRINT "I"
  58. DO
  59. LOOP UNTIL INKEY$ = CHR$(115): LOCATE 12, 16: COLOR 4: PRINT "S": SLEEP 1: COLOR 15: LOCATE 12, 16: PRINT "S"
  60. LOCATE 20, 41: COLOR 4: PRINT "S"
  61. DO
  62. LOOP UNTIL INKEY$ = CHR$(111): LOCATE 9, 50: COLOR 4: PRINT "O": SLEEP 1: COLOR 15: LOCATE 9, 50: PRINT "O"
  63. LOCATE 20, 42: COLOR 4: PRINT "O"
  64. DO
  65. LOOP UNTIL INKEY$ = CHR$(110): LOCATE 15, 37: COLOR 4: PRINT "N": SLEEP 1: COLOR 15: LOCATE 15, 37: PRINT "N"
  66. LOCATE 20, 43: COLOR 4: PRINT "N"
  67. LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
  68. SLEEP 2
  69. END IF
  70. IF a = 2 THEN
  71. COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "fleur": PRINT a$
  72. DO
  73. LOOP UNTIL INKEY$ = CHR$(102): LOCATE 12, 26: COLOR 4: PRINT "F": SLEEP 1: COLOR 15: LOCATE 12, 26: PRINT "F"
  74. LOCATE 20, 38: COLOR 4: PRINT "F"
  75. DO
  76. LOOP UNTIL INKEY$ = CHR$(108): LOCATE 12, 51: COLOR 4: PRINT "L": SLEEP 1: COLOR 15: LOCATE 12, 51: PRINT "L"
  77. LOCATE 20, 39: COLOR 4: PRINT "L"
  78. DO
  79. LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
  80. LOCATE 20, 40: COLOR 4: PRINT "E"
  81. DO
  82. LOOP UNTIL INKEY$ = CHR$(117): LOCATE 9, 40: COLOR 4: PRINT "U": SLEEP 1: COLOR 15: LOCATE 9, 40: PRINT "U"
  83. LOCATE 20, 41: COLOR 4: PRINT "U"
  84. DO
  85. LOOP UNTIL INKEY$ = CHR$(114): LOCATE 9, 25: COLOR 4: PRINT "R": SLEEP 1: COLOR 15: LOCATE 9, 25: PRINT "R"
  86. LOCATE 20, 42: COLOR 4: PRINT "R"
  87. LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
  88. SLEEP 2
  89. END IF
  90. IF a = 3 THEN
  91. COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "automobile": PRINT a$
  92. DO
  93. LOOP UNTIL INKEY$ = CHR$(97): LOCATE 9, 10: COLOR 4: PRINT "A": SLEEP 1: COLOR 15: LOCATE 9, 10: PRINT "A"
  94. LOCATE 20, 38: COLOR 4: PRINT "A"
  95. DO
  96. LOOP UNTIL INKEY$ = CHR$(117): LOCATE 9, 40: COLOR 4: PRINT "U": SLEEP 1: COLOR 15: LOCATE 9, 40: PRINT "U"
  97. LOCATE 20, 39: COLOR 4: PRINT "U"
  98. DO
  99. LOOP UNTIL INKEY$ = CHR$(116): LOCATE 9, 30: COLOR 4: PRINT "T": SLEEP 1: COLOR 15: LOCATE 9, 30: PRINT "T"
  100. LOCATE 20, 40: COLOR 4: PRINT "T"
  101. DO
  102. LOOP UNTIL INKEY$ = CHR$(111): LOCATE 9, 50: COLOR 4: PRINT "O": SLEEP 1: COLOR 15: LOCATE 9, 50: PRINT "O"
  103. LOCATE 20, 41: COLOR 4: PRINT "O"
  104. DO
  105. LOOP UNTIL INKEY$ = CHR$(109): LOCATE 12, 56: COLOR 4: PRINT "M": SLEEP 1: COLOR 15: LOCATE 12, 56: PRINT "M"
  106. LOCATE 20, 42: COLOR 4: PRINT "M"
  107. DO
  108. LOOP UNTIL INKEY$ = CHR$(111): LOCATE 9, 50: COLOR 4: PRINT "O": SLEEP 1: COLOR 15: LOCATE 9, 50: PRINT "O"
  109. LOCATE 20, 43: COLOR 4: PRINT "O"
  110. DO
  111. LOOP UNTIL INKEY$ = CHR$(98): LOCATE 15, 32: COLOR 4: PRINT "B": SLEEP 1: COLOR 15: LOCATE 15, 32: PRINT "B"
  112. LOCATE 20, 44: COLOR 4: PRINT "B"
  113. DO
  114. LOOP UNTIL INKEY$ = CHR$(105): LOCATE 9, 45: COLOR 4: PRINT "I": SLEEP 1: COLOR 15: LOCATE 9, 45: PRINT "I"
  115. LOCATE 20, 45: COLOR 4: PRINT "I"
  116. DO
  117. LOOP UNTIL INKEY$ = CHR$(108): LOCATE 12, 51: COLOR 4: PRINT "L": SLEEP 1: COLOR 15: LOCATE 12, 51: PRINT "L"
  118. LOCATE 20, 46: COLOR 4: PRINT "L"
  119. DO
  120. LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
  121. LOCATE 20, 47: COLOR 4: PRINT "E"
  122. LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
  123. SLEEP 2
  124. END IF
  125. IF a = 4 THEN
  126. COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "chemin": PRINT a$
  127. DO
  128. LOOP UNTIL INKEY$ = CHR$(99): LOCATE 15, 22: COLOR 4: PRINT "C": SLEEP 1: COLOR 15: LOCATE 15, 22: PRINT "C"
  129. LOCATE 20, 38: COLOR 4: PRINT "C"
  130. DO
  131. LOOP UNTIL INKEY$ = CHR$(104): LOCATE 12, 36: COLOR 4: PRINT "H": SLEEP 1: COLOR 15: LOCATE 12, 36: PRINT "H"
  132. LOCATE 20, 39: COLOR 4: PRINT "H"
  133. DO
  134. LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
  135. LOCATE 20, 40: COLOR 4: PRINT "E"
  136. DO
  137. LOOP UNTIL INKEY$ = CHR$(109): LOCATE 12, 56: COLOR 4: PRINT "M": SLEEP 1: COLOR 15: LOCATE 12, 56: PRINT "M"
  138. LOCATE 20, 41: COLOR 4: PRINT "M"
  139. DO
  140. LOOP UNTIL INKEY$ = CHR$(105): LOCATE 9, 45: COLOR 4: PRINT "I": SLEEP 1: COLOR 15: LOCATE 9, 45: PRINT "I"
  141. LOCATE 20, 42: COLOR 4: PRINT "I"
  142. DO
  143. LOOP UNTIL INKEY$ = CHR$(110): LOCATE 15, 37: COLOR 4: PRINT "N": SLEEP 1: COLOR 15: LOCATE 15, 37: PRINT "N"
  144. LOCATE 20, 43: COLOR 4: PRINT "N"
  145. LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
  146. SLEEP 2
  147. END IF
  148. IF a = 5 THEN
  149. COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "wagon": PRINT a$
  150. DO
  151. LOOP UNTIL INKEY$ = CHR$(119): LOCATE 15, 12: COLOR 4: PRINT "W": SLEEP 1: COLOR 15: LOCATE 15, 12: PRINT "W"
  152. LOCATE 20, 38: COLOR 4: PRINT "W"
  153. DO
  154. LOOP UNTIL INKEY$ = CHR$(97): LOCATE 9, 10: COLOR 4: PRINT "A": SLEEP 1: COLOR 15: LOCATE 9, 10: PRINT "A"
  155. LOCATE 20, 39: COLOR 4: PRINT "A"
  156. DO
  157. LOOP UNTIL INKEY$ = CHR$(103): LOCATE 12, 31: COLOR 4: PRINT "G": SLEEP 1: COLOR 15: LOCATE 12, 31: PRINT "G"
  158. LOCATE 20, 40: COLOR 4: PRINT "G"
  159. DO
  160. LOOP UNTIL INKEY$ = CHR$(111): LOCATE 9, 50: COLOR 4: PRINT "O": SLEEP 1: COLOR 15: LOCATE 9, 50: PRINT "O"
  161. LOCATE 20, 41: COLOR 4: PRINT "O"
  162. DO
  163. LOOP UNTIL INKEY$ = CHR$(110): LOCATE 15, 37: COLOR 4: PRINT "N": SLEEP 1: COLOR 15: LOCATE 15, 37: PRINT "N"
  164. LOCATE 20, 42: COLOR 4: PRINT "N"
  165. LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
  166. SLEEP 2
  167. END IF
  168. IF a = 6 THEN
  169. COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "marche": PRINT a$
  170. DO
  171. LOOP UNTIL INKEY$ = CHR$(109): LOCATE 12, 56: COLOR 4: PRINT "M": SLEEP 1: COLOR 15: LOCATE 12, 56: PRINT "M"
  172. LOCATE 20, 38: COLOR 4: PRINT "M"
  173. DO
  174. LOOP UNTIL INKEY$ = CHR$(97): LOCATE 9, 10: COLOR 4: PRINT "A": SLEEP 1: COLOR 15: LOCATE 9, 10: PRINT "A"
  175. LOCATE 20, 39: COLOR 4: PRINT "A"
  176. DO
  177. LOOP UNTIL INKEY$ = CHR$(114): LOCATE 9, 25: COLOR 4: PRINT "R": SLEEP 1: COLOR 15: LOCATE 9, 25: PRINT "R"
  178. LOCATE 20, 40: COLOR 4: PRINT "R"
  179. DO
  180. LOOP UNTIL INKEY$ = CHR$(99): LOCATE 15, 22: COLOR 4: PRINT "C": SLEEP 1: COLOR 15: LOCATE 15, 22: PRINT "C"
  181. LOCATE 20, 41: COLOR 4: PRINT "C"
  182. DO
  183. LOOP UNTIL INKEY$ = CHR$(104): LOCATE 12, 36: COLOR 4: PRINT "H": SLEEP 1: COLOR 15: LOCATE 12, 36: PRINT "H"
  184. LOCATE 20, 42: COLOR 4: PRINT "H"
  185. DO
  186. LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
  187. LOCATE 20, 43: COLOR 4: PRINT "E"
  188. LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
  189. SLEEP 2
  190. END IF
  191. IF a = 7 THEN
  192. COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "couteau": PRINT a$
  193. DO
  194. LOOP UNTIL INKEY$ = CHR$(99): LOCATE 15, 22: COLOR 4: PRINT "C": SLEEP 1: COLOR 15: LOCATE 15, 22: PRINT "C"
  195. LOCATE 20, 38: COLOR 4: PRINT "C"
  196. DO
  197. LOOP UNTIL INKEY$ = CHR$(111): LOCATE 9, 50: COLOR 4: PRINT "O": SLEEP 1: COLOR 15: LOCATE 9, 50: PRINT "O"
  198. LOCATE 20, 39: COLOR 4: PRINT "O"
  199. DO
  200. LOOP UNTIL INKEY$ = CHR$(117): LOCATE 9, 40: COLOR 4: PRINT "U": SLEEP 1: COLOR 15: LOCATE 9, 40: PRINT "U"
  201. LOCATE 20, 40: COLOR 4: PRINT "U"
  202. DO
  203. LOOP UNTIL INKEY$ = CHR$(116): LOCATE 9, 30: COLOR 4: PRINT "T": SLEEP 1: COLOR 15: LOCATE 9, 30: PRINT "T"
  204. LOCATE 20, 41: COLOR 4: PRINT "T"
  205. DO
  206. LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
  207. LOCATE 20, 42: COLOR 4: PRINT "E"
  208. DO
  209. LOOP UNTIL INKEY$ = CHR$(97): LOCATE 9, 10: COLOR 4: PRINT "A": SLEEP 1: COLOR 15: LOCATE 9, 10: PRINT "A"
  210. LOCATE 20, 43: COLOR 4: PRINT "A"
  211. DO
  212. LOOP UNTIL INKEY$ = CHR$(117): LOCATE 9, 40: COLOR 4: PRINT "U": SLEEP 1: COLOR 15: LOCATE 9, 40: PRINT "U"
  213. LOCATE 20, 44: COLOR 4: PRINT "U"
  214. LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
  215. SLEEP 2
  216. END IF
  217. IF a = 8 THEN
  218. COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "chien": PRINT a$
  219. DO
  220. LOOP UNTIL INKEY$ = CHR$(99): LOCATE 15, 22: COLOR 4: PRINT "C": SLEEP 1: COLOR 15: LOCATE 15, 22: PRINT "C"
  221. LOCATE 20, 38: COLOR 4: PRINT "C"
  222. DO
  223. LOOP UNTIL INKEY$ = CHR$(104): LOCATE 12, 36: COLOR 4: PRINT "H": SLEEP 1: COLOR 15: LOCATE 12, 36: PRINT "H"
  224. LOCATE 20, 39: COLOR 4: PRINT "H"
  225. DO
  226. LOOP UNTIL INKEY$ = CHR$(105): LOCATE 9, 45: COLOR 4: PRINT "I": SLEEP 1: COLOR 15: LOCATE 9, 45: PRINT "I"
  227. LOCATE 20, 40: COLOR 4: PRINT "I"
  228. DO
  229. LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
  230. LOCATE 20, 41: COLOR 4: PRINT "E"
  231. DO
  232. LOOP UNTIL INKEY$ = CHR$(110): LOCATE 15, 37: COLOR 4: PRINT "N": SLEEP 1: COLOR 15: LOCATE 15, 37: PRINT "N"
  233. LOCATE 20, 42: COLOR 4: PRINT "N"
  234. LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
  235. SLEEP 2
  236. END IF
  237. IF a = 9 THEN
  238. COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "assiette": PRINT a$
  239. DO
  240. LOOP UNTIL INKEY$ = CHR$(97): LOCATE 9, 10: COLOR 4: PRINT "A": SLEEP 1: COLOR 15: LOCATE 9, 10: PRINT "A"
  241. LOCATE 20, 38: COLOR 4: PRINT "A"
  242. DO
  243. LOOP UNTIL INKEY$ = CHR$(115): LOCATE 12, 16: COLOR 4: PRINT "S": SLEEP 1: COLOR 15: LOCATE 12, 16: PRINT "S"
  244. LOCATE 20, 39: COLOR 4: PRINT "S"
  245. DO
  246. LOOP UNTIL INKEY$ = CHR$(115): LOCATE 12, 16: COLOR 4: PRINT "S": SLEEP 1: COLOR 15: LOCATE 12, 16: PRINT "S"
  247. LOCATE 20, 40: COLOR 4: PRINT "S"
  248. DO
  249. LOOP UNTIL INKEY$ = CHR$(105): LOCATE 9, 45: COLOR 4: PRINT "I": SLEEP 1: COLOR 15: LOCATE 9, 45: PRINT "I"
  250. LOCATE 20, 41: COLOR 4: PRINT "I"
  251. DO
  252. LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
  253. LOCATE 20, 42: COLOR 4: PRINT "E"
  254. DO
  255. LOOP UNTIL INKEY$ = CHR$(116): LOCATE 9, 30: COLOR 4: PRINT "T": SLEEP 1: COLOR 15: LOCATE 9, 30: PRINT "T"
  256. LOCATE 20, 43: COLOR 4: PRINT "T"
  257. DO
  258. LOOP UNTIL INKEY$ = CHR$(116): LOCATE 9, 30: COLOR 4: PRINT "T": SLEEP 1: COLOR 15: LOCATE 9, 30: PRINT "T"
  259. LOCATE 20, 44: COLOR 4: PRINT "T"
  260. DO
  261. LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
  262. LOCATE 20, 45: COLOR 4: PRINT "E"
  263. LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
  264. SLEEP 2
  265. END IF
  266. IF a = 10 THEN
  267. COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "elephant": PRINT a$
  268. DO
  269. LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
  270. LOCATE 20, 38: COLOR 4: PRINT "E"
  271. DO
  272. LOOP UNTIL INKEY$ = CHR$(108): LOCATE 12, 51: COLOR 4: PRINT "L": SLEEP 1: COLOR 15: LOCATE 12, 51: PRINT "L"
  273. LOCATE 20, 39: COLOR 4: PRINT "L"
  274. DO
  275. LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
  276. LOCATE 20, 40: COLOR 4: PRINT "E"
  277. DO
  278. LOOP UNTIL INKEY$ = CHR$(112): LOCATE 9, 55: COLOR 4: PRINT "P": SLEEP 1: COLOR 15: LOCATE 9, 55: PRINT "P"
  279. LOCATE 20, 41: COLOR 4: PRINT "P"
  280. DO
  281. LOOP UNTIL INKEY$ = CHR$(104): LOCATE 12, 36: COLOR 4: PRINT "H": SLEEP 1: COLOR 15: LOCATE 12, 36: PRINT "H"
  282. LOCATE 20, 42: COLOR 4: PRINT "H"
  283. DO
  284. LOOP UNTIL INKEY$ = CHR$(97): LOCATE 9, 10: COLOR 4: PRINT "A": SLEEP 1: COLOR 15: LOCATE 9, 10: PRINT "A"
  285. LOCATE 20, 43: COLOR 4: PRINT "A"
  286. DO
  287. LOOP UNTIL INKEY$ = CHR$(110): LOCATE 15, 37: COLOR 4: PRINT "N": SLEEP 1: COLOR 15: LOCATE 15, 37: PRINT "N"
  288. LOCATE 20, 44: COLOR 4: PRINT "N"
  289. DO
  290. LOOP UNTIL INKEY$ = CHR$(116): LOCATE 9, 30: COLOR 4: PRINT "T": SLEEP 1: COLOR 15: LOCATE 9, 30: PRINT "T"
  291. LOCATE 20, 45: COLOR 4: PRINT "T"
  292. LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
  293. SLEEP 2
  294. END IF
  295. IF a = 11 THEN
  296. COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "chaise": PRINT a$
  297. DO
  298. LOOP UNTIL INKEY$ = CHR$(99): LOCATE 15, 22: COLOR 4: PRINT "C": SLEEP 1: COLOR 15: LOCATE 15, 22: PRINT "C"
  299. LOCATE 20, 38: COLOR 4: PRINT "C"
  300. DO
  301. LOOP UNTIL INKEY$ = CHR$(104): LOCATE 12, 36: COLOR 4: PRINT "H": SLEEP 1: COLOR 15: LOCATE 12, 36: PRINT "H"
  302. LOCATE 20, 39: COLOR 4: PRINT "H"
  303. DO
  304. LOOP UNTIL INKEY$ = CHR$(97): LOCATE 9, 10: COLOR 4: PRINT "A": SLEEP 1: COLOR 15: LOCATE 9, 10: PRINT "A"
  305. LOCATE 20, 40: COLOR 4: PRINT "A"
  306. DO
  307. LOOP UNTIL INKEY$ = CHR$(105): LOCATE 9, 45: COLOR 4: PRINT "I": SLEEP 1: COLOR 15: LOCATE 9, 45: PRINT "I"
  308. LOCATE 20, 41: COLOR 4: PRINT "I"
  309. DO
  310. LOOP UNTIL INKEY$ = CHR$(115): LOCATE 12, 16: COLOR 4: PRINT "S": SLEEP 1: COLOR 15: LOCATE 12, 16: PRINT "S"
  311. LOCATE 20, 42: COLOR 4: PRINT "S"
  312. DO
  313. LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
  314. LOCATE 20, 43: COLOR 4: PRINT "E"
  315. LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
  316. SLEEP 2
  317. END IF
  318. IF a = 12 THEN
  319. COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "chat": PRINT a$
  320. DO
  321. LOOP UNTIL INKEY$ = CHR$(99): LOCATE 15, 22: COLOR 4: PRINT "C": SLEEP 1: COLOR 15: LOCATE 15, 22: PRINT "C"
  322. LOCATE 20, 38: COLOR 4: PRINT "C"
  323. DO
  324. LOOP UNTIL INKEY$ = CHR$(104): LOCATE 12, 36: COLOR 4: PRINT "H": SLEEP 1: COLOR 15: LOCATE 12, 36: PRINT "H"
  325. LOCATE 20, 39: COLOR 4: PRINT "H"
  326. DO
  327. LOOP UNTIL INKEY$ = CHR$(97): LOCATE 9, 10: COLOR 4: PRINT "A": SLEEP 1: COLOR 15: LOCATE 9, 10: PRINT "A"
  328. LOCATE 20, 40: COLOR 4: PRINT "A"
  329. DO
  330. LOOP UNTIL INKEY$ = CHR$(116): LOCATE 9, 30: COLOR 4: PRINT "T": SLEEP 1: COLOR 15: LOCATE 9, 30: PRINT "T"
  331. LOCATE 20, 41: COLOR 4: PRINT "T"
  332. LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
  333. SLEEP 2
  334. END IF
  335. IF a = 13 THEN
  336. COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "montre": PRINT a$
  337. DO
  338. LOOP UNTIL INKEY$ = CHR$(109): LOCATE 12, 56: COLOR 4: PRINT "M": SLEEP 1: COLOR 15: LOCATE 12, 56: PRINT "M"
  339. LOCATE 20, 38: COLOR 4: PRINT "M"
  340. DO
  341. LOOP UNTIL INKEY$ = CHR$(111): LOCATE 9, 50: COLOR 4: PRINT "O": SLEEP 1: COLOR 15: LOCATE 9, 50: PRINT "O"
  342. LOCATE 20, 39: COLOR 4: PRINT "O"
  343. DO
  344. LOOP UNTIL INKEY$ = CHR$(110): LOCATE 15, 37: COLOR 4: PRINT "N": SLEEP 1: COLOR 15: LOCATE 15, 37: PRINT "N"
  345. LOCATE 20, 40: COLOR 4: PRINT "N"
  346. DO
  347. LOOP UNTIL INKEY$ = CHR$(116): LOCATE 9, 30: COLOR 4: PRINT "T": SLEEP 1: COLOR 15: LOCATE 9, 30: PRINT "T"
  348. LOCATE 20, 41: COLOR 4: PRINT "T"
  349. DO
  350. LOOP UNTIL INKEY$ = CHR$(114): LOCATE 9, 25: COLOR 4: PRINT "R": SLEEP 1: COLOR 15: LOCATE 9, 25: PRINT "R"
  351. LOCATE 20, 42: COLOR 4: PRINT "R"
  352. DO
  353. LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
  354. LOCATE 20, 43: COLOR 4: PRINT "E"
  355. LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
  356. SLEEP 2
  357. END IF
  358. IF a = 14 THEN
  359. COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "table": PRINT a$
  360. DO
  361. LOOP UNTIL INKEY$ = CHR$(116): LOCATE 9, 30: COLOR 4: PRINT "T": SLEEP 1: COLOR 15: LOCATE 9, 30: PRINT "T"
  362. LOCATE 20, 38: COLOR 4: PRINT "T"
  363. DO
  364. LOOP UNTIL INKEY$ = CHR$(97): LOCATE 9, 10: COLOR 4: PRINT "A": SLEEP 1: COLOR 15: LOCATE 9, 10: PRINT "A"
  365. LOCATE 20, 39: COLOR 4: PRINT "A"
  366. DO
  367. LOOP UNTIL INKEY$ = CHR$(98): LOCATE 15, 32: COLOR 4: PRINT "B": SLEEP 1: COLOR 15: LOCATE 15, 32: PRINT "B"
  368. LOCATE 20, 40: COLOR 4: PRINT "B"
  369. DO
  370. LOOP UNTIL INKEY$ = CHR$(108): LOCATE 12, 51: COLOR 4: PRINT "L": SLEEP 1: COLOR 15: LOCATE 12, 51: PRINT "L"
  371. LOCATE 20, 41: COLOR 4: PRINT "L"
  372. DO
  373. LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
  374. LOCATE 20, 42: COLOR 4: PRINT "E"
  375. LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
  376. SLEEP 2
  377. END IF
  378. IF a = 15 THEN
  379. COLOR 15: LOCATE 25, 30: PRINT "Tape le mot suivant :": LOCATE 27, 38: COLOR 14: a$ = "gourmette": PRINT a$
  380. DO
  381. LOOP UNTIL INKEY$ = CHR$(103): LOCATE 12, 31: COLOR 4: PRINT "G": SLEEP 1: COLOR 15: LOCATE 12, 31: PRINT "G"
  382. LOCATE 20, 38: COLOR 4: PRINT "G"
  383. DO
  384. LOOP UNTIL INKEY$ = CHR$(111): LOCATE 9, 50: COLOR 4: PRINT "O": SLEEP 1: COLOR 15: LOCATE 9, 50: PRINT "O"
  385. LOCATE 20, 39: COLOR 4: PRINT "O"
  386. DO
  387. LOOP UNTIL INKEY$ = CHR$(117): LOCATE 9, 40: COLOR 4: PRINT "U": SLEEP 1: COLOR 15: LOCATE 9, 40: PRINT "U"
  388. LOCATE 20, 40: COLOR 4: PRINT "U"
  389. DO
  390. LOOP UNTIL INKEY$ = CHR$(114): LOCATE 9, 25: COLOR 4: PRINT "R": SLEEP 1: COLOR 15: LOCATE 9, 25: PRINT "R"
  391. LOCATE 20, 41: COLOR 4: PRINT "R"
  392. DO
  393. LOOP UNTIL INKEY$ = CHR$(109): LOCATE 12, 56: COLOR 4: PRINT "M": SLEEP 1: COLOR 15: LOCATE 12, 56: PRINT "M"
  394. LOCATE 20, 42: COLOR 4: PRINT "M"
  395. DO
  396. LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
  397. LOCATE 20, 43: COLOR 4: PRINT "E"
  398. DO
  399. LOOP UNTIL INKEY$ = CHR$(116): LOCATE 9, 30: COLOR 4: PRINT "T": SLEEP 1: COLOR 15: LOCATE 9, 30: PRINT "T"
  400. LOCATE 20, 44: COLOR 4: PRINT "T"
  401. DO
  402. LOOP UNTIL INKEY$ = CHR$(116): LOCATE 9, 30: COLOR 4: PRINT "T": SLEEP 1: COLOR 15: LOCATE 9, 30: PRINT "T"
  403. LOCATE 20, 45: COLOR 4: PRINT "T"
  404. DO
  405. LOOP UNTIL INKEY$ = CHR$(101): LOCATE 9, 20: COLOR 4: PRINT "E": SLEEP 1: COLOR 15: LOCATE 9, 20: PRINT "E"
  406. LOCATE 20, 46: COLOR 4: PRINT "E"
  407. LOCATE 22, 35: COLOR 2: PRINT "Félicitation"
  408. SLEEP 2
  409. END IF
  410. IF b = 20 THEN
  411. LOCATE 24, 25: INPUT "Veux tu refaire le niveau I (O/N)"; a$
  412. END IF
  413. IF a$ = "o" THEN GOTO 10
  414. IF a$ = "n" THEN RUN "a:\clavier\prog\nivII.bas"
  415. NEXT
  416.  
  417.  
  418.  
  419.  
  420.  
  421.  
  422.  
  423.  
  424.  
  425.  
  426.  
  427.  
  428.  
  429.  
  430.  
  431.  
  432.  
  433.  
  434.  
  435.  
  436.