/* (c) Copyright 1987 Michael Goetz								*/
/*																			*/
/*				File:		  	snapit									*/
/*				Returns:	  	void										*/
/*				Parameters:												*/
/*																			*/
/*																			*/

#include <stdio.h>
#include <string.h>

#include "advm.h"
#include "string.h"
#include "values.h"
#include "doubls.h"
#include "units.h"
#include "cif.h"


void snapit()

{
	char zflag, *p;

	zflag = (inunit == inincl) ? '-' : ' ';
	if (listed)
		return;
	listed = TRUE;
		/* get rid of CR's */
	while (p = strchr(zline, '\n'))
		*p = ' ';
	printf("%-11.11s %6d %c %-85.85s",zfid,nrec,zflag,zline);
	if (cif <= 0)
		printf (" %8.3lf",outkey);
	printf("\n");
}