Session end : 11h59m43s | Hide picture Sexe : OFF | ![]() | ![]() | ![]() | ![]() | Donations 2024 : 679.48 € |
![]() | Vumetre (F) (1992) [UTILITAIRE].zip 4.65 Ko (Date : 2020-03-24) | ![]() | |
![]() | ![]() [CRC:A5DC82C3] [HexaDump] [SectorView] [SectorData] (4.48 Ko-190.25 Ko) | ||
INFOSSTRUCTURE Chargement : RUN"-VUMETRE.BAS - COMMENTAIRE -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)
Vumetre (F) (1992) [UTILITAIRE].dskCreator : SAMdisk100620. / EXTENDED CPC DSK File.. 1 side / 40 tracks formated / 40 tracks per side. -- SIDE 1 -- Sectors used : 15 / 360 Sectors format : SectorSize2 (360) Minimum of sectors in one track : 9 Maximum of sectors in one track : 9 |