NCR Decision Mate V - Page 409

MOUSE
Fortran Procedures
To use th e Mouse procedures in a Fortran program, d eclare
$USES MOUSE
The subroutine and param eter defin ition can be found below :
G MO O S
SUBROUTINE GMO US(SW3,SW 2,SW 1 ,Y,X)
INTEGER SW1, SW2, SW3, Y, X
S E T P O S
SUBROUTINE SETPOS (X,Y)
INTEGER X,Y
SETMAX
SUBROUTINE SETMAX (XMAX,YMAX)
INTEGER XMAX,YMAX
Example
Here is an example fo r th e use o f th e Mouse procedures in
FORTRAN.
In th e lin e sta rtin g with 1, th e maximum Mouse position is
s e t b y means o f the X and Y coordinates. In th e lin e
startin g with 2, th e present Mouse position is s e t to zero.
In th e lin e startin g with 10, SWl, SW2, and SW3 designate
the sw itches on th e Mouse (here the HAWLEY MARK n
Mouse), which can be on or o ff. X is th e Mouse position
8-7