/* Source File: dba_demo.c
History
10/13/1987 - DFB - Routine to demo SCREEN-MAN
*/


int _stack = 10000;
#define YES 1
#define NO 2
#define NULL 0

/* 
** This structure is the output of dbastruct, run with dba_1.txt as
** a parameter, i.e.  "dbastruct dba_1.txt".  The output file, dba_1.dba,
** was read into this file, and used as the template for fields1.
*/
struct dba_1 
{
    char var0[14];   /* Row 5 Col 12 Ascii */
    char var1[25];   /* Row 5 Col 52 Ascii */
    int var2;   	 /* Row 6 Col 12 Day: 1 - 31 */
    char var3[25];   /* Row 6 Col 52 Ascii */
    int var4;   	 /* Row 7 Col 12 Month: 1 - 12 */
    char var5[25];   /* Row 7 Col 52 Ascii */
    int var6;   	 /* Row 8 Col 12 Year: 86 - 99 */
    char var7[25];   /* Row 8 Col 52 Ascii */
    int var8;   	 /* Row 9 Col 12 Year:1980 - 1999 */
    char var9[7];    /* Row 9 Col 52 Ascii decimal*/
    int var10;   	 /* Row 10 Col 12 Second: 0 - 59 */
    int var11;   	 /* Row 11 Col 12 Minute: 0 - 59 */
    char var12[12];  /* Row 11 Col 52 Ascii decimal*/
    int var13;   	 /* Row 12 Col 12 Hour: 0 - 23 */
    int var14;    	 /* Row 12 Col 52 Day: 1 - 31 */
    int var15;   	 /* Row 12 Col 55 Month: 1 - 12 */
    int var16;   	 /* Row 12 Col 58 Year:1980 - 1999 */
    char var17[14];  /* Row 13 Col 12 Ascii decimal*/
    int var18;   	 /* Row 13 Col 52 Enumerated Yes-No Field */
    int var19;   	 /* Row 14 Col 12 Enumerated Yes-No Field */
    int var20;   	 /* Row 15 Col 12 Enumerated Days of Week Field */
} fields1;


/*
** Dbastruct was run on dba_2.txt to get this structure template.  The
** text files were created using Dan Bricklin's Demo program.
*/
struct dba_2 
{
    int var0;   /* Row 2 Col 58 Enumerated Days of Week Field */
    int var1;   /* Row 3 Col 26 Enumerated Yes-No Field */
} fields2;


int main()
{
	/* This call hides the cursors on all the video pages */
	hide_cur();			/* Hide cursors                            */
	nextpage();			/* Get next page to display screen upon    */

	while( 1 )
	{
		/* Display the intro screen */                                    
		fullscrn( "dba_0.txt", NULL );

		/* wait for a key to continue */
		get_a_key();
	        
		/* Display the main demo screen and get input */
		fullscrn( "dba_1.txt", (char *)&fields1 );
	    
		/* init days field of next screen to value on screen just displayed */
		fields2.var0 = fields1.var20;
	    adjmenu( "dba_2.txt", (char *)&fields2, 17, 23, 11, 68 );
	
		if( fields2.var1 == NO )
	    	break;
	}
            
	/* restore the cursors on all the video pages, and restore the */
    /* contents of the screen in use when dba_demo was run. */
    rest_cur();

	return( 0 );
}