home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 21 / CD_ASCQ_21_040595.iso / dos / fr / mcshow10.exe / EXEMPLES / EX6 / CD.MCT < prev    next >
Text File  |  1995-03-05  |  3KB  |  238 lines
  1. ' (C)opyright B.PINEDA
  2.  
  3. :DEFMOUSECURSORTEXTOK 1,15,X
  4. :SPEED 1
  5. :CLSTEXT
  6. :TEXT 15
  7. :GOTOXY 1,1
  8. :PRINT Mettez un CD-AUDIO dans le lecteur et appuyez sur une touche...
  9. :TOUCHKEY
  10. :CLSTEXT
  11. :GOTOXY 1,1
  12. :PRINT Initialisation du CD...
  13. :CLOSE
  14. :AFFECT I2,-1
  15. :INITCD I1
  16. :EVAL I1=I2
  17.  :GOTO ERREUR
  18. :CLOSE
  19. :AFFECT S1,CLOSE
  20. :AFFECT S3,RESUME
  21. :AFFECT I1,1
  22. :AFFECT I9,0
  23. :NUMBEROFTRACKS I10
  24.  
  25. CD R N
  26. :GOSUB INIT_AFFICHAGE
  27.  
  28. :LABEL GESTION_COMMANDES
  29. :TESTMOUSE
  30. :MOUSE 2,7,18,9
  31.  :GOSUB OPEN/CLOSE
  32. :MOUSE 69,7,79,9
  33.  :GOTO FIN
  34. :MOUSE 5,13,12,15
  35.  :GOSUB PLAYCD
  36. :MOUSE 21,13,28,15
  37.  :GOSUB REWIND
  38. :MOUSE 37,13,44,15
  39.  :GOSUB FORWARD
  40. :MOUSE 53,13,60,15
  41.  :GOSUB STOP
  42. :MOUSE 69,13,77,15
  43.  :GOSUB PAUSE/RESUME
  44. :GOTO GESTION_COMMANDES
  45.  
  46. :LABEL INIT_AFFICHAGE
  47. :MOUSECURSORTEXT ON
  48. :TEXT 14
  49. :BACKGROUND 1
  50. :GOTOXY 73,24
  51. :TOTALTIMEMN I3
  52. :PRINTV I3
  53. :GOTOXY 75,24
  54. :PRINT :
  55. :TOTALTIMES I3
  56. :GOTOXY 76,24
  57. :PRINTV I3
  58. :GOSUB NB_MORCEAUX
  59. :RETURN
  60.  
  61. :LABEL MORCEAU_EN_COURS
  62. :TEXT 14
  63. :BACKGROUND 1
  64. :GOTOXY 23,20
  65. :PRINTSPACE 2
  66. :GOTOXY 23,20
  67. :AFFECT I2,999
  68. :EVAL I9=I2
  69.  :PRINTV I1
  70. :RETURN
  71.  
  72. :LABEL NB_MORCEAUX
  73. :TEXT 14
  74. :BACKGROUND 1
  75. :NUMBEROFTRACKS I3
  76. :GOTOXY 76,20
  77. :PRINTV I3
  78. :RETURN
  79.  
  80. :LABEL ERREUR
  81. :CLSTEXT
  82. :TEXT 15
  83. :GOTOXY 1,1
  84. :PRINT Le CD n'a pu être initialisé correctement !!!
  85. :GOTOXY 1,25
  86. :TEXT 14
  87. :PRINT Appuyez sur une touche...
  88. :TOUCHKEY
  89. :END
  90.  
  91. :LABEL OPEN/CLOSE
  92. :AFFECT S2,CLOSE
  93. :EVAL S1=S2
  94.  :GOTO OPEN
  95.  
  96. :AFFECT S2,OPEN
  97. :EVAL S1=S2
  98.  :GOTO CLOSE
  99. :RETURN
  100.  
  101. :LABEL OPEN
  102. :OPEN
  103. :AFFECT S1,OPEN
  104. :RETURN
  105.  
  106. :LABEL CLOSE
  107. :CLOSE
  108. :AFFECT S1,CLOSE
  109. :INITCD I1
  110. :EVAL I1=I2
  111.  :GOTO ERREUR
  112. :GOSUB INIT_AFFICHAGE
  113. :RETURN
  114.  
  115. :LABEL PLAYCD
  116. :AFFECT I4,0
  117. :ADD I4,I1
  118. :AFFECT I3,-1
  119. :PLAYCD I1
  120. :EVAL I1=I3
  121.  :GOTO ERREUR_PLAYCD
  122. :BLINK ON
  123. :TEXT 15
  124. :BACKGROUND 13
  125. :GOTOXY 7,14
  126. :PRINT PLAY
  127. :BLINK OFF
  128. :GOSUB AFFICHE_INFO_MORCEAU
  129. :AFFECT I9,999
  130. :GOSUB MORCEAU_EN_COURS
  131. :RETURN
  132.  
  133. :LABEL ERREUR_PLAYCD
  134. :AFFECT I1,0
  135. :ADD I1,I4
  136. :RETURN
  137.  
  138. :LABEL AFFICHE_INFO_MORCEAU
  139. :TEXT 14
  140. :BACKGROUND 1
  141. :GOTOXY 32,24
  142. :PRINTSPACE 5
  143. :GOTOXY 32,24
  144. :AFFECT I3,0
  145. :ADD I3,I1
  146. :TIMEMN I3
  147. :PRINTV I3
  148. :GOTOXY 34,24
  149. :PRINT :
  150. :AFFECT I3,0
  151. :ADD I3,I1
  152. :TIMES I3
  153. :GOTOXY 35,24
  154. :PRINTV I3
  155. :RETURN
  156.  
  157. :LABEL REWIND
  158. :STOP
  159. :SUB I1,1
  160. :AFFECT I2,0
  161. :EVAL I1=I2
  162.  :AFFECT I1,1
  163. :TEXT 15
  164. :BACKGROUND 13
  165. :GOTOXY 7,14
  166. :PRINT PLAY
  167. :GOSUB AFFICHE_INFO_MORCEAU
  168. :AFFECT I9,999
  169. :GOSUB MORCEAU_EN_COURS
  170. :AFFECT I9,0
  171. :RETURN
  172.  
  173. :LABEL FORWARD
  174. :STOP
  175. :ADD I1,1
  176. :EVAL I1>I10
  177.  :NUMBEROFTRACKS I1
  178. :TEXT 15
  179. :BACKGROUND 13
  180. :GOTOXY 7,14
  181. :PRINT PLAY
  182. :GOSUB AFFICHE_INFO_MORCEAU
  183. :AFFECT I9,999
  184. :GOSUB MORCEAU_EN_COURS
  185. :AFFECT I9,0
  186. :RETURN
  187.  
  188. :LABEL STOP
  189. :BACKGROUND 1
  190. :GOTOXY 32,24
  191. :PRINTSPACE 5
  192. :STOP
  193. :AFFECT I1,1
  194. :TEXT 15
  195. :BACKGROUND 13
  196. :GOTOXY 7,14
  197. :PRINT PLAY
  198. :AFFECT I9,0
  199. :GOSUB MORCEAU_EN_COURS
  200. :RETURN
  201.  
  202. :LABEL PAUSE/RESUME
  203. :AFFECT I2,0
  204. :EVAL I9=I2
  205.  :RETURN 
  206. :AFFECT S2,PAUSE
  207. :EVAL S3=S2
  208.  :GOTO RESUME
  209.  
  210. :AFFECT S2,RESUME
  211. :EVAL S3=S2
  212.  :GOTO PAUSE
  213. :RETURN
  214.  
  215. :LABEL PAUSE
  216. :PAUSE
  217. :AFFECT S3,PAUSE
  218. :BLINK ON
  219. :TEXT 15
  220. :BACKGROUND 13
  221. :GOTOXY 71,14
  222. :PRINT PAUSE
  223. :BLINK OFF
  224. :RETURN
  225.  
  226. :LABEL RESUME
  227. :RESUME
  228. :AFFECT S3,RESUME
  229. :TEXT 15
  230. :BACKGROUND 13
  231. :GOTOXY 71,14
  232. :PRINT PAUSE
  233. :RETURN
  234.  
  235. :LABEL FIN
  236. :STOP
  237. :END
  238.