/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* qquadout APL2 V1.0.0 ************************************************
* Called by execasgn.                                                  *
* Prints the argument on the standard output.  Quadout doesn't issue   *
* endoper for the argument, but instead returns its address.  Thus,    *
* quadout can be nested several times in a series of invocations.      *
***********************************************************************/
#define INCLUDES APLCB+STDIO
#include "includes.h"
Aplcb qquadout(rite)
Aplcb rite;
{
	Quadoutc;

	return(quadoutc(rite,0)); /* write output, no carr. ret. */
}