!
! MSECLK - PROGRAM TO DO NOTHING MORE THAN WAIT FOR A `CLICK' FROM THE MOUSE
!

PROGRAM	MSECLK,1.0

++INCLUDE	AMGSYM.BSI

MAP1 GCB			, X,56000

MAP1	STATUS			, F,  6	!Status retruned from AMIGOS calls
MAP1	TEXT$			, S, 80



MSECLK:
! Set Mouse Cursor Shape
 	PRINT	TAB(-1,29);
	PRINT	TAB(-1,160);CHR(32+8);
! Open the workstation
	XCALL AMGSBR,G'OPWK,GCB,"",STATUS
! Text Overhead
 	XCALL	AMGSBR,G'STXF,GCB,1003,STATUS	! font
	XCALL	AMGSBR,G'STXC,GCB,7,STATUS	! color
 	XCALL	AMGSBR,G'SCHH,GCB,700,STATUS	! height
	XCALL	AMGSBR,G'SCHR,GCB,0,STATUS	! rotation

	XVAL	= 50
	YVAL	= 50
	TEXT$	= "Click mouse once to continue : "
	GOSUB	DISP'TEXT
	GOSUB	GETCOR
	END


DISP'TEXT:
	XCALL	AMGSBR,G'TX,GCB,XVAL,YVAL,TEXT$,STATUS	
	RETURN

GETCOR:
	XCALL AMGSBR,G'RQLC,GCB,0,0,0,XVAL,YVAL,CHAR,VALID
	RETURN