* * $Id: fzcvhvax.inc,v 1.1.1.1 1996/03/06 10:47:11 mclareni Exp $ * * $Log: fzcvhvax.inc,v $ * Revision 1.1.1.1 1996/03/06 10:47:11 mclareni * Zebra * * * invert ASCII characters * * fzcvhvax.inc * #if defined(CERNLIB_QMVAX) C-- VAX : invert ASCII characters CALL VXINVC (MS(JMS+1),MT(JMT+1),NWDO) JMT = JMT + NWDO JMS = JMS + NWDO GO TO 801 #endif