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