.!****************************************************************************
.! 
.! ANTIC PUBLISHING INC., COPYRIGHT 1985.  REPRINTED BY PERMISSION.
.!
.! ** Professional GEM ** by Tim Oren
.!
.! Proff File by ST enthusiasts at
.! Case Western Reserve University
.! Cleveland, Ohio
.! uucp : decvax!cwruecmp!bammi
.! csnet: bammi@case
.! arpa : bammi%case@csnet-relay
.! compuserve: 71515,155
.!
.!****************************************************************************
.!
.!			Begin Appendix 8
.!
.!***************************************************************************
.!
.!
.AP VIII Sample Code for Part X 
/*
>>>>>>>>>>> Demonstration of byte alignment of window interior <<<<<<<<<<<
*/

#define FEATURES    0x0fef	/* what border features are used   */
WORD	msg[8];			/* message from evnt_multi	   */
GRECT	work_area;		/* defines working area 	   */
WORD	w_hndl;			/* handle for window being changed */

	wind_calc(1, FEATURES, msg[4], msg[5], msg[6], msg[7], 
		&work_area.g_x, &work_area.g_y, &work_area.g_w, 
		&work_area.g_h);
	work_area.g_x = align_x(work_area.g_x);
	work_area.g_w = align_x(work_area.g_w);
	wind_calc(0, FEATURES, work_area.g_x, work_area.g_y, 
		work_area.g_w, work_area.g_h, &msg[4], &msg[5], 
		&msg[6], &msg[7]); 
	wind_set(w_hndl, WF_CXYWH, msg[4], msg[5], msg[6], msg[7]);
.bp
/*
>>>>>>>>>>>>>>>>>>>>> Subroutine for above <<<<<<<<<<<<<<<<<<<<<<<<<<<<<
*/
	WORD
align_x(x)		/* forces word alignment for column position	*/
	WORD	x;		/*   rounding to nearest word		*/
	{
	return((x & 0xfff0) + ((x & 0x0008) ? 0x0010 : 0));
	}	
.bp
/*
>>>>>>>>>>>>>>>>>>>>> Standard v_gtext binding <<<<<<<<<<<<<<<<<<<<<<<<<
*/
	WORD
v_gtext( handle, x, y, string)
	WORD handle, x, y;
	BYTE *string;
	{
	WORD i;
	ptsin[0] = x;
	ptsin[1] = y;
	i = 0;
	while (intin[i++] = *string++)	/* Copy characters to intin    */
		;			/* There is NO error checking! */
	contrl[0] = 8;
	contrl[1] = 1;
	contrl[3] = --i;
	contrl[6] = handle;
	vdi();
	}
.!
.!****************************************************************************
.!
.!			End Appendix 8
.!
.!****************************************************************************