/*
** ExecuteLine.ced
**
** $VER: ExecuteLine.ced 1.0.1 (3.6.93)
**
** This script executes the current line as a CLI command or as a Rexx line if
** the first argument is R.
**
** This script requires CygnusEd Professional v3.5 (or later) to run.
**
** Copyright © 1990-1993 ASDG, Incorporated  All Rights Reserved
*/


OPTIONS RESULTS					/* Tell CygnusEd to return results when appropriate. */


STATUS LINEBUFFER				/* Ask for a copy of the current line. */
ARG Mode
IF (Mode = 'R') THEN
	INTERPRET RESULT			/* Get ARexx to interpret the line or */
IF (Mode ~= 'R') THEN
	ADDRESS COMMAND RESULT			/* get DOS to interpret the line. */

EXIT 0
