/*
** PasteFromUnit.ced
**
** $VER: PasteFromUnit.ced 1.0.0 (24.05.93)
**
** This script allows you to paste the contents of a specific Clipboard unit to
** the current cursor position.
**
** 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 CLIPUNIT
OldClipUnit = RESULT
NewClipUnit = OldClipUnit

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

SET CLIPBOARD UNIT NewClipUnit

PASTE
IF (RESULT = 0) THEN DO
	CEDTOFRONT
	OKAY1 "Error pasting from clipboard unit" NewClipUnit || "."
END

SET CLIPBOARD UNIT OldClipUnit

EXIT 0
