SUBROUTINE BLINK(I)
C Routine to enable or disable blinking - used for score display
C Call with I = 0 to turn off blink mode, I = 1 to turn on blink mode
	IMPLICIT REAL*8 (A-Z)
	INCLUDE 'ARRAYS.INC/NOLIST'
	PARAMETER BLINK_BUFF_SIZE = 4
	BYTE BLINK_BUFF(BLINK_BUFF_SIZE),CODE(0:1)
	INTEGER*4 ISTAT,SYS$QIOW,I
	DATA BLINK_BUFF / 27,'[',0,'m' /
	DATA CODE / '0','5' /
C
C Write BLINK_BUFF, after putting either an 'enable' or a 'disable'
C in BLINK_BUFF
C
	BLINK_BUFF(3) = CODE(I)
	ISTAT = SYS$QIOW(%VAL(EFN_WRITE),%VAL(ICHAN),%VAL(WRITE_FUNC),
     1		,,,BLINK_BUFF,%VAL(BLINK_BUFF_SIZE),,
     2		%VAL(NO_CARRIAGE_CONTROL),,)
D	WRITE(11,*) 'BLINK_BUFF QIOW STATUS=',ISTAT
	RETURN
	END