; Pulse digital output equal to current tool number

DEF INT _toolNo; tool number
DEF INT _cycles;

_toolNo=$P_TOOLNO;
_cycles = 0;

N100;
$A_OUT[1] = 1;
_cycles = _cycles + 1;
$A_OUT[1] = 0;

IF _cycles < _toolNo GOTOB N100;

N200;
M17;
;