:i	static char d_system_sccs_id[] = "%W% %G%";
:1#include "V.h"
/*
*   status = System(cmd,msg);
*
* Debug version of the system(cmd) library routine.
*/
d_system(cmd,msg)
	char* cmd;
	char* msg;
{	int   r;

:2	if (!msg) msg = "Command";
:4	V4 "%s\t%s\tCommand: \"%s\"",Vtime(),msg,cmd D;
	r = system(cmd);
:2	if (r || Vlvl>3)
:2		V2 "%s\t%s\tStatus=%d: \"%s\"",Vtime(),msg,r,cmd D;
	return r;
}