NCR Decision Mate V - Page 382

n o n
on th e X coordinate; y th e Mouse position on th e Y
coordinate.
Then th e program collects th e values and displays them on
the screen.
HOUSE EXAMPLE PROGRAM FOR FORTRAN
$USES MOUSE
PROGRAM MOUSTF
INTEGER SW1,SW2,SW3,X,Y,X0,Y0,XM,YM
CHARACTER C
C CLEAR SCREEN, CURSOR INVISIBLE
WRITE (*,'(AAAA) 1) CHAR(27) ,'@0',CHAR(27) ,'E'
WRITE(*,200)
200 FORMAT(4X,'****** MOUSE EXAMPLE FORTRAN *****»')
C SCREEN POSITION LINE 16 COLUMN 0
WRITE (*,'(AA\) ') CHAR(27) ,1Y0 1
WRITE (*,'(A) ') ' TO STOP PRESS SWITCH 1 '
C SET MOUSE MAX VAL
XM=10000
YM=10000
1 CALL SETMAX(XM,YM)
C SET MOUSE POSITION
X=0
Y=0
2 CALL SETPOS(X,Y)
C=1N 1
8 - 8