;	[]===========================================================[]
;
;	NOTICE: THIS PROGRAM BELONGS TO AWARD SOFTWARE INTERNATIONAL(R)
;	        INC. IT IS CONSIDERED A TRADE SECRET AND IS NOT TO BE 	
;	        DIVULGED OR USED BY PARTIES WHO HAVE NOT RECEIVED	
;	        WRITTEN AUTHORIZATION FROM THE OWNER.
;
; 	[]===========================================================[]
;

;----------------------------------------------------------------------------
;Rev	Date	 Name	Description
;----------------------------------------------------------------------------
;R02	OCT-15-90 SMS	adding copyright stmt.
;R01	06/11/90 TIM	Made macro use RESET_VIS and RESET_CLIP correctly
;R00	06/06/90 TIM    Initial release for 4.0

;+---------------------------------------+
;+  USERINT - Common user interface rtns +
;+      First revision 06-Jun-90	 +
;+				 	 +
;+---------------------------------------+

WINDOW_DEF	MACRO	NAME,LEFT,TOP,RIGHT,BTM,TYPE

WIN_OPEN_&NAME:	BORDER	<,LEFT,TOP,RIGHT,BTM,TYPE>
		CLEAR	<,LEFT+1,TOP+1,RIGHT-1,BTM-1>
		CLIP	<,LEFT+1,TOP+1,RIGHT-1,BTM-1>
		POS	<,LEFT+1,TOP+1>
		DB	0

WIN_CLOSE_&NAME: CLIP	<,LEFT,TOP,RIGHT,BTM>
		CLEAR	<,LEFT,TOP,RIGHT,BTM>
		DB	0

		ENDM

OPEN_WINDOW	MACRO	NAME

		mov	si,offset Win_Open_&NAME
		call	Disp_Str

		ENDM

CLOSE_WINDOW	MACRO	NAME

		call	Reset_Clip					;R01
		mov	si,offset Win_Close_&NAME
		call	Disp_Str

		call	Refresh_Menu					;R01
		call	Reset_Vis
		ENDM