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