$ LOOP:
$	FILE = F$SEARCH("*.HTML")
$	IF FILE .EQS. "" THEN EXIT
$	SEARCH 'FILE' "</head>"
$	IF $SEVERITY .NE. 1 THEN GOTO LOOP
$	FNAME = F$PARSE(FILE,,,"NAME")
$!	IF F$LOCATE("_EN",FNAME) .NE. F$LENGTH(FNAME)
$!	 THEN 
$	  EDITTTT/EDT/COMMAND=ADD.EDT 'FILE'
$!	 ELSE
$!	  EDITTTT/EDT/COMMAND=ADDENG.EDT 'FILE'
$!	endif
$	GOTO LOOP