#ifndef lint
static const char	RCSid[] = "$Id: label.c,v 1.2 2003/11/15 02:13:37 schorsch Exp $";
#endif

#include "local4014.h"
#include "lib4014.h"

#define N 0104
#define E 0101
#define NE 0105
#define S 0110
#define W 0102
#define SW 0112
/*	arrange by incremental plotting that an initial
 *	character such as +, X, *, etc will fall
 *	right on the point, and undo it so that further
 *	labels will fall properly in place
 */
char lbl_mv[] = {
	036,040,S,S,S,S,S,S,SW,SW,SW,SW,SW,SW,SW,SW,SW,SW,037,0
};
char lbl_umv[] = {
	036,040,N,N,N,N,N,N,NE,NE,NE,NE,NE,NE,NE,NE,NE,NE,037,0
};

extern void
label(
	char *s
)
{
	register int i,c;
	for(i=0; (c=lbl_mv[i]); i++)
		putch(c);
	for(i=0; (c=s[i]); i++)
		putch(c);
	for(i=0; (c=lbl_umv[i]); i++)
		putch(c);
}