PROGRAM SEF
C******	SETS EVENT FLAG SPECIFIED IN COMMAND LINE
	BYTE	BUF(80)
	INTEGER IDS, EF
	INTEGER*4 CMD
CODE...
	CALL GETMCR (BUF, IDS)
	DECODE (6, 100, BUF, ERR=1200) CMD, EF
	IF (CMD .EQ. 'SEF ') CALL SETEF (EF,IDS)
	IF (CMD .EQ. 'CEF ') CALL CLREF (EF,IDS)
	IF (CMD .NE. 'REF ')  GO TO 1200
		CALL READEF (EF, IDS)
		IF (IDS .EQ. 0)  GO TO 1000
			WRITE(1,200)EF
			GO TO 1200
 1000			WRITE(1,300)EF
 1200	CONTINUE
	CALL EXIT
  100	FORMAT (1A4, I2)
  200	FORMAT (1X, 'Event flag ', I2, ' is set')
  300	FORMAT (1X, 'Event flag ', I2, ' is clear')
	END