Le programme

Pour mettre en évidence l’enregistrement.

Le chargement du sous-fichier à 
droite met un pointeur « enregistrement
courant côté droit » à  1 et de la
même manière sur le côté gauche, il
met en évidence l’enregistrement courant
et obtient les détails d’adresse.
Les fenêtres sont écrites dans
l’ordre suivant : d’abord #5CTL, puis #3CTL et, finalement le #1WND est
sorti avec un EXFMT.
L’action suivante dépend de la
touche de fonction choisie. Si l’on utilise
F23 ou F24, le pointeur « enregistrement
courant côté droit » est incrémenté
ou décrémenté, la mise en
évidence est enlevée de l’ancien enregistrement
et ajoutée au nouveau, et
les détails d’adresse complets dans la
partie supérieure de la fenêtre sont mis
à  jour.
De même, si l’on prend F13 ou
F14, le pointeur pour le côté gauche
est incrémenté ou décrémenté, la mise
en évidence de gauche est enlevée et
placée sur le nouvel enregistrement, et
les détails d’adresse complets sont placés
dans la partie supérieure. En outre,
le sous-fichier à  droite est rafraîchi
pour montrer les doubles de cet enregistrement
nouvellement mis en évidence.
Les touches page down et page up
se comportent comme F13 et F14,
mais le pointeur change par tranche de
10 enregistrements au lieu de 1. Le
programme vérifie la fin du sous-fichier
(c’est aussi le cas pour F13 et
F14), et d’autres enregistrements sont
chargés si nécessaire.
Je ne prévois pas de message pour
le cas où l’on dépasserait l’une des extrémités
du sous-fichier. C’est par
souci de simplicité et parce que l’on
n’obtient pas un message dans des
programmes Windows si l’on essaie de
paginer au-delà  de la fin d’un document.
Avant d’entrer dans les détails, j’expliquerai
comment je construis les
boucles de lecture pour des sous-fichiers
« une page à  la fois ». Je lis toujours
par avance afin que le dernier enregistrement
lu ne soit pas présenté
sur l’écran à  ce moment-là  ; au lieu de
cela, il définit une condition sur l’indicateur
SFLEND. Le groupe suivant de
lectures pour un sous-fichier commence
par sortir ce dernier enregistrement
avant de lire dans la base de données.