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