/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* aplwksr APL2 V1.0.0 *************************************************
* Called by aplwksp to process commands beginning with a right         *
* parenthesis that must be deferred for later execution.               *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
Aplcb aplwksr(rite,cp,cpend,code)
Aplcb rite;	/* Aplcb for command text. */
char *cp;		/* Pointer to char after right parenthesis. */
char *cpend;	/* Pointer to end of command text. */
int code;		/* code of deferred operation */
{
	/* following are all related to delayed workspace commands */
	extern Aplcb 	aplwkcb; /* Workspace command text. */
	extern char	*aplwkcp; /* Workspace command text. */
	extern char	*aplwken; /* End workspace command text. */
	extern int	aplwkcd;  /* Command code, OFF, LOAD, etc. */

	aplwkcb = rite;
	aplwkcp = cp;
	aplwken = cpend;
	aplwkcd = code;
	return(NULL);
}