	SUBROUTINE INIT
	INCLUDE 'BOSS.PRM'
	COMMON/HALSTF/ KRASH,KERROR
	DIMENSION NAME(1)
	KRASH = 0 ; KERROR = 0
	LEN000 = 18
	LEN401 = 20
	LEN402 = 20
	LEN403 = 10
	LEN501 = 18
	LEN601 = 18
C
C	--GET PID 'BOSS' FOR BOSS
C
	NAME(1) = 'BOSS '
	PID = INFCII(NAME,1,0,0,ERROR)
	IF (ERROR .EQ. 0) GOTO 10
C
C	--ERROR SOMEWHERE...LETS ISOLATE
C
	ERROR = ERROR .AND. "777777
	IF (ERROR .NE. 0) GOTO 20
C
C	--SEND ERROR
C
	WRITE(5,30)
	GOTO 10
C
C	RECEIVE ERROR
C
20	IF ((ERROR .AND. "77) .EQ. "75) GOTO 50
	WRITE(5,60)
	CALL CALLI("12,0)
C
C	--PID ALREADY THERE
C
50	WRITE(5,60)
	CALL CALLI("12,0)
10	RETURN
30	FORMAT(' [BOSS: IPCF SEND ERROR...CONTINUING')
60	FORMAT(' [BOSS ALREADY RUNNING]')
	END

