SUBROUTINE SETVID(LUN,VT100,NORM,BOLD,BLINK,REVR) C C Routine to set up the escape sequences to cause a C VT100 to go BOLD, BLINK, or go REVERSE VIDEO. If C the LUN is not a VT100, then these escape sequences C are all set the the value NUL, which is generally C ignored by terminals (at least the VC404's are that way). C Each sequence is a 4 byte array. C INTEGER LUN,TTYPE BYTE NORM(4),BOLD(4),BLINK(4),REVR(4),CODE(4),ESC LOGICAL VT100 DATA CODE/"33,'[','0','m'/ VT100 = .FALSE. CALL GETTRM(LUN,TTYPE) IF (TTYPE.EQ.13) VT100 = .TRUE. IF (VT100) GO TO 10 C C Not a VT100 C DO 5 I=1,4 NORM(I) = 0 BOLD(I) = 0 BLINK(I)= 0 REVR(I) = 0 5 CONTINUE RETURN C C A VT100! C 10 DO 15 I=1,4 NORM(I) = CODE(I) BOLD(I) = CODE(I) BLINK(I)= CODE(I) REVR(I) = CODE(I) 15 CONTINUE BOLD(3) = '1' BLINK(3)= '5' REVR(3) = '7' RETURN END