/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* quadout APL2 V1.0.0 *************************************************
* Called by execute.                                                   *
* 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 quadout(rite)
Aplcb rite;
{
	Errinit; Quadoutc;

	return(quadoutc(rite,1)); /* write output, followed by carr. ret. */
}