SUBROUTINE TK4025
	INTEGER ISB(2),IPARM(6)
	BYTE OUTBUF(28)
	DATA OUTBUF /'!','W','O','R',' ','3','3',' ',
	1	'H',"15,"12,
	2	'!','G','R','A',' ','1',',','3','5',"15,"12,
	3	'!','S','H','R',"15,"12 /

C	ROUTINE TO ALLOW A TEKTRONIX 4025 OPERATE
C	LIKE A 4010.

	CALL GETADR(IPARM(1),OUTBUF(1))
	IPARM(2)=28
	CALL WTQIO("400,5,1,,ISB,IPARM,IDS)
	RETURN
	END