home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d4xx / d499 / diglib.lha / Diglib / diglib.lzh / source / gsinpt.for < prev    next >
Encoding:
Text File  |  1991-05-01  |  530 b   |  23 lines
  1.         SUBROUTINE GSINPT(X,Y,LFLAG,IERR)
  2.         IMPLICIT NONE
  3.         REAL*4 X,Y
  4.         INTEGER IERR,IBUTN
  5.     INTEGER*1 IAND
  6.         LOGICAL LFLAG
  7. C
  8. C       DO A GENERIC GRAPHICS INPUT
  9. C
  10.         INTEGER*1 CHAR, SPACE
  11.         DATA SPACE /' '/
  12. C
  13.         CALL GSCRSR(X,Y,IBUTN,IERR)
  14.         IF (IERR .NE. 0) GO TO 100
  15.                 LFLAG = (IAND(IBUTN,1) .EQ. 1)
  16.                 RETURN
  17. 100     CONTINUE
  18.         CALL GSGIN(X,Y,CHAR,IERR)
  19.         IF (IERR .NE. 0) RETURN
  20.         LFLAG = (CHAR .EQ. SPACE)
  21.         RETURN
  22.         END
  23.