Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
72<br />
Courrier des lecteurs et des clubs<br />
Olivier Herz<br />
Messages<br />
J'ai été très intéressé par J'article<br />
Graphique, quand tu nous tiens<br />
du Paro's 7, et je me permets de<br />
proposer les modifications suivantes<br />
pour une imprimante MX-8211lFff.<br />
D'abord, en insérant <strong>la</strong> ligne 6025<br />
D=O, on évite de conserver <strong>la</strong><br />
commande de double format si une<br />
autre impression est <strong>la</strong>ncée.<br />
Si /'on supprime Ja ligne 5200, on<br />
augmente le nombre de possibilités,<br />
en pamculier on peut Imprimer soit<br />
<strong>la</strong> page l, soit <strong>la</strong> page 2, soit une<br />
combinaison logique en première colonne<br />
A un seul exemp<strong>la</strong>ire : il suffit<br />
pour ce<strong>la</strong> d'ajouter <strong>la</strong> ligne 5555 IF<br />
P2 THEN 5580.<br />
Enfin. avec les modifICations ci-dessous,<br />
on peut imprimer cette première<br />
page n'importe où horizontalement<br />
:<br />
5342 :F" 0 = 0 AND L = 1 ItolD P ,,·3 DR<br />
5343 X = 1<br />
5344 PRINT<br />
S345 VIAS 22<br />
o < } 0 TltN 5350<br />
5347 INPUT ·H R GOO:HE EN Ol.<br />
E : . ,e<br />
6013 IF 1 = 0 TI€H 6019<br />
flOl4 COEFF = CŒFF + 128<br />
6015 FOR l = 1 TC 24'<br />
6016 PRINT TABt Cl<br />
5017 POKE 1529,25S<br />
0018 VTAB 1<br />
6019 PlXE 1913, COEFF<br />
0020 PRillT i2'<br />
6021 IF X = 0 mEN &027<br />
6022 PRINT Q(RS (27) ; CHR$ (&!i); Di<br />
ln t81<br />
6023 roŒ 1529, 0<br />
6024 PRINT ZEROJ<br />
602S NEXT !<br />
6026 PR:"lT DU!'$: (27); CHR$ lSOI<br />
6027 1 = 0:D =0<br />
Félicitations pour <strong>la</strong> qualité de votre<br />
publication.<br />
A<strong>la</strong>in Meizoz - 18 rue de <strong>la</strong> Poterie -<br />
1202 Genève - Suisse<br />
Le programme HELLO de Tran Van<br />
(<strong>Pom's</strong> 6 et 7) détruit . /a page 3,<br />
comme je J'avais expliqué dans le<br />
courrier des lecteurs du <strong>Pom's</strong> 7. La<br />
.. . . - _ ........ .<br />
modification que je vous propose cidessous<br />
n'empkhe pas <strong>la</strong> destruction<br />
de <strong>la</strong> page 3, mais elle <strong>la</strong> reconstruit<br />
après que le programme ait été<br />
chargé. Les lignes du programme<br />
n'étant pas numérotées, j'explique<br />
comme je peux.<br />
Dans le <strong>Pom's</strong> 6, page 33, 4ème<br />
ligne en haut et gauche, remp<strong>la</strong>cer<br />
le JSR CLEANUP par JSR RES<br />
TORE. A <strong>la</strong> fin du programme, ajouter<br />
:<br />
RE5TORE JSR CLEANUP<br />
PHP<br />
LDX #S2F<br />
LOOP LDA S9E51.X<br />
STA S03DO .X<br />
DEX<br />
BPL LOOP<br />
LDA S9E53<br />
STA S03F3<br />
EOR<br />
STA S03F4<br />
LDA S9E52<br />
STA S03F2<br />
PLP<br />
RTS<br />
Note : aucune des caractéristiques du<br />
programme n'est modifiée; en particulier,<br />
il tient toujours en 6 secteurs.<br />
Ce n'est cependant plus OFCE qu'il<br />
fa ut p<strong>la</strong>cer en AF. BD pour sauver par<br />
BSAVE, mais 0020.<br />
Pour ceux qui n'ont pas le Big Mac<br />
ou ne veulent pas réassembler, voici<br />
le patch correspondant à <strong>la</strong> modification<br />
:<br />
OC21 : 20 FE OC<br />
OCFE : 20 7B 98 08 2F BD Sl<br />
9E 9D DO 03 CA 10 F7 AD<br />
53 9E 80 F3 03 49 AS BD<br />
=4 03 RD 52 9E 80 F2 03<br />
28 60<br />
André Babeanu - 1 rue de <strong>la</strong> Libération<br />
. 78350 Jouy en Josas<br />
Au sujet de mon extension du moniteur<br />
(<strong>Pom's</strong> 8). ma curiosité a été piquée<br />
au vif par votre remarque page<br />
41 concernant le déca<strong>la</strong>ge du buffer<br />
c<strong>la</strong>vier. La solution est simple au niveau<br />
de l'assembleur, mais au niveau<br />
objet ... Néanmoins, <strong>la</strong> voici par rapport<br />
au code source publié .'<br />
1. Supprimer <strong>la</strong> ligne 160 (MONZ4<br />
LOX #1) et p<strong>la</strong>cer J'étiquette<br />
MONZ4 devant <strong>la</strong> ligne 161 (JSR<br />
NXTCHAR+3).<br />
2. Insérer les deux lignes PLA puis<br />
TAX entre les lignes 158 et 159.<br />
3. Insérer les deux lignes TXA puis<br />
PHA entre les lignes 148 et 149.<br />
4. Insérer LOX $#00 entre les lignes<br />
137 et 138.<br />
Thierry Le T aJ/ec - 69 rue Sauveur<br />
TobeJem - 13007 Marseille<br />
J'ai développé un programme réalisant<br />
le traitement complet des régates<br />
de voilier ou de p<strong>la</strong>nche à voile.<br />
Ceux qui désirent se renseigner en<br />
vue de J'acquisition du programme<br />
peuvent me contacter.<br />
Jacques Roullier - 3 rue des Pins -<br />
66140 Canet P<strong>la</strong>ge<br />
J'aimerais contacter les abonnés habitant<br />
ma région Aix les Bains . Savoie;<br />
je m'occupe d'un club de<br />
micro-informatique.<br />
Thieny Jan Sperry - Cidex 50 le<br />
Montcel - 73100 Aix les Bains<br />
Je recherche un club regroupant les<br />
possesseurs d'Apple III intér par<br />
les applications professionnelles. En<br />
existe-t·iJ un ? Le cas échéant, les<br />
personnes intéressées peuvent me<br />
contacter en vue de <strong>la</strong> création d'un<br />
tel club.<br />
C<strong>la</strong>ude Riou - Le Saint André - 48<br />
avenue de Lattre de Tassigny -<br />
83000 Toulon<br />
Je cherche des personnes ou des sociétés<br />
capables de relier des Apple Il<br />
à des ordinateurs CU-HB (610PS et<br />
DPS4J.<br />
F. Chastagner - 29 route de Gorges -<br />
44190 Clisson<br />
<strong>Pom's</strong> ne 9