La Place des Développeurs [RESOLU] VDP(27) le Scrolling hardware Horizontal Comment alimenter de nouveaux décors VDP (27)?
TurboSEB :
SET SCROLL, c'est uniquement pour 2+ ou ca fonctionne sur Msx2 ? Ou j'ai encore dis une bêtise? 
C'est uniquement MSX2+ ...
MSX1: Daewoo DPC-200 / Yamaha CX5M
MSX2: Sony HB-F9P
MSXVR
Vidéo: V9990 (GFX-9)
Audio: MSX-Music (FM-PAC) / MSX-Audio (Audiowave) / OPL4 (Monster Sound FM Blaster) / OPNB (Neotron)
Le SET SCROLL est donc directement lié au 2+ et donc au VDP9958 , mais a l'instar des instructions Basic "rajouter" par des programme en assembleur, que l'on trouvés dans certain DiscStation, ne serait-il pas possible d'en faire une instruction Basic, lancable en Ram par un fichier Bin pour utilisé cette instruction sur un Msx2? Je lance l'idee, c'est tout 
MSX 1&2 + Moniteurs+divers (environ 0.70Tonnes)
Je suis pas allé jusque là mais j'ai déjà fait quelques testes en utilisant un truc du genre:
10 SET SCREEN (7,7)
20 BLOAD"BRIBE"
30 SET SCREEN (6,7)
40 BLOAD"BRIBE"
50 SET SCREEN (5,7)
etc...etc..
Sur MSX2 VVDP9938 et l'illusion est parfaite.
Le problème c'est qu'une fois que set screen est passé de 8 à -7, faut trouver le moyen de déplacer l'image de 16 pixels d'un coup sans tirer des ressources (sans copy) à la suite de quoi, il faut repasser set screen à 8 et recommencer à soustraire
Y a peut être à creuser mais j'ai pas les compétences
10 SET SCREEN (7,7)
20 BLOAD"BRIBE"
30 SET SCREEN (6,7)
40 BLOAD"BRIBE"
50 SET SCREEN (5,7)
etc...etc..
Sur MSX2 VVDP9938 et l'illusion est parfaite.
Le problème c'est qu'une fois que set screen est passé de 8 à -7, faut trouver le moyen de déplacer l'image de 16 pixels d'un coup sans tirer des ressources (sans copy) à la suite de quoi, il faut repasser set screen à 8 et recommencer à soustraire
Y a peut être à creuser mais j'ai pas les compétences
Voici une vidéo qui synthétise les 3 défilements requis pour le Stage 1 de Space Manbow.
https://www.youtube.com/watch?v=Fz0p9NSqjwE
A mesure de l'avancement de "La chose", le processus devient de plus en plus clair.
Pour se diriger vers la droite d'au moins 256 pixels (sans diagonale)
a) On écrit tout à gauche.
b) On déroule vers la gauche.
c) Les décors apparaissent tout à droite.
d) La ligne de Pixels affichés sur la colonne 255 effacera le pixel affiché sur la colonne 0.
Pour dérouler vers la Gauche d'au moins 256 pixels (sans diagonale)
a) On écrit tout à Droite.
b) On déroule vers la Droite.
c) Les décors apparaissent tout à gauche.
d) La ligne de Pixels affichés sur la colonne 0 effacera le pixel affiché sur la colonne 255.
Nb: La ligne verticale (colonne) sur MSX étant divisée en deux segments, il faut donc appliquer cette règle sur le segment de 212 pixels ainsi que sur le segment de 44 lignes (de la zone cachée)
Pour se diriger en diagonal vers le Haut à Droite:
a) On écrit tout à gauche.
a+) On écrit tout en Haut.
b) On déroule vers la gauche.
b+) On déroule vers le haut.
c) Les décors apparaissent tout à droite.
c+) Les décors apparaissent tout en Haut.
Pour se diriger en diagonal vers le Bas à droite:
a) On écrit tout à droite.
a+) On écrit tout en Bas.
b) On déroule vers la gauche.
b+) On déroule vers le Bas.
c) Les décors apparaissent tout à droite.
c+) Les décors apparaissent tout en Bas.
Nb: L'intégralité de l'écran sur MSX étant divisée en deux zones, il faut donc appliquer cette règle sur la zone allant de 0 à 211 pixels ainsi que sur la zone allant de 212 à 255 (la zone cachée).
Voici le Code Basic qui permet de réaliser cette vidéo:
Nb: Les "Gros accoues" lors des transitions entre Diagonal et horizontal sont dues au chargement de pages entières pour alimenter les pages nécessaires aux copies.
Une fois appliqué à mon moteur de Scroll, les accoues devraient être quasi inexistants du fait du chargement de bribes en lieu et place des pages entières
Edit: Voici le code
https://www.youtube.com/watch?v=Fz0p9NSqjwE
A mesure de l'avancement de "La chose", le processus devient de plus en plus clair.
Pour se diriger vers la droite d'au moins 256 pixels (sans diagonale)
a) On écrit tout à gauche.
b) On déroule vers la gauche.
c) Les décors apparaissent tout à droite.
d) La ligne de Pixels affichés sur la colonne 255 effacera le pixel affiché sur la colonne 0.
Pour dérouler vers la Gauche d'au moins 256 pixels (sans diagonale)
a) On écrit tout à Droite.
b) On déroule vers la Droite.
c) Les décors apparaissent tout à gauche.
d) La ligne de Pixels affichés sur la colonne 0 effacera le pixel affiché sur la colonne 255.
Nb: La ligne verticale (colonne) sur MSX étant divisée en deux segments, il faut donc appliquer cette règle sur le segment de 212 pixels ainsi que sur le segment de 44 lignes (de la zone cachée)
Pour se diriger en diagonal vers le Haut à Droite:
a) On écrit tout à gauche.
a+) On écrit tout en Haut.
b) On déroule vers la gauche.
b+) On déroule vers le haut.
c) Les décors apparaissent tout à droite.
c+) Les décors apparaissent tout en Haut.
Pour se diriger en diagonal vers le Bas à droite:
a) On écrit tout à droite.
a+) On écrit tout en Bas.
b) On déroule vers la gauche.
b+) On déroule vers le Bas.
c) Les décors apparaissent tout à droite.
c+) Les décors apparaissent tout en Bas.
Nb: L'intégralité de l'écran sur MSX étant divisée en deux zones, il faut donc appliquer cette règle sur la zone allant de 0 à 211 pixels ainsi que sur la zone allant de 212 à 255 (la zone cachée).
Voici le Code Basic qui permet de réaliser cette vidéo:
Nb: Les "Gros accoues" lors des transitions entre Diagonal et horizontal sont dues au chargement de pages entières pour alimenter les pages nécessaires aux copies.
Une fois appliqué à mon moteur de Scroll, les accoues devraient être quasi inexistants du fait du chargement de bribes en lieu et place des pages entières
Edit: Voici le code
Code TEXT :
Edité par
igal
Le 07/03/2016 à 19h12
10 'save"spmult02.asc",a 20 SCREEN 5:COLOR 0,0,0:VDP(9)=VDP(9)OR2 30 ' 40 '///////////////// Debut du Scroll Diagonal HD vers BG 50 '****************** Prechargement des pages 0 / 1 / 2 et 3 60 SET PAGE 0,0:BLOAD"0bas.sc5",S:COLOR=RESTORE 70 SET PAGE 0,1:BLOAD"0haut.sc5",S:COPY(0,0)-(255,44),1TO(0,212),0 80 SET PAGE 0,2:BLOAD"1bas.sc5",S 90 SET PAGE 0,3:BLOAD"1haut.sc5",S 100 '***************** Page visible et page de travail 110 SET PAGE 0,0 120 '***************** Variables necessaires 130 A=0:'Début de segment 140 B=1:'Fin de segment 150 S=0:'Point de depart du Scroll 160 E=211:'Point de depart de L'éffacement 170 '***************** Phase des copies et effacements 180 COPY(A,0)-(B,211),2TO(A,0),0:'import progressive du champs en zone 190 COPY(A,0)-(B,43),3TO(A,212),0:'import progressive du champs hors zone 200 COPY(0,44)-(255,44),3TO(0,E),0:'effacement progressif des residus 210 '***************** Alteration des Variables necessaires aux scrolls 220 E=E-1:S=S+1:A=A+1:B=B+1 260 IFS=257THEN300 270 '***************** Phase des scrolls Horizontal D vers G 280 VDP(24)=VDP(24)-1AND255:SETSCROLLS:GOTO 180 290 '///////////////// Fin du Scroll diagonal BG vers HD 300 ' 310 '----------------- Debut du scrolling horizontal D vers G 320 '****************** Prechargement des pages 1 et 2 330 SET PAGE 0,1:BLOAD"2BAS.SC5",S 340 SET PAGE 0,2:BLOAD"0haut.sc5",S:COPY(0,0)-(255,44),2TO(0,212),0 350 '***************** Variables necessaires 360 A=0:'Debut de segment 370 B=1:'Fin de segment 380 S=0:'Point de depart du scroll 390 '***************** Phase des copies sans effacements 400 COPY(A,0)-(B,211),1TO(A,0),0:'import progressive du champs en zone 410 COPY(A,0)-(B,43),2TO(A,212),0:'import progressive du champs hors zone 420 '***************** Alteration des Variables necessaires aux scrolls 430 S=S+1:A=A+1:B=B+1:IFS=255THEN470 440 '***************** Phase du Scroll Horizontal 450 SETSCROLLS:GOTO 400 460 '------------------ Fin du Scroll Horizontal D vers G 470 ' 480 ' 490 '----------------- Debut du scrolling horizontal D vers G 500 '****************** Prechargement de la page 1 510 SET PAGE 0,1:BLOAD"3BAS.SC5",S 520 '***************** Variables necessaires 530 A=0:'Debut de segment 540 B=1:'Fin de segment 550 S=0:'Point de depart du scroll 560 '***************** Phase des copies sans effacements 570 COPY(A,0)-(B,211),1TO(A,0),0:'import progressive du champs en zone 580 COPY(A,0)-(B,43),2TO(A,212),0:'import progressive du champs hors zone 590 '***************** Alteration des Variables necessaires aux scrolls 600 S=S+1:A=A+1:B=B+1:IFS=255THEN640 610 '***************** Phase des scrolls Vertical et Horizontal 620 SETSCROLLS:GOTO 570 630 '------------------ Fin du Scroll Horizontal D vers G 640 ' 650 '\\\\\\\\\ Debut du Scroll Diagonal HG vers BD 660 '****************** Aucun préchargement necessaire 670 'setpage 0,0:bload"0bas.sc5",s 680 '***************** Variables necessaires 690 A=0:'Debut de segment 700 B=1:'fin de segment 710 S=0:'Point de depart du scroll 720 E=0:'Point de depart de l effacement 730 '***************** Phase des copies progressives 740 COPY(A,0)-(B,211),2TO(A,0),0:'effacement V dans zone 750 COPY(A,0)-(B,43),2TO(A,212),0:'effacement V hors zone 760 COPY(0,0)-(255,0),2TO(0,E),0:'effacement H dans zone 770 '***************** Alteration des Variables necessaires aux scrolls 780 E=E+1:S=S+1:A=A+1:B=B+1:IFS=257THEN820 790 '***************** Phase des scrolls Horizontal D vers G 800 VDP(24)=VDP(24)+1AND255:SETSCROLLS:GOTO 740 810 '***************** Fin du Scroll diagonal BG vers HD 820 ' 910 '----------------- Debut du scrolling horizontal D vers G 920 '****************** Prechargement des pages 1 930 SET PAGE 0,1:BLOAD"BOSS1.SC5",S:COLOR=RESTORE 950 '***************** Variables necessaires 960 A=0:'Debut de segment 970 B=1:'Fin de segment 980 S=0:'Point de depart du scroll 990 '***************** Phase des copies sans effacements 1000 COPY(A,0)-(B,211),1TO(A,0),0:'import progressive du champs en zone 1020 '***************** Alteration des Variables necessaires aux scrolls 1030 IFS=255THEN10100 1034 S=S+1:A=A+1:B=B+1 1040 '***************** Phase du scroll Horizontal 1050 SETSCROLLS:GOTO1000 1060 '------------------ Fin du Scroll Horizontal D vers G 10010 ' 10100 A=254:'Debut de segment 10120 B=255:'Fin de segment 10130 S=255:'Point de depart du scroll 10140 '***************** Phase des copies sans effacements 10150 'COPY(A,0)-(B,211),1TO(A,0),0:'import progressive du champs en zone 10160 COPY(A,0)-(B,211),2TO(A,0),0:'import progressive du champs en zone 10170 '***************** Alteration des Variables necessaires aux scrolls 10180 IFS=0THEN960 10190 S=S-1:A=A-1:B=B-1 10200 '***************** Phase du scroll Horizontal 10210 SETSCROLLS:GOTO10150 10220 '------------------ Fin du Scroll Horizontal D vers G
Voici le Diagramme du fonctionnement très précis du moteur de Scroll Horizontal bidirectionnel selon la volonté du joueur.
Le But de ce diagramme est de le rendre le plus accessible et compréhensible possible.
De la sorte, ceux qui en ont la volonté pourront facilement le modifier
Ouvrez l'image sous un autre onglet puis cliquer sur la loupe agrandir ou alors sauvegarder l'image puis l'ouvrir puis zoomer avec le logiciel de votre choix.
Question résolu avec ce diagramme:
Voici le player:
Voici le générateur de Bribes:
Voici l'image du Disque Dur (CF) qui contient tout le nécessaire:
METAL.zip Edité par igal Le 06/09/2016 à 11h25
Le But de ce diagramme est de le rendre le plus accessible et compréhensible possible.
De la sorte, ceux qui en ont la volonté pourront facilement le modifier
Ouvrez l'image sous un autre onglet puis cliquer sur la loupe agrandir ou alors sauvegarder l'image puis l'ouvrir puis zoomer avec le logiciel de votre choix.
Question résolu avec ce diagramme:
Voici le player:
Code VB :
0 'SAVE"METAL001.asc",A 2 'PLAYER DE BRIBES VERICALES[(8 X 212)] 8 'Mode graphique 9 SCREEN 12:'COLOR1,1,0 12 'deplace l'écran verticalement 13 'VDP(24)=VDP(24)+212:VDP(9)=VDP(9)OR2 18 DEFINT A-Z:SETPAGE1,0:CLS:SETPAGE0,1:CLS 21 'Chargement intro/demo 25 SETPAGE0,1:BLOAD"INTRO.SCC",S:COLOR=RESTORE:SETPAGE1,0 26 IF INKEY$=""THEN26 27 'Chargement de la Page Alpha 28 CLS:SCREEN 8:CLS:CALL CHDIR("STAGE1") 29 CALL CHDIR("0") 30 SETPAGE0,1:BLOAD"0.SC8",S:SETPAGE1,0:SETPAGE0,0 35 'retour au repertoire des Pages 37 CALL CHDIR("..") 40 'initialisation des variables hero 45 X=100:Y=100:C=0 79 'CONDITIONS PRIMA X8************** 80 S=STICK(0):ONS+1 GOSUB 100,110,120,130,140,150,160,170,180:GOTO80 99 ' 100 'DIRECTION STATIQUE************* 102 RETURN 104 ' 110 'DIRECTION HAUT X8************** 112 RETURN 114 ' 120 'DIRECTION HAUT DROITE X8******* 122 RETURN 124 ' 130 'DIRECTION DROITE X8************ 131 'VA=0:'Scroll de droite a Droite 132 'VB=0:'Scroll de droite a Droite 133 D=1:VD=0:'Scroll vers la droite 134 I=&H2:'Repertoire Prima 135 II=&H1:'Repertoire des Bribes Prima 136 CALLCHDIR("1"):'Condition Proima droite 137 GOTO 10300:'Vers moteur X8 Droite 138 ' 140 'DIRECTION BAS DROITE X8******** 142 RETURN 144 ' 150 'DIRECTION BAS X8*************** 152 RETURN 154 ' 160 'DIRECTION BAS GAUCHE X8******** 162 RETURN 164 ' 170 'DIRECTION GAUCHE X8************ 171 'VA=256:'Scroll de droite a gauche 172 'VB=256:'Scroll de droite a gauche 173 G=1:VG=256:'Scroll vers la gauche 174 II=&HE:'Repertoire des Bribes Prima 175 I=&HE:'Repertoire Prima 176 CALLCHDIR("F"):'Condition Prima Gauche 177 GOTO 1300:'Vers moteur X8 Gauche 178 ' 180 'DIRECTION GAUCHE HAUT X8******* 182 RETURN 184 SCREEN 0:PRINT"SORTIE 184 185 ' 1300 'DIRECTION GAUCHE************ 1310 CALLCHDIR("F"):'SCROLL VERS LA GAUCHE 1320 S=STICK(0):ONS+1GOSUB100,110,120,1322,140,150,160,1324,180:GOTO1320 1322 G=1:I=I+3AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("0"):GOTO10324 1324 G=0:VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG 1330 S=STICK(0):ONS+1GOSUB100,110,120,1332,140,150,160,1334,180:GOTO1330 1332 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("F"):GOTO11134 1334 G=0:VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG 1350 CALL CHDIR ("..") 1360 CALLCHDIR("E"):'SCROLL VERS LA GAUCHE 1370 S=STICK(0):ONS+1GOSUB100,110,120,1372,140,150,160,1374,180:GOTO1370 1372 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("F"):GOTO11124 1374 G=0:VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG 1380 S=STICK(0):ONS+1GOSUB100,110,120,1382,140,150,160,1384,180:GOTO1380 1382 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("E"):GOTO11034 1384 G=0:VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG 1400 CALL CHDIR ("..") 1410 CALLCHDIR("D"):'SCROLL VERS LA GAUCHE 1420 S=STICK(0):ONS+1GOSUB100,110,120,1422,140,150,160,1424,180:GOTO1420 1422 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("E"):GOTO11024 1424 G=0:VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG 1430 S=STICK(0):ONS+1GOSUB100,110,120,1432,140,150,160,1434,180:GOTO1430 1432 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("D"):GOTO10984 1434 G=0:VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG 1450 CALL CHDIR ("..") 1460 CALLCHDIR("C"):'SCROLL VERS LA GAUCHE 1470 S=STICK(0):ONS+1GOSUB100,110,120,1472,140,150,160,1474,180:GOTO1470 1472 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("D"):GOTO10974 1474 G=0:VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG 1480 S=STICK(0):ONS+1GOSUB100,110,120,1482,140,150,160,1484,180:GOTO1480 1482 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("C"):GOTO10934 1484 G=0:VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG 1500 CALLCHDIR("..") 1510 CALLCHDIR("B"):'SCROLL VERS LA GAUCHE 1520 S=STICK(0):ONS+1GOSUB100,110,120,1522,140,150,160,1524,180:GOTO1520 1522 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("C"):GOTO10924 1524 G=0:VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG 1530 S=STICK(0):ONS+1GOSUB100,110,120,1532,140,150,160,1534,180:GOTO1530 1532 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("B"):GOTO10884 1534 G=0:VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG 1550 CALLCHDIR("..") 1560 CALLCHDIR("A"):'SCROLL VERS LA GAUCHE 1570 S=STICK(0):ONS+1GOSUB100,110,120,1572,140,150,160,1574,180:GOTO1570 1572 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("B"):GOTO10874 1574 G=0:VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG 1580 S=STICK(0):ONS+1GOSUB100,110,120,1582,140,150,160,1584,180:GOTO1580 1582 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("A"):GOTO10834 1584 G=0:VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG 1600 CALLCHDIR("..") 1610 CALLCHDIR("9"):'SCROLL VERS LA GAUCHE 1620 S=STICK(0):ONS+1GOSUB100,110,120,1622,140,150,160,1624,180:GOTO1620 1622 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("A"):GOTO10824 1624 G=0:VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG 1630 S=STICK(0):ONS+1GOSUB100,110,120,1632,140,150,160,1634,180:GOTO1630 1632 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("9"):GOTO10784 1634 G=0:VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG 1650 CALLCHDIR("..") 1660 CALLCHDIR("8"):'SCROLL VERS LA GAUCHE 1670 S=STICK(0):ONS+1GOSUB100,110,120,1672,140,150,160,1674,180:GOTO1670 1672 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("9"):GOTO10774 1674 G=0:VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG 1680 S=STICK(0):ONS+1GOSUB100,110,120,1682,140,150,160,1684,180:GOTO1680 1682 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("8"):GOTO10734 1684 G=0:VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG 1700 CALLCHDIR("..") 1710 CALLCHDIR("7"):'SCROLL VERS LA GAUCHE 1720 S=STICK(0):ONS+1GOSUB100,110,120,1722,140,150,160,1724,180:GOTO1720 1722 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("8"):GOTO10724 1724 G=0:VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG 1730 S=STICK(0):ONS+1GOSUB100,110,120,1732,140,150,160,1734,180:GOTO1730 1732 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("7"):GOTO10684 1734 G=0:VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG 1750 CALLCHDIR("..") 1760 CALLCHDIR("6"):'SCROLL VERS LA GAUCHE 1770 S=STICK(0):ONS+1GOSUB100,110,120,1772,140,150,160,1774,180:GOTO1770 1772 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("7"):GOTO10674 1774 G=0:VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG 1780 S=STICK(0):ONS+1GOSUB100,110,120,1782,140,150,160,1784,180:GOTO1780 1782 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("6"):GOTO10634 1784 G=0:VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG 1800 CALLCHDIR("..") 1810 CALLCHDIR("5"):'SCROLL VERS LA GAUCHE 1820 S=STICK(0):ONS+1GOSUB100,110,120,1822,140,150,160,1824,180:GOTO1820 1822 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("6"):GOTO10624 1824 G=0:VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG 1830 S=STICK(0):ONS+1GOSUB100,110,120,1832,140,150,160,1834,180:GOTO1830 1832 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("5"):GOTO10584 1834 G=0:VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG 1850 CALLCHDIR("..") 1860 CALLCHDIR("4"):'SCROLL VERS LA GAUCHE 1870 S=STICK(0):ONS+1GOSUB100,110,120,1872,140,150,160,1874,180:GOTO1870 1872 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("5"):GOTO10574 1874 G=0:VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG 1880 S=STICK(0):ONS+1GOSUB100,110,120,1882,140,150,160,1884,180:GOTO1880 1882 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("4"):GOTO10534 1884 G=0:VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG 1900 CALLCHDIR("..") 1910 CALLCHDIR("3"):'SCROLL VERS LA GAUCHE 1920 S=STICK(0):ONS+1GOSUB100,110,120,1922,140,150,160,1924,180:GOTO1920 1922 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("4"):GOTO10524 1924 G=0:VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG 1930 S=STICK(0):ONS+1GOSUB100,110,120,1932,140,150,160,1934,180:GOTO1930 1932 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("3"):GOTO10484 1934 G=0:VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG 1950 CALLCHDIR("..") 1960 CALLCHDIR("2"):'SCROLL VERS LA GAUCHE 1970 S=STICK(0):ONS+1GOSUB100,110,120,1972,140,150,160,1974,180:GOTO1970 1972 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("3"):GOTO10474 1974 G=0:VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG 1980 S=STICK(0):ONS+1GOSUB100,110,120,1982,140,150,160,1984,180:GOTO1980 1982 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("2"):GOTO10434 1984 G=0:VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG 2000 CALLCHDIR("..") 2010 CALLCHDIR("1"):'SCROLL VERS LA GAUCHE 2020 S=STICK(0):ONS+1GOSUB100,110,120,2022,140,150,160,2024,180:GOTO2020 2022 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("2"):GOTO10424 2024 G=0:VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG 2030 S=STICK(0):ONS+1GOSUB100,110,120,2032,140,150,160,2034,180:GOTO2030 2032 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("1"):GOTO10384 2034 G=0:VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG 2050 CALLCHDIR("..") 2060 CALLCHDIR("0"):'SCROLL VERS LA GAUCHE 2070 S=STICK(0):ONS+1GOSUB100,110,120,2072,140,150,160,2074,180:GOTO2070 2072 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("1"):GOTO10374 2074 G=0:VG=VG-8AND255:COPY"115"TO(VG,0):SETSCROLLVG 2080 S=STICK(0):ONS+1GOSUB100,110,120,2082,140,150,160,2084,180:GOTO2080 2082 G=1:I=I+2AND&HF:GOSUB5300:VD=VG-256AND255:CALLCHDIR("0"):GOTO10334 2084 G=0:VG=VG-8AND255:COPY"111"TO(VG,0):SETSCROLLVG 2090 IFD=1THENI=I-1AND&HF:D=0 2100 CALLCHDIR(".."):CALLCHDIR("..") 2580 'choix DU repertoire DES repertoires de Bribes 2582 IF I=&HFTHENCALLCHDIR("F"):I=&HE:GOTO1310 2584 IF I=&HETHENCALLCHDIR("E"):I=&HD:GOTO1310 2586 IF I=&HDTHENCALLCHDIR("D"):I=&HC:GOTO1310 2588 IF I=&HCTHENCALLCHDIR("C"):I=&HB:GOTO1310 2590 IF I=&HBTHENCALLCHDIR("B"):I=&HA:GOTO1310 2592 IF I=&HATHENCALLCHDIR("A"):I=&H9:GOTO1310 2594 IF I=&H9THENCALLCHDIR("9"):I=&H8:GOTO1310 2596 IF I=&H8THENCALLCHDIR("8"):I=&H7:GOTO1310 2598 IF I=&H7THENCALLCHDIR("7"):I=&H6:GOTO1310 2600 IF I=&H6THENCALLCHDIR("6"):I=&H5:GOTO1310 2602 IF I=&H5THENCALLCHDIR("5"):I=&H4:GOTO1310 2604 IF I=&H4THENCALLCHDIR("4"):I=&H3:GOTO1310 2606 IF I=&H3THENCALLCHDIR("3"):I=&H2:GOTO1310 2608 IF I=&H2THENCALLCHDIR("2"):I=&H1:GOTO1310 2610 IF I=&H1THENCALLCHDIR("1"):I=&H0:GOTO1310 2612 IF I=&H0THENCALLCHDIR("0"):I=&HF:GOTO1310 2613 ' 5299 'Repertoire des repertoires bascule Gauche vers la Droite 5300 IFD=1THENI=I-1AND&HF:D=0 5301 IFI=&HFTHENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("F"):RETURN 5302 IFI=&HETHENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("E"):RETURN 5303 IFI=&HDTHENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("D"):RETURN 5304 IFI=&HCTHENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("C"):RETURN 5305 IFI=&HBTHENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("B"):RETURN 5306 IFI=&HATHENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("A"):RETURN 5307 IFI=&H9THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("9"):RETURN 5308 IFI=&H8THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("8"):RETURN 5309 IFI=&H7THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("7"):RETURN 5310 IFI=&H6THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("6"):RETURN 5311 IFI=&H5THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("5"):RETURN 5312 IFI=&H4THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("4"):RETURN 5313 IFI=&H3THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("3"):RETURN 5314 IFI=&H2THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("2"):RETURN 5315 IFI=&H1THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("1"):RETURN 5316 IFI=&H0THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("0"):RETURN 10300 'DIRECTION DROITE************ 10310 CALLCHDIR("0"):'SCROLL VERS LA DROITE 10320 S=STICK(0):ONS+1GOSUB100,110,120,10324,140,150,160,10322,180:GOTO10320 10322 D=1:I=I-3AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("F"):GOTO1324 10324 D=0:COPY"111"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10330 S=STICK(0):ONS+1GOSUB100,110,120,10334,140,150,160,10332,180:GOTO10330 10332 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("0"):GOTO2084 10334 D=0:COPY"115"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10350 CALL CHDIR ("..") 10360 CALLCHDIR("1"):'SCROLL VERS LA DROITE 10370 S=STICK(0):ONS+1GOSUB100,110,120,10374,140,150,160,10372,180:GOTO10370 10372 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("0"):GOTO2074 10374 D=0:COPY"111"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10380 S=STICK(0):ONS+1GOSUB100,110,120,10384,140,150,160,10382,180:GOTO10380 10382 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("1"):GOTO2034 10384 D=0:COPY"115"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10400 CALL CHDIR ("..") 10410 CALLCHDIR("2"):'SCROLL VERS LA DROITE 10420 S=STICK(0):ONS+1GOSUB100,110,120,10424,140,150,160,10422,180:GOTO10420 10422 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("1"):GOTO2024 10424 D=0:COPY"111"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10430 S=STICK(0):ONS+1GOSUB100,110,120,10434,140,150,160,10432,180:GOTO10430 10432 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("2"):GOTO1984 10434 D=0:COPY"115"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10450 CALL CHDIR ("..") 10460 CALLCHDIR("3"):'SCROLL VERS LA DROITE 10470 S=STICK(0):ONS+1GOSUB100,110,120,10474,140,150,160,10472,180:GOTO10470 10472 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("2"):GOTO1974 10474 D=0:COPY"111"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10480 S=STICK(0):ONS+1GOSUB100,110,120,10484,140,150,160,10482,180:GOTO10480 10482 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("3"):GOTO1934 10484 D=0:COPY"115"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10500 CALL CHDIR ("..") 10510 CALLCHDIR("4"):'SCROLL VERS LA DROITE 10520 S=STICK(0):ONS+1GOSUB100,110,120,10524,140,150,160,10522,180:GOTO10520 10522 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("3"):GOTO1924 10524 D=0:COPY"111"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10530 S=STICK(0):ONS+1GOSUB100,110,120,10534,140,150,160,10532,180:GOTO10530 10532 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("4"):GOTO1884 10534 D=0:COPY"115"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10550 CALL CHDIR ("..") 10560 CALLCHDIR("5"):'SCROLL VERS LA DROITE 10570 S=STICK(0):ONS+1GOSUB100,110,120,10574,140,150,160,10572,180:GOTO10570 10572 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("4"):GOTO1874 10574 D=0:COPY"111"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10580 S=STICK(0):ONS+1GOSUB100,110,120,10584,140,150,160,10582,180:GOTO10580 10582 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("5"):GOTO1834 10584 D=0:COPY"115"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10600 CALL CHDIR ("..") 10610 CALLCHDIR("6"):'SCROLL VERS LA DROITE 10620 S=STICK(0):ONS+1GOSUB100,110,120,10624,140,150,160,10622,180:GOTO10620 10622 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("5"):GOTO1824 10624 D=0:COPY"111"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10630 S=STICK(0):ONS+1GOSUB100,110,120,10634,140,150,160,10632,180:GOTO10630 10632 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("6"):GOTO1784 10634 D=0:COPY"115"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10650 CALL CHDIR ("..") 10660 CALLCHDIR("7"):'SCROLL VERS LA DROITE 10670 S=STICK(0):ONS+1GOSUB100,110,120,10674,140,150,160,10672,180:GOTO10670 10672 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("6"):GOTO1774 10674 D=0:COPY"111"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10680 S=STICK(0):ONS+1GOSUB100,110,120,10684,140,150,160,10682,180:GOTO10680 10682 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("7"):GOTO1734 10684 D=0:COPY"115"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10700 CALL CHDIR("..") 10710 CALLCHDIR("8"):'SCROLL VERS LA DROITE 10720 S=STICK(0):ONS+1GOSUB100,110,120,10724,140,150,160,10722,180:GOTO10720 10722 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("7"):GOTO1724 10724 D=0:COPY"111"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10730 S=STICK(0):ONS+1GOSUB100,110,120,10734,140,150,160,10732,180:GOTO10730 10732 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("8"):GOTO1684 10734 D=0:COPY"115"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10750 CALL CHDIR ("..") 10760 CALLCHDIR("9"):'SCROLL VERS LA DROITE 10770 S=STICK(0):ONS+1GOSUB100,110,120,10774,140,150,160,10772,180:GOTO10770 10772 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("8"):GOTO1674 10774 D=0:COPY"111"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10780 S=STICK(0):ONS+1GOSUB100,110,120,10784,140,150,160,10782,180:GOTO10780 10782 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("9"):GOTO1634 10784 D=0:COPY"115"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10800 CALL CHDIR ("..") 10810 CALLCHDIR("A"):'SCROLL VERS LA DROITE 10820 S=STICK(0):ONS+1GOSUB100,110,120,10824,140,150,160,10822,180:GOTO10820 10822 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("9"):GOTO1624 10824 D=0:COPY"111"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10830 S=STICK(0):ONS+1GOSUB100,110,120,10834,140,150,160,10832,180:GOTO10830 10832 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("A"):GOTO1584 10834 D=0:COPY"115"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10850 CALL CHDIR ("..") 10860 CALLCHDIR("B"):'SCROLL VERS LA DROITE 10870 S=STICK(0):ONS+1GOSUB100,110,120,10874,140,150,160,10872,180:GOTO10870 10872 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("A"):GOTO1574 10874 D=0:COPY"111"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10880 S=STICK(0):ONS+1GOSUB100,110,120,10884,140,150,160,10882,180:GOTO10880 10882 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("B"):GOTO1534 10884 D=0:COPY"115"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10900 CALL CHDIR ("..") 10910 CALLCHDIR("C"):'SCROLL VERS LA DROITE 10920 S=STICK(0):ONS+1GOSUB100,110,120,10924,140,150,160,10922,180:GOTO10920 10922 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("B"):GOTO1524 10924 D=0:COPY"111"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10930 S=STICK(0):ONS+1GOSUB100,110,120,10934,140,150,160,10932,180:GOTO10930 10932 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("C"):GOTO1484 10934 D=0:COPY"115"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10950 CALL CHDIR ("..") 10960 CALLCHDIR("D"):'SCROLL VERS LA DROITE 10970 S=STICK(0):ONS+1GOSUB100,110,120,10974,140,150,160,10972,180:GOTO10970 10972 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("C"):GOTO1474 10974 D=0:COPY"111"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 10980 S=STICK(0):ONS+1GOSUB100,110,120,10984,140,150,160,10982,180:GOTO10980 10982 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("D"):GOTO1434 10984 D=0:COPY"115"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 11000 CALL CHDIR ("..") 11010 CALLCHDIR("E"):'SCROLL VERS LA DROITE 11020 S=STICK(0):ONS+1GOSUB100,110,120,11024,140,150,160,11022,180:GOTO11020 11022 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("D"):GOTO1424 11024 D=0:COPY"111"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 11030 S=STICK(0):ONS+1GOSUB100,110,120,11034,140,150,160,11032,180:GOTO11030 11032 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("E"):GOTO1384 11034 D=0:COPY"115"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 11050 CALL CHDIR ("..") 11110 CALLCHDIR("F")'SCROLL VERS LA DROITE 11120 S=STICK(0):ONS+1GOSUB100,110,120,11124,140,150,160,11122,180:GOTO11120 11122 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("E"):GOTO1374 11124 D=0:COPY"111"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 11130 S=STICK(0):ONS+1GOSUB100,110,120,11134,140,150,160,11132,180:GOTO11130 11132 D=1:I=I-2AND&HF:GOSUB20300:VG=VD+256AND255:CALLCHDIR("F"):GOTO1334 11134 D=0:COPY"115"TO(VD,0):VD=VD+8AND255:SETSCROLLVD 11140 IFG=1THENI=I+1AND&HF:G=0 11150 CALL CHDIR (".."):CALL CHDIR ("..") 12580 'choix DU repertoire DES repertoires de Bribes 12582 IF I=&HFTHENCALLCHDIR("F"):I=&H0:GOTO10310 12584 IF I=&HETHENCALLCHDIR("E"):I=&HF:GOTO10310 12586 IF I=&HDTHENCALLCHDIR("D"):I=&HE:GOTO10310 12588 IF I=&HCTHENCALLCHDIR("C"):I=&HD:GOTO10310 12590 IF I=&HBTHENCALLCHDIR("B"):I=&HC:GOTO10310 12592 IF I=&HATHENCALLCHDIR("A"):I=&HB:GOTO10310 12594 IF I=&H9THENCALLCHDIR("9"):I=&HA:GOTO10310 12596 IF I=&H8THENCALLCHDIR("8"):I=&H9:GOTO10310 12598 IF I=&H7THENCALLCHDIR("7"):I=&H8:GOTO10310 12600 IF I=&H6THENCALLCHDIR("6"):I=&H7:GOTO10310 12602 IF I=&H5THENCALLCHDIR("5"):I=&H6:GOTO10310 12604 IF I=&H4THENCALLCHDIR("4"):I=&H5:GOTO10310 12606 IF I=&H3THENCALLCHDIR("3"):I=&H4:GOTO10310 12608 IF I=&H2THENCALLCHDIR("2"):I=&H3:GOTO10310 12610 IF I=&H1THENCALLCHDIR("1"):I=&H2:GOTO10310 12612 IF I=&H0THENCALLCHDIR("0"):I=&H1:GOTO10310 12613 ' 20299 'Repertoire des repertoires bascule Droite vers Gauche 20300 IFG=1THENI=I+1AND&HF:G=0 20301 IFI=&H0THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("0"):RETURN 20302 IFI=&H1THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("1"):RETURN 20303 IFI=&H2THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("2"):RETURN 20304 IFI=&H3THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("3"):RETURN 20305 IFI=&H4THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("4"):RETURN 20306 IFI=&H5THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("5"):RETURN 20307 IFI=&H6THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("6"):RETURN 20308 IFI=&H7THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("7"):RETURN 20309 IFI=&H8THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("8"):RETURN 20310 IFI=&H9THENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("9"):RETURN 20311 IFI=&HATHENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("A"):RETURN 20312 IFI=&HBTHENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("B"):RETURN 20313 IFI=&HCTHENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("C"):RETURN 20314 IFI=&HDTHENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("D"):RETURN 20315 IFI=&HETHENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("E"):RETURN 20316 IFI=&HFTHENCALLCHDIR(".."):CALLCHDIR(".."):CALLCHDIR("F"):RETURN
Voici le générateur de Bribes:
Code VB :
10 'SAVE"GENOUTV8.ASC",A 20 'generateur de bribes Verticales d'images en 8 X 212. 22 'generateur par copy de bribes verticales. 30 ' Mode Graphique utilisé 32 VDP(10)=0: SCREEN 8 70 'Charger image ZERO [256X212] depuis la ligne Zero vers la page Zero. 71 SETPAGE 0,0: CLS 72 ' 76 'Entrer dans le repertoire STAGE1 prealablement cree. 77 'A l interieur de STAGE1 doivent se trouver les repertoires 0.1.2.3 avec les images .SC8 respectives 78 CALL CHDIR("STAGE1") 79 CALL CHDIR("0"):BLOAD"0.SC8",S 80 ' 81 A=0:'debut de copy 89 Z=211:'fin de copy 90 'Creer repertoires de 0 a F et y générer 2 bribes Larges de 8 lignes. 100 CALL MKDIR ("0"):CALL CHDIR ("0") 101 COPY(0,A)-(7,Z),0TO"111" 105 COPY(8,A)-(15,Z),0TO"115" 109 CALL CHDIR ("..") 110 CALL MKDIR ("1"):CALL CHDIR ("1") 111 COPY(16,A)-(23,Z),0TO"111" 115 COPY(24,A)-(31,Z),0TO"115" 119 CALL CHDIR ("..") 120 CALL MKDIR ("2"):CALL CHDIR ("2") 121 COPY(32,A)-(39,Z),0TO"111" 125 COPY(40,A)-(47,Z),0TO"115" 129 CALL CHDIR ("..") 130 CALL MKDIR ("3"):CALL CHDIR ("3") 131 COPY(48,A)-(55,Z),0TO"111" 135 COPY(56,A)-(63,Z),0TO"115" 139 CALL CHDIR ("..") 140 CALL MKDIR ("4"):CALL CHDIR ("4") 141 COPY(64,A)-(71,Z),0TO"111" 145 COPY(72,A)-(79,Z),0TO"115" 149 CALL CHDIR ("..") 150 CALL MKDIR ("5"):CALL CHDIR ("5") 151 COPY(80,A)-(87,Z),0TO"111" 155 COPY(88,A)-(95,Z),0TO"115" 159 CALL CHDIR ("..") 160 CALL MKDIR ("6"):CALL CHDIR ("6") 161 COPY(96,A)-(103,Z),0TO"111" 165 COPY(104,A)-(111,Z),0TO"115" 169 CALL CHDIR ("..") 170 CALL MKDIR ("7"):CALL CHDIR ("7") 171 COPY(112,A)-(119,Z),0TO"111" 175 COPY(120,A)-(127,Z),0TO"115" 179 CALL CHDIR ("..") 180 CALL MKDIR ("8"):CALL CHDIR ("8") 181 COPY(128,A)-(135,Z),0TO"111" 185 COPY(136,A)-(143,Z),0TO"115" 189 CALL CHDIR ("..") 190 CALL MKDIR ("9"):CALL CHDIR ("9") 191 COPY(144,A)-(151,Z),0TO"111" 195 COPY(152,A)-(159,Z),0TO"115" 199 CALL CHDIR ("..") 200 CALL MKDIR ("A"):CALL CHDIR ("A") 201 COPY(160,A)-(167,Z),0TO"111" 205 COPY(168,A)-(175,Z),0TO"115" 209 CALL CHDIR ("..") 210 CALL MKDIR ("B"):CALL CHDIR ("B") 211 COPY(176,A)-(183,Z),0TO"111" 215 COPY(184,A)-(191,Z),0TO"115" 219 CALL CHDIR ("..") 220 CALL MKDIR ("C"):CALL CHDIR ("C") 221 COPY(192,A)-(199,Z),0TO"111" 225 COPY(200,A)-(207,Z),0TO"115" 229 CALL CHDIR ("..") 230 CALL MKDIR ("D"):CALL CHDIR ("D") 231 COPY(208,A)-(215,Z),0TO"111" 235 COPY(216,A)-(223,Z),0TO"115" 239 CALL CHDIR ("..") 240 CALL MKDIR ("E"):CALL CHDIR ("E") 241 COPY(224,A)-(231,Z),0TO"111" 245 COPY(232,A)-(239,Z),0TO"115" 249 CALL CHDIR ("..") 250 CALL MKDIR ("F"):CALL CHDIR ("F") 251 COPY(240,A)-(247,Z),0TO"111" 255 COPY(248,A)-(255,Z),0TO"115" 259 CALL CHDIR ("..") 300 CALL CHDIR (".."):CALL CHDIR ("..")
Voici l'image du Disque Dur (CF) qui contient tout le nécessaire:
METAL.zip Edité par igal Le 06/09/2016 à 11h25
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie