SUBROUTINE INITDRAG
C Routine to start a dragon moving horizontally across the screen
	IMPLICIT REAL*8 (A-Z)
	INCLUDE 'ARRAYS.INC/NOLIST'
	BYTE DRAG_INIT(2,2)
	DATA DRAG_INIT / BORDER_MINX,1,
     1			BORDER_MAXX,-1 /
	PARAMETER RANL_DRAGINIT = 1,
     1		RANU_DRAGINIT = 2
	INTEGER*4 RANDINT,IDX
C
C Get a random index into the dragon initialization values array
C Then use values in this array to initialize the dragon
C Indicate that the dragon is to move on the next screen update (it
C moves one square every other screen update)
C
	IDX = RANDINT(RANL_DRAGINIT,RANU_DRAGINIT)
	TARG_XLOC = DRAG_INIT(1,IDX)
	DRAG_DIR = DRAG_INIT(2,IDX)
	TARG_YLOC = RANDINT(RANL_DRAGY,RANU_DRAGY)
	TARG_SCORE(IDX_DRAG) = 100*RANDINT(RANL_DRAGS,RANU_DRAGS)
	DRAG_MOVE = .TRUE.
C
C Request that the terminal bell ring as a warning (see WRTSCR)
C
	BELL_COUNT = BELLCNT_DRAG
	RETURN
	END