SUBROUTINE VTTEXT(IDSPLY,ISIZE,IROW,ICOL,ITEXT) C C Fonction: Ecrit la chaine contenue dans 'ITEXT' suivie C d'un , le premier caractere etant a la ligne C IROW et a la colonne ICOL. C Le mode d'ecriture est determine par IDSPLY et C la taille des caracteres par ISIZE. C Arguments: C IDSPLY (Pour obtenir une combinaison des options C utiliser la somme des codes). C 0 Retour a la normale C 1 Caracteres gras C 2 Soulignement C 4 Clignotement C 8 Inversion video C C ISIZE Taille des caracteres C 0 Simple largeur, simple hauteur C 1 Double largeur, simple hauteur C 2 Double largeur, double hauteur C C IROW et ICOL sont les numeros de ligne et de colonne C pour le premier caractere C C ITEXT est un tableau d'octets contenant le texte a ecrire C se terminant par un 'NUL' ou une chaine Hollerith. C BYTE CHAR(2),C(4),CRLF(3) DATA C/0,';','m',0/ DATA CHAR/27,'['/ CALL VTMCUR(IROW,ICOL) IF (ISIZE.EQ.0) GO TO 1 IF (ISIZE.EQ.1) CALL VTDBLW(IROW,1) IF (ISIZE.EQ.2) CALL VTDBLH(IROW,1) DO 10 I = 1,ISIZE 1 CALL VTSGR(IDSPLY) IF ((I.EQ.2).AND.(ISIZE.EQ.2)) CALL VTMCUR(IROW+1,ICOL) CALL OUTSTR(ITEXT) IF ((I.EQ.2).AND.(ISIZE.EQ.2)) CALL VTMCUR(IROW+2,1) 10 CONTINUE CALL VTSGR(0) !Retour a la normale C CALL VTDBLW(IROW,0) ! la normale RETURN END