Magazine Pom's : la collection

Les programmes présentés ci-après
sont une application des fichiers
EXEC, dont le rôle est de fotmater
des listings sur imprimante, en effectuant
des sauts de page, avec titre et
numérotation de chaque page.
L'exécution de CREALIST constitue
la première étape du processus. Les
informations .! fournir A ce programme
sont :
· Le nom du programme à lister, leI
qu'il se trouve sur la disquette (en
fait, le programme doit se trouver sur
la mme disquette que CREALlST,
CAPTIJRE et LISTING).
• Le numéro de la première page (s'Il
est différent de 1, le titre en double
largeur n'est pas imprimé).
• Le numéro de la dernière page (s'il
est différent de 0, la mention :
« -=-=-# flN #-=-=- . n'est
pas imprimée).
- Les numéros de la première el de
la dernière ligne à lister (répondre 0
pour commencer au début, et a éga-
Programme CREALIST
10 REM - - - - -- - - - - - - -- --- ----- -
20 RE" LISTINGS FOR KAT ES
30 RE" - - - - - ------- - - ------ - --
.0
"0 TEXT , HOME
60 PRINT TAB( S)"LISTING FORI1ATE"
Mise en forme de listings
lement pour aller jusqu'à la fin du
programme).
CREALIST ouvre le fichier séquentiel
NOMPROG qui contient les éléments
précisés d-dessus, puis crée le fichier
CAPTLIST qui contient les instructions
suivantes :
• LOAD CAPTURE
70 VTAB " PRINT "NOH DE PROGRAI1I1E ' "
80 INPUT PS
.0 VTAB 7: PRINT "DATE ' "
100 INPUT TS
110 VTAB 10: PRINT "NO DE
AGE ' "
111 INPUT P
112 VTAB 13: PRIn "NO DE
AGE ' "
114 INPUT F
130 VTAB 16: PRINT "NO DE
IGNE ' "
140 INPUT LI
150 VTAB 1'9: PRINT "NO DE
IGNE ' "
160 INPUT L2
170 VTAB 22: PRINT " O.K.
ET AS: PRINT eHRa
180 IF AS • "N" THEM "0
190 IF AS < > "0" TH EN
200
" GOTO 170
210 Os s CHRa (4)
212 PRINT DS"OPENNOMPROG"
Pom's n° 9
• POKE 103,129 (déplace le pointeur
de début du programme
après CAPTURE)
• LOAD P$ (chargement du programme
à lister)
• Sélection des lignes à éditer (VOir
les Hgnes 360 à 390 de CREA­
LISTI
• POKE 103, 1 (repositionne le pointeur
de début du programme en
$801, CAPTURE et le programme
à lister se trouvant donc ainsi
réunis). A noter que la première
ligne du programme à lister doit
donc avoir un numéro supérieur
ou égal à 10.
LA PREI1IERE
LA DERiHERE
LA PREHIERE
LA DERNIERE
- .
, " . .
( 13>
PRINT CHRSI
P
P
L
L
G
(7
2,"
220
230
240
Erick Ringot
• RUN pour l'exécution de CAP­
TURE (crtion du fichier PROG)
• RUN LISTING pour exécution du
"listing" proprement dit.
Ces instructions sont ensuite exécutées
par un EXEC CAPTLIST.
L'analyse du programme final LIS­
TING ne doit pas poser de probme.
Vous pouvez bien sûr modifier
le nombre de lignes par page fixé
id à 60 (ligne 280). Selon J'imprimante
dont vous êtes possesseur, il
vous faudra peut-être également modifier
les caractères de contrôle utilisés
dans notre exemple, à savoir:
- CHR$(l4) : double largeur
- CHR${1S) : simple largeur
- CHR$(12) : saut de page.
En fin de liste, le programme émet à
J'écran le message ''ERREUR TYPE
5", signalant ainsi simplement la fin
des données.
PRINT D."DELETENOI1PROG"
PRINT O."OPENNOMPROG"
PRINT D."WRITEMOKPROG"
PRINT PS: PRINT TS: PRINT P: PRINT
F: PRINT L1: PRINT L2
250 PRINT D."CLOSENOI1PROG"
260
2'90 PRINT DS"OPENCAPTLIST"
300 PRINT DS"DELETECAPTLISTN
310 PRINT Oe"OPENCAPTLIST"
320 PRINT DS"WRITECAPTLIST"
330 PRIN·T "LOADCAPTURE"
340 PRINT "POKE103 ,129"
350 PRINT "LOAO"P.
360 IF LI s 0 TH EN 380
370 PRINT "DEL O,"Ll - 1
380 IF L2 ., ,0 TH EN 400
390 PRINT "DEL"L2 + 1",40000"
400 PRINT "POKEI03.1"
410 PRINT "RUN"
420 PRINT "RUNI.ISTING"
430
43 PRINT OS"CLOSECAPTLIST"
440 .pRINT O!ll"EXECCAPTLIST"
Programme CAPTURE
1 OS s CHRS (4)
2 PRINT DS"OPENPROG"
3 PRINT DS"DELETEPROG"
4 PRINT DS"OPENPROG"
35