MCdRlg

/* Loop testando e retirando marcações na data com sequência 1. */
MontaData(27,5,2003,dataux);
vposmar = 1;

Enquanto (MDatAc[vposmar] = dataux)
  Inicio
    Se (MSeqAc[vposmar] = 1)
      MIgnMa[vposmar] = 1;
    vposmar = vposmar + 1;
  Fim;