MDatAc

/* Loop testando e retirando marcações de um relógio da planta 1 e código 15. */
vposmar = 1;

Enquanto (MDatAc[vposmar] <> 0)
  Inicio
    Se ((MCdPlt[vposmar=1) e (MCdRlg[vposmar]=15))
      MIgnMa[vposmar]=1;
    vposmar=vposmar+1;
  Fim;