$	PAGE
$	ON Control_Y THEN GOTO Y_Xit
$	IF Criticize_Set THEN GOTO Criticize_2		! Cmd is already set
$	SET COMMAND SYS$SYSVPWFILES:CRITICIZE.CLD	! Define command
$	CRITICIZE_Set:=="T"				! Show it is set
$Criticize_2:
$	TYPE SYS$INPUT 
#6   Check Documents for English Errors



	Ooops!...    VMS V4.0 Munged me good! and I no longer
	can read and write to your terminal properly.  A 
	request has been made to get me repaired, but I have
	no idea when that will be.  Until then, Sorry........

$	WP_Filename=="*"
$	WAIT 00:00:08
$	EXIT
$	@SYS$VPW_WPFILES:Getfil				! get file name
$	IF WP_Filename .EQS. "*" THEN EXIT		! If ^Z or ret, -> menu
$	Wordfile="DEFAULT.WRD"
$	TESTFILE DEFAULT.WRD
$	IF $STATUS .NE.1 THEN Wordfile=""
$	ASSIGN/USER SYS$COMMAND SYS$INPUT
$	ON Control_Y THEN GOTO Criticize_3
$	CRITICIZE 'WP_Filename' 'Wordfile'
$Criticize_3:
$	ON Control_Y THEN GOTO Y_xit
$	EXIt
$Y_Xit:
$	EXIT 3