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