SUBROUTINE PLTUTL
	BYTE ISTR(72),IRTSTR(72)
C
10	WRITE(5,1000)
1000	FORMAT(' 1-ATTACH HP'/' 2-DETACH HP'/' 3-TRANSMIT'/
	1 ' 4-XMT-RECEIVE'/' 5-SEND DEV CTRL INSTR'/' 6-EXIT'
	2 ' OPTION>'$)
	READ(5,1010) IOPT
1010	FORMAT(I5)
	GO TO (100,200,300,300,500,600),IOPT
C
100	WRITE(5,1020)
1020	FORMAT(' LUN #='$)
	READ(5,1010) LUN
	IRET=IHPATT(LUN)
	GO TO 120
120	WRITE(5,1040) IRET
1040	FORMAT(' IHPATT IRET=',I6)
	GO TO 10
C
200	IRET=IHPDET(IDUM)
	WRITE(5,1060) IRET
1060	FORMAT(' IHPDET IRET=',I4)
	GO TO 10
C
300	WRITE(5,1065)
1065	FORMAT(' TYPE CHARACTER STRING'/' >'$)
	READ(5,1070) ISTR
1070	FORMAT(80A1)
	IF(IOPT.EQ.4) GO TO 400
	CALL XMT(ISTR)
	GO TO 10
C
400	CALL REC(ISTR,IRTSTR,LSTR)
	WRITE(5,1090) LSTR,(IRTSTR(L), L=1,LSTR)
1090	FORMAT(' INPUT STRING LENGTH=',I4/' STRING=',70A1,/,1X,60A1)
	GO TO 10
C
500	WRITE(5,1100)
1100	FORMAT(' DEVICE CONTROL INSTRUCTION (NO LEADING ESC REQD)='$)
	READ(5,1070) (ISTR(I),I=2,72)
	ISTR(1)=27
	CALL XMT(ISTR)
	GO TO 10
C
C
600	RETURN
C
	END