SUBROUTINE VTSGR(IDSPLY) C C Fonction: Selectionner un mode pour les ecritures suivantes C 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 Video inverse C C BYTE CHAR(2),C(4),C0(5) DATA C0/27,'[','0','m',0/ DATA C/0,';','m',0/ DATA CHAR/27,'['/ CALL OUTSTR(C0) IFLAG=0 IF (IDSPLY.EQ.0) GOTO 100 CALL OUTSTR(CHAR,2) IF ((IDSPLY.AND.1).EQ.0) GOTO 1 IFLAG=1 C(1)="61 CALL OUTSTR(C,1) 1 IF ((IDSPLY.AND.2).EQ.0) GOTO 2 IF (IFLAG.EQ.1) CALL OUTSTR(';') IFLAG=1 C(1)="64 CALL OUTSTR(C,1) 2 IF ((IDSPLY.AND.4).EQ.0) GOTO 3 IF(IFLAG.EQ.1) CALL OUTSTR(';') IFLAG=1 C(1)="65 CALL OUTSTR(C,1) 3 IF ((IDSPLY.AND.8).EQ.0) GOTO 4 IF(IFLAG.EQ.1) CALL OUTSTR(';') C(1)="67 CALL OUTSTR(C,1) 4 CALL OUTSTR('m') !TERMINATE LIST 100 RETURN END