non
on th e X coord in ate; y th e Mouse position on th e Y
coordinate.
Then th e program co lle c ts th e values and displays them on
th e screen.
MOUSE 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 (*,1 (AAAA) ') 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 ■
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='N'
8-8
To Next Page
Loading...