SUBROUTINE VTDBLW(IROW,IARG) C C Fonction: Commute la simple et la double largeur d'ecriture C C Argument: IARG =0 ---> simple largeur C IARG =1 ---> double largeur C BYTE C0(4),C1(4) DATA C0/27,'#','5',0/ DATA C1/27,'#','6',0/ IF ((IARG.LT.0).OR.(IARG.GT.1)) RETURN CALL VTCGC(1) CALL VTMCUR(IROW,1) IF (IARG.EQ.0) CALL OUTSTR(C0) IF (IARG.EQ.1) CALL OUTSTR(C1) CALL VTCGC(0) RETURN END