/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* apledpf APL2 V1.0.0 *************************************************
* Called from apledpr and apledqu with a statement number, and a string*
* pointer into which the formatted statement prefix is to be stored.   *
***********************************************************************/
#define INCLUDES STDIO+STRING+APLCHDEF
#include "includes.h"
void apledpf(no,line,display)
double no;		/* Statement number.	*/
char *line;		/* Place to store formatted number. */
int display;		/* 1=display, 2=edit. */
{
	Apledfm; Codechar;
	char *str;

	if (no == 0.0 && display) /* it is function header */
		sprintf(line,"         %s",codechar(DEL));
	else /* not function header, or edit - start with line number */
		strcpy(line,apledfm(no)); /* format stmt no */
}