/* test routines for cvlib routines */

#include <STDIO.H>
#include "Z3TCAP.H"
#include "CVFUNC.H"

void 	main()
{
#ifndef BDSC
	extern char *envadr;
#endif
	int i;

#ifndef BDSC
	if(!(z3vinit(envadr))) {
#else
	if(!(z3vinit(zenv()))) {	/* use Bds zenv() function */
#endif
		puts("Tcap initialization failed!");
		exit(-1);
	}
	tinit();

	cls();	
	goxy(4,22);
	standout();
	puts("TEST of C language access to Z3TCAP");
	standend();
	if(tcap.gulc) {
		fbox(15,7,5,21,FALSE);
		fbox(15,54,5,21,FALSE);
		hbox(14,6,5,21,FALSE);
		hbox(14,55,5,21,FALSE);
		box(13,5,5,21,TRUE);
		box(13,56,5,21,FALSE);
		goxy(15,9);
		puts(" How's this? ");
		goxy(15,61);
		puts(" How's this? ");
		hline(9,20,40,tcap.ghb,TRUE);
		vline2(6,40,15,tcap.gfb,TRUE);
	} else {
		puts("If you had an extended TCAP, a box would be here");
	}
	goxy(23,1);
	tdinit();
}