*
* $Id: tpseudin.inc,v 1.1.1.1 1996/03/06 10:47:02 mclareni Exp $
*
* $Log: tpseudin.inc,v $
* Revision 1.1.1.1  1996/03/06 10:47:02  mclareni
* Zebra
*
*
*
* tpseudin.inc
*
      CALL MZSTOR (0,'-PSEU-', '.', PSEU,PSEU(2),PSEU(2),PSEU(2)
     +,                             PSEU(2000),PSEU(6050))