/*
** Search-For-NULL.ced
**
** $VER: Search-For-NULL.ced 1.0.1 (2.6.93)
**
** This script demonstrates the use of the CLIP TO SEARCH BUFFER
** command, using NULL as the search string.
**
** This script requires CygnusEd Professional v3.5 (or later) to run.
**
** Copyright © 1990-1993 ASDG, Incorporated  All Rights Reserved
*/


OPTIONS RESULTS


OPEN NEW
IF (RESULT = 0) THEN DO
	CEDTOFRONT
	OKAY1 "Couldn't Open Temporary View!"
	EXIT 10
END

ENTER ASCII 0
BEG OF FILE
MARK
"END OF FILE"
CUT
CLIP TO SEARCH BUFFER
QUIT 1

REPEAT SEARCH FORWARDS
IF (RESULT = 0) THEN DO
	CEDTOFRONT
	OKAY1 "No NULL Found!"
END

EXIT 0
