MHorAc

/* Loop testando e retirando marcações realizadas entre 9:30 e 10:00. */
vposmar = 1;

Enquanto (MDatAc[vposmar] <> 0)
  Inicio
    Se ((MHorAc[vposmar]>=570) e (MHorAc[vposmar]>=600))
      MIgnMa[vposmar]=1;
    vposmar=vposmar+1;
  Fim;