/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* apledpr APL2 V1.0.0 *************************************************
* Called from apledmd and apledqu to display a particular statement.   *
***********************************************************************/
#define INCLUDES APLCB+APLED+APLTOKEN+STDIO+STRING
#include "includes.h"
#define MAXLINE 1024
char *apledpr(ed,display)
Apled ed;		/* Statement to be printed.	*/
int display;	/* 1=display, 0=edit. */
{
	Apledfm; Apledpf; Apledps; Codechar; Endoper; Execmsg; Form; Quoteit;
	extern int aplerr;
	Apltoken curtok,tokhdr;
	Aplcb wrk;
	char *str;
	static char line[MAXLINE];
	int i,tokcnt;

	apledpf(ed->apledst, line, display); /* go format prefix */
	apledps(ed,line); /* now format statement */
	return(line);
}