home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 21 / CD_ASCQ_21_040595.iso / dos / fr / mcshow10.exe / EXEMPLES / EX4 / QCM.MCT < prev   
Text File  |  1995-03-05  |  3KB  |  170 lines
  1. ' (C)opyright B.PINEDA
  2.  
  3. :GOSUB INIT
  4. :GOSUB DESIGN_JEU
  5. :GOSUB JEU
  6. :GOSUB RESULTAT
  7. :GOSUB IMPRESSION
  8. :TEXT 15
  9. :GOTOXY 1,25
  10. :PRINT Appuyez sur une touche pour revenir au DOS...
  11. :TOUCHKEY
  12. :END
  13.  
  14. :LABEL INIT
  15. :AFFECT I1,0
  16. ' Variable contenant le score
  17. :MOUSECURSORTEXT ON
  18. :DEFMOUSECURSORTEXTOK 1,10,X
  19. :RETURN
  20.  
  21. :LABEL DESIGN_JEU
  22. :CLSTEXT
  23. :TEXT 14
  24. :GOTOXY 35,1
  25. :PRINT MICRO-QUIZZ
  26. :TEXT 15
  27. :GOTOXY 35,2
  28. :PRINT ***********
  29. :TEXT 7
  30. :GOTOXY 1,4
  31. :PRINT 1 kilo-octets correspond à 1000 caractères
  32. :GOTOXY 1,6
  33. :PRINT On peut écrire sur un CD-ROM
  34. :GOTOXY 1,8
  35. :PRINT Un moniteur non entrelacé n'est pas forcément multifréquence
  36. :GOTOXY 1,10
  37. :PRINT Les processeurs INTEL de type SX ont un coprocesseur arithmétique
  38. :GOTOXY 1,12
  39. :PRINT Il faut souvent éteindre une imprimante laser pour refroidir le laser
  40. :GOTOXY 1,14
  41. :PRINT Les processeurs INTEL DX4 fonctionnent en 3,3 volts
  42. :GOTOXY 1,16
  43. :PRINT Impossible d'avoir un CD-ROM sans carte sonore
  44. :GOTOXY 1,18
  45. :PRINT Le pentium est une marque de bière
  46. :GOTOXY 1,20
  47. :PRINT Un virus ne peut pas fonctionner lorsque l'ordinateur est éteint
  48. :GOTOXY 1,22
  49. :PRINT De temps en temps, un coup de foudre revigore une carte mère
  50. :TEXT 10
  51. :GOTOXY 1,24
  52. :PRINT A vous de cliquer OUI ou NON pour chaque question en attendant le verdict...
  53. :RETURN
  54.  
  55. :LABEL JEU
  56. :TEXT 13
  57.  
  58. :GOTOXY 73,4
  59. :PRINT OUI  NON
  60. :TESTMOUSE
  61. :MOUSE 73,4,75,4
  62.  :ADD I1,0
  63. :MOUSE 78,4,80,4
  64.  :ADD I1,1
  65.  
  66. :GOTOXY 73,6
  67. :PRINT OUI  NON
  68. :TESTMOUSE
  69. :MOUSE 73,6,75,6
  70.  :ADD I1,0
  71. :MOUSE 78,6,80,6
  72.  :ADD I1,1
  73.  
  74. :GOTOXY 73,8
  75. :PRINT OUI  NON
  76. :TESTMOUSE
  77. :MOUSE 73,8,75,8
  78.  :ADD I1,1
  79. :MOUSE 78,8,80,8
  80.  :ADD I1,0
  81.  
  82. :GOTOXY 73,10
  83. :PRINT OUI  NON
  84. :TESTMOUSE
  85. :MOUSE 73,10,75,10
  86.  :ADD I1,0
  87. :MOUSE 78,10,80,10
  88.  :ADD I1,1
  89.  
  90. :GOTOXY 73,12
  91. :PRINT OUI  NON
  92. :TESTMOUSE
  93. :MOUSE 73,12,75,12
  94.  :ADD I1,0
  95. :MOUSE 78,12,80,12
  96.  :ADD I1,1
  97.  
  98. :GOTOXY 73,14
  99. :PRINT OUI  NON
  100. :TESTMOUSE
  101. :MOUSE 73,14,75,14
  102.  :ADD I1,1
  103. :MOUSE 78,14,80,14
  104.  :ADD I1,0
  105.  
  106. :GOTOXY 73,16
  107. :PRINT OUI  NON
  108. :TESTMOUSE
  109. :MOUSE 73,16,75,16
  110.  :ADD I1,0
  111. :MOUSE 78,16,80,16
  112.  :ADD I1,1
  113.  
  114. :GOTOXY 73,18
  115. :PRINT OUI  NON
  116. :TESTMOUSE
  117. :MOUSE 73,18,75,18
  118.  :ADD I1,0
  119. :MOUSE 78,18,80,18
  120.  :ADD I1,1
  121.  
  122. :GOTOXY 73,20
  123. :PRINT OUI  NON
  124. :TESTMOUSE
  125. :MOUSE 73,20,75,20
  126.  :ADD I1,1
  127. :MOUSE 78,20,80,20
  128.  :ADD I1,0
  129.  
  130. :GOTOXY 73,22
  131. :PRINT OUI  NON
  132. :TESTMOUSE
  133. :MOUSE 73,22,75,22
  134.  :ADD I1,0
  135. :MOUSE 78,22,80,22
  136.  :ADD I1,1
  137. :RETURN
  138.  
  139. :LABEL RESULTAT
  140. :CLSTEXT
  141. :MOUSECURSORTEXT OFF
  142. :TEXT 15
  143. :GOTOXY 1,1
  144. :PRINT Votre score est :
  145. :TEXT 142
  146. :GOTOXY 19,1
  147. :PRINTV I1
  148. :TEXT 9
  149. :GOTOXY 1,3
  150.  
  151. :AFFECT I2,6
  152. :EVAL I1>I2
  153.  :PRINT Ouahh, quelle bête !
  154. :AFFECT I2,7
  155. :EVAL I1<I2
  156.  :PRINT Eh, pas mal mais ça manque encore un peu d'assurance...
  157. :RETURN
  158.  
  159. :LABEL IMPRESSION
  160. :TEXT 10
  161. :GOTOXY 1,6
  162. :PRINT Désirez-vous imprimer votre score (O/N) ?
  163. :GOTOXY 1,7
  164. :READECHO S1
  165. :UPCASESTRING S1
  166. :AFFECT S2,O
  167. :EVAL S1=S2
  168.  :PRTSCR
  169. :RETURN
  170.