MINICERN/packlib/zebra/fq/fzcvhvmi.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:11  mclareni
   6 * Zebra
   7 *
   8 *
   9 *   invert ASCII characters
  10 *
  11 * fzcvhvmi.inc
  12 *
  13 #if defined(CERNLIB_QMVMI)
  14 C--       VAX : invert ASCII characters
  15       CALL VXINVC (MS(JMS+1),MT(JMT+1),NWDO)
  16       JMT = JMT + NWDO
  17       JMS = JMS + NWDO
  18       GO TO 801
  19 #endif