home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 451-475 / apd465 / prisonnier.amos / prisonnier.amosSourceCode < prev    next >
AMOS Source Code  |  1993-01-08  |  14KB  |  532 lines
  1. ' %%%%%%%%%%%%%%%%%%%%%%%%%%%  
  2. ' %%%      PRISONNIER     %%%  
  3. ' %%%      ^^^^^^^^^^     %%%
  4. ' %%% de Marc Le Douarain %%%  
  5. ' %%%      Avril 1992     %%%
  6. ' %%% revu le 22/11/1992. %%%
  7. ' %%%                     %%%
  8. ' %%%         V 1.4       %%%
  9. ' %%%%%%%%%%%%%%%%%%%%%%%%%%%
  10. '
  11. '  
  12. ' pour me contacter , ï¿½crire ï¿½ : 
  13. '
  14. '       Le Douarain Marc 
  15. '       Bourg    
  16. '       56390 BRANDIVY 
  17. '       FRANCE 
  18. '
  19. '
  20. Say ""
  21. Music 1
  22. Screen Open 0,320,256,32,Lowres
  23. Paper 0 : Cls : Curs Off : Hide : Flash Off 
  24. Get Sprite Palette 
  25. Locate 0,3 : Centre "Choice your language !"
  26. Locate 0,5 : Centre "Choisissez votre langue !"
  27. Bob 1,80,100,16 : Bob 2,180,100,17
  28. PREMIERE=0
  29. LANGUE=1
  30. BX=45 : BY=60
  31. Ink 26
  32. Box 75,95 To 75+BX,95+BY
  33. PPA:
  34. A$=Inkey$
  35. If A$=" " Then Goto 1
  36. If A$=Chr$(13) Then Goto 1
  37. If A$="1" and LANGUE=2 Then LANGUE=1 : Goto PPB
  38. If A$="2" and LANGUE=1 Then LANGUE=2 : Goto PPB
  39. Randomize Timer
  40. Goto PPA
  41. PPB:
  42. Ink 0
  43. Box 75,95 To 75+BX,95+BY
  44. Box 175,95 To 175+BX,95+BY
  45. Ink 26
  46. If LANGUE=1 Then Box 75,95 To 75+BX,95+BY
  47. If LANGUE=2 Then Box 175,95 To 175+BX,95+BY
  48. Goto PPA
  49. '
  50. Procedure TIR
  51. Pen 3 : Centre TEX2$
  52. 5
  53. If Fire(1)=0 and Fire(0)=0 Then Wait 5 : Goto 5
  54. Flash Off 
  55. Fade 3 : Wait 45
  56. End Proc
  57. '
  58. CR:
  59. C=C+1 : If C>2 Then C=1
  60. Pen C
  61. Locate 4,NL : NL=NL+1
  62. Return 
  63. '
  64. '
  65. '
  66. 1
  67. Locate 7,25
  68. If LANGUE=1 Then Print "(C)lavier ou (J)oystick ?" Else Print "(K)eyboard or (J)oystick ?"
  69. REP:
  70. K$=Inkey$
  71. If K$="" Then Goto REP
  72. If K$="c" Then CLAVIER=1
  73. If K$="k" Then CLAVIER=1
  74. Fade 1 : Wait 15
  75. Bob Off : Cls 0
  76. Double Buffer 
  77. Dim X(16),Y(16)
  78. Gosub INIT
  79. If LANGUE=1
  80. TEX1$="Pr�sent� par :"
  81. TEX2$="=> TIR <="
  82. TEX3$=" Arme :"
  83. TEX4$=" Temps :"
  84. TEX5$="La porte est condamn�e !"
  85. TEX6$="Le gardien est le vainqueur !"
  86. TEX7$="Le prisonnier s'est enfui ..."
  87. TEX8$="Pas de vainqueurs !!!"
  88. TEX9$="Et les cl�s,c'est pour qui ???"
  89. TEX10$="Musique ripp�e appel�e : DELTA"
  90. End If 
  91. If LANGUE=2
  92. TEX1$="Made by :"
  93. TEX2$="=> FIRE <="
  94. TEX3$=" Ammo :"
  95. TEX4$=" Time :"
  96. TEX5$="This door can't be opened !"
  97. TEX6$="The guardian is the best !"
  98. TEX7$="The prisoner is already far ..."
  99. TEX8$="No winners !!!"
  100. TEX9$="Take the keys , no ???"
  101. TEX10$="Music ripped called : DELTA"
  102. End If 
  103. Global TEX2$
  104. '
  105. ' Presentation 
  106. '
  107. 2
  108. CHANGE=0
  109. Autoback 0
  110. Bob Off 
  111. Cls 0 : Screen Swap : Cls 0
  112. TT#=1.57
  113. PP=0 : PS=1
  114. Get Sprite Palette 
  115. Colour 18,$410
  116. Colour 19,$F01
  117. Bob 1,0,10,14
  118. Channel 1 To Bob 1
  119. Amal 1,"R: M 20,0,30 ; M -20,0,30 ;Jump R"
  120. Pen 11 : Paper 0 : Locate 0,10 : Centre TEX1$ : Locate 0,27 : Centre TEX10$
  121. Screen Swap : Locate 0,10 : Centre TEX1$ : Locate 0,27 : Centre TEX10$
  122. Amal On 1
  123. If PREMIERE=0
  124. For Y=256 To 100 Step -1
  125. Bob 2,113+Cos(TT#)*50,Y,15
  126. TT#=TT#+0.1
  127. Wait Vbl 
  128. Next Y
  129. End If 
  130. Bob 2,113+Cos(17.27)*50,100,15
  131. 23
  132. PREMIERE=1
  133. Autoback 1
  134. Flash 3,"(92c,5)(000,5)"
  135. Locate 0,29 : TIR
  136. Flash Off : Fade 3 : Wait 45
  137. Amal Off 
  138. Cls : Screen Swap : Cls 
  139. Palette 0,0,0
  140. Flash 3,"(92c,5)(000,5)"
  141. '
  142. Procedure TIR2
  143. Fade 3,,$AAA,$D00
  144. Flash 3,"(92C,5)(000,5)"
  145. Pen 3 : Centre TEX2$
  146. Screen Swap 
  147. 52 If Fire(1)=0 and Fire(0)=0 Then 52
  148. Flash Off 
  149. Fade 2
  150. Wait 30
  151. Cls 
  152. End Proc
  153. '
  154. Autoback 0
  155. C=0 : NL=11
  156. If LANGUE=1
  157. Gosub CR : Print "Prisonnier,vous arrivez a vous"
  158. Gosub CR : Print "echappez de votre cellule.Mais"
  159. Gosub CR : Print "une fois dans la cour,l'alerte"
  160. Gosub CR : Print "est donnee."
  161. Gosub CR : Print "Dans la nuit,on voit le halo du "
  162. Gosub CR : Print "projecteur qui vous traque."
  163. Gosub CR : Print "Evitez-le si vous ne voulez pas"
  164. Gosub CR : Print "vous faire tuer par les gardiens."
  165. Print : Print : Print : TIR2
  166. C=0 : NL=11
  167. Gosub CR : Print "Si vous vous perdez dans la nuit,"
  168. Gosub CR : Print "vous pouvez utiliser votre briquet"
  169. Gosub CR : Print "pour vous reperer,mais cela est"
  170. Gosub CR : Print "aussi valable pour les gardiens."
  171. Gosub CR : Print "La premiere cle ouvre les trois"
  172. Gosub CR : Print "premieres portes,et la deuxieme,"
  173. Gosub CR : Print "les trois dernieres de droite."
  174. Print : Print : Print : Print : TIR2
  175. C=0 : NL=11
  176. Gosub CR : Print "Une seule porte sur les six peut"
  177. Gosub CR : Print "s'ouvrir."
  178. Gosub CR : Print "Pour vous donnez du courage,pensez"
  179. Gosub CR : Print "que l'on vous attend de l'autre"
  180. Gosub CR : Print "cote pour prendre la cle des champs!"
  181. Gosub CR : Print "Ne perdez pas de temps,vous n'avez"
  182. Gosub CR : Print "que 80 secondes."
  183. Gosub CR : Print "Le jeu se joue a DEUX JOUEURS."
  184. Gosub CR : Print "Le gardien utilise une deuxieme"
  185. Gosub CR : Print "manette ou le clavier !"
  186. Print : Print : Print : TIR2
  187. C=0 : NL=11
  188. Gosub CR : Print "Le premier joueur,sur le port 1,"
  189. Gosub CR : Print "dirige le prisonnier."
  190. Gosub CR : Print "Le deuxieme joueur,sur le port 0,"
  191. Gosub CR : Print "dirige le gardien."
  192. Gosub CR : Print "Tandis que le prisonnier s'echappe,"
  193. Gosub CR : Print "le gardien essaye de le localiser"
  194. Gosub CR : Print "avec son halo pour lui tirer dessus"
  195. Gosub CR : Print "Les munitions sont limitees !"
  196. Print : Print : Print : TIR2
  197. Locate 0,14
  198. Pen 1 : Centre "BONNE CHANCE !!!" : Print : Print : Print 
  199. Pen 2 : Centre "et que le meilleur gagne !" : Print 
  200. Print : Print : Print : Print : TIR2
  201. End If 
  202. '
  203. If LANGUE=2
  204. Gosub CR : Print "Prisoner,you suceed to escape"
  205. Gosub CR : Print "out of your cell.But arrived"
  206. Gosub CR : Print "in the court , the alarm is"
  207. Gosub CR : Print "given."
  208. Gosub CR : Print "In the night,we can see the"
  209. Gosub CR : Print "halo of the searchlight."
  210. Gosub CR : Print "Avoid it if you don't want to"
  211. Gosub CR : Print "be killed with the guardian."
  212. Print : Print : Print : TIR2
  213. C=0 : NL=11
  214. Gosub CR : Print "To see you in the night,use"
  215. Gosub CR : Print "your lighter.But the guardian"
  216. Gosub CR : Print "can see you also !"
  217. Gosub CR : Print "The FIRST key open the three"
  218. Gosub CR : Print "doors on the left,and the second,"
  219. Gosub CR : Print "the three doors on the right."
  220. Print : Print : Print : Print : TIR2
  221. C=0 : NL=11
  222. Gosub CR : Print "Only one door on the six can be"
  223. Gosub CR : Print "opened."
  224. Gosub CR : Print "To take heart,think that someone"
  225. Gosub CR : Print "wait you on the other side to"
  226. Gosub CR : Print "go away!"
  227. Gosub CR : Print "Your time is limited to 80 seconds."
  228. Gosub CR : Print "This game requires TWO players."
  229. Gosub CR : Print "The guardian uses a second joystick"
  230. Gosub CR : Print "or the keyboard !"
  231. Print : Print : Print : TIR2
  232. C=0 : NL=11
  233. Gosub CR : Print "The FIRST player is the prisoner."
  234. Gosub CR : Print "The SECOND is the guardian."
  235. Gosub CR : Print "While the prisoner escapes,the"
  236. Gosub CR : Print "guardian tries to localize him with"
  237. Gosub CR : Print "his halo to kill him !!!"
  238. Gosub CR : Print "The ammo is limited !"
  239. Print : Print : Print : TIR2
  240. Locate 0,14
  241. Pen 1 : Centre "GOOD LUCK !!!" : Print : Print : Print 
  242. Pen 2 : Centre "and which wins the best !" : Print 
  243. Print : Print : Print : Print : TIR2
  244. End If 
  245. 75
  246. '
  247. ' *** DECOR ***
  248. '
  249. Screen Open 0,320,256,32,Lowres : Cls 0
  250. Paper 0 : Cls : Curs Off : Hide : Flash Off 
  251. Cls 0 : Screen Swap : Cls 
  252. Screen Open 1,320,256,2,Lowres
  253. Colour 1,0
  254. Cls 1
  255. Wait Vbl 
  256. Screen 0
  257. Ink 16 : Box 50,30 To 66,45 : Circle 58,30,8 : Paint 51,44 : Paint 58,29 : Paint 58,31
  258. Get Bob 30,49,21 To 67,46
  259. Ink 9 : Box 150,30 To 166,45 : Ink 7 : Polyline 150,35 To 166,35 : Ink 11 : Polyline 158,35 To 166,45 To 150,45 To 158,35
  260. Ink 7 : Polyline 150,35 To 150,45 : Polyline 166,45 To 166,35
  261. Ink 7 : Paint 151,36 : Paint 165,36
  262. Ink 9 : Paint 151,31 : Ink 11 : Paint 158,44
  263. Get Bob 32,150,30 To 167,46
  264. Cls 0
  265. Ink 26 : Box 0,0 To 319,45 : Paint 1,1
  266. Ink 22 : For CX=2 To 45 Step 3 : Polyline 0,CX To 319,CX : Next 
  267. NB=1
  268. For CX=50 To 110 Step 30 : Bob NB,CX,21,30 : NB=NB+1 : Next CX
  269. For CX=190 To 250 Step 30 : Bob NB,CX,21,30 : NB=NB+1 : Next CX
  270. Wait Vbl 
  271. Get Sprite Palette 
  272. Screen Close 1
  273. '
  274. ' *** JEU ***
  275. '  
  276. Every Off 
  277. Double Buffer 
  278. Pen 13 : Paper 26
  279. PX=Rnd(300)+10 : PY=Rnd(150)+50
  280. GX=150 : GY=100
  281. ARME=20 : TEMPS_INIT=80
  282. GRILLE=Rnd(5)+1
  283. CLEF=0
  284. TPS_RECHARGE=0
  285. VICTOIRE_P=0
  286. TPS_AFFICHE=0
  287. Autoback 0
  288. For MVL=63 To 0 Step -1
  289. Mvolume MVL
  290. Wait Vbl 
  291. Next MVL
  292. Music Off : Mvolume 63
  293. Set Talk 1,0,200,130
  294. Say "oh!,the prisoner is out!"
  295. Music 1
  296. Bob 7,75,220,5
  297. Bob 8,215,220,5
  298. Channel 7 To Bob 7
  299. Channel 8 To Bob 8
  300. Amal 7,"Anim 0,(5,5)(6,5)(7,5)(6,5) ; P"
  301. Amal 8,"Anim 0,(7,5)(6,5)(5,5)(6,5) ; P"
  302. Amal On 
  303. Timer=0
  304. Update Off 
  305. 777
  306. Rem -> gestion du prisonnier 
  307. J1=Joy(1) and 15
  308. If X(J1)=-1 Then If PX>5 Then Dec PX
  309. If X(J1)=1 Then If PX<305 Then Inc PX
  310. If Y(J1)=-1 Then If PY>43 Then Dec PY
  311. If Y(J1)=1 Then If PY<240 Then Inc PY
  312. Bob 10,PX,PY,1
  313. If Fire(1)=-1 Then Gosub TIR_PRISONNIER
  314. If VICTOIRE_P=1 Then 8000
  315. Rem -> gestion du gardien
  316. If CLAVIER=1 Then 666
  317. J2=Joy(0) and 15
  318. If X(J2)=-1 Then If GX>5 Then Dec GX
  319. If X(J2)=1 Then If GX<305 Then Inc GX
  320. If Y(J2)=-1 Then If GY>43 Then Dec GY
  321. If Y(J2)=1 Then If GY<240 Then Inc GY
  322. If Fire(0)=-1 and ARME>0 and TPS_RECHARGE=0 Then ARME=ARME-1 : Sam Play 8,1 : TPS_RECHARGE=10 : If GX<PX and PX<GX+11 and GY<PY and PY<GY+11 Then 7000
  323. Goto 667
  324. 666
  325. K$=Inkey$
  326. If K$=Chr$(29) Then If GX>5 Then Dec GX
  327. If K$=Chr$(28) Then If GX<305 Then Inc GX
  328. If K$=Chr$(30) Then If GY>43 Then Dec GY
  329. If K$=Chr$(31) Then If GY<240 Then Inc GY
  330. If K$=" " and ARME>0 and TPS_RECHARGE=0 Then ARME=ARME-1 : Sam Play 8,1 : TPS_RECHARGE=10 : If GX<PX and PX<GX+11 and GY<PY and PY<GY+11 Then 7000
  331. Clear Key 
  332. 667
  333. Bob 9,GX,GY,3 : Bob 11,GX+6,GY+6,4
  334. If TPS_RECHARGE<>0 Then Dec TPS_RECHARGE
  335. Pen 13 : Paper 26
  336. Locate 7,0 : Print TEX3$;ARME;" "
  337. Locate 23,0 : Print TEX4$;TEMPS;" "
  338. If TPS_AFFICHE<>0 Then Dec TPS_AFFICHE : If TPS_AFFICHE=0 Then PXA=3 : PYA=15 : MESSAGE$=String$(" ",36) : Gosub RAPIDE
  339. TEMPS=TEMPS_INIT-Timer/50
  340. If TEMPS<0 Then 9000
  341. Colour 1,0
  342. Update 
  343. Goto 777
  344. '
  345. ' *** TIR du prisonnier ***
  346. '
  347. TIR_PRISONNIER:
  348. Colour 1,$330
  349. If PY<220 Then 805
  350. If CLEF<>1 and 75<PX and PX<95 Then CLEF=1 : Gosub CLEFS
  351. If CLEF<>2 and 215<PX and PX<235 Then CLEF=2 : Gosub CLEFS
  352. 805
  353. If PY>46 Then Return 
  354. If CLEF=0 Then PXA=7 : PYA=15 : MESSAGE$=TEX9$ : Gosub RAPIDE : TPS_AFFICHE=10 : Return 
  355. If CLEF=1 and 43<PX and PX<63 Then If GRILLE=1 Then VICTOIRE_P=1 Else Gosub GRILLE_AFFICHE
  356. If CLEF=1 and 73<PX and PX<93 Then If GRILLE=2 Then VICTOIRE_P=1 Else Gosub GRILLE_AFFICHE
  357. If CLEF=1 and 103<PX and PX<123 Then If GRILLE=3 Then VICTOIRE_P=1 Else Gosub GRILLE_AFFICHE
  358. If CLEF=2 and 183<PX and PX<203 Then If GRILLE=4 Then VICTOIRE_P=1 Else Gosub GRILLE_AFFICHE
  359. If CLEF=2 and 213<PX and PX<233 Then If GRILLE=5 Then VICTOIRE_P=1 Else Gosub GRILLE_AFFICHE
  360. If CLEF=2 and 243<PX and PX<263 Then If GRILLE=6 Then VICTOIRE_P=1 Else Gosub GRILLE_AFFICHE
  361. Return 
  362. GRILLE_AFFICHE:
  363. PXA=7 : PYA=15 : MESSAGE$=TEX5$ : Gosub RAPIDE
  364. TPS_AFFICHE=10
  365. Return 
  366. ' *** CLEFS ***  
  367. CLEFS:
  368. Play 8,30,0
  369. If CLEF=1 Then Bob 7,,,8 : Amal Freeze 7 : Amal On 8
  370. If CLEF=2 Then Bob 8,,,8 : Amal Freeze 8 : Amal On 7
  371. Return 
  372. '
  373. ' *** Victoire du gardien ***
  374. '
  375. 7000
  376. Bob 10,PX-2,PY+5,2
  377. Wait 11
  378. Music Off 
  379. Sam Play 3
  380. Update On 
  381. Wait 40
  382. Say "ao no !",1
  383. Music 1
  384. Autoback 2
  385. Paper 0
  386. Pen 8
  387. Locate 3,15 : Print String$(" ",36)
  388. Locate 5,15 : Print TEX6$
  389. Autoback 0
  390. Gosub FIN_TIR
  391. Goto 2
  392. '
  393. ' *** Victoire du prisonnier *** 
  394. '
  395. 8000
  396. Autoback 2
  397. Locate 7,0 : Print TEX3$;ARME;" "
  398. Locate 23,0 : Print TEX4$;TEMPS;" "
  399. Paper 0
  400. Pen 8
  401. Locate 3,15 : Print String$(" ",36)
  402. Locate 5,15 : Print TEX7$
  403. Music Off 
  404. Sam Play 2
  405. Autoback 0
  406. Update On 
  407. If GRILLE=1 Then POS=50
  408. If GRILLE=2 Then POS=80
  409. If GRILLE=3 Then POS=110
  410. If GRILLE=4 Then POS=190
  411. If GRILLE=5 Then POS=220
  412. If GRILLE=6 Then POS=250
  413. Bob Off 10
  414. Bob 23,POS+1,30,32 : Bob 23,POS+1,30,32
  415. For CAR_POS=9 To 13
  416. Bob 24,POS,32,CAR_POS
  417. Wait Vbl 
  418. Wait 7
  419. Next CAR_POS
  420. Bob Off 24
  421. Wait Vbl 
  422. Music 1
  423. Gosub FIN_TIR
  424. Goto 2
  425. '
  426. ' *** Temps ecoule *** 
  427. '
  428. 9000
  429. Gosub MUSIQUE
  430. Say "It's too late!",1
  431. Music 1
  432. Update On 
  433. For NUANCE=0 To $880 Step $110
  434.    Colour 0,NUANCE
  435. Wait 3
  436. Next NUANCE
  437. Autoback 2
  438. Paper 0
  439. Pen 12
  440. Locate 3,15 : Print String$(" ",36)
  441. Locate 10,15 : Print TEX8$
  442. Autoback 0
  443. Gosub FIN_TIR
  444. Goto 2
  445. ' *** Routine de fin *** 
  446. FIN_TIR:
  447. Wait 100
  448. 9876
  449. Update On 
  450. If Fire(1)=0 and Fire(0)=0 Then Wait 5 : Goto 9876
  451. Fade 5 : Wait 75
  452. Amal Off 
  453. Gosub MERCI
  454. Return 
  455. '
  456. ' *** INITIALISATION *** 
  457. '
  458. INIT:
  459. Restore MANETTE
  460. For A=1 To 15 : Read X(A),Y(A) : Next A
  461. Return 
  462. MANETTE:
  463. Data 0,-1,0,1,0,0,-1,0,-1,-1,-1,1
  464. Data 0,0,1,0,1,-1,1,1,0,0,0,0,0,0,0,0,0,0,0,0
  465. '
  466. ' *** Remplacement d'autoback 2 ***
  467. '
  468. RAPIDE:
  469. Bob Clear 
  470. Pen 15 : Paper 0 : Locate PXA,PYA : Print MESSAGE$
  471. Bob Draw 
  472. Screen Swap : Wait Vbl 
  473. Bob Clear 
  474. Pen 15 : Paper 0 : Locate PXA,PYA : Print MESSAGE$
  475. Bob Draw 
  476. Screen Swap : Wait Vbl 
  477. Return 
  478. '
  479. ' *** Remerciements ***
  480. '
  481. MERCI:
  482. Screen Open 0,320,256,32,Lowres : Cls 0
  483. Paper 0 : Cls : Curs Off : Flash Off : Hide 
  484. Double Buffer 
  485. Palette 0,0,0,0
  486. Paper 0
  487. Wait Vbl 
  488. Autoback 0
  489. CHANGE=1
  490. C=0 : NL=2
  491. Gosub CR2 : Print "Greetings go this time to ..."
  492. Inc NL
  493. Inc NL
  494. Gosub CR2 : Print "STARSKY ... Ouais je me suis"
  495. Gosub CR2 : Print "d�cid� ï¿½ revoir un peu ce tr�s"
  496. Gosub CR2 : Print "cher prog du prisonnier."
  497. Inc NL
  498. Gosub CR2 : Print "GIGI ... J'esp�re que tes"
  499. Gosub CR2 : Print "d�buts en programmation"
  500. Gosub CR2 : Print "ne sont pas trop durs !"
  501. Inc NL
  502. Gosub CR2 : Print "BRUNO ... Faudrait que tu te"
  503. Gosub CR2 : Print "remette a l'informatique !"
  504. Gosub CR2 : Print "Ach�te toi donc un vieux 500,"
  505. Gosub CR2 : Print "Thomson is the past !!!"
  506. Inc NL
  507. Gosub CR2 : Print "A oui au fait,je n'ai pas utilis�"
  508. Gosub CR2 : Print "l'AMAL pour la gestion des"
  509. Gosub CR2 : Print "personnages:j'ai programm� juste"
  510. Gosub CR2 : Print "pour le FUN !!!"
  511. Gosub CR2 : Print "De plus ici,c'est inutile,non???"
  512. Gosub CR2 : Print "Ce prog. existait d�j� en basic"
  513. Gosub CR2 : Print "sur 8 bits,et bien que c'�tait"
  514. Gosub CR2 : Print "lent,l'INTERET ï¿½tait l� !!!"
  515. Inc NL : Inc NL
  516. Gosub CR2 : Print "     A plus ..."
  517. Print : Print : Print : Print : TIR2
  518. Return 
  519. '
  520. CR2:
  521. C=C+1 : If C>2 Then C=1
  522. Pen C
  523. Locate 2,NL : NL=NL+1
  524. Return 
  525. '
  526. MUSIQUE:
  527. For MVL=62 To 0 Step -2
  528. Mvolume MVL
  529. Wait Vbl 
  530. Next MVL
  531. Music Off : Mvolume 63
  532. Return