/*
** CopyToUnit.ced
**
** $VER: CopyToUnit.ced 1.0.0 (24.05.93)
**
** This script allows you to copy 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 '"Copy to which unit?"' MinClipUnit MaxClipUnit
IF (RESULT = "") THEN
	EXIT 0
ELSE DO
	NewClipUnit = RESULT
END

SET CLIPBOARD UNIT NewClipUnit

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

SET CLIPBOARD UNIT OldClipUnit

EXIT 0