*
* $Id: debugjf1.inc,v 1.1.1.1 1996/03/06 10:47:03 mclareni Exp $
*
* $Log: debugjf1.inc,v $
* Revision 1.1.1.1  1996/03/06 10:47:03  mclareni
* Zebra
*
*
*   Debug commands SIEMENS trace (place at beginning)
*
* debugjf1.inc
*
  900 CONTINUE
      PRINT '('' ====== Entry to routine '',A6)',CHROUT