C     NAME: TIRAM
C
C    LANGUAGE:  FORTRAN
C
C    OPERATING SYSTEM:  UNIVERSAL
C
C    ORDER NUMBER:  5428-SE
C
C    PART NUMBER:  000-026366  NOVEMBER 1985
C
C    PRODUCT:  UNIVERSAL VERSAPLOT COLOR RANDOM 2.0
C
C    VERSATEC, INC., SANTA CLARA, CALIFORNIA 95051
C    A XEROX COMPANY
C
C    Copyright (C) 1985 by Xerox Corporation.  All rights reserved.
C
C    "NOTICE. THIS PROGRAM IS THE EXCLUSIVE PROPERTY OF VERSATEC,
C    INC. AND IS ISSUED IN STRICT CONFIDENCE UNDER A PREARRANGED
C    LICENSE AGREEMENT AND IS NOT TO BE DISCLOSED IN ANY MANNER TO
C    PERSONS OUTSIDE THE LICENSED ORGANIZATION AND SHALL NOT BE
C    REPRODUCED OR DISSEMINATED, IN WHOLE OR PART, TO ANYONE OUTSIDE
C    THE LICENSED ORGANIZATION WITHOUT THE PRIOR WRITTEN APPROVAL OF
C    VERSATEC, INC. UNLESS OTHERWISE PROVIDED FOR BY SUCH LICENSE
C    AGREEMENT.  THIS WORK IS PROTECTED AS AN UNPUBLISHED WORK UNDER
C    THE COPYRIGHT ACT OF 1976."
C
C
C     TIRAM - FUNCTIONAL TEST FOR IRAM
C
C     CALLS: IRAM
C
C
C...  CHANGE LUNIT IF REQUIRED TO DESIRED LOGICAL UNIT NUMBER FOR
C     SYSTEM LISTING DEVICE.
C
    1 FORMAT (41H ENTER IWORD(O11), KOUNT(I3), & MASK(O11) )
    2 FORMAT (su, 16r, I9, s, 10r, I3, su, 16r, I9)
    3 FORMAT (su,16r,I8,8H = IRAM(,I8,1H,s,10r,I3,1H,su,16r,I8,1H) //)
C
   10 WRITE (6,1)
      READ (5,2,END=20) IWORD,KOUNT,MASK
      NWORD = IRAM (IWORD,KOUNT,MASK)
      WRITE (6,3) NWORD,IWORD,KOUNT,MASK
      GO TO 10
C
   20 STOP
      END