code:
 do 
At (12,22) "Digite Código Sucursal Actual: "
Gets $SucAct
until val($SucAct) >= 100 and
      val($SucAct) <= 999 and
      len($SucAct) = 3
_________________________
How to ask questions the smart way <-----------> Before you ask