/*
** Delete-Until.ced
**
** $VER: Delete-Until.ced 1.0.1 (27.04.93)
**
** This script deletes all text from the current cursor position
** to the specified string, placing it in the Clipboard.
**
** This script requires CygnusEd Professional v3.5 (or later) to run.
**
** Copyright © 1990-1993 ASDG, Incorporated  All Rights Reserved
*/


OPTIONS RESULTS


GETSTRING
String = RESULT
IF (String = "") | (String = "RESULT") THEN
	EXIT 0

MARK

SEARCH FOR '"'||String||'"' 1 0 1 0

CUT

EXIT 0
