/******************************************************************************/
/* asciixmas                                                                  */
/* December 1989             Larry Bartz           Indianapolis, IN           */
/*                                                                            */
/*                                                                            */
/* I'm dreaming of an ascii character-based monochrome Christmas,             */
/* Just like the one's I used to know!                                        */
/* Via a full duplex communications channel,                                  */
/* At 9600 bits per second,                                                   */
/* Even though it's kinda slow.                                               */
/*                                                                            */
/* I'm dreaming of an ascii character-based monochrome Christmas,             */
/* With ev'ry C program I write!                                              */
/* May your screen be merry and bright!                                       */
/* And may all your Christmases be amber or green,                            */
/* (for reduced eyestrain and improved visibility)!                           */
/*                                                                            */
/*                                                                            */
/*                                                                            */
/*                                                                            */
/*                                                                            */
/* IMPLEMENTATION                                                             */
/*                                                                            */
/* Feel free to modify the defined string FROMWHO to reflect you, your        */
/* organization, your site, whatever.                                         */
/*                                                                            */
/* This really looks a lot better if you can turn off your cursor before      */
/* execution. I wanted to do that here but very few termcap entries or        */
/* terminfo definitions have the appropriate string defined. If you know      */
/* the string(s) for the terminal(s) you use or which your site supports,     */
/* you could call asciixmas from within a shell in which you issue the        */
/* string to the terminal. The cursor is distracting but it doesn't really    */
/* ruin the show.                                                             */
/*                                                                            */
/* At our site, we invoke this for our users just after login and the         */
/* determination of terminal type.                                            */
/*                                                                            */
/*                                                                            */
/* PORTABILITY                                                                */
/*                                                                            */
/* I wrote this using only the very simplest curses functions so that it      */
/* might be the most portable. I was personally able to test on five          */
/* different cpu/UNIX combinations.                                           */
/*                                                                            */
/*                                                                            */
/* COMPILE                                                                    */
/*                                                                            */
/* usually this:                                                              */
/*                                                                            */
/* cc -O asciixmas.c -lcurses -o asciixmas -s                                 */
/*                                                                            */
/*                                                                            */
/* Zilog S8000 models 11, 21, 31, etc with ZEUS variant of SYSTEM III         */
/* maybe other SYSTEM III also:                                               */
/*                                                                            */
/* cc asciixmas.c -lcurses -ltermlib -o asciixmas -s                          */
/*                                                                            */
/* as above with optional "peephole optimizer" installed:                     */
/*                                                                            */
/* cc -O asciixmas.c -lcurses -ltermlib -o asciixmas -s                       */
/*                                                                            */
/*                                                                            */
/* Zilog S8000 models 32, 130 with WE32100 chip and SYS V, REL2               */
/* maybe 3B2 also?                                                            */
/*                                                                            */
/* cc -f -O -K sd asciixmas.c -lcurses -o asciixmas -s                        */
/*                                                                            */
/*                                                                            */
/* Pyramid, Sequent, any other "dual universe" types compile and execute      */
/* under either universe. The compile line for the ucb universe (as you       */
/* might expect) is the same as for SYS III UNIX:                             */
/*                                                                            */
/* cc -O asciixmas.c -lcurses -ltermlib -o asciixmas -s                       */
/*                                                                            */
/* The above compile will also hold true for other BSD systems. (I hope)      */
/*                                                                            */
/*                                                                            */
/*                                                                            */
/*                                                                            */
/* For the Scrooges out there among you who don't want this thing to loop     */
/* forever (or until the user hits a key), insert this into your compile      */
/* line just after "cc" :                                                     */
/*                                                                            */
/* -DNOLOOP                                                                   */
/*                                                                            */
/* like so:                                                                   */
/*                                                                            */
/* cc -DNOLOOP -O asciixmas.c -lcurses -o asciixmas -s                        */
/*                                                                            */
/*                                                                            */
/*                                                                            */
/******************************************************************************/

/*
 * $Id: xmas.c,v 1.13 1999/11/13 23:39:01 tom Exp $
 */
#include <test.priv.h>

#include <signal.h>

#define FROMWHO "Mark Hessling - (M.Hessling@gu.edu.au)"

static int my_bg = COLOR_BLACK;
static int y_pos, x_pos;

static WINDOW
	*treescrn, *treescrn2,*treescrn3, *treescrn4,*treescrn5, *treescrn6,
	*treescrn7, *treescrn8,
	*dotdeer0,
	*stardeer0,
	*lildeer0, *lildeer1, *lildeer2, *lildeer3,
	*middeer0, *middeer1, *middeer2, *middeer3,
	*bigdeer0, *bigdeer1, *bigdeer2, *bigdeer3, *bigdeer4,
	*lookdeer0, *lookdeer1, *lookdeer2, *lookdeer3, *lookdeer4,
	*w_holiday,
	*w_del_msg;

static int boxit(void);
static int seas(void);
static int greet(void);
static int fromwho(void);
static int tree(void);
static int balls(void);
static int star(void);
static int strng1(void);
static int strng2(void);
static int strng3(void);
static int strng4(void);
static int strng5(void);
static int reindeer(void);
static int blinkit(void);
static RETSIGTYPE done(int sig) GCC_NORETURN ;

static void
set_color(WINDOW *win, chtype color)
{
	if (has_colors()) {
		static bool *pairs;
		int n = (color + 1);
		if (pairs == 0)
			pairs = (bool *)calloc(COLORS+1, sizeof(bool));
		if (!pairs[n]) {
			init_pair(n, color, my_bg);
			pairs[n] = TRUE;
		}
		wattroff(win, A_COLOR);
		wattron(win, COLOR_PAIR(n));
	}
}

static void
unset_color(WINDOW *win)
{
	if (has_colors())
		wattrset(win, COLOR_PAIR(0));
}

static void
look_out(int msecs)
{
	napms(msecs);
	if (getch() != ERR) {
		beep();
		done(0);
	}
}

int main(
	int argc GCC_UNUSED,
	char **argv GCC_UNUSED)
{
int loopy;

	initscr();
	noecho();
	nonl();
	refresh();
	signal(SIGINT,done);
	signal(SIGTERM,done);
#if !defined	DOS && !defined OS2
	signal(SIGHUP,done);
	signal(SIGQUIT,done);
#endif
	if (has_colors()) {
		start_color();
#ifdef HAVE_USE_DEFAULT_COLORS
		if (use_default_colors() == OK)
			my_bg = -1;
#endif
	}
	curs_set(0);

	treescrn = newwin(16,27,3,53);
	treescrn2 = newwin(16,27,3,53);
	treescrn3 = newwin(16,27,3,53);
	treescrn4 = newwin(16,27,3,53);
	treescrn5 = newwin(16,27,3,53);
	treescrn6 = newwin(16,27,3,53);
	treescrn7 = newwin(16,27,3,53);
	treescrn8 = newwin(16,27,3,53);

	dotdeer0 = newwin(3,71,0,8);

	stardeer0 = newwin(4,56,0,8);

	lildeer0 = newwin(7,53,0,8);
	lildeer1 = newwin(2,4,0,0);
	lildeer2 = newwin(2,4,0,0);
	lildeer3 = newwin(2,4,0,0);

	middeer0 = newwin(15,42,0,8);
	middeer1 = newwin(3,7,0,0);
	middeer2 = newwin(3,7,0,0);
	middeer3 = newwin(3,7,0,0);

	bigdeer0 = newwin(10,23,0,0);
	bigdeer1 = newwin(10,23,0,0);
	bigdeer2 = newwin(10,23,0,0);
	bigdeer3 = newwin(10,23,0,0);
	bigdeer4 = newwin(10,23,0,0);

	lookdeer0 = newwin(10,25,0,0);
	lookdeer1 = newwin(10,25,0,0);
	lookdeer2 = newwin(10,25,0,0);
	lookdeer3 = newwin(10,25,0,0);
	lookdeer4 = newwin(10,25,0,0);

	w_holiday = newwin(1,26,3,27);

	w_del_msg = newwin(1,19,23,60);

	mvwaddstr(w_del_msg,0,0,"Hit any key to quit");

	mvwaddstr(w_holiday,0,0,"H A P P Y  H O L I D A Y S");

	/* set up the windows for our various reindeer */

	/* lildeer1 */
	mvwaddch(lildeer1,0,0,(chtype)'V');
	mvwaddch(lildeer1,1,0,(chtype)'@');
	mvwaddch(lildeer1,1,1,(chtype)'<');
	mvwaddch(lildeer1,1,2,(chtype)'>');
	mvwaddch(lildeer1,1,3,(chtype)'~');

	/* lildeer2 */
	mvwaddch(lildeer2,0,0,(chtype)'V');
	mvwaddch(lildeer2,1,0,(chtype)'@');
	mvwaddch(lildeer2,1,1,(chtype)'|');
	mvwaddch(lildeer2,1,2,(chtype)'|');
	mvwaddch(lildeer2,1,3,(chtype)'~');

	/* lildeer3 */
	mvwaddch(lildeer3,0,0,(chtype)'V');
	mvwaddch(lildeer3,1,0,(chtype)'@');
	mvwaddch(lildeer3,1,1,(chtype)'>');
	mvwaddch(lildeer3,1,2,(chtype)'<');
	mvwaddch(lildeer2,1,3,(chtype)'~');


	/* middeer1 */
	mvwaddch(middeer1,0,2,(chtype)'y');
	mvwaddch(middeer1,0,3,(chtype)'y');
	mvwaddch(middeer1,1,2,(chtype)'0');
	mvwaddch(middeer1,1,3,(chtype)'(');
	mvwaddch(middeer1,1,4,(chtype)'=');
	mvwaddch(middeer1,1,5,(chtype)')');
	mvwaddch(middeer1,1,6,(chtype)'~');
	mvwaddch(middeer1,2,3,(chtype)'\\');
	mvwaddch(middeer1,2,4,(chtype)'/');

	/* middeer2 */
	mvwaddch(middeer2,0,2,(chtype)'y');
	mvwaddch(middeer2,0,3,(chtype)'y');
	mvwaddch(middeer2,1,2,(chtype)'0');
	mvwaddch(middeer2,1,3,(chtype)'(');
	mvwaddch(middeer2,1,4,(chtype)'=');
	mvwaddch(middeer2,1,5,(chtype)')');
	mvwaddch(middeer2,1,6,(chtype)'~');
	mvwaddch(middeer2,2,3,(chtype)'|');
	mvwaddch(middeer2,2,5,(chtype)'|');

	/* middeer3 */
	mvwaddch(middeer3,0,2,(chtype)'y');
	mvwaddch(middeer3,0,3,(chtype)'y');
	mvwaddch(middeer3,1,2,(chtype)'0');
	mvwaddch(middeer3,1,3,(chtype)'(');
	mvwaddch(middeer3,1,4,(chtype)'=');
	mvwaddch(middeer3,1,5,(chtype)')');
	mvwaddch(middeer3,1,6,(chtype)'~');
	mvwaddch(middeer3,2,2,(chtype)'/');
	mvwaddch(middeer3,2,6,(chtype)'\\');


	/* bigdeer1 */
	mvwaddch(bigdeer1,0,17,(chtype)'\\');
	mvwaddch(bigdeer1,0,18,(chtype)'/');
	mvwaddch(bigdeer1,0,20,(chtype)'\\');
	mvwaddch(bigdeer1,0,21,(chtype)'/');
	mvwaddch(bigdeer1,1,18,(chtype)'\\');
	mvwaddch(bigdeer1,1,20,(chtype)'/');
	mvwaddch(bigdeer1,2,19,(chtype)'|');
	mvwaddch(bigdeer1,2,20,(chtype)'_');
	mvwaddch(bigdeer1,3,18,(chtype)'/');
	mvwaddch(bigdeer1,3,19,(chtype)'^');
	mvwaddch(bigdeer1,3,20,(chtype)'0');
	mvwaddch(bigdeer1,3,21,(chtype)'\\');
	mvwaddch(bigdeer1,4,17,(chtype)'/');
	mvwaddch(bigdeer1,4,18,(chtype)'/');
	mvwaddch(bigdeer1,4,19,(chtype)'\\');
	mvwaddch(bigdeer1,4,22,(chtype)'\\');
	mvwaddstr(bigdeer1,5,7,"^~~~~~~~~//  ~~U");
	mvwaddstr(bigdeer1,6,7,"( \\_____( /");
	mvwaddstr(bigdeer1,7,8,"( )    /");
	mvwaddstr(bigdeer1,8,9,"\\\\   /");
	mvwaddstr(bigdeer1,9,11,"\\>/>");

	/* bigdeer2 */
	mvwaddch(bigdeer2,0,17,(chtype)'\\');
	mvwaddch(bigdeer2,0,18,(chtype)'/');
	mvwaddch(bigdeer2,0,20,(chtype)'\\');
	mvwaddch(bigdeer2,0,21,(chtype)'/');
	mvwaddch(bigdeer2,1,18,(chtype)'\\');
	mvwaddch(bigdeer2,1,20,(chtype)'/');
	mvwaddch(bigdeer2,2,19,(chtype)'|');
	mvwaddch(bigdeer2,2,20,(chtype)'_');
	mvwaddch(bigdeer2,3,18,(chtype)'/');
	mvwaddch(bigdeer2,3,19,(chtype)'^');
	mvwaddch(bigdeer2,3,20,(chtype)'0');
	mvwaddch(bigdeer2,3,21,(chtype)'\\');
	mvwaddch(bigdeer2,4,17,(chtype)'/');
	mvwaddch(bigdeer2,4,18,(chtype)'/');
	mvwaddch(bigdeer2,4,19,(chtype)'\\');
	mvwaddch(bigdeer2,4,22,(chtype)'\\');
	mvwaddstr(bigdeer2,5,7,"^~~~~~~~~//  ~~U");
	mvwaddstr(bigdeer2,6,7,"(( )____( /");
	mvwaddstr(bigdeer2,7,7,"( /      |");
	mvwaddstr(bigdeer2,8,8,"\\/      |");
	mvwaddstr(bigdeer2,9,9,"|>     |>");

	/* bigdeer3 */
	mvwaddch(bigdeer3,0,17,(chtype)'\\');
	mvwaddch(bigdeer3,0,18,(chtype)'/');
	mvwaddch(bigdeer3,0,20,(chtype)'\\');
	mvwaddch(bigdeer3,0,21,(chtype)'/');
	mvwaddch(bigdeer3,1,18,(chtype)'\\');
	mvwaddch(bigdeer3,1,20,(chtype)'/');
	mvwaddch(bigdeer3,2,19,(chtype)'|');
	mvwaddch(bigdeer3,2,20,(chtype)'_');
	mvwaddch(bigdeer3,3,18,(chtype)'/');
	mvwaddch(bigdeer3,3,19,(chtype)'^');
	mvwaddch(bigdeer3,3,20,(chtype)'0');
	mvwaddch(bigdeer3,3,21,(chtype)'\\');
	mvwaddch(bigdeer3,4,17,(chtype)'/');
	mvwaddch(bigdeer3,4,18,(chtype)'/');
	mvwaddch(bigdeer3,4,19,(chtype)'\\');
	mvwaddch(bigdeer3,4,22,(chtype)'\\');
	mvwaddstr(bigdeer3,5,7,"^~~~~~~~~//  ~~U");
	mvwaddstr(bigdeer3,6,6,"( ()_____( /");
	mvwaddstr(bigdeer3,7,6,"/ /       /");
	mvwaddstr(bigdeer3,8,5,"|/          \\");
	mvwaddstr(bigdeer3,9,5,"/>           \\>");

	/* bigdeer4 */
	mvwaddch(bigdeer4,0,17,(chtype)'\\');
	mvwaddch(bigdeer4,0,18,(chtype)'/');
	mvwaddch(bigdeer4,0,20,(chtype)'\\');
	mvwaddch(bigdeer4,0,21,(chtype)'/');
	mvwaddch(bigdeer4,1,18,(chtype)'\\');
	mvwaddch(bigdeer4,1,20,(chtype)'/');
	mvwaddch(bigdeer4,2,19,(chtype)'|');
	mvwaddch(bigdeer4,2,20,(chtype)'_');
	mvwaddch(bigdeer4,3,18,(chtype)'/');
	mvwaddch(bigdeer4,3,19,(chtype)'^');
	mvwaddch(bigdeer4,3,20,(chtype)'0');
	mvwaddch(bigdeer4,3,21,(chtype)'\\');
	mvwaddch(bigdeer4,4,17,(chtype)'/');
	mvwaddch(bigdeer4,4,18,(chtype)'/');
	mvwaddch(bigdeer4,4,19,(chtype)'\\');
	mvwaddch(bigdeer4,4,22,(chtype)'\\');
	mvwaddstr(bigdeer4,5,7,"^~~~~~~~~//  ~~U");
	mvwaddstr(bigdeer4,6,6,"( )______( /");
	mvwaddstr(bigdeer4,7,5,"(/          \\");
	mvwaddstr(bigdeer4,8,0,"v___=             ----^");


	/* lookdeer1 */
	mvwaddstr(lookdeer1,0,16,"\\/     \\/");
	mvwaddstr(lookdeer1,1,17,"\\Y/ \\Y/");
	mvwaddstr(lookdeer1,2,19,"\\=/");
	mvwaddstr(lookdeer1,3,17,"^\\o o/^");
	mvwaddstr(lookdeer1,4,17,"//( )");
	mvwaddstr(lookdeer1,5,7,"^~~~~~~~~// \\O/");
	mvwaddstr(lookdeer1,6,7,"( \\_____( /");
	mvwaddstr(lookdeer1,7,8,"( )    /");
	mvwaddstr(lookdeer1,8,9,"\\\\   /");
	mvwaddstr(lookdeer1,9,11,"\\>/>");

	/* lookdeer2 */
	mvwaddstr(lookdeer2,0,16,"\\/     \\/");
	mvwaddstr(lookdeer2,1,17,"\\Y/ \\Y/");
	mvwaddstr(lookdeer2,2,19,"\\=/");
	mvwaddstr(lookdeer2,3,17,"^\\o o/^");
	mvwaddstr(lookdeer2,4,17,"//( )");
	mvwaddstr(lookdeer2,5,7,"^~~~~~~~~// \\O/");
	mvwaddstr(lookdeer2,6,7,"(( )____( /");
	mvwaddstr(lookdeer2,7,7,"( /      |");
	mvwaddstr(lookdeer2,8,8,"\\/      |");
	mvwaddstr(lookdeer2,9,9,"|>     |>");

	/* lookdeer3 */
	mvwaddstr(lookdeer3,0,16,"\\/     \\/");
	mvwaddstr(lookdeer3,1,17,"\\Y/ \\Y/");
	mvwaddstr(lookdeer3,2,19,"\\=/");
	mvwaddstr(lookdeer3,3,17,"^\\o o/^");
	mvwaddstr(lookdeer3,4,17,"//( )");
	mvwaddstr(lookdeer3,5,7,"^~~~~~~~~// \\O/");
	mvwaddstr(lookdeer3,6,6,"( ()_____( /");
	mvwaddstr(lookdeer3,7,6,"/ /       /");
	mvwaddstr(lookdeer3,8,5,"|/          \\");
	mvwaddstr(lookdeer3,9,5,"/>           \\>");

	/* lookdeer4 */
	mvwaddstr(lookdeer4,0,16,"\\/     \\/");
	mvwaddstr(lookdeer4,1,17,"\\Y/ \\Y/");
	mvwaddstr(lookdeer4,2,19,"\\=/");
	mvwaddstr(lookdeer4,3,17,"^\\o o/^");
	mvwaddstr(lookdeer4,4,17,"//( )");
	mvwaddstr(lookdeer4,5,7,"^~~~~~~~~// \\O/");
	mvwaddstr(lookdeer4,6,6,"( )______( /");
	mvwaddstr(lookdeer4,7,5,"(/          \\");
	mvwaddstr(lookdeer4,8,0,"v___=             ----^");



	/***********************************************/
	cbreak();
	nodelay(stdscr,TRUE);
	for (;;) {
	  clear();
	  werase(treescrn);
	  touchwin(w_del_msg);
	  touchwin(treescrn);
	  werase(treescrn2);
	  touchwin(treescrn2);
	  werase(treescrn8);
	  touchwin(treescrn8);
	  refresh();
	  look_out(150);
	  boxit();
	  refresh();
	  look_out(150);
	  seas();
	  refresh();
	  look_out(150);
	  greet();
	  refresh();
	  look_out(150);
	  fromwho();
	  refresh();
	  look_out(150);
	  tree();
	  look_out(150);
	  balls();
	  look_out(150);
	  star();
	  look_out(150);
	  strng1();
	  strng2();
	  strng3();
	  strng4();
	  strng5();


	/* set up the windows for our blinking trees */
	/* **************************************** */
	/* treescrn3 */

	   overlay(treescrn, treescrn3);

	   /*balls*/
	   mvwaddch(treescrn3, 4, 18, ' ');
	   mvwaddch(treescrn3, 7, 6, ' ');
	   mvwaddch(treescrn3, 8, 19, ' ');
	   mvwaddch(treescrn3, 11, 22, ' ');

	   /*star*/
	   mvwaddch(treescrn3, 0, 12, '*');

	   /*strng1*/
	   mvwaddch(treescrn3, 3, 11, ' ');

	   /*strng2*/
	   mvwaddch(treescrn3, 5, 13, ' ');
	   mvwaddch(treescrn3, 6, 10, ' ');

	   /*strng3*/
	   mvwaddch(treescrn3, 7, 16, ' ');
	   mvwaddch(treescrn3, 7, 14, ' ');

	           /*strng4*/
	   mvwaddch(treescrn3, 10, 13, ' ');
	   mvwaddch(treescrn3, 10, 10, ' ');
	   mvwaddch(treescrn3, 11, 8, ' ');

	           /*strng5*/
	   mvwaddch(treescrn3, 11, 18, ' ');
	   mvwaddch(treescrn3, 12, 13, ' ');


	/* treescrn4 */

	   overlay(treescrn, treescrn4);

	   /*balls*/
	   mvwaddch(treescrn4, 3, 9, ' ');
	   mvwaddch(treescrn4, 4, 16, ' ');
	   mvwaddch(treescrn4, 7, 6, ' ');
	   mvwaddch(treescrn4, 8, 19, ' ');
	   mvwaddch(treescrn4, 11, 2, ' ');
	   mvwaddch(treescrn4, 12, 23, ' ');

	   /*star*/
	   wstandout(treescrn4);
	   mvwaddch(treescrn4, 0, 12, '*');
	   wstandend(treescrn4);

	   /*strng1*/
	   mvwaddch(treescrn4, 3, 13, ' ');

	   /*strng2*/

	   /*strng3*/
	   mvwaddch(treescrn4, 7, 15, ' ');
	   mvwaddch(treescrn4, 8, 11, ' ');

	   /*strng4*/
	   mvwaddch(treescrn4, 9, 16, ' ');
	   mvwaddch(treescrn4, 10, 12, ' ');
	   mvwaddch(treescrn4, 11, 8, ' ');

	   /*strng5*/
	   mvwaddch(treescrn4, 11, 18, ' ');
	   mvwaddch(treescrn4, 12, 14, ' ');


	/* treescrn5 */

	   overlay(treescrn, treescrn5);

	   /*balls*/
	   mvwaddch(treescrn5, 3, 15, ' ');
	   mvwaddch(treescrn5, 10, 20, ' ');
	   mvwaddch(treescrn5, 12, 1, ' ');

	   /*star*/
	   mvwaddch(treescrn5, 0, 12, '*');

	   /*strng1*/
	   mvwaddch(treescrn5, 3, 11, ' ');

	   /*strng2*/
	   mvwaddch(treescrn5, 5, 12, ' ');

	   /*strng3*/
	   mvwaddch(treescrn5, 7, 14, ' ');
	   mvwaddch(treescrn5, 8, 10, ' ');

	   /*strng4*/
	   mvwaddch(treescrn5, 9, 15, ' ');
	   mvwaddch(treescrn5, 10, 11, ' ');
	   mvwaddch(treescrn5, 11, 7, ' ');

	   /*strng5*/
	   mvwaddch(treescrn5, 11, 17, ' ');
	   mvwaddch(treescrn5, 12, 13, ' ');

	/* treescrn6 */

	   overlay(treescrn, treescrn6);

	   /*balls*/
	   mvwaddch(treescrn6, 6, 7, ' ');
	   mvwaddch(treescrn6, 7, 18, ' ');
	   mvwaddch(treescrn6, 10, 4, ' ');
	   mvwaddch(treescrn6, 11, 23, ' ');

	   /*star*/
	   wstandout(treescrn6);
	   mvwaddch(treescrn6, 0, 12, '*');
	   wstandend(treescrn6);

	   /*strng1*/

	   /*strng2*/
	   mvwaddch(treescrn6, 5, 11, ' ');

	   /*strng3*/
	   mvwaddch(treescrn6, 7, 13, ' ');
	   mvwaddch(treescrn6, 8, 9, ' ');

	   /*strng4*/
	   mvwaddch(treescrn6, 9, 14, ' ');
	   mvwaddch(treescrn6, 10, 10, ' ');
	   mvwaddch(treescrn6, 11, 6, ' ');

	   /*strng5*/
	   mvwaddch(treescrn6, 11, 16, ' ');
	   mvwaddch(treescrn6, 12, 12, ' ');

	/* treescrn7 */

	   overlay(treescrn, treescrn7);

	   /*balls*/
	   mvwaddch(treescrn7, 3, 15, ' ');
	   mvwaddch(treescrn7, 6, 7, ' ');
	   mvwaddch(treescrn7, 7, 18, ' ');
	   mvwaddch(treescrn7, 10, 4, ' ');
	   mvwaddch(treescrn7, 11, 22, ' ');

	   /*star*/
	   mvwaddch(treescrn7, 0, 12, '*');

	   /*strng1*/
	   mvwaddch(treescrn7, 3, 12, ' ');

	   /*strng2*/
	   mvwaddch(treescrn7, 5, 13, ' ');
	   mvwaddch(treescrn7, 6, 9, ' ');

	   /*strng3*/
	   mvwaddch(treescrn7, 7, 15, ' ');
	   mvwaddch(treescrn7, 8, 11, ' ');

	   /*strng4*/
	   mvwaddch(treescrn7, 9, 16, ' ');
	   mvwaddch(treescrn7, 10, 12, ' ');
	   mvwaddch(treescrn7, 11, 8, ' ');

	   /*strng5*/
	   mvwaddch(treescrn7, 11, 18, ' ');
	   mvwaddch(treescrn7, 12, 14, ' ');


	   look_out(150);
	   reindeer();

	   touchwin(w_holiday);
	   wrefresh(w_holiday);
	   wrefresh(w_del_msg);

	   look_out(500);
	   for(loopy = 0;loopy < 100;loopy++) {
	    	blinkit();
	   }

#ifdef NOLOOP
	   done(0);
#endif
	}
	/*NOTREACHED*/
}

static int boxit(void)
{
 int x = 0;

	while(x < 20) {
	  mvaddch(x, 7, '|');
	  ++x;
	}

	x = 8;

	while(x < 80) {
	  mvaddch(19, x, '_');
	  ++x;
	}

	x = 0;

	while(x < 80) {
	  mvaddch(22, x, '_');
	  ++x;
	}

	return( 0 );
}

static int seas(void)
{
	mvaddch(4, 1, 'S');
	mvaddch(6, 1, 'E');
	mvaddch(8, 1, 'A');
	mvaddch(10, 1, 'S');
	mvaddch(12, 1, 'O');
	mvaddch(14, 1, 'N');
	mvaddch(16, 1, '`');
	mvaddch(18, 1, 'S');

	return( 0 );
}


static int greet(void)
{
	mvaddch(3, 5, 'G');
	mvaddch(5, 5, 'R');
	mvaddch(7, 5, 'E');
	mvaddch(9, 5, 'E');
	mvaddch(11, 5, 'T');
	mvaddch(13, 5, 'I');
	mvaddch(15, 5, 'N');
	mvaddch(17, 5, 'G');
	mvaddch(19, 5, 'S');

	return( 0 );
}


static int fromwho(void)
{
	mvaddstr(21, 13, FROMWHO);
	return( 0 );
}

static int tree(void)
{
	set_color(treescrn, COLOR_GREEN);
	mvwaddch(treescrn, 1, 11, (chtype)'/');
	mvwaddch(treescrn, 2, 11, (chtype)'/');
	mvwaddch(treescrn, 3, 10, (chtype)'/');
	mvwaddch(treescrn, 4, 9, (chtype)'/');
	mvwaddch(treescrn, 5, 9, (chtype)'/');
	mvwaddch(treescrn, 6, 8, (chtype)'/');
	mvwaddch(treescrn, 7, 7, (chtype)'/');
	mvwaddch(treescrn, 8, 6, (chtype)'/');
	mvwaddch(treescrn, 9, 6, (chtype)'/');
	mvwaddch(treescrn, 10, 5, (chtype)'/');
	mvwaddch(treescrn, 11, 3, (chtype)'/');
	mvwaddch(treescrn, 12, 2, (chtype)'/');

	mvwaddch(treescrn, 1, 13, (chtype)'\\');
	mvwaddch(treescrn, 2, 13, (chtype)'\\');
	mvwaddch(treescrn, 3, 14, (chtype)'\\');
	mvwaddch(treescrn, 4, 15, (chtype)'\\');
	mvwaddch(treescrn, 5, 15, (chtype)'\\');
	mvwaddch(treescrn, 6, 16, (chtype)'\\');
	mvwaddch(treescrn, 7, 17, (chtype)'\\');
	mvwaddch(treescrn, 8, 18, (chtype)'\\');
	mvwaddch(treescrn, 9, 18, (chtype)'\\');
	mvwaddch(treescrn, 10, 19, (chtype)'\\');
	mvwaddch(treescrn, 11, 21, (chtype)'\\');
	mvwaddch(treescrn, 12, 22, (chtype)'\\');

	mvwaddch(treescrn, 4, 10, (chtype)'_');
	mvwaddch(treescrn, 4, 14, (chtype)'_');
	mvwaddch(treescrn, 8, 7, (chtype)'_');
	mvwaddch(treescrn, 8, 17, (chtype)'_');

	mvwaddstr(treescrn, 13, 0, "//////////// \\\\\\\\\\\\\\\\\\\\\\\\");

	mvwaddstr(treescrn, 14, 11, "| |");
	mvwaddstr(treescrn, 15, 11, "|_|");

	unset_color(treescrn);
	wrefresh(treescrn);
	wrefresh(w_del_msg);

	return( 0 );
}


static int balls(void)
{
	overlay(treescrn, treescrn2);

	set_color(treescrn2, COLOR_BLUE);
	mvwaddch(treescrn2, 3, 9, (chtype)'@');
	mvwaddch(treescrn2, 3, 15, (chtype)'@');
	mvwaddch(treescrn2, 4, 8, (chtype)'@');
	mvwaddch(treescrn2, 4, 16, (chtype)'@');
	mvwaddch(treescrn2, 5, 7, (chtype)'@');
	mvwaddch(treescrn2, 5, 17, (chtype)'@');
	mvwaddch(treescrn2, 7, 6, (chtype)'@');
	mvwaddch(treescrn2, 7, 18, (chtype)'@');
	mvwaddch(treescrn2, 8, 5, (chtype)'@');
	mvwaddch(treescrn2, 8, 19, (chtype)'@');
	mvwaddch(treescrn2, 10, 4, (chtype)'@');
	mvwaddch(treescrn2, 10, 20, (chtype)'@');
	mvwaddch(treescrn2, 11, 2, (chtype)'@');
	mvwaddch(treescrn2, 11, 22, (chtype)'@');
	mvwaddch(treescrn2, 12, 1, (chtype)'@');
	mvwaddch(treescrn2, 12, 23, (chtype)'@');

	unset_color(treescrn2);
	wrefresh(treescrn2);
	wrefresh(w_del_msg);
	return( 0 );
}


static int star(void)
{
	wattrset(treescrn2, A_BOLD | A_BLINK);
	set_color(treescrn2, COLOR_YELLOW);

	mvwaddch(treescrn2, 0, 12, (chtype)'*');
	wstandend(treescrn2);

	unset_color(treescrn2);
	wrefresh(treescrn2);
	wrefresh(w_del_msg);
	return( 0 );
}


static int strng1(void)
{
	wattrset(treescrn2, A_BOLD | A_BLINK);
	set_color(treescrn2, COLOR_WHITE);

	mvwaddch(treescrn2, 3, 13, (chtype)'\'');
	mvwaddch(treescrn2, 3, 12, (chtype)':');
	mvwaddch(treescrn2, 3, 11, (chtype)'.');

	wattroff(treescrn2, A_BOLD | A_BLINK);
	unset_color(treescrn2);

	wrefresh(treescrn2);
	wrefresh(w_del_msg);
	return( 0 );
}


static int strng2(void)
{
	wattrset(treescrn2, A_BOLD | A_BLINK);
	set_color(treescrn2, COLOR_WHITE);

	mvwaddch(treescrn2, 5, 14, (chtype)'\'');
	mvwaddch(treescrn2, 5, 13, (chtype)':');
	mvwaddch(treescrn2, 5, 12, (chtype)'.');
	mvwaddch(treescrn2, 5, 11, (chtype)',');
	mvwaddch(treescrn2, 6, 10, (chtype)'\'');
	mvwaddch(treescrn2, 6, 9, (chtype)':');

	wattroff(treescrn2, A_BOLD | A_BLINK);
	unset_color(treescrn2);

	wrefresh(treescrn2);
	wrefresh(w_del_msg);
	return( 0 );
}


static int strng3(void)
{
	wattrset(treescrn2, A_BOLD | A_BLINK);
	set_color(treescrn2, COLOR_WHITE);

	mvwaddch(treescrn2, 7, 16, (chtype)'\'');
	mvwaddch(treescrn2, 7, 15, (chtype)':');
	mvwaddch(treescrn2, 7, 14, (chtype)'.');
	mvwaddch(treescrn2, 7, 13, (chtype)',');
	mvwaddch(treescrn2, 8, 12, (chtype)'\'');
	mvwaddch(treescrn2, 8, 11, (chtype)':');
	mvwaddch(treescrn2, 8, 10, (chtype)'.');
	mvwaddch(treescrn2, 8, 9, (chtype)',');

	wattroff(treescrn2, A_BOLD | A_BLINK);
	unset_color(treescrn2);

	wrefresh(treescrn2);
	wrefresh(w_del_msg);
	return( 0 );
}


static int strng4(void)
{
	wattrset(treescrn2, A_BOLD | A_BLINK);
	set_color(treescrn2, COLOR_WHITE);

	mvwaddch(treescrn2, 9, 17, (chtype)'\'');
	mvwaddch(treescrn2, 9, 16, (chtype)':');
	mvwaddch(treescrn2, 9, 15, (chtype)'.');
	mvwaddch(treescrn2, 9, 14, (chtype)',');
	mvwaddch(treescrn2, 10, 13, (chtype)'\'');
	mvwaddch(treescrn2, 10, 12, (chtype)':');
	mvwaddch(treescrn2, 10, 11, (chtype)'.');
	mvwaddch(treescrn2, 10, 10, (chtype)',');
	mvwaddch(treescrn2, 11, 9, (chtype)'\'');
	mvwaddch(treescrn2, 11, 8, (chtype)':');
	mvwaddch(treescrn2, 11, 7, (chtype)'.');
	mvwaddch(treescrn2, 11, 6, (chtype)',');
	mvwaddch(treescrn2, 12, 5, (chtype)'\'');

	wattroff(treescrn2, A_BOLD | A_BLINK);
	unset_color(treescrn2);

	wrefresh(treescrn2);
	wrefresh(w_del_msg);
	return( 0 );
}


static int strng5(void)
{
	wattrset(treescrn2, A_BOLD | A_BLINK);
	set_color(treescrn2, COLOR_WHITE);

	mvwaddch(treescrn2, 11, 19, (chtype)'\'');
	mvwaddch(treescrn2, 11, 18, (chtype)':');
	mvwaddch(treescrn2, 11, 17, (chtype)'.');
	mvwaddch(treescrn2, 11, 16, (chtype)',');
	mvwaddch(treescrn2, 12, 15, (chtype)'\'');
	mvwaddch(treescrn2, 12, 14, (chtype)':');
	mvwaddch(treescrn2, 12, 13, (chtype)'.');
	mvwaddch(treescrn2, 12, 12, (chtype)',');

	wattroff(treescrn2, A_BOLD | A_BLINK);
	unset_color(treescrn2);

	/* save a fully lit tree */
	overlay(treescrn2, treescrn);

	wrefresh(treescrn2);
	wrefresh(w_del_msg);
	return( 0 );
}



static int blinkit(void)
{
static int cycle;

	if(cycle > 4) {
	  cycle = 0;
	}


	touchwin(treescrn8);

	switch(cycle) {
	  case 0:
	             overlay(treescrn3, treescrn8);
	             wrefresh(treescrn8);
	             wrefresh(w_del_msg);
	             break;
	  case 1:
	             overlay(treescrn4, treescrn8);
	             wrefresh(treescrn8);
	             wrefresh(w_del_msg);
	             break;
	  case 2:
	             overlay(treescrn5, treescrn8);
	             wrefresh(treescrn8);
	             wrefresh(w_del_msg);
	             break;
	  case 3:
	             overlay(treescrn6, treescrn8);
	             wrefresh(treescrn8);
	             wrefresh(w_del_msg);
	             break;
	  case 4:
	             overlay(treescrn7, treescrn8);
	             wrefresh(treescrn8);
	             wrefresh(w_del_msg);
	             break;
	}
	 touchwin(treescrn8);

	 /*ALL ON***************************************************/

	 overlay(treescrn, treescrn8);
	 wrefresh(treescrn8);
	 wrefresh(w_del_msg);

	++cycle;
	return( 0 );
}

static void
deer_step(WINDOW *win, int y, int x)
{
	    mvwin(win, y, x);
	    wrefresh(win);
	    wrefresh(w_del_msg);
	    look_out(5);
}

static int reindeer(void)
{
 int looper;
 y_pos = 0;


	for(x_pos = 70; x_pos > 62; x_pos--) {
	  if(x_pos < 62) {
	    y_pos = 1;
	  }
	  for(looper = 0; looper < 4; looper++) {
	    mvwaddch(dotdeer0, y_pos, x_pos, (chtype)'.');
	    wrefresh(dotdeer0);
	    wrefresh(w_del_msg);
	    werase(dotdeer0);
	    wrefresh(dotdeer0);
	    wrefresh(w_del_msg);
	    look_out(50);
	  }
	}

	y_pos = 2;

	for(; x_pos > 50; x_pos--) {
	  for(looper = 0; looper < 4; looper++) {

	    if(x_pos < 56) {
	      y_pos = 3;

	      mvwaddch(stardeer0, y_pos, x_pos, (chtype)'*');
	      wrefresh(stardeer0);
	      wrefresh(w_del_msg);
	      werase(stardeer0);
	      wrefresh(stardeer0);
	      wrefresh(w_del_msg);
	    } else {
	      mvwaddch(dotdeer0, y_pos, x_pos, (chtype)'*');
	      wrefresh(dotdeer0);
	      wrefresh(w_del_msg);
	      werase(dotdeer0);
	      wrefresh(dotdeer0);
	      wrefresh(w_del_msg);
	    }
	  }
	}

	x_pos = 58;

	for(y_pos = 2; y_pos < 5; y_pos++) {

	  touchwin(lildeer0);
	  wrefresh(lildeer0);
	  wrefresh(w_del_msg);

	  for(looper = 0; looper < 4; looper++) {
	    deer_step(lildeer3, y_pos, x_pos);
	    deer_step(lildeer2, y_pos, x_pos);
	    deer_step(lildeer1, y_pos, x_pos);
	    deer_step(lildeer2, y_pos, x_pos);
	    deer_step(lildeer3, y_pos, x_pos);

	    touchwin(lildeer0);
	    wrefresh(lildeer0);
	    wrefresh(w_del_msg);

	    x_pos -= 2;
	  }
	}


	x_pos = 35;

	for(y_pos = 5; y_pos < 10; y_pos++) {

	  touchwin(middeer0);
	  wrefresh(middeer0);
	  wrefresh(w_del_msg);

	  for(looper = 0; looper < 2; looper++) {
	    deer_step(middeer3, y_pos, x_pos);
	    deer_step(middeer2, y_pos, x_pos);
	    deer_step(middeer1, y_pos, x_pos);
	    deer_step(middeer2, y_pos, x_pos);
	    deer_step(middeer3, y_pos, x_pos);

	    touchwin(middeer0);
	    wrefresh(middeer0);
	    wrefresh(w_del_msg);

	    x_pos -= 3;
	  }
	}

	look_out(300);

	y_pos = 1;

	for(x_pos = 8; x_pos < 16; x_pos++) {
	    deer_step(bigdeer4, y_pos, x_pos);
	    deer_step(bigdeer3, y_pos, x_pos);
	    deer_step(bigdeer2, y_pos, x_pos);
	    deer_step(bigdeer1, y_pos, x_pos);
	    deer_step(bigdeer2, y_pos, x_pos);
	    deer_step(bigdeer3, y_pos, x_pos);
	    deer_step(bigdeer4, y_pos, x_pos);
	    deer_step(bigdeer0, y_pos, x_pos);
	}

	  --x_pos;

	  for(looper = 0; looper < 6; looper++) {
	    deer_step(lookdeer4, y_pos, x_pos);
	    deer_step(lookdeer3, y_pos, x_pos);
	    deer_step(lookdeer2, y_pos, x_pos);
	    deer_step(lookdeer1, y_pos, x_pos);
	    deer_step(lookdeer2, y_pos, x_pos);
	    deer_step(lookdeer3, y_pos, x_pos);
	    deer_step(lookdeer4, y_pos, x_pos);
	  }

	  deer_step(lookdeer0, y_pos, x_pos);

	for(; y_pos < 10; y_pos++) {
	  for(looper = 0; looper < 2; looper++) {
	    deer_step(bigdeer4, y_pos, x_pos);
	    deer_step(bigdeer3, y_pos, x_pos);
	    deer_step(bigdeer2, y_pos, x_pos);
	    deer_step(bigdeer1, y_pos, x_pos);
	    deer_step(bigdeer2, y_pos, x_pos);
	    deer_step(bigdeer3, y_pos, x_pos);
	    deer_step(bigdeer4, y_pos, x_pos);
	  }
	  deer_step(bigdeer0, y_pos, x_pos);
	}

	--y_pos;

	deer_step(lookdeer3, y_pos, x_pos);
	return( 0 );
}

static RETSIGTYPE done(int sig GCC_UNUSED)
{
	signal(SIGINT,done);
	signal(SIGTERM,done);
#if !defined	DOS && !defined OS2
	signal(SIGHUP,done);
	signal(SIGQUIT,done);
#endif
	move(LINES-1,0);
	refresh();
	endwin();
	curs_set(1);
	exit(EXIT_SUCCESS);
}
