! SELECT MOUSE REGIONS
!
! This sample program illustrates the BASIC interface to the MREG.SBR
! The following map statements must be exactly as shown except for the number
!  of regions.  This example uses 11 regions, which should be changed to
!  support the application.  The maximum length of the string must remain
!  at 10 characters including a carrage return if necessary in the application
	MAP1 MOUSE'REGION'ARRAY
	 MAP2 REGION(20)
	  MAP3 MOUSE'STRING,S,10
	  MAP3 UPPER'LEFT
	   MAP4 X1,F
	   MAP4 Y1,F
	  MAP3 LOWER'RIGHT
	   MAP4 X2,F
	   MAP4 Y2,F
	MAP1 STATUS,F
	MAP1 EMPTY,X,0
	MAP1 COUNT,F


	X1(1) = 14 : Y1(1) = 1 : X2(1) = 14 : Y2(1) = 34
	MOUSE'STRING(1) = "HELP"+CHR(13)
	X1(2) = 16 : Y1(2) = 1 : X2(2) = 16 : Y2(2) = 34
	MOUSE'STRING(2) = "CREATE"+CHR(13)
	X1(3) = 17 : Y1(3) = 1 : X2(3) = 17 : Y2(3) = 34
	MOUSE'STRING(3) = "EDIT"+CHR(13)
	X1(4) = 19 : Y1(4) = 1 : X2(4) = 19 : Y2(4) = 34
	MOUSE'STRING(4) = "MERGE"+CHR(13)
	X1(5) = 20 : Y1(5) = 1 : X2(5) = 20 : Y2(5) = 34
	MOUSE'STRING(5) = "PRINT"+CHR(13)
	X1(6) = 21 : Y1(6) = 1 : X2(6) = 21 : Y2(6) = 34
	MOUSE'STRING(6) = "QUEUE"+CHR(13)
	X1(7) = 14 : Y1(7) = 41 : X2(7) = 14 : Y2(7) = 80
	MOUSE'STRING(7) = "COPY"+CHR(13)
	X1(8) = 15 : Y1(8) = 41 : X2(8) = 15 : Y2(8) = 80
	MOUSE'STRING(8) = "ERASE"+CHR(13)
	X1(9) = 16 : Y1(9) = 41 : X2(9) = 16 : Y2(9) = 80
	MOUSE'STRING(9) = "RENAME"+CHR(13)
	X1(10) = 17 : Y1(10) = 41 : X2(10) = 17 : Y2(10) = 80
	MOUSE'STRING(10) = "DIR"+CHR(13)
	X1(11) = 19 : Y1(11) = 41 : X2(11) = 19 : Y2(11) = 80
	MOUSE'STRING(11) = "QUIT"+CHR(13)

	X1(1) = 10 : Y1(1) = 13 : X2(1) = 10 : Y2(1) = 54
	MOUSE'STRING(1) = CHR(27)

	MOUSE'STRING(12) = ""	! terminate with a null string, or
!	COUNT = 11		! count is an optional argument
				! it may be used to limit the entries
				! in the array.

! Invoke mouse regions
	XCALL MREG,MOUSE'REGION'ARRAY, STATUS! COUNT

! Your application ...
!	IF STATUS = -1 THEN NO'MOUSE

! Disable mouse regions
!	XCALL MREG,EMPTY,STATUS