SUBROUTINE INIT
C Routine to initialize variables, and draw fixed portion of screen
	IMPLICIT REAL*8 (A-Z)
	INCLUDE 'ARRAYS.INC/NOLIST'
	INTEGER*4 IX,IY
	INTEGER*4 ISTAT,SYS$ASSIGN
C
	ISTAT = SYS$ASSIGN('TT',ICHAN,,)
D	WRITE(11,*) 'ASSIGN STATUS=',ISTAT
C
C Initialize targets database
C
	TARG_START = .FALSE.
	TARG_ACTIVE = .FALSE.
	TARG_IDX = IDX_SPID	! Must set to valid target for HITCHECK
	TARG_CHAR(IDX_SPID) = CHAR_SPID
	TARG_CHAR(IDX_DRAG) = CHAR_DRAG
	TARG_CHAR(IDX_BOMB) = CHAR_BOMB
	TARG_HITCHAR(IDX_SPID) = CHAR_HITSPID
	TARG_HITCHAR(IDX_DRAG) = CHAR_HITDRAG
	TARG_HITCHAR(IDX_BOMB) = CHAR_HITBOMB
	TARG_SCORE(IDX_SPID) = SCOR_HITSPID
C	TARG_SCORE(IDX_DRAG) is set in INITDRAG each time
	TARG_SCORE(IDX_BOMB) = SCOR_HITBOMB
C
C Set screen array to all blanks and set up flip-flop pointers
C
	POINT_OLD = 1
	POINT_NEW = 2
	DO IY = SCREEN_MINY,SCREEN_MAXY
	DO IX = SCREEN_MINX,SCREEN_MAXX
	SCREEN_ARY(IX,IY,POINT_NEW) = ' '
	ENDDO
	ENDDO
C
C Initialize displayable values such that they will be updated on the
C first call to WRTSCR
C
	SCORE(POINT_NEW) = -1
	SCORE(POINT_OLD) =  0
	LIVES(POINT_NEW) = -1
	LIVES(POINT_OLD) = INIT_LIVES
C
C Initialize the gun
C
	GUN_X = GUN_INIT_X
	GUN_Y = GUN_INIT_Y
D	WRITE(18,*) 'GUN:',GUN_X,GUN_Y
C
C Draw fixed portion of the screen
C
	CALL DRAWFIXED
	RETURN
	END