Suiv.: Gestion de l'écran
Sup.: Outils généraux
Préc.: Outils généraux
Index
Table des matières
Pour qu'une image apparaîsse à l'écran d'un terminal, il faut que celui-ci soit sélectionné. Cette sélection doit impérativement précéder la description des objets, elle est réalisée par les programmes DEVICE et DEFDEV .
Pour choisir interactivement un terminal et l'initialiser totalement en entrée et en sortie, il faut utiliser DEFDEV
SUBROUTINE DEFDEV(DEVIC, PAROUT, PARIN, CPARAM) INTEGER DEVIC, PAROUT(10), PARIN(10) CHARACTER*(*) CPARAM
qui définit interactivement un terminal; cette subroutine pose les questions ad hoc et ouvre le terminal en sortie et éventuellement en entrée.
Input : DEVIC avec:
Si DEVIC = 0 : On demande de choisir interactivement un terminal. Elle retourne dans DEVIC le numéro du terminal choisi et l'initialise si nécessaire. Elle renvoie dans PAROUT, PARIN et CPARAM les paramètres d'initialisation propres à ce terminal.
Si DEVIC > 0 : Elle choisit le terminal DEVIC et elle pose les autres questions. Elle renvoie dans PAROUT les paramètres supplémentaires en sortie de ce terminal et dans PARIN les paramètres supplémentaires en entrée de ce terminal.
Si PAROUT(i) est une chaîne: PAROUT(i) est le nombre de caractères (de l'ordre de 80) de la chaîne et la chaîne est dans CPARAM, si il y a plusieurs chaînes elles sont concaténées dans CPARAM.
Si DEVIC < 0 : Elle choisit le terminal |DEVIC| et ne pose pas d'autres questions. Elle renvoie dans PAROUT, PARIN et CPARAM les paramètres d'initialisation.
SUBROUTINE DEVICE(N, IPARAM, CPARAM) INTEGER N, IPARAM(*) CHARACTER*(*) CPARAM
Input : N le numéro du terminal.
Si N > 0 initialisation du terminal numéro N.
Si N = 0 énumeration des terminaux disponibles.
IPARAM est un tableau de paramètres complémentaires. En général il n'est pas nécessaire de l'initialiser. Pour plus d'information sur ce tableau voir le paragraphe sur la description des terminaux.
CPARAM est un tableau de paramètres complémentaires.
Remarque: DEVICE n'ouvre le terminal qu'en sortie. Pour initialiser le terminal en entrée, il faut utiliser le programme DEVICI décrit dans la gestion des moyens d'entrée.
La subroutine ENDDEV indique la fin d'utilisation d'un terminal.
SUBROUTINE ENDDEV(N) INTEGER N
Input : N le numéro du terminal.