#include	"sysdef.h"
#include	"scerrd.h"
#define	then

/*								*/
/*	Copyright Notice					*/
/*								*/
/*								*/
/*	C version Copyright (C) 1984 Change Software, Inc.	*/
/*	Copyright (C) 1978 1979 1980 1981 1982 1983 1984 by	*/
/*		      Change Software, Inc.			*/
/*								*/
/*								*/
/*	This software is furnished under a license and may	*/
/*	be  used  and  copied  only in accordance with the	*/
/*	terms of such license and with  the  inclusion  of	*/
/*	the  above copyright notice.  This software or any	*/
/*	other copies thereof may not be provided or other-	*/
/*	wise made available to any other person.  No title	*/
/*	to and ownership of the software is hereby  trans-	*/
/*	ferred.							*/
/*								*/





vtsystem()
{

	char s[64] ;
	register int status ;
	
#if VAXVMS
	ceol24() ;
	kpnormal() ;
	if ( (status=lgetbin(s,"System command: ")) != 0 )
	  then	{
		scunloadline() ;
		creset() ;
		home() ;
		sclear() ;
		dclcommand(s) ;
		putbin("\015\012",2) ;
		status = lgetbin(s,"Type a carriage return to continue") ;
		scloadline() ;
		ref_screen() ;
		}
	kpapplication() ;
	goback() ;
#endif

}


vtlogsys()
{
#if	VAXVMS
	char f[64],s[64] ;
	register int status, status1 ;
	extern int *loclow ;
	
	kpnormal() ;
	getuniquefile(f) ;
	ceol24() ;
	if ( (status=lgetbin(s,"System command: ")) != 0 )
	  then	{
		scunloadline() ;
		creset() ;
		home() ;
		sclear() ;
		if ( (status1 = dombx(s,f)) == 0 ) then prsys_error() ;
		putbin("\015\012",2) ;
		status = lgetbin(s,"Type a carriage return to continue") ;
		scloadline() ;
		if ( status1 )
		  then	{
			scinsfile(f) ;
			delfile(f) ;
			rstpage(*loclow) ;
			}
		ref_screen() ;
		}
	kpapplication() ;
	goback() ;
#endif
}


static prsys_error()
{
	char s[80] ;
	geterror(s) ;
	xprintf("%s\n",s) ;
}