/*******************************************************************/
/*     (c)  Copyright   Roger Lacroix  1992                         |
|                                                                   |
|  Designed, developed and programmed by Roger Lacroix              |
+------------------------------------------------------------------*/
/* REMOVE the line numbers in columns 73 through 80.               */
ISREDIT MACRO
  ISREDIT num off
  ISREDIT C ALL P'=' ' ' 73 80
  ISREDIT C ALL  '*' ' ' 73 80
  ISREDIT CURSOR  = 1 0
  ISREDIT LEFT  MAX
EXIT CODE (0)