#include <stdio.h>			/* module titlpag9 */
#include <conio.h>
#include <graph.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <dos.h>
#include <fcntl.h>
#include <sys\types.h>
#include <sys\stat.h>
#include <io.h>
#include <gxlib.h>
#include <grlib.h>
#include <fxlib.h>
#include <constant.h>
#include <declare9.h>


/***************************************************************************/
titlepag(void)				/* program entry screen */

{
		clkey();

		clear();		/* clear entire screen */

		rect(BLUE,60,60,600,450);

		rect(DARKBLUE,80,80,580,430);

		font(4);

		text(PALEBLUE,100,400,"Continental");
		tex(200,300,"Electronics");
		tex(300,200,"Corporation");

		font(2);

		text(YELLOW,0,15,"REV 1.00 (12-14-96) Copyright Continental Electronics 1990-1996.");

		refresh=1;

}


/****************************************************************************/
zap(void)			/* concentric solid circles */

{
	int i;

		clear();

	for(i=1;i<=15;i++)
		circle(i,320,240,240-15*i);

		font(4);

		text(BLACK,150,300,"THAT'S ALL");

		tex(220,250,"FOLKS");

		pause(2);

}


/*****************************************************************************/
Texas(tcolor,tfstyle,tfcolor)		/* draw texas */

{

	int Tpoints[][2]={
			132,370, 218,370, 218,308, 221,305, 224,305, 
                        228,302, 232,301, 236,299, 240,297, 244,294, 
                        250,292, 256,291, 272,290, 276,288, 286,279, 
                        300,279, 318,282, 346,285, 379,275, 379,265, 
                        377,261, 377,246, 380,242, 379,229, 387,217, 
                        395,206, 398,196, 401,192, 402,189, 401,183, 
                        400,169, 403,163, 395,154, 395,150, 388,143, 
                        372,143, 365,143, 366,138, 371,136, 377,136, 
                        377,134, 359,126, 354,116, 331,101, 325,101, 
                        323,109, 316,102, 314,104, 311,103, 309,82, 
                        305,79,  305,75,  299,72,  298,66,  303,65, 
                        307,61,  307,43,  315,26,  313,23,  281,26, 
                        276,30,  263,33,  255,38,  255,50,  251,54, 
                        241,55,  236,59,  232,74,  220,89,  205,100, 
                        185,137, 192,143, 190,148, 184,147, 178,140, 
                        174,145, 163,146, 140,146, 133,137, 133,131, 
                        128,128, 123,127, 120,119, 112,124,  96,130, 
                         91,141,  76,157,  59,179,  54,187,  44,197, 
                         40,205,  27,211,  12,224, 127,224, 131,275, 
                        132,370
                        };

	int Star[][2]=	{
			290,225, 300,250, 310,225, 285,240, 315,240,
			290,225
			};

		setcolor(tcolor);

		grSetFillStyle(tfstyle,tfcolor,grOPAQUE);

		grDrawPoly(&Tpoints[0][0],96,grOUTLINE+grFILL);

		setcolor(WHITE);

		grSetFillStyle(tfstyle,WHITE,grOPAQUE);

		grDrawPoly(&Star[0][0],6,grOUTLINE+grFILL);

}