home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / GSINPT.FOR < prev    next >
Encoding:
Text File  |  1989-06-20  |  446 b   |  19 lines
  1.         SUBROUTINE GSINPT(X,Y,LFLAG,IERR)
  2.         LOGICAL LFLAG
  3. C
  4. C       DO A GENERIC GRAPHICS INPUT
  5. C
  6.         INTEGER*1 CHAR, SPACE
  7.         DATA SPACE /' '/
  8. C
  9.         CALL GSCRSR(X,Y,IBUTN,IERR)
  10.         IF (IERR .NE. 0) GO TO 100
  11.                 LFLAG = (IAND(IBUTN,1) .EQ. 1)
  12.                 RETURN
  13. 100     CONTINUE
  14.         CALL GSGIN(X,Y,CHAR,IERR)
  15.         IF (IERR .NE. 0) RETURN
  16.         LFLAG = (CHAR .EQ. SPACE)
  17.         RETURN
  18.         END
  19.