MOUSE
C LOOP MOUSE ACTIONS
DO 1000 1=0,0,0
10 CALL GMOUS(SW3,SW2,SW1,Y,X)
WRITE (*,'(AA\) ') CHAR (27) , ' Y$ '
C SCREEN POSITION LINE 4, COLUMN 0
WRITE (* ,300) X,Y
300 FORMAT (' X=',16,' Y=',16//)
WRITE(*,100) SW1,SW3,SW2
100 FORMAT (1 SWITCH1:',11,' SWITCH3: , II,' SWITCH2: ,II)
C SCREEN POSITION LINE 18, COLUMN 0
WRITE (*,' (AA\) ') CHAR(27),'Y2 '
C SET OR RESET PROMPT FOR FINISH DEPENDING ON SW1
IF (SW1 .EQ. 1) THEN
CALL FIN(C)
ELSE
WRITE(*,' (AA\) ') CHAR (27) ,'L1
END IF
IF ((C .EQ. 'Y ’) .OR. (C .EQ. 1y ')) THEN
1=1
ENDIF
1000 CONTINUE
C CURSOR VISIBLE
WRITE (*,' (AA) ') CHAR (27) ,1@1'
END
SUBROUTINE FIN (C)
C PROMPT FOR FINISH
CHARACTER C
WRITE (*,' (A\) ') ' DO YOU WANT TO FINISH? Y/N '
READ ( * ,’ (Al) ') C
RETURN
END
8-9
To Next Page
Loading...