!
! 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

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.