Magazine Pom's : la collection

Thierry Le Tallec
Ce programme constituera, je ]' es
père, un précieux utilitaire pour ceux
d'entre vous qui. ne possédant pas
d'imprimante graphique, se sont vus
priv jusqu'à ce jour de la possibilité
d'obtenir des copies "papier" de
leurs graphiques Haute Résolution
préférés. Il penne! en effet de recopier
un écran Haule Résolution sur
une imprimante NON graphique, à la
seule condition qu'elle puisse écrire
en mode "compressé".
Les commentaires donnés en regard
du programme-source en assembleur
fournissent les renseignements nécessaires
en ce qui concerne la démarche
adoptée.
Programme GRAFTEXT
1 P5 · CHRS (27) • CHRS ,3,233,0,133,3,202,20
8,217,166,',189,107,3,32,237,253,198,6
,208,199,32,142,253,173,0,192,48,17,16
,2,24,10,4,133,2,165,3,105,O.133,3,1
98,1.208,166
50 DATA 32,47,21,44,16,192,96,160,174,172,1
86,201,171.216,170,163,138,72,165,4,72
.41.192.133,224,74,74.,224,133,224,10
4,133,22,10,10,10,38,22:>.10,38,225.10
.102,224,16,22.41,31,'
60 DATA 230,133.22'.16'.2,164,3,192.0,240,5,
160,3',10,4,200,233,7,176,251,170,177
,224,69,0,10.10.232,208,252,104,170,96
70 GET AS: IF A . .. "2" THEN POKE HR,O: POKE
G.O: POKE P2,O: GET AS: POKE TX,O: PO
KE Pl,O: POKE 230,64:AS ....
75 IF AS .. "C" TH EN PRINT AS: PRINT DS"CATA
LOG": PRINT : INVERSE : PRINT "NOM DE
L'IMAGE A CHARGER";: NORMAL : INPUT H
:";NS: IF NS ( ) " .. THEM PRIMT DS"SL
OAD";M.:".PIC,AS2000":AS .. "1"
80 IF A . .. "1" THEN POKE HR,O: POKE G,O: GE
T AS: POKE TX,O: POKE 230,32:AS '" ... .
8 IF Ai!! .. "R" THEN GOSUS 200: POK'E HR,O: P
OKE Pl • < PEEK (230) .. 64),0: POKE G,
0: PRINT : PRINT OS"PRU": PRINT ps: C
ALL GT: PRINT O."PRIIIO":AS '" . ...
90 IF A. ( ) "0" THEN GOSUB 100: GOTO 70
99 HTAS 1: FOR 1 .. 23 TO 1 STEP - 1: VTAB 1
Pom's n° 9
: pRINT " . . ............. . ... . . . .... . . .
.. . .... .. .. ":: MEXT : TEXT : FOR 1 1
Ta 23: VTAS 1: PRINT SPC< 40): NEXT
: END
Copie basse résolution
d'écran HGR
Le code-objet est implanté en mémoire
au début du programme en
Applesoft GRAFfEXT (lignes 10 à
60), dont J'exécution est seule requise
pour obtenir la copie souhaitée.
A noter que le nom des pages HGR
à copier doit se terminer par ".PIC"
pour que le programme puisse les
charger. Ainsi, pour copier le graphique
DESSIN, il faut le baptiser DES­
SIN.PIC et fournir Je nom DESSIN
en réponse au programme.
Le processus d'utilisation du programme
est le suivant:
• Mettre la disquette où se trouve le
graphique dans le lecteur "actif".
• Demander le CATALOG.
• Donner le nom du graphique à
charger, appuyer sur une touche
lorsque celui-ci est affiché pour revenir
au menu.
• Demander la copie.
Notez enfin que sur le graphique recopié,
les points de la gauche de
l'écran sortent en haut du papier et
ceux de la droite en bas. N'oubliez
donc pas de faire une rotation de 90
degrés pour obtenir un maximum de
ressemblance avec l'original!
100 HOME : vTAB 1: INVERSE : PRINT " « GR
AFTEXT» ": PRlIn .. GROSSIERS SOFTW
ARE .. : NORMAL : VTAS 1: HTAB 26: PRINT
"