|
Vous vous souvenez ? Shoot ...Again n° 1, c' était il y a presque deux ans. La nouvelle rubrique démarrait en vous proposant d'améliorer CHOPPER . Eh bien à l'occasion de ce numéro vingt, je vous propose d'améliorer l'amélioration... Il est vrai qu'à l' époque, Monsieur Spock n'avait pas encore redécouvert le bâton de joie, qui attendrait Shoot ...Again n° 4 pour apparaître dans la rubrique. L'état des lieux. Un seul module , de #501 à #8024, en comptant la routine de gestion du tir que nous avions implantée. La gestion du clavier. Comme pour HUBERT, la gestion du clavier est des plus "rustique". LDA$208 CMP#$ XY...
La petite difficulté, est, que ces appels sont répartis un peu partout dans le programme et qu'il ne faut pas en oublier.
 La méthode utilisée. Très classique, donc tout de suite... |
La marche à suivre. 1 - Entrez le listing suivant
10 A=#8030:F=#80AD:L=100:REPEAT:FOR A=A TO A+15:READ C$20 K=VAL("#"+C$):S=S+K+65536*(S+K>65535):IF A<=F THEN POKE A,K 30 NEXT:READ D$:IF S=VAL("#"+D$) THEN L=L+5:UNTIL A>F:END 40 PING:PRINT"Erreur ligne";L 100 DATA 98,48,8A,48,AD,03,03,48,AD,01,03,48,A9,C0,8D,03,059F 105 DATA 03,A9,40,8D,01,03,AD,01,03,98,29,20,AA,98,4A,29,0A63 110 DATA 0C,8D,59,80,98,29,03,18,69,04,A8,B9,92,80,8D,90,10AE 115 DATA 80,8E,91,80,68,8D,01,03,68,8D,03,03,68,AA,68,A8,16E3 120 DATA 60,20,30,80,AD,90,80,C9,38,D0,03,AD,08,02,60,20,1CDB 125 DATA 30,80,AD,91,80,F0,06,20,00,80,18,90,02,A9,84,60,2316 130 DATA 4C,93,38,38,38,38,38,38,38,B6,38,38,38,B0,38,B4,2877 135 DATA AC,38,20,30,80,AD,91,80,F0,01,60,4C,46,6B,00,00,2E37
2 - RUN 4 - POKE#3050,#20:DOKE#3051,#807F 15-SAVEU"CHOPPER",AUTO
Maintenant, on peut jouer au clavier ou avec la manette ! Voilà, c'est tout pour aujourd'hui.
A bientôt... |
