SUBROUTINE DOESC(LUN,SEQ,NCHS) C C Routine to issue an escape sequence to the specified LUN C with to characters to follow the ESC in character string SEQ. C The length of SEQ is NCHS. C IMPLICIT INTEGER (A-Z) BYTE SEQ(20),ESCAPE(20),ESC DIMENSION ISB(2),DPB(6) EQUIVALENCE (ESCAPE(1),ESC) DATA ESC/"33/ C CALL GETADR(DPB,ESCAPE) DPB(2) = NCHS+1 DO 10 I=1,NCHS 10 ESCAPE(I+1) = SEQ(I) CALL WTQIO("410,LUN,5,,ISB,DPB) RETURN END