NCR Decision Mate V

To Next Page

To Previous Page

MOUSI

Fortran Procedures

To use the Mouse procedures in a Fortran program, declare

$USES MOUSE

The subroutine and param eter defin ition can be found belo w :

GMOUS

SUBROUTINE GMOUS(SW3,SW 2,SW 1 ,Y,X)

INTEGER SW1, SW2, SW3, Y, X

SETPOS

SUBROUTINE SETPOS (XrY)

INTEGER X,Y

SETMAX

SUBROUTINE SETMAX (XMAX,YMAX)

INTEGER XMAX,YMAX

Example

Here is an exam ple fo r the use o f the Mouse procedures i

FORTRAN.

In the lin e startin g with 1 , the maximum Mouse position i

se t b y means o f the X and Y coordinates. In the lin

starting with

, the present Mouse position is s e t to zero

In the line starting with 10, SW1, SW2f and SW3 designate

the switches on the Mouse (here the HAWLEY MARK I

Mouse), which can b e on o r o ff. X is the Mouse posiblo;

8 - '

NCR Decision Mate V - Page 381