	SUBROUTINE INITT(IBAUD)
	BYTE IF(21)
	COMMON/TKTRNX/ IX(38),KMOFLG(2),KGNMOD,KPADV,IX1,KOBLEN,
	* IX2(2),KPAD2,KBAUDR,IX3(10),KFACTR,KTERM,IX4(12),
	* KINLFT,KOTLFT,IX5
C
	TYPE 100
100	FORMAT('0PLOTFILE (<CR>=KB:) : ',$)
	ACCEPT 110,IQ,(IF(I),I=1,20)
110	FORMAT(Q,20A1)
	IF (IQ.GT.0) GOTO 10
	IF(1)='K'
	IF(2)='B'
	IF(3)=':'
	IQ=3
10	IF(IQ+1)=0
	OPEN (UNIT=13,NAME=IF,CARRIAGECONTROL='FORTRAN')
C
	KBAUDR=IBAUD
	KPAD2=KBAUDR/308+1
	KGNMOD=0
	KPADV=0
	KOBLEN=72
	KMOFLG(1)=1
	KTERM=1
	KFACTR=4
C * SET OUTPUT BUFFER FORMAT
	CALL SETBUF(3)
	KINLFT=0
	KOTLFT=70
	CALL RESET
	CALL NEWPAG
	CALL TSEND
	RETURN
	END
