MINICERN/packlib/zebra/qutil/znumid.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:15  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10       SUBROUTINE ZNUMID (ID,NID)
  11
  12 #include "zebra/quest.inc"
  13 C--------------    END CDE                             --------------
  14       DIMENSION    ID(9), NID(9)
  15
  16
  17       NAME = ID(1)
  18       IF (IABS(NAME).GE.10000)     GO TO 22
  19       CALL VBLANK (IQUEST(26),4)
  20       CALL USET (NAME,IQUEST(26),1,4)
  21       CALL UBUNCH (IQUEST(26),NAME,4)
  22    22 NID(1) = NAME
  23       RETURN
  24       END
  25 *      ==================================================
  26 #include "zebra/qcardl.inc"