home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d4xx / d499 / diglib.lha / Diglib / diglib.lzh / source / IOR.for < prev    next >
Encoding:
Text File  |  1991-05-01  |  95 b   |  7 lines
  1.         INTEGER*1 FUNCTION IOR(I,J)
  2.     IMPLICIT NONE
  3.     INTEGER*1 I,J
  4.     IOR = I .OR. J
  5.     RETURN
  6.     END
  7.