C
C
C this routine is for transmiting data to terminal
C
C
        SUBROUTINE SEND(STRING,MODE)
        BYTE BUFFER(80),CR,ESC,LF
        CHARACTER*1 CHR_ESC,CHR_CR,CHR_LF
        CHARACTER*3 CHR_ESCL
        CHARACTER*40 STRING
        DATA CHR_ESCL /'&pW'/
        DATA CR /13/, ESC /27/,LF /10/
	CHR_CR = CHAR(CR)
	CHR_ESC= CHAR(ESC)
        CHR_LF = CHAR(LF)
        CALL LENG(STRING,ILEN)
        II=ILEN
        GOTO(10,20,30,40),MODE       ! goto desired transmitt sequence
10      ILEN=ILEN+2
        ENCODE (ILEN, 1000, BUFFER) CHR_ESC, STRING(1:II),CHR_CR
        GOTO 50
20      ENCODE (ILEN, 2000, BUFFER) STRING(1:II)
        GOTO 50
30      ILEN=ILEN+5
        ENCODE(ILEN,3000,BUFFER) CHR_ESC,CHR_ESCL,STRING(1:II),CHR_LF
        GOTO 50
40      ILEN=ILEN+1
        ENCODE(ILEN,4000,BUFFER) CHR_ESC,STRING(1:II)
50      ISTAT = TT_OUT_NUMSTR(BUFFER, ILEN)
        RETURN
1000	FORMAT (A, A, A)
2000    FORMAT (A)
3000    FORMAT(A, A, A, A)
4000    FORMAT(A, A)
        END