03.07.2013 Views

Magazine Pom's : la collection

Magazine Pom's : la collection

Magazine Pom's : la collection

SHOW MORE
SHOW LESS

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

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!