/*
** CutToUnit.ced
**
** $VER: CutToUnit.ced 1.0.0 (24.05.93)
**
** This script allows you to cut the currently defined block to a specific
** Clipboard unit.
**
** This script requires CygnusEd Professional v3.5 (or later) to run.
**
** Copyright © 1993 ASDG, Incorporated  All Rights Reserved
*/


OPTIONS RESULTS


NL = '0A'X
TRUE = 1
FALSE = 0
MinClipUnit = 0
MaxClipUnit = 255

STATUS BLOCKY
IF (RESULT = -1) THEN DO
	CEDTOFRONT
	OKAY1 "No block currently defined."
	EXIT 0
END

STATUS CLIPUNIT
OldClipUnit = RESULT
NewClipUnit = OldClipUnit

CEDTOFRONT
GETNUMBER NewClipUnit '"Cut to which unit?"' MinClipUnit MaxClipUnit
IF (RESULT = "") THEN
	EXIT 0
ELSE DO
	NewClipUnit = RESULT
END

SET CLIPBOARD UNIT NewClipUnit

CUT
IF (RESULT = 0) THEN DO
	CEDTOFRONT
	OKAY1 "Error cutting to clipboard unit" NewClipUnit || "."
END

SET CLIPBOARD UNIT OldClipUnit

EXIT 0