10 '(c) HYDRIS dec 92 20 ' 30 MODE 1:BORDER 0:INK 0,0:INK 1,4:INK 2,8:INK 3,26 40 LOCATE 1,7:PRINT"listez le prog en mode 2" 50 IF PEEK(&A000)=195 THEN 140 60 MEMORY &7FFF 70 LOAD"music",&96B8:CALL &97FC:CALL &97A3 80 LOAD"vum",&A000 'routine 90 LOAD"vum.spr",&8000 'sprite 100 '*************************************************** 110 '* attention il faut mettre le data en hexa !!!! * 120 '* exemple :26=1a en hexa (voir ligne 160) # 130 '*************************************************** 140 DATA 00,80 'addresse vum &8000 150 DATA 00,c0 'addresse ecran &c000 160 DATA 1a,08 'haut=26 long=8 170 DATA 10,20 'relativite des ecarts entre les 3 vum 180 DATA b8,96 'addresse music =&96b8 190 FOR a=0 TO 9:READ a$:b=VAL("&"+a$):POKE &A003+a,b:NEXT 200 'poke &9fff,&c9:poke &a00b,&ff:poke &a00c,&9f 210 ' 220 CALL &A000 'vumetre+music 230 GOTO 210 240 'si la music est sous interuption alors il faut enlever 250 'le rem de la ligne 101 260 'encore un detail:les 3 sprites doivent avoir : 270 'la meme longeure et la meme hauteur (voir linge 160)